Index: unk/ippScripts/scripts/sc_validate_files.pl
===================================================================
--- /trunk/ippScripts/scripts/sc_validate_files.pl	(revision 37095)
+++ 	(revision )
@@ -1,68 +1,0 @@
-#! /usr/bin/env perl
-
-use Carp;
-use warnings;
-use strict;
-
-use File::Basename;
-use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
-use Pod::Usage qw( pod2usage );
-
-
-# Hard coded values
-my $remote_root = '/scratch3/watersc1/';
-my $host_iter = 0;
-my @ipp_hosts   = ('166.122.172.41','166.122.172.42','166.122.172.43','166.122.172.44',
-		   '166.122.172.45','166.122.172.46','166.122.172.47','166.122.172.48',
-		   '166.122.172.49','166.122.172.50','166.122.172.51','166.122.172.52','166.122.172.53');
-my @remote_hosts = ('mu-fe1.lanl.gov','mu-fe2.lanl.gov','mu-fe3.lanl.gov','mu-fe4.lanl.gov');
-my $check_list;
-my $transfer_list;
-GetOptions(
-    'check_list=s'  => \$check_list,
-    'transfer_list=s' => \$transfer_list
-    ) or pod2usage( 2 );
-
-my @check_files = ();
-my @transfer_files = ();
-
-open(LIST,$check_list);
-while(<LIST>) {
-    chomp;
-    push @check_files, $_;
-}
-close(LIST);
-open(LIST2,$transfer_list);
-while(<LIST2>) {
-    chomp;
-    push @transfer_files, $_;
-}
-close(LIST2);
-
-unless ($#check_files == $#transfer_files) {
-    die "The two lists are of unequal length.";
-}
-
-for (my $i = 0; $i <= $#check_files; $i++) {
-    my $file = $check_files[$i];
-    unless (-e $file) {
-	print "$file\n";
-	my $fetch_file = $transfer_files[$i];
-	my $directory = dirname($file);
-	unless (-d $directory) {
-	    system("mkdir -p $directory");
-	}
-	
-	scp_pull($fetch_file,$file);
-    }
-}
-
-sub scp_pull {
-    my $remote_file = shift;
-    my $local_file = shift;
-    
-    my $host = $ipp_hosts[$host_iter];
-    $host_iter++; 
-    if ($host_iter > $#ipp_hosts) { $host_iter = 0; }
-    system("scp ${host}:${remote_file} ${local_file}");
-}
Index: unk/ippScripts/scripts/sc_validate_processing.pl
===================================================================
--- /trunk/ippScripts/scripts/sc_validate_processing.pl	(revision 37095)
+++ 	(revision )
@@ -1,79 +1,0 @@
-#! /usr/bin/env perl
-
-use Carp;
-use warnings;
-use strict;
-
-use IPC::Cmd 0.36 qw( can_run run );
-use PS::IPP::Metadata::Config;
-use PS::IPP::Metadata::List qw( parse_md_list );
-use PS::IPP::Config 1.01 qw( :standard );
-
-use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
-use Pod::Usage qw( pod2usage );
-
-
-# Hard coded values
-my $remote_root = '/scratch3/watersc1/';
-
-my $command_output
-GetOptions(
-    'command_output=s'  => \$command_output;
-    ) or pod2usage( 2 );
-
-open(LIST,$command_output);
-while(<LIST>) {
-    chomp;
-    
-    if ($_ =~ /ppImage/) {
-	my $base = (split /\s+/)[15]; # This is super fragile.
-	my $stats= $base . "." . $class_id . ".stats"; # no good idea how to get that.
-	my $command = "";
-	if (-e $stats) { 
-	    my $stat_cmd = "ppStatsFromMetadata $stats - CHIP_IMFILE";
-	    ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-		run(command => $command, verbose => $verbose);
-	    unless ($success) {
-		$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-		&my_die("Unable to perform ppStatsFromMetadata: $error_code", $exp_id, $chip_id, $class_id, $error_code);
-	    }
-	    foreach my $line (@$stdout_buf) {
-		$cmdflags .= " $line";
-	    }
-	    chomp $cmdflags;
-	    
-	    # Need to get all these parameters.
-	    $command = "$chiptool -addprocessedimfile";
-	    $command .= " -exp_id $exp_id";
-	    $command .= " -chip_id $chip_id";
-	    $command .= " -class_id $class_id";
-	    $command .= " -uri $outputImage";
-	    $command .= " -path_base $outroot";
-	    $command .= " -magicked $magicked" if $magicked;
-	    $command .= " -hostname $host" if defined $host;
-	    $command .= " -dbname $dbname" if defined $dbname;
-	    $command .= " $cmdflags";
-	    $command .= (" -dtime_script " . ((DateTime->now->mjd - $mjd_start) * 86400));
-	    
-	}
-	else { # This job failed permanently
-	    $command = "$chiptool -addprocessedimfile";
-            $command .= " -exp_id $exp_id";
-            $command .= " -uri $outputImage" if defined $outputImage;
-            $command .= " -path_base $outroot";
-            $command .= " -hostname $host" if defined $host;
-            $command .= (" -dtime_script " . ((DateTime->now->mjd - $mjd_start) * 86400));
-	    $command .= " -chip_id $chip_id";
-	    $command .= " -class_id $class_id";
-	    $command .= " -fault $exit_code";
-	    $command .= " -dbname $dbname" if defined $dbname;
-	}
-	
-
-#     if ($_ =~ /stask: error: .*: task .*: Exited with exit code/) {
-# 	print " ";  # This needs to be smarter.
-# 	exit(1);
-#     }
-}
-close(LIST);
-