Index: trunk/pstamp/scripts/pstamp_webrequest.pl
===================================================================
--- trunk/pstamp/scripts/pstamp_webrequest.pl	(revision 27283)
+++ trunk/pstamp/scripts/pstamp_webrequest.pl	(revision 27355)
@@ -20,4 +20,5 @@
 use Getopt::Long qw( GetOptions );
 use Sys::Hostname;
+use POSIX qw( strftime );
 
 my $host = hostname();
@@ -82,6 +83,16 @@
 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";