Changeset 27106 for trunk/tools/delete_convolved_diff.pl

Timestamp:

Feb 26, 2010, 2:50:10 PM (16 years ago)

Author:

Paul Price

Message:

Only do deletions for a single host, which allows parallelisation.

File:

• trunk/tools/delete_convolved_diff.pl (modified) (3 diffs)

trunk/tools/delete_convolved_diff.pl

@@ -12 +12 @@
 use constant EXT => [ 'inConv.fits', 'inConv.mk.fits', 'inConv.wt.fits',
                       'refConv.fits', 'refConv.mk.fits', 'refConv.wt.fits' ]; # Extensions to delete
+
+my $hostname = `hostname`;      # Name of host
+chomp $hostname;
+
 
 my ($db_host, $db_name, $db_user, $db_pw); # Database details
@@ -42 +46 @@
 my @files;                      # Files to clean up
 {
-    my $sql = "SELECT path_base FROM diffSkyfile JOIN diffRun USING(diff_id) JOIN magicRun USING(diff_id) WHERE diffRun.state IN ('full', 'drop') AND magicRun.state IN ('full', 'drop', 'censored')";
+    my $sql = "SELECT path_base FROM diffSkyfile JOIN diffRun USING(diff_id) JOIN magicRun USING(diff_id) WHERE diffRun.state IN ('full', 'drop') AND magicRun.state IN ('full', 'drop', 'censored') AND diffSkyfile.hostname = '$hostname'";
     my $results = $db->selectall_arrayref( $sql ) or die "Unable to execute SQL: $DBI::errstr";
     foreach my $result ( @$results ) {
@@ -52 +56 @@
             print "$file\n";
             eval { $neb->delete($file); };
+#            $file = eval { $neb->find($file); };
+#            print "--> $file\n";
         }
     }