Changeset 35353 for trunk/pstamp/scripts/pstamp_request_file
- Timestamp:
- Apr 3, 2013, 4:01:29 PM (13 years ago)
- File:
-
- 1 edited
-
trunk/pstamp/scripts/pstamp_request_file (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/pstamp/scripts/pstamp_request_file
r34447 r35353 54 54 value => undef 55 55 }, 56 { name => 'USERNAME',57 writetype => TSTRING,58 comment => 'username for request (optional)',59 value => undef60 },56 # { name => 'USERNAME', 57 # writetype => TSTRING, 58 # comment => 'username for request (optional)', 59 # value => undef 60 # }, 61 61 { name => 'EMAIL', 62 62 writetype => TSTRING, … … 97 97 { name => 'MJD_MIN', type => 'D', writetype => TDOUBLE }, 98 98 { name => 'MJD_MAX', type => 'D', writetype => TDOUBLE }, 99 # new in version 2 99 100 { name => 'RUN_TYPE', type => '16A', writetype => TSTRING }, 101 { name => 'FWHM_MIN', type => 'D', writetype => TDOUBLE }, 102 { name => 'FWHM_MAX', type => 'D', writetype => TDOUBLE }, 100 103 101 104 { name => 'COMMENT ', type => '64A', writetype => TSTRING }, … … 346 349 } 347 350 # trim leading whitespace from comment 348 $comment =~ s/^\s+// ;351 $comment =~ s/^\s+// if $comment; 349 352 if ($comment) { 350 353 if ($comment =~ /#/) {
Note:
See TracChangeset
for help on using the changeset viewer.
