Index: trunk/ippScripts/scripts/rawcheck.pl
===================================================================
--- trunk/ippScripts/scripts/rawcheck.pl	(revision 36203)
+++ trunk/ippScripts/scripts/rawcheck.pl	(revision 36221)
@@ -28,5 +28,5 @@
 GetOptions(
     'server|s=s'     => \$server,
-    'dbname'         => \$dbname,
+    'dbname=s'       => \$dbname,
     'exp_id|x=s'     => \$exp_id,
 ) || pod2usage( 2 );
@@ -36,4 +36,6 @@
 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,4 +219,17 @@
 	$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,5 +280,5 @@
 		@$uris = map {URI->new($_)->file if $_} @$uris;
 
-		print $uris . " " . ${ $uris }[0] . " \n";
+#		print $uris . " " . ${ $uris }[0] . " \n";
 		my $fh;
 		open($fh,${ $uris }[0]);
@@ -287,5 +302,5 @@
 	}
 	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];