Changeset 27838 for branches/tap_branches/pstamp/scripts/pstamp_webrequest.pl

Timestamp:

May 3, 2010, 8:41:49 AM (16 years ago)

Author:

eugene

Message:

updates from trunk

Location:

branches/tap_branches

Files:

• . (modified) (1 prop)
• pstamp/scripts/pstamp_webrequest.pl (modified) (3 diffs)

branches/tap_branches/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";
@@ -125 +136 @@
 
     my $command = "$pstamptool -addreq -uri $request_file -ds_id 0";
+    $command .= " -label WEB";
     $command .= " -dbname $dbname" if $dbname;
     $command .= " -dbserver $dbserver" if $dbserver;