cr-ensure-disk-space: Do listing of flights on target.

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

diff --git a/cr-ensure-disk-space b/cr-ensure-disk-space
index 6f129bd62a95d2e4938c9f396d9907fe535210c1..af8efe6f33e177880e5ed8290781db48d5f3f141 100755 (executable)
--- a/cr-ensure-disk-space
+++ b/cr-ensure-disk-space
@@ -71,11 +71,13 @@ for (;;) {
     last if $space >= $c{LogsMinSpaceMby};
 
     if (!@flights) {
-        opendir D, "." or die $!;
-        $!=0;
-        @flights = sort { $b <=> $a } grep { m/^\d+$/ } readdir D;
-        die if $!;
-        closedir D or die $!;
+       open P, "-|", ontarget "ls -1 $pubdir" or die $!;
+       while (<P>) {
+           next unless m/^(\d+)\n$/;
+           push @flights, $1;
+       }
+       $!=$?=0; close P or die "ls: $? $!";
+       @flights = sort { $b <=> $a } @flights;
         printf "(%d flights) ", scalar @flights;
         die unless @flights;
     }