Changeset 24961 for trunk/pstamp/scripts/pstamp_parser_run.pl

Timestamp:

Jul 31, 2009, 3:34:44 PM (17 years ago)

Author:

bills

Message:

To prevent the top level working directory from becoming unreasonably large
create the request's working directories in a subdirectory with the name of the current date.

File:

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

trunk/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";