IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Jan 21, 2008, 4:56:26 PM (18 years ago)
Author:
eugene
Message:

making chip/host and nebulous upgrades

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/eam_branch_20080121/ippScripts/scripts/chip_imfile.pl

    r15466 r16176  
    3333
    3434# Parse the command-line arguments
    35 my ($exp_id, $chip_id, $class_id, $uri, $exp_tag, $camera, $dbname, $workdir, $reduction, $no_update, $no_op);
     35my ($exp_id, $exp_tag, $chip_id, $class_id, $uri, $camera, $outroot, $dbname, $reduction, $no_update, $no_op);
    3636GetOptions(
    3737           'exp_id=s'      => \$exp_id,    # Exposure identifier                       
     38           'exp_tag=s'     => \$exp_tag,   # Exposure identifier                       
    3839           'chip_id=s'     => \$chip_id,   # Chiptool identifier                       
    3940           'class_id=s'    => \$class_id,  # Class identifier                 
    4041           'uri|u=s'       => \$uri,       # Input FITS file                   
    4142           'camera|c=s'    => \$camera,    # Camera                           
     43           'outroot|w=s'   => \$outroot,   # output file base name
    4244           'dbname|d=s'    => \$dbname,    # Database name
    43            'exp_tag=s'     => \$exp_tag,    # Exposure identifier                     
    44            'workdir|w=s'   => \$workdir,   # Working directory, for output files 
    4545           'reduction=s'   => \$reduction, # Reduction class                   
    4646           'no-update'     => \$no_update, # Don't update the database?       
    … …  
    4949
    5050pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
    51 pod2usage( -msg => "Required options: --exp_id --exp_tag --chip_id --class_id --uri --camera",
     51pod2usage( -msg => "Required options: --exp_id --exp_tag --chip_id --class_id --uri --camera --outroot",
    5252           -exitval => 3) unless
    5353    defined $exp_id and
     54    defined $exp_tag and
    5455    defined $chip_id and
    5556    defined $class_id and
    5657    defined $uri and
    57     defined $exp_tag and
    58     defined $camera;
     58    defined $camera and
     59    defined $outroot;
    5960
    6061$ipprc->define_camera($camera);
    … …  
    100101&my_die("Couldn't find input file: $uri\n", $exp_id, $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($uri);
    101102
    102 $workdir = caturi( $workdir, $exp_tag ) if defined $workdir;
    103 
    104 my $outputRoot  = $ipprc->file_prepare( "$exp_tag.ch.$chip_id", $workdir, $uri );
    105 
    106 my $outputImage = $ipprc->filename("PPIMAGE.CHIP",      $outputRoot, $class_id) or &my_die("Missing entry from camera config", $exp_id, $chip_id, $class_id, $PS_EXIT_CONFIG_ERROR);
    107 my $outputMask  = $ipprc->filename("PPIMAGE.CHIP.MASK", $outputRoot, $class_id) or &my_die("Missing entry from camera config", $exp_id, $chip_id, $class_id, $PS_EXIT_CONFIG_ERROR);
    108 my $outputWeight  = $ipprc->filename("PPIMAGE.CHIP.WEIGHT", $outputRoot, $class_id) or &my_die("Missing entry from camera config", $exp_id, $chip_id, $class_id, $PS_EXIT_CONFIG_ERROR);
    109 my $outputBin1  = $ipprc->filename("PPIMAGE.BIN1",      $outputRoot, $class_id) or &my_die("Missing entry from camera config", $exp_id, $chip_id, $class_id, $PS_EXIT_CONFIG_ERROR);
    110 my $outputBin2  = $ipprc->filename("PPIMAGE.BIN2",      $outputRoot, $class_id) or &my_die("Missing entry from camera config", $exp_id, $chip_id, $class_id, $PS_EXIT_CONFIG_ERROR);
    111 my $outputStats = $ipprc->filename("PPIMAGE.STATS",     $outputRoot, $class_id) or &my_die("Missing entry from camera config", $exp_id, $chip_id, $class_id, $PS_EXIT_CONFIG_ERROR);
    112 
    113 my $traceDest = 'file:' . $ipprc->file_resolve($outputRoot) . ".$class_id.trace"; # Trace messages
    114 my $logDest = 'file:' . $ipprc->file_resolve($outputRoot) . ".$class_id.log"; # Log messages
     103# outroot examples (HOST components must be set)
     104# file://data/ipp004.0/gpc1/20080130
     105# neb:///ipp004-v1/gpc1/20080130
     106# neb:///*/gpc1/20080130 (volume not specified)
     107
     108# check for existing directory, generate if needed
     109$ipprc->outroot_prepare($outroot);
     110
     111## these names are used in ppImage, and thus may be URIs
     112my $outputImage   = $ipprc->filename("PPIMAGE.CHIP",        $outroot, $class_id) or &my_die("Missing entry from camera config", $exp_id, $chip_id, $class_id, $PS_EXIT_CONFIG_ERROR);
     113my $outputMask    = $ipprc->filename("PPIMAGE.CHIP.MASK",   $outroot, $class_id) or &my_die("Missing entry from camera config", $exp_id, $chip_id, $class_id, $PS_EXIT_CONFIG_ERROR);
     114my $outputWeight  = $ipprc->filename("PPIMAGE.CHIP.WEIGHT", $outroot, $class_id) or &my_die("Missing entry from camera config", $exp_id, $chip_id, $class_id, $PS_EXIT_CONFIG_ERROR);
     115my $outputBin1    = $ipprc->filename("PPIMAGE.BIN1",        $outroot, $class_id) or &my_die("Missing entry from camera config", $exp_id, $chip_id, $class_id, $PS_EXIT_CONFIG_ERROR);
     116my $outputBin2    = $ipprc->filename("PPIMAGE.BIN2",        $outroot, $class_id) or &my_die("Missing entry from camera config", $exp_id, $chip_id, $class_id, $PS_EXIT_CONFIG_ERROR);
     117my $outputStats   = $ipprc->filename("PPIMAGE.STATS",       $outroot, $class_id) or &my_die("Missing entry from camera config", $exp_id, $chip_id, $class_id, $PS_EXIT_CONFIG_ERROR);
     118my $traceDest     = $ipprc->filename("TRACE.IMFILE",        $outroot, $class_id) or &my_die("Missing entry from camera config", $exp_id, $chip_id, $class_id, $PS_EXIT_CONFIG_ERROR);
     119my $logDest       = $ipprc->filename("LOG.IMFILE",          $outroot, $class_id) or &my_die("Missing entry from camera config", $exp_id, $chip_id, $class_id, $PS_EXIT_CONFIG_ERROR);
    115120
    116121# Run ppImage
    117122unless ($no_op) {
    118     my $command = "$ppImage -file $uri $outputRoot";
     123    ## XXX can we convert ppImage log and trace to use the filerules to generate consistent names
     124    ## XXX also stats: output should be implied by $outroot
     125    my $command = "$ppImage -file $uri $outroot";
    119126    $command .= " -recipe PPIMAGE $recipe";
    120127    $command .= " -recipe PPSTATS CHIPSTATS";
    … …  
    130137    }
    131138
    132     &my_die("Couldn't find expected output file: $outputImage\n", $exp_id, $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputImage);
    133     &my_die("Couldn't find expected output file: $outputMask\n",  $exp_id, $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputMask);
    134     &my_die("Couldn't find expected output file: $outputWeight\n",  $exp_id, $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputWeight);
    135     &my_die("Couldn't find expected output file: $outputBin1\n",  $exp_id, $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputBin1);
    136     &my_die("Couldn't find expected output file: $outputBin2\n",  $exp_id, $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputBin2);
    137     &my_die("Couldn't find expected output file: $outputStats\n", $exp_id, $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputStats);
     139    &my_die("Couldn't find expected output file: $outputImage\n",  $exp_id, $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputImage);
     140    &my_die("Couldn't find expected output file: $outputMask\n",   $exp_id, $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputMask);
     141    &my_die("Couldn't find expected output file: $outputWeight\n", $exp_id, $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputWeight);
     142    &my_die("Couldn't find expected output file: $outputBin1\n",   $exp_id, $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputBin1);
     143    &my_die("Couldn't find expected output file: $outputBin2\n",   $exp_id, $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputBin2);
     144    &my_die("Couldn't find expected output file: $outputStats\n",  $exp_id, $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputStats);
    138145
    139146    # Get the statistics on the processed image
    … …  
    162169$command .= " -class_id $class_id";
    163170$command .= " -uri $outputImage";
    164 $command .= " -path_base $outputRoot";
     171$command .= " -path_base $outroot";
    165172$command .= " -dbname $dbname" if defined $dbname;
    166173$command .= $stats->cmdflags();
Note: See TracChangeset for help on using the changeset viewer.