cr-ensure-disk-space: Take argument for what to clean

Currently always "LogsPublish" (so no functional change).

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>

diff --git a/cr-ensure-disk-space b/cr-ensure-disk-space
index af8efe6f33e177880e5ed8290781db48d5f3f141..884be26b078d03b78b18856d9347446e230ac533 100755 (executable)
--- a/cr-ensure-disk-space
+++ b/cr-ensure-disk-space
@@ -36,7 +36,9 @@ while (@ARGV && $ARGV[0] =~ m/^\-/) {
     }
 }
 
-die if @ARGV;
+die unless @ARGV==1;
+
+our ($cfgbase) = @ARGV;
 
 csreadconfig();
 
@@ -50,7 +52,8 @@ my $chkq= $dbh_tests->prepare("SELECT * FROM flights WHERE flight=?");
 our @flights;
 our @sshopts= qw(-o batchmode=yes);
 
-$c{LogsPublish} =~ m/\:/ or die "$c{LogsPublish} ?";
+my $cfgvalue = $c{$cfgbase};
+$cgvvalue =~ m/\:/ or die "$c{LogsPublish} ?";
 my ($pubhost, $pubdir) = ($`,$'); #';
 
 sub ontarget ($) {

diff --git a/cri-args-hostlists b/cri-args-hostlists
index 2ee0b7b3e465e50dd102eede0c269e54559b8c7f..11f01bd3a5ffa3a2f9619082a534ff1f61942a85 100644 (file)
--- a/cri-args-hostlists
+++ b/cri-args-hostlists
@@ -74,7 +74,7 @@ execute_flight () {
         rm -f abort
         check_stop_core ''
 
-        ./cr-ensure-disk-space
+        ./cr-ensure-disk-space LogsPublish
 
        export OSSTEST_RESOURCE_PREINFO="[$branch $2]"