IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Mar 2, 2007, 5:37:28 PM (19 years ago)
Author:
Paul Price
Message:

Updating to use new ippTools system, where the chip and camera phases take identifiers for those phases, instead of exp_tag.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ippScripts/scripts/camera_exp.pl

    r12079 r12213  
    3333use Pod::Usage qw( pod2usage );
    3434
    35 my ($exp_tag, $camera, $dbname, $workdir, $no_update, $no_op);
     35my ($exp_id, $cam_id, $camera, $dbname, $workdir, $no_update, $no_op);
    3636GetOptions(
    37     'exp_tag|e=s'       => \$exp_tag,
    38     'camera|c=s'        => \$camera,
    39     'dbname|d=s'        => \$dbname, # Database name
    40     'workdir|w=s'       => \$workdir,
    41     'no-update'         => \$no_update,
    42     'no-op'             => \$no_op,
    43 ) or pod2usage( 2 );
     37           'exp_id=s'          => \$exp_id, # Exposure identifier
     38           'cam_id=s'          => \$cam_id, # Camtool identifier
     39           'camera|c=s'        => \$camera, # Camera
     40           'dbname|d=s'        => \$dbname, # Database name
     41           'workdir|w=s'       => \$workdir, # Working directory
     42           'no-update'         => \$no_update, # Update the database?
     43           'no-op'             => \$no_op, # Don't do any operations?
     44           ) or pod2usage( 2 );
    4445
    4546pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
    4647pod2usage(
    47     -msg => "Required options: --exp_tag --camera",
     48    -msg => "Required options: --exp_id --cam_id --camera",
    4849    -exitval => 3,
    49 ) unless defined $exp_tag
     50) unless defined $exp_id
     51    and defined $cam_id
    5052    and defined $camera;
    5153
    … …  
    7577my $files;                      # Array of component files
    7678{
    77     my $command = "$camtool -pendingimfile -exp_tag $exp_tag"; # Command to run
     79    my $command = "$camtool -pendingimfile -cam_id $cam_id"; # Command to run
    7880    $command .= " -dbname $dbname" if defined $dbname;
    7981    my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
    … …  
    8183    unless ($success) {
    8284        $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
    83         &my_die("Unable to perform camtool: $error_code", $exp_tag, $error_code);
     85        &my_die("Unable to perform camtool: $error_code", $cam_id, $error_code);
    8486    }
    8587    my $metadata = $mdcParser->parse(join "", @$stdout_buf) or
    86         &my_die("Unable to parse metadata config doc", $exp_tag, $PS_EXIT_PROG_ERROR);
     88        &my_die("Unable to parse metadata config doc", $cam_id, $PS_EXIT_PROG_ERROR);
    8789    $files = parse_md_list($metadata) or
    88         &my_die("Unable to parse metadata list", $exp_tag, $PS_EXIT_PROG_ERROR);
     90        &my_die("Unable to parse metadata list", $cam_id, $PS_EXIT_PROG_ERROR);
    8991}
    9092
    … …  
    98100#    my @zp;                    # Array of photometric zero points
    99101    foreach my $file (@$files) {
    100         &my_die("Unable to find class id", $exp_tag, $PS_EXIT_SYS_ERROR) unless defined $file->{class_id};
     102        &my_die("Unable to find class id", $cam_id, $PS_EXIT_SYS_ERROR) unless defined $file->{class_id};
    101103        my $class_id = $file->{class_id};
    102         &my_die("Unable to find bg for class_id=$class_id", $exp_tag, $PS_EXIT_SYS_ERROR) unless defined $file->{bg};
    103         &my_die("Unable to find bg_mean_stdev for class_id=$class_id", $exp_tag, $PS_EXIT_SYS_ERROR) unless defined $file->{bg_mean_stdev};
    104 #       &my_die("Unable to find sigma_ra for class_id=$class_id", $exp_tag, $PS_EXIT_SYS_ERROR) unless defined $file->{sigma_ra};
    105 #       &my_die("Unable to find sigma_dec for class_id=$class_id", $exp_tag, $PS_EXIT_SYS_ERROR) unless defined $file->{sigma_dec};
    106 #       &my_die("Unable to find zp for class_id=$class_id", $exp_tag, $PS_EXIT_SYS_ERROR) unless defined $file->{zp};
     104        &my_die("Unable to find bg for class_id=$class_id", $cam_id, $PS_EXIT_SYS_ERROR) unless defined $file->{bg};
     105        &my_die("Unable to find bg_mean_stdev for class_id=$class_id", $cam_id, $PS_EXIT_SYS_ERROR) unless defined $file->{bg_mean_stdev};
     106#       &my_die("Unable to find sigma_ra for class_id=$class_id", $cam_id, $PS_EXIT_SYS_ERROR) unless defined $file->{sigma_ra};
     107#       &my_die("Unable to find sigma_dec for class_id=$class_id", $cam_id, $PS_EXIT_SYS_ERROR) unless defined $file->{sigma_dec};
     108#       &my_die("Unable to find zp for class_id=$class_id", $cam_id, $PS_EXIT_SYS_ERROR) unless defined $file->{zp};
    107109        push @backgrounds, $file->{bg};
    108110        push @variances, $file->{bg_stdev}**2;
    … …  
    129131    $workdir = $dir;
    130132}
     133
     134$workdir = File::Spec->catfile( $workdir, $exp_id );
    131135system "mkdir -p $workdir" unless -d $workdir;
    132136
    133 # make this a function which generates a specific list file for a specific filename
    134 
    135137# Generate the file list, and get the statistics
    136 my $outputFile =  "$exp_tag.cam";
     138my $outputFile =  "$exp_id.cam$cam_id";
    137139my $outputRoot = File::Spec->catfile( $workdir, $outputFile );
    138140
    … …  
    182184        unless ($success) {
    183185            $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
    184             &my_die("Unable to perform psastro: $error_code", $exp_tag, $error_code);
    185         }
    186         &my_die("Unable to find expected output file: $fpaObjects", $exp_tag, $PS_EXIT_PROG_ERROR) unless -f $fpaObjects;
     186            &my_die("Unable to perform psastro: $error_code", $cam_id, $error_code);
     187        }
     188        &my_die("Unable to find expected output file: $fpaObjects", $cam_id, $PS_EXIT_PROG_ERROR) unless -f $fpaObjects;
    187189    } else {
    188190        $fpaObjects = $chipObjects;
    … …  
    198200        unless ($success) {
    199201            $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
    200             &my_die("Unable to perform addstar: $error_code", $exp_tag, $error_code);
     202            &my_die("Unable to perform addstar: $error_code", $cam_id, $error_code);
    201203        }
    202204    }
    … …  
    209211        unless ($success) {
    210212            $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
    211             &my_die("Unable to perform ppImage: $error_code", $exp_tag, $error_code);
    212         }
    213         &my_die("Unable to find expected output file: $jpeg1", $exp_tag, $PS_EXIT_PROG_ERROR) unless -f $jpeg1;
     213            &my_die("Unable to perform ppImage: $error_code", $cam_id, $error_code);
     214        }
     215        &my_die("Unable to find expected output file: $jpeg1", $cam_id, $PS_EXIT_PROG_ERROR) unless -f $jpeg1;
    214216    }
    215217
    … …  
    221223        unless ($success) {
    222224            $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
    223             &my_die("Unable to perform ppImage: $error_code", $exp_tag, $error_code);
    224         }
    225         &my_die("Unable to find expected output file: $jpeg2", $exp_tag, $PS_EXIT_PROG_ERROR) unless -f $jpeg2;
     225            &my_die("Unable to perform ppImage: $error_code", $cam_id, $error_code);
     226        }
     227        &my_die("Unable to find expected output file: $jpeg2", $cam_id, $PS_EXIT_PROG_ERROR) unless -f $jpeg2;
    226228    }
    227229}
    … …  
    232234
    233235unless ($no_update) {
    234     my $command = "$camtool -addprocessedexp -exp_tag $exp_tag -uri UNKNOWN " .
     236    my $command = "$camtool -addprocessedexp -cam_id $cam_id -uri UNKNOWN " .
    235237        "-recip " . RECIPE1() . "," . RECIPE2() . " -path_base $outputRoot " .
    236238        "-bg $bg -bg_stdev $bg_stdev -bg_mean_stdev $bg_mean_stdev " .
    … …  
    253255{
    254256    my $msg = shift; # Warning message on die
    255     my $exp_tag = shift; # Exposure tag
     257    my $cam_id = shift; # Camtool identifier
    256258    my $exit_code = shift; # Exit code to add
    257259
    258260    warn($msg);
    259     if ($exp_tag and not $no_update) {
    260         my $command = "$camtool -addprocessedexp -exp_tag $exp_tag -code $exit_code";
     261    if ($cam_id and not $no_update) {
     262        my $command = "$camtool -addprocessedexp -cam_id $cam_id -code $exit_code";
    261263        $command .= " -dbname $dbname" if defined $dbname;
    262264        system ($command);
Note: See TracChangeset for help on using the changeset viewer.