Changeset 20791 for trunk/ippScripts/scripts/magic_destreak.pl

Timestamp:

Nov 17, 2008, 3:56:22 PM (17 years ago)

Author:

bills

Message:

handle case where there are no skycells that overlap an image.
adapt to some name changes

File:

• trunk/ippScripts/scripts/magic_destreak.pl (modified) (4 diffs)

trunk/ippScripts/scripts/magic_destreak.pl

@@ -56 +56 @@
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
-pod2usage( -msg => "Required options: --magic_ds_id --camera --streaks --stage --outroot",
+pod2usage( -msg => "Required options: --magic_ds_id --camera --streaks --stage --stage_id --component --outroot",
            -exitval => 3) unless
     defined $magic_ds_id and
@@ -121 +121 @@
 }
 
-my $backup_uri;
+my $backup_path_base;
 if (! $remove) {
-    $backup_uri = "$outroot/$basename";
-}
-
-my $recovery_uri;
+    $backup_path_base = "$outroot/$basename";
+}
+
+my $recovery_path_base;
 if ($recoveryroot) {
-    $recovery_uri = "$recoveryroot/$basename";
+    $recovery_path_base = "$recoveryroot/$basename";
 }
 
@@ -143 +143 @@
     }
 
-    my $metadata = $mdcParser->parse(join "", @$stdout_buf) or
-        &my_die("Unable to parse metadata config doc", $magic_ds_id, $component, $PS_EXIT_PROG_ERROR);
-
-    my $skycells = parse_md_list($metadata) or
-        &my_die("Unable to parse metadata list", $magic_ds_id, $component, $PS_EXIT_PROG_ERROR);
-    ($sfh, $skycell_list) = tempfile( "/tmp/skycell_list.XXXX", UNLINK => !$save_temps);
-
-    foreach my $skycell (@$skycells) {
-        print $sfh "$skycell->{uri}\n"
-    }
-    close $sfh;
+    my $getskycells_output = join "", @$stdout_buf;
+    if ($getskycells_output) {
+        my $metadata = $mdcParser->parse($getskycells_output) or
+            &my_die("Unable to parse metadata config doc", $magic_ds_id, $component, $PS_EXIT_PROG_ERROR);
+
+        my $skycells = parse_md_list($metadata) or
+                &my_die("Unable to parse metadata list", $magic_ds_id, $component, $PS_EXIT_PROG_ERROR);
+
+        ($sfh, $skycell_list) = tempfile( "/tmp/skycell_list.XXXX", UNLINK => !$save_temps);
+
+        foreach my $skycell (@$skycells) {
+            print $sfh "$skycell->{uri}\n"
+        }
+        close $sfh;
+    }
 }
 
@@ -203 +207 @@
     $command   .= " -magic_ds_id $magic_ds_id";
     $command   .= " -component $component";
-    $command   .= " -backup_uri $backup_uri" if $backup_uri;
-    $command   .= " -recovery_uri $recovery_uri" if $recovery_uri;
+    $command   .= " -backup_path_base $backup_path_base" if $backup_path_base;
+    $command   .= " -recovery_path_base $recovery_path_base" if $recovery_path_base;
     $command   .= " -dbname $dbname" if defined $dbname;