Changeset 25022 for branches/eam_branches/20090715/pstamp/test/pstamp_req_create

Timestamp:

Aug 7, 2009, 12:45:24 PM (17 years ago)

Author:

eugene

Message:

update from mainline

Location:

branches/eam_branches/20090715

Files:

• . (modified) (1 prop)
• pstamp/test/pstamp_req_create (modified) (3 diffs)

branches/eam_branches/20090715/pstamp/test/pstamp_req_create

@@ -26 +26 @@
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
-pod2usage( -msg => "Required options: --input --output",
-           -exitval => 3) unless defined $input and defined $output;
+pod2usage( -msg => "Required options: --input --output | --req_name",
+           -exitval => 3) unless defined $input and (defined $output or defined $req_name);
 
 # The header kewords
@@ -55 +55 @@
         { name => 'IMG_TYPE',   type => '16A', writetype => TSTRING },
         { name => 'ID',         type => '16A', writetype => TSTRING },           
-        { name => 'CLASS_ID',   type => '16A', writetype => TSTRING },
+        { name => 'TESS_ID',    type => '64A', writetype => TSTRING },
+        { name => 'COMPONENT',  type => '64A', writetype => TSTRING },
 
 
@@ -95 +96 @@
 if ($req_name) {
     $header->[0]->{value} = $req_name;
-}
+} else {
+    $req_name = $header->[0]->{value};
+}
+
+die "no request name defined" unless defined $req_name;
+
+$output = $req_name . ".fits" if !$output;
 
 my $status = make_fits_table($output, EXTNAME, $numRows, \@colData, $columns, $header);