Changeset 36221 for trunk/ippScripts/scripts

Timestamp:

Oct 16, 2013, 3:49:07 PM (13 years ago)

Author:

watersc1

Message:

Functional version of the task and script that I'm running on a test pantasks now. The load step is unreasonably slow, but that may just be due to the host I"m running the pantasks_server on (ippc25).

The date based iteration seems to be working correctly.

File:

• trunk/ippScripts/scripts/rawcheck.pl (modified) (5 diffs)

trunk/ippScripts/scripts/rawcheck.pl

@@ -28 +28 @@
 GetOptions(
     'server|s=s'     => \$server,
-    'dbname'         => \$dbname,
+    'dbname=s'       => \$dbname,
     'exp_id|x=s'     => \$exp_id,
 ) || pod2usage( 2 );
@@ -36 +36 @@
 pod2usage( -msg => "Required options: --server", -exitval => 2 )
     unless $server;
+pod2usage( -msg => "Required options: --dbname", -exitval => 2 )
+    unless $dbname;
 pod2usage( -msg => "missing key", exitval => 2 )
     unless defined $exp_id;
@@ -217 +219 @@
         $quality[0] = 1;
         print "cp $good_file $files[0]\n";
+        system("cp $good_file $files[0]");
+# Begin my best validation thought
+        {
+            my $fh;
+            open($fh,$files[0]);
+            my $tmpmd5 = Digest::MD5->new->addfile($fh)->hexdigest;
+            close($fh);
+            if ($tmpmd5 ne $md5sum) { 
+                die "Post-replication md5sum does not match! $tmpmd5 != $md5sum";
+            }
+        }
+# End my best validation thought.
+
         $Ngood = 1;  # We now hand off this single valid instance object to be handled by the Ngood=1 case.
     }
@@ -265 +280 @@
                 @$uris = map {URI->new($_)->file if $_} @$uris;
 
-                print $uris . " " . ${ $uris }[0] . " \n";
+#               print $uris . " " . ${ $uris }[0] . " \n";
                 my $fh;
                 open($fh,${ $uris }[0]);
@@ -287 +302 @@
         }
         for (my $i = 0; $i <= $#files; $i++) {
-            print "$existance[$i] $quality[$i] $md5sums[$i] $md5sum $diskhosts[$i] $diskvols[$i]\n";
+#           print "$existance[$i] $quality[$i] $md5sums[$i] $md5sum $diskhosts[$i] $diskvols[$i]\n";
             if ($quality[$i] != 1) {
                 my $cull_vol = $diskhosts[$i] . "." . $diskvols[$i];