Changeset 35440

Timestamp:

Apr 26, 2013, 1:51:17 PM (13 years ago)

Author:

bills

Message:

allow user to change email value with command line option

File:

• trunk/pstamp/scripts/pstamp_request_file (modified) (5 diffs)

trunk/pstamp/scripts/pstamp_request_file

@@ -18 +18 @@
      $output,                   # Name of output table
      $req_name, 
+     $email, 
      $help
      );
@@ -25 +26 @@
            'output|o=s'   => \$output,
            'req_name|r=s' => \$req_name,
-           'help|h'         => \$help,
+           'email=s'      => \$email,
+           'help|h'       => \$help,
 ) or pod2usage( 2 );
 
@@ -66 +68 @@
 ];
 
+my $email_column_num = 3;
+
 # Specification of columns to write
 my $columns = [ 
@@ -165 +169 @@
     $req_name = $header->[0]->{value};
 }
+if ($email) {
+    $header->[$email_column_num]->{value} = $email;
+}
+
 
 die "no request name defined" unless defined $req_name;
@@ -302 +310 @@
 
             $$r_extver = $vals[1];
-            if ($extver > 1) {
+            if ($$r_extver > 1) {
                 die "number of header columns in input $nvals does not equal expected number of header words $nhead"
                     if (@vals != @$header);