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

Timestamp:

Nov 15, 2009, 1:53:33 PM (16 years ago)

Author:

bills

Message:

implementation for "get_image" jobs

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 File::Copy;
 use POSIX qw( strftime );
 use Carp;
@@ -119 +120 @@
         unlink $new_uri or my_die("failed to unlink $new_uri", $req_id, $PS_EXIT_UNKNOWN_ERROR);
     }
-    if (! symlink $uri, $new_uri) {
-        my_die ("failed to link request file $uri to workdir $workdir", $req_id, $PS_EXIT_UNKNOWN_ERROR);
+    if (! copy $uri, $new_uri) {
+        my_die ("failed to copy request file $uri to workdir $workdir", $req_id, $PS_EXIT_UNKNOWN_ERROR);
     }
 }