Changeset 38682 for trunk/tools/stsci_disks/p1_clear.pl

Timestamp:

Aug 24, 2015, 5:35:11 PM (11 years ago)

Author:

watersc1

Message:

Commiting the run versions.

File:

• trunk/tools/stsci_disks/p1_clear.pl (modified) (5 diffs)

trunk/tools/stsci_disks/p1_clear.pl

@@ -51 +51 @@
     defined $host && defined $volume && defined $dir && 
     defined $db && defined $dbhost && defined $dbuser && defined $dbpass;
+
+my $host_check = `hostname`;
+chomp($host_check);
+if ($host ne $host_check) {
+    die "Required to run on $host.  not on $host_check\n";
+}
 
 my $dbh = DBI->connect(
@@ -125 +131 @@
             }
 
-            $md5sums[$i] = local_md5sum($f);
+            $md5sums[$i] = actual_local_md5sum($f);
             unless (defined($md5sums[$i])) {
                 die("Failed to calculate md5sum locally. $f ");
@@ -218 +224 @@
             if (defined($vols[$i])) {
 #               print "HERE: $keys[$i] $host $volume\n";
-                $neb->cull($keys[$i],$host . "." . $volume);
+                eval {
+                    $neb->cull($keys[$i],$host . "." . $volume);
+                };
+                warn "CULL ERROR: $@" if $@;
             }
             else {
@@ -282 +291 @@
     };
 
+    if (defined($vol_host)) {
+        if ($vol_host eq 'ipp066') { 
+            $vol_host = get_volume($key); 
+            if ($vol_host eq 'ipp066') { 
+                # Really?
+                $vol_host = get_volume($key); 
+#               if ($vol_host eq 'ipp066') {}  #fine.  Be that way.  Jerk.
+#                 
+            }
+        }
+    }
     return($vol_host);
 }
@@ -326 +346 @@
     return($sum);
 }
+
+sub actual_local_md5sum {
+    my $filename = shift;
+    my $response = `md5sum $filename`;
+    chomp($response);
+    my ($sum, undef) = split /\s+/, $response;
+     unless(defined($sum)) {
+         warn("Failed to calculate md5sum Actually locally. $filename $host $volume");
+     }
+    return($sum);
+}