Changeset 25051 for branches/czw_branch/cleanup/pstamp/scripts/pstamp_parser_run.pl

Timestamp:

Aug 11, 2009, 3:54:00 PM (17 years ago)

Author:

watersc1

Message:

Bringing branch up-to-date at revision 25049

Location:

branches/czw_branch/cleanup

Files:

• . (modified) (1 prop)
• pstamp/scripts/pstamp_parser_run.pl (modified) (2 diffs)

branches/czw_branch/cleanup/pstamp/scripts/pstamp_parser_run.pl

@@ -13 +13 @@
 use Getopt::Long qw( GetOptions );
 use File::Basename qw( basename dirname);
+use POSIX qw( strftime );
 
 my $req_id;
@@ -74 +75 @@
 }
 
-# workdir is where we download request files to and place any error output from the parser
+# workdir is where all of the files generated for this request are placed
 # NOTE: this location needs to be kept in sync with the web interface ( request.php )
-my $workdir = "$pstamp_workdir/$req_id";
-
+my $datestr = strftime "%Y%m%d", gmtime;
+my $datedir = "$pstamp_workdir/$datestr";
+if (! -e $datedir ) {
+    mkdir $datedir or die "failed to create working directory $datedir for request id $req_id";
+}
+
+my $workdir = "$datedir/$req_id";
 if (! -e $workdir ) {
     mkdir $workdir or die "failed to create working directory $workdir for request id $req_id";