Index: /trunk/tools/delete_convolved_diff.pl
===================================================================
--- /trunk/tools/delete_convolved_diff.pl	(revision 27105)
+++ /trunk/tools/delete_convolved_diff.pl	(revision 27106)
@@ -12,4 +12,8 @@
 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,5 +46,5 @@
 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,4 +56,6 @@
             print "$file\n";
             eval { $neb->delete($file); };
+#            $file = eval { $neb->find($file); };
+#            print "--> $file\n";
         }
     }