IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
May 18, 2010, 12:49:05 PM (16 years ago)
Author:
eugene
Message:

merging changes from trunk into branches/pap

Location:
branches/pap
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/pap

  • branches/pap/ippScripts/scripts/magic_destreak_cleanup.pl

    r27604 r28003  
    88use Sys::Hostname;
    99my $host = hostname();
     10my $date = `date`;
    1011print "\n\n";
    11 print "Starting script $0 on $host\n\n";
     12print "Starting script $0 on $host at $date\n\n";
    1213
    1314use vars qw( $VERSION );
     
    6263$ipprc->redirect_output($logfile) or my_die( "Unable to redirect output", $magic_ds_id, $PS_EXIT_SYS_ERROR ) if $logfile;
    6364
    64 if (0) {
    65 my $nebulousServer = metadataLookupStr( $ipprc->{_siteConfig}, 'NEB_SERVER' );
    66 &my_die("cannot find NEB_SERVER in site configuration", $magic_ds_id, $PS_EXIT_CONFIG_ERROR) if !$nebulousServer;
    67 
    68 my $nebulous = eval { Nebulous::Client->new( proxy => $nebulousServer ); };
    69 if ($@ or not defined $nebulous) {
    70     &my_die ("Unable to create a Nebulous::Client object with proxy $nebulousServer", $magic_ds_id, $PS_EXIT_CONFIG_ERROR);
    71 }
    72 }
    7365
    7466$dbname = metadataLookupStr( $ipprc->{_siteConfig}, 'DBNAME' ) if !$dbname;
     
    10799
    108100
     101&my_die("cleanup not supported for camera stage", $magic_ds_id, $PS_EXIT_PROG_ERROR) if $stage eq "camera";
     102
     103
    109104&my_die("unexpected run state found: $state", $magic_ds_id, $PS_EXIT_CONFIG_ERROR) if $state ne "goto_cleaned";
    110105&my_die("clean not allowed for raw stage, use goto_restore", $magic_ds_id, $PS_EXIT_CONFIG_ERROR) if $stage eq "raw";
     
    129124$dbh->disconnect() or warn $dbh->errstr;
    130125
     126# We no longer clean up the camera stage mask files, but the code was left in place in case
     127# we change our minds.
     128my $cleanup_cam_mask = 0;
     129
    131130my $dynamicMasks;               # Use dynamic masks?
    132131foreach my $comp (@components) {
     
    139138        if ($stage eq "chip") {
    140139            # Check to see if we're using dynamic masks
    141             if (!defined $dynamicMasks) {
     140            if ($cleanup_cam_mask && !defined $dynamicMasks) {
    142141                # Get the PSASTRO recipe
    143142                my $command = "$ppConfigDump -camera $camera -recipe PSASTRO $recipe_psastro -dump-recipe PSASTRO -";
Note: See TracChangeset for help on using the changeset viewer.