IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 16563


Ignore:
Timestamp:
Feb 21, 2008, 11:56:44 AM (18 years ago)
Author:
Paul Price
Message:

my_die subroutines were checking '12271value' rathern than 'defined 12271value' --- errors weren't being pushed in to the database.

Location:
trunk/ippScripts/scripts
Files:
21 edited

Legend:

Unmodified
Added
Removed

  • trunk/ippScripts/scripts/calibrate_dvo.pl

    r16276 r16563  
    183183
    184184    carp($msg);
    185     if ($cal_id && $region && $last_step && $status and not $no_update) {
     185    if (defined $cal_id && defined $region && defined $last_step && defined $status and not $no_update) {
    186186        my $command = "$caltool -addcalrun";
    187187        $command .= " -cal_id $cal_id";

  • trunk/ippScripts/scripts/camera_exp.pl

    r16311 r16563  
    313313
    314314    carp($msg);
    315     if ($cam_id and not $no_update) {
     315    if (defined $cam_id and not $no_update) {
    316316        my $command = "$camtool -addprocessedexp -cam_id $cam_id -uri UNKNOWN -code $exit_code";
    317317        $command .= " -dbname $dbname" if defined $dbname;

  • trunk/ippScripts/scripts/chip_imfile.pl

    r16308 r16563  
    206206
    207207    carp($msg);
    208     if ($chip_id and $class_id and not $no_update) {
     208    if (defined $chip_id and defined $class_id and not $no_update) {
    209209        my $command = "$chiptool -addprocessedimfile";
    210210        $command .= " -exp_id $exp_id";

  • trunk/ippScripts/scripts/detrend_correct_imfile.pl

    r16561 r16563  
    132132
    133133    carp($msg);
    134     if ($det_id and $exp_id and $class_id and not $no_update) {
     134    if (defined $det_id and defined $exp_id and defined $class_id and not $no_update) {
    135135        my $command = "$dettool -addcorrectedimfile";
    136136        $command .= " -det_id $det_id";

  • trunk/ippScripts/scripts/detrend_norm_apply.pl

    r16561 r16563  
    183183
    184184    carp($msg);
    185     if ($det_id and $iter and $class_id and not $no_update) {
     185    if (defined $det_id and defined $iter and defined $class_id and not $no_update) {
    186186        my $command = "$dettool -addnormalizedimfile";
    187187        $command .= " -det_id $det_id";

  • trunk/ippScripts/scripts/detrend_norm_calc.pl

    r16561 r16563  
    207207
    208208    carp($msg);
    209     if ($det_id and $iter and not $no_update) {
     209    if (defined $det_id and defined $iter and not $no_update) {
    210210        my $command = "$dettool -addnormalizedstat";
    211211        $command .= " -det_id $det_id";

  • trunk/ippScripts/scripts/detrend_norm_exp.pl

    r16561 r16563  
    183183
    184184    carp($msg);
    185     if ($det_id and $iter and not $no_update) {
     185    if (defined $det_id and defined $iter and not $no_update) {
    186186        my $command = "$dettool -addprocessedimfile";
    187187        $command .= " -det_id $det_id";

  • trunk/ippScripts/scripts/detrend_process_exp.pl

    r16308 r16563  
    194194
    195195    carp($msg);
    196     if ($det_id and $exp_id and not $no_update) {
     196    if (defined $det_id and defined $exp_id and not $no_update) {
    197197        my $command = "$dettool -addprocessedexp";
    198198        $command .= " -det_id $det_id";

  • trunk/ippScripts/scripts/detrend_process_imfile.pl

    r16561 r16563  
    173173
    174174    carp($msg);
    175     if ($det_id and $exp_id and $class_id and not $no_update) {
     175    if (defined $det_id and defined $exp_id and defined $class_id and not $no_update) {
    176176        my $command = "$dettool -addprocessedimfile";
    177177        $command .= " -det_id $det_id";

  • trunk/ippScripts/scripts/detrend_reject_exp.pl

    r16561 r16563  
    335335
    336336    carp($msg);
    337     if ($det_id and $iter and not $no_update) {
     337    if (defined $det_id and defined $iter and not $no_update) {
    338338        my $command = "$dettool -adddetrunsummary";
    339339        $command .= " -det_id $det_id";

  • trunk/ippScripts/scripts/detrend_reject_imfile.pl

    r16561 r16563  
    544544
    545545    carp($msg);
    546     if ($det_id and $iter and $exp_id and not $no_update) {
     546    if (defined $det_id and defined $iter and defined $exp_id and not $no_update) {
    547547        my $command = "$dettool -addresidexp";
    548548        $command .= " -det_id $det_id";

  • trunk/ippScripts/scripts/detrend_resid.pl

    r16561 r16563  
    239239
    240240    carp($msg);
    241     if ($det_id and $iter and $exp_id and not $no_update) {
     241    if (defined $det_id and defined $iter and defined $exp_id and not $no_update) {
    242242        my $command = "$dettool -addresidimfile";
    243243        $command .= " -det_id $det_id";

  • trunk/ippScripts/scripts/detrend_stack.pl

    r16561 r16563  
    191191
    192192    carp($msg);
    193     if ($det_id and $iter and $class_id and not $no_update) {
     193    if (defined $det_id and defined $iter and defined $class_id and not $no_update) {
    194194        my $command = "$dettool -addstacked";
    195195        $command .= " -det_id $det_id";

  • trunk/ippScripts/scripts/diff_skycell.pl

    r16308 r16563  
    253253
    254254    warn($msg);
    255     if ($diff_id and not $no_update) {
     255    if (defined $diff_id and not $no_update) {
    256256        my $command = "$difftool -adddiffskyfile -diff_id $diff_id -code $exit_code";
    257257        $command .= " -dbname $dbname" if defined $dbname;

  • trunk/ippScripts/scripts/flatcorr_init.pl

    r15356 r16563  
    199199
    200200    carp($msg);
    201     if ($dvo_id && $region && $last_step && $status and not $no_update) {
     201    if (defined $dvo_id && defined $region && defined $last_step && defined $status and not $no_update) {
    202202        my $command = "$caltool -addcalrun";
    203203        $command .= " -dvo_id $dvo_id";

  • trunk/ippScripts/scripts/flatcorr_proc.pl

    r16276 r16563  
    187187
    188188    carp($msg);
    189     if ($dvo_id && $region && $last_step && $status and not $no_update) {
     189    if (defined $dvo_id && defined $region && defined $last_step && defined $status and not $no_update) {
    190190        my $command = "$caltool -addcalrun";
    191191        $command .= " -dvo_id $dvo_id";

  • trunk/ippScripts/scripts/magic_tree.pl

    r16331 r16563  
    234234
    235235    carp($msg);
    236     if ($magic_id and not $no_update) {
     236    if (defined $magic_id and not $no_update) {
    237237        my $command = "$magictool -inputtree";
    238238        $command .= " -magic_id $magic_id";

  • trunk/ippScripts/scripts/register_exp.pl

    r16561 r16563  
    210210
    211211    carp($msg);
    212     if ($exp_id and not $no_update) {
     212    if (defined $exp_id and not $no_update) {
    213213        my $command = "$regtool -addprocessedexp -exp_id $exp_id -code $exit_code";
    214214        $command .= " -dbname $dbname" if defined $dbname;

  • trunk/ippScripts/scripts/register_imfile.pl

    r16474 r16563  
    220220
    221221    carp($msg);
    222     if ($exp_id && $tmp_class_id and not $no_update) {
     222    if (defined $exp_id && defined $tmp_class_id and not $no_update) {
    223223        my $command = "$regtool -addprocessedimfile";
    224224        $command .= " -exp_id $exp_id";

  • trunk/ippScripts/scripts/stack_skycell.pl

    r16308 r16563  
    245245
    246246    warn($msg);
    247     if ($stack_id and not $no_update) {
     247    if (defined $stack_id and not $no_update) {
    248248        my $command = "$stacktool -addsumskyfile -stack_id $stack_id -code $exit_code";
    249249        $command .= " -dbname $dbname" if defined $dbname;

  • trunk/ippScripts/scripts/warp_skycell.pl

    r16308 r16563  
    247247
    248248    warn($msg);
    249     if ($warp_id and $skycell_id and $tess_id and not $no_update) {
     249    if (defined $warp_id and defined $skycell_id and defined $tess_id and not $no_update) {
    250250        my $command = "$warptool -addwarped -warp_id $warp_id -skycell_id $skycell_id -tess_id $tess_id -code $exit_code";
    251251        $command .= " -dbname $dbname" if defined $dbname;
Note: See TracChangeset for help on using the changeset viewer.