IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 15387


Ignore:
Timestamp:
Oct 25, 2007, 4:59:43 PM (19 years ago)
Author:
Paul Price
Message:

For important programs, send the trace and log messages to appropriate places.

Location:
trunk/ippScripts/scripts
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • trunk/ippScripts/scripts/camera_exp.pl

    r14334 r15387  
    166166my $fpaObjects = $ipprc->filename("PSASTRO.OUTPUT.MEF", $outputRoot); # MEF psastro output
    167167
     168my $traceDest = 'file:' . $ipprc->file_resolve($outputRoot) . ".trace"; # Trace messages
     169my $logDest = 'file:' . $ipprc->file_resolve($outputRoot) . ".log"; # Log messages
     170
    168171# convert supplied DVO database name to UNIX filename
    169172my $dvodbReal;
    … …  
    208211            my $command = "$psastro -list $list3Name $outputRoot +mosastro -chipastro " .
    209212                "-F PSASTRO.OUTPUT PSASTRO.OUTPUT.MEF";
     213            $command .= " -tracedest $traceDest -log $logDest";
    210214            my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
    211215                run(command => $command, verbose => 1);

  • trunk/ippScripts/scripts/chip_imfile.pl

    r14488 r15387  
    111111my $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);
    112112
     113my $traceDest = 'file:' . $ipprc->file_resolve($outputRoot) . "$class_id.trace"; # Trace messages
     114my $logDest = 'file:' . $ipprc->file_resolve($outputRoot) . "$class_id.log"; # Log messages
     115
    113116# Run ppImage
    114117unless ($no_op) {
    … …  
    118121    $command .= " -stats $outputStats";
    119122    $command .= " -dbname $dbname" if defined $dbname;
     123    $command .= " -tracedest $traceDest -log $logDest";
    120124
    121125    my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =

  • trunk/ippScripts/scripts/detrend_norm_apply.pl

    r14115 r15387  
    9494my $statsName = $ipprc->filename("PPIMAGE.STATS",  $outputRoot, $class_id);
    9595
     96my $traceDest = 'file:' . $ipprc->file_resolve($outputRoot) . "$class_id.trace"; # Trace messages
     97my $logDest = 'file:' . $ipprc->file_resolve($outputRoot) . "$class_id.log"; # Log messages
     98
    9699# Run normalisation
    97100unless ($no_op) {
    … …  
    101104    $command .= " -recipe PPSTATS $RECIPE_PPSTATS";
    102105    $command .= ' -isfringe' if lc($det_type) eq 'fringe';
     106    $command .= " -tracedest $traceDest -log $logDest";
    103107
    104108    my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =

  • trunk/ippScripts/scripts/detrend_process_imfile.pl

    r14115 r15387  
    9797my $outputStats = $ipprc->filename("PPIMAGE.STATS",  $outputRoot, $class_id) or &my_die("Missing entry from camera config", $det_id, $exp_id, $class_id, $PS_EXIT_PROG_ERROR);
    9898
     99my $traceDest = 'file:' . $ipprc->file_resolve($outputRoot) . "$class_id.trace"; # Trace messages
     100my $logDest = 'file:' . $ipprc->file_resolve($outputRoot) . "$class_id.log"; # Log messages
     101
    99102# Run ppImage
    100103unless ($no_op) {
    … …  
    103106    $command .= " -recipe PPSTATS CHIPSTATS";
    104107    $command .= " -stats $outputStats";
     108    $command .= " -tracedest $traceDest -log $logDest";
    105109
    106110    my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =

  • trunk/ippScripts/scripts/detrend_resid.pl

    r14445 r15387  
    136136my $outputStats = $ipprc->filename("PPIMAGE.STATS", $outputRoot, $class_id);
    137137
     138my $traceDest = 'file:' . $ipprc->file_resolve($outputRoot) . "$class_id.trace"; # Trace messages
     139my $logDest = 'file:' . $ipprc->file_resolve($outputRoot) . "$class_id.log"; # Log messages
     140
    138141# Run ppImage & ppStats
    139142unless ($no_op) {
    … …  
    142145    $command .= " -recipe PPSTATS RESIDUAL";
    143146    $command .= " -stats $outputStats";
     147    $command .= " -tracedest $traceDest -log $logDest";
    144148
    145149    # Detrend to use in processing

  • trunk/ippScripts/scripts/detrend_stack.pl

    r14115 r15387  
    117117my $outputStats = $outputRoot . '.stats'; # Statistics name
    118118
     119my $traceDest = 'file:' . $ipprc->file_resolve($outputRoot) . "$class_id.trace"; # Trace messages
     120my $logDest = 'file:' . $ipprc->file_resolve($outputRoot) . "$class_id.log"; # Log messages
     121
    119122$command = "$ppMerge $outputStack"; # Command to run
    120123foreach my $file (@$files) {
    … …  
    125128$command .= " -stats $outputStats";     # Statistics output filename
    126129$command .= " -recipe PPSTATS CHIPSTATS";
     130$command .= " -tracedest $traceDest -log $logDest";
    127131
    128132# Stack the files

  • trunk/ippScripts/scripts/diff_skycell.pl

    r15376 r15387  
    172172my $outputStats = $outputRoot . '.stats';
    173173
     174my $traceDest = 'file:' . $ipprc->file_resolve($outputRoot) . ".trace"; # Trace messages
     175my $logDest = 'file:' . $ipprc->file_resolve($outputRoot) . ".log"; # Log messages
    174176
    175177### XXX We have to play around some here, because pois can't use Nebulous
    … …  
    189191    $command .= " -sources $templateSources";
    190192    $command .= " -psf $inputPSF";
     193    $command .= " -tracedest $traceDest -log $logDest";
    191194
    192195    my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =

  • trunk/ippScripts/scripts/stack_skycell.pl

    r15376 r15387  
    162162my $outputStats = $outputRoot . '.stats';
    163163
     164my $traceDest = 'file:' . $ipprc->file_resolve($outputRoot) . ".trace"; # Trace messages
     165my $logDest = 'file:' . $ipprc->file_resolve($outputRoot) . ".log"; # Log messages
     166
    164167# Perform stacking
    165168unless ($no_op) {
    … …  
    170173    $command .= " -target 5.0";
    171174    $command .= " -photometry";
     175    $command .= " -tracedest $traceDest -log $logDest";
    172176
    173177    print "\n\nWARNING: Convolving to 1 arcsec FWHM seeing!\n\n";

  • trunk/ippScripts/scripts/warp_skycell.pl

    r15376 r15387  
    124124my $skyFile = caturi( $workdir, $skycell_id ); # Target sky cell file
    125125
     126my $traceDest = 'file:' . $ipprc->file_resolve($outputRoot) . ".trace"; # Trace messages
     127my $logDest = 'file:' . $ipprc->file_resolve($outputRoot) . ".log"; # Log messages
     128
    126129# Get list of filenames
    127130my ($imageFile, $imageName) = tempfile( "$tess_id.$skycell_id.wrp$warp_id.image.list.XXXX", UNLINK => !$save_temps);
    … …  
    167170    $command .= " -recipe PPSTATS WARPSTATS";
    168171    $command .= " -psf";        # Turn on PSF determination
     172    $command .= "-tracedest $traceDest -log $logDest";
    169173
    170174    my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
Note: See TracChangeset for help on using the changeset viewer.