Changeset 25022 for branches/eam_branches/20090715/ippScripts/scripts/receive_file.pl

Timestamp:

Aug 7, 2009, 12:45:24 PM (17 years ago)

Author:

eugene

Message:

update from mainline

Location:

branches/eam_branches/20090715

Files:

• . (modified) (1 prop)
• ippScripts/scripts/receive_file.pl (modified) (4 diffs)

branches/eam_branches/20090715/ippScripts/scripts/receive_file.pl

@@ -19 +19 @@
 use PS::IPP::Metadata::List qw( parse_md_list );
 use PS::IPP::Config 1.01 qw( :standard );
-use File::Temp qw( tempfile );
+use File::Temp qw( tempfile tempdir );
 use File::Basename qw( basename );
 use Carp;
@@ -35 +35 @@
 }
 
-my $tempdir = "/tmp";
+my $temproot = "/tmp";
 
 # Parse the command-line arguments
@@ -72 +72 @@
     defined $workdir;
 
-$tempdir .= "/$file_id";
+my $tempdir = tempdir( "$temproot/receive.$file_id.XXXX", CLEANUP => !$save_temps);
 
 &my_die( "dirinfo is NULL for $component", $file_id, $PS_EXIT_CONFIG_ERROR )
@@ -329 +329 @@
 }
 
-if (!$save_temps and -e $filename) {
-    unlink $filename or &my_die( "Unable to unlink $filename\n", $file_id, $PS_EXIT_UNKNOWN_ERROR);
-}
 my $mjd_extract = DateTime->now->mjd;   # MJD of finishing extract
-
 
 # All done