Changeset 27840 for branches/simtest_nebulous_branches/ippScripts/scripts/register_imfile.pl

Timestamp:

May 3, 2010, 8:50:52 AM (16 years ago)

Author:

eugene

Message:

updates from trunk

Location:

branches/simtest_nebulous_branches

Files:

• . (modified) (1 prop)
• ippScripts/scripts/register_imfile.pl (modified) (5 diffs)

branches/simtest_nebulous_branches/ippScripts/scripts/register_imfile.pl

@@ -8 +8 @@
 use Sys::Hostname;
 my $host = hostname();
+my $date = `date`;
 print "\n\n";
-print "Starting script $0 on $host\n\n";
+print "Starting script $0 on $host at $date\n\n";
 
 use vars qw( $VERSION );
@@ -33 +34 @@
 my $ppStats = can_run( 'ppStats' ) or (warn "Can't find ppStats" and $missing_tools = 1);
 my $ppStatsFromMetadata = can_run( 'ppStatsFromMetadata' ) or (warn "Can't find ppStatsFromMetadata" and $missing_tools = 1);
-
-my ($cache, $exp_id, $tmp_class_id, $tmp_exp_name, $uri, $dbname, $verbose, $no_update, $no_op, $logfile);
+my $ppConfigDump = can_run( 'ppConfigDump' ) or (warn "Can't find ppConfigDump" and $missing_tools = 1);
+
+my ($cache, $exp_id, $tmp_class_id, $tmp_exp_name, $uri, $bytes, $md5sum, $dbname, $verbose, $no_update, $no_op, $logfile);
 GetOptions(
     'caches'           => \$cache,
@@ -41 +43 @@
     'tmp_exp_name|n=s' => \$tmp_exp_name,
     'uri|u=s'          => \$uri,
+    'bytes=s'          => \$bytes,
+    'md5sum=s'         => \$md5sum,
     'dbname|d=s'       => \$dbname,    # Database name
     'verbose'          => \$verbose,   # Print to stdout
@@ -106 +110 @@
     chomp $out2;
     $cmdflags = $out2;
+
+    # Manually parse the burntool_state entry.
+    my $burntoolState = 0;
+    my $isGPC1 = 0;
+    my $burntoolStateGood = 0;
+    foreach my $line (split /\n/, $out1) {
+        if ($line =~ /FPA.BURNTOOL.APPLIED/) {
+            $line =~ s/^\s+//;
+            $burntoolState = (split /\s+/, $line)[2];
+        }
+        if ($line =~ /FPA.CAMERA/) {
+            $line =~ s/^\s+//;
+            if ((split /\s+/, $line)[2] eq 'GPC1') {
+                $isGPC1 = 1;
+            }
+        }
+    }
+    if ($isGPC1 != 1) {
+        $burntoolState = 0; # If it's not GPC1, you shouldn't have run burntool.
+    }
+    elsif (($isGPC1 == 1) && ($burntoolState == 1)) {
+#       print STDERR "In the good region: >>$burntoolState<<\n";
+        my $ppConfigDump_cmd = "$ppConfigDump -camera GPC1 -dump-camera -";
+        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
+            IPC::Cmd::run(command => $ppConfigDump_cmd, verbose => $verbose);
+        unless ($success) {
+            $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
+            warn ("Unable to perform ppConfigDump");
+            exit($error_code);
+        }
+
+        # This is ugly, but doing a full parse for one entry is a bit wasteful.
+        foreach my $line (split /\n/, (join "", @$stdout_buf)) {
+            if ($line =~ /BURNTOOL.STATE.GOOD/) {
+                $line =~ s/^\s+//;
+                $burntoolStateGood = (split /\s+/, $line)[2];
+                last;
+            }
+        }
+        $burntoolState = $burntoolStateGood; # Positive because this has the header table.
+
+    }
+    $cmdflags .= " -burntool_state $burntoolState ";
 }
 
@@ -123 +170 @@
 $command .= " -tmp_class_id $tmp_class_id"; # the original class_id supplied by the user, replace by ppStats CLASS.ID
 $command .= " -uri $uri ";
+$command .= " -bytes $bytes" if $bytes;
+$command .= " -md5sum $md5sum" if $md5sum and ($md5sum ne 'NULL');
 $command .= " -hostname $host" if defined $host;
 $command .= " -dbname $dbname" if defined $dbname;