Changeset 25540 for trunk/pstamp/scripts/pstampparse.pl

Timestamp:

Sep 24, 2009, 12:06:55 PM (17 years ago)

Author:

bills

Message:

if a request with a duplicate name is submitted invent a request name
and put the results there

File:

• trunk/pstamp/scripts/pstampparse.pl (modified) (4 diffs)

trunk/pstamp/scripts/pstampparse.pl

@@ -16 +16 @@
 use File::Basename qw(basename);
 use Carp;
+use POSIX qw( strftime );
 
 my $verbose;
@@ -98 +99 @@
 my_die("wrong EXTVER $extver found in $request_file_name", $PS_EXIT_PROG_ERROR) if ($extver ne "1");
 
+
 # check for duplicate request name
+my $duplicate_req_name = 0;
 if ($req_id and !$no_update) {
     my $command = "$pstamptool -listreq  -name $req_name -not_req_id $req_id";
@@ -109 +112 @@
     if ($success) {
         # -listreq succeeded duplicate request name
+        print STDERR "REQ_NAME $req_name has already been used\n";
         insertFakeJobForRow(undef, 0, $PSTAMP_DUP_REQUEST);
-        exit 0;
+        $duplicate_req_name = 1;
+        my $datestr = strftime "%Y%m%d%H%M%S.$req_id", gmtime;
+        $req_name = "ERROR.$datestr";
+        #exit 0;
     }
 }
@@ -126 +133 @@
         my_die("$command failed", $PS_EXIT_UNKNOWN_ERROR);
     }
+}
+if ($duplicate_req_name) {
+    exit 0;
 }