Changeset 24951 for branches/czw_branch/cleanup/ippScripts/scripts/receive_file.pl

Timestamp:

Jul 30, 2009, 5:20:29 PM (17 years ago)

Author:

watersc1

Message:

Finished up my edits to the detrend cleanup, and some changes to my
copy of burntool and the pslib astrometry. Detrend cleanup has not
been tested yet. That's up next.

Location:

branches/czw_branch/cleanup

Files:

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

branches/czw_branch/cleanup/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