Changeset 24942

Timestamp:

Jul 29, 2009, 1:38:06 PM (17 years ago)

Author:

bills

Message:

if -req_name is provided allow output to be omitted and set $outpu = "$req_name.fits"

File:

• trunk/pstamp/test/pstamp_req_create (modified) (2 diffs)

trunk/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
@@ -95 +95 @@
 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);