Changeset 27355 for trunk/pstamp/scripts

Timestamp:

Mar 19, 2010, 8:32:52 AM (16 years ago)

Author:

bills

Message:

put request files from the web interface into a subdirectory instead of the
workdir

File:

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

trunk/pstamp/scripts/pstamp_webrequest.pl

@@ -20 +20 @@
 use Getopt::Long qw( GetOptions );
 use Sys::Hostname;
+use POSIX qw( strftime );
 
 my $host = hostname();
@@ -82 +83 @@
 my $cur_dir = getcwd();
 #print STDERR "cur_dir is $cur_dir\n";
+
+my $datestr = strftime "%Y%m%d", gmtime;
+my $datedir = "$cur_dir/webreq/$datestr";
+if (! -e $datedir ) {
+    if (!  mkdir $datedir ) {
+        print STDERR  "failed to create working directory $datedir";
+        exit $PS_EXIT_CONFIG_ERROR;
+    }
+}
+
 my $request_name = "web_" . get_webreq_num();
-my $request_file = "$cur_dir/$request_name.fits";
+my $request_file = "$datedir/$request_name.fits";
 {
     my $command = "$pstamprequest -req_name $request_name -project $project $request_file @ARGV";