cr-ensure-disk-space: Move LogsPublish decomposition up

We are going to want this for the df.
No functional change yet.

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

diff --git a/cr-ensure-disk-space b/cr-ensure-disk-space
index aeaf57210f2cb7a6b190e56c4c3f39a610ef50cb..ff07b769c1af2a9e0fe09ccea0b9ac9ee92d0f38 100755 (executable)
--- a/cr-ensure-disk-space
+++ b/cr-ensure-disk-space
@@ -50,6 +50,9 @@ 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 ($pubhost, $pubdir) = ($`,$'); #';
+
 for (;;) {
     open P, "df --block-size=1M -P . |" or die $!;
     $_= <P>;
@@ -83,9 +86,6 @@ for (;;) {
 
     die "age $age" if $age < $c{LogsMinExpireAge};
 
-    $c{LogsPublish} =~ m/\:/ or die "$c{LogsPublish} ?";
-    my ($pubhost, $pubdir) = ($`,$'); #';
-
     printf "...";
 
     my $spawn= sub {