IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 18784


Ignore:
Timestamp:
Jul 30, 2008, 10:47:35 AM (18 years ago)
Author:
Paul Price
Message:

Adding --redirect-output

Location:
trunk/ippScripts/scripts
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/ippScripts/scripts/magic_mask.pl

    r18780 r18784  
    2929
    3030# Parse the command-line arguments
    31 my ($magic_id, $camera, $dbname, $outroot, $save_temps, $verbose, $no_update, $no_op);
     31my ($magic_id, $camera, $dbname, $outroot, $save_temps, $verbose, $no_update, $no_op, $redirect);
    3232GetOptions(
    33            'magic_id=s'    => \$magic_id,   # Magic identifier
    34            'camera=s'      => \$camera,     # Camera name
    35            'dbname=s'      => \$dbname,     # Database name
    36            'outroot=s'     => \$outroot,    # Output root name
    37            'save-temps'    => \$save_temps, # Save temporary files?
    38            'verbose'       => \$verbose,    # Print stuff?
    39            'no-update'     => \$no_update,  # Don't update the database?
    40            'no-op'         => \$no_op,      # Don't do any operations?
     33           'magic_id=s'      => \$magic_id,   # Magic identifier
     34           'camera=s'        => \$camera,     # Camera name
     35           'dbname=s'        => \$dbname,     # Database name
     36           'outroot=s'       => \$outroot,    # Output root name
     37           'save-temps'      => \$save_temps, # Save temporary files?
     38           'verbose'         => \$verbose,    # Print stuff?
     39           'no-update'       => \$no_update,  # Don't update the database?
     40           'no-op'           => \$no_op,      # Don't do any operations?
     41           'redirect-output' => \$redirect,   # Redirect output?
    4142           ) or pod2usage( 2 );
    4243
    … …  
    5051$ipprc->define_camera($camera);
    5152
     53my $logDest = $ipprc->filename("LOG.EXP", $outroot, $magic_id) or
     54    &my_die("Missing entry from camera config", $magic_id, $PS_EXIT_CONFIG_ERROR);
     55$ipprc->redirect_output($logDest) if $redirect;
    5256
    5357# Look for programs we need

  • trunk/ippScripts/scripts/magic_process.pl

    r18774 r18784  
    2929
    3030# Parse the command-line arguments
    31 my ($magic_id, $node, $camera, $dbname, $outroot, $save_temps, $verbose, $no_update, $no_op);
     31my ($magic_id, $node, $camera, $dbname, $outroot, $save_temps, $verbose, $no_update, $no_op, $redirect);
    3232GetOptions(
    33            'magic_id=s'    => \$magic_id,   # Magic identifier
    34            'node=s'        => \$node,       # Node name
    35            'camera=s'      => \$camera,     # Camera name
    36            'dbname=s'      => \$dbname,     # Database name
    37            'outroot=s'     => \$outroot,    # Output root name
    38            'save-temps'    => \$save_temps, # Save temporary files?
    39            'verbose'       => \$verbose,    # Print stuff?
    40            'no-update'     => \$no_update,  # Don't update the database?
    41            'no-op'         => \$no_op,      # Don't do any operations?
     33           'magic_id=s'      => \$magic_id,   # Magic identifier
     34           'node=s'          => \$node,       # Node name
     35           'camera=s'        => \$camera,     # Camera name
     36           'dbname=s'        => \$dbname,     # Database name
     37           'outroot=s'       => \$outroot,    # Output root name
     38           'save-temps'      => \$save_temps, # Save temporary files?
     39           'verbose'         => \$verbose,    # Print stuff?
     40           'no-update'       => \$no_update,  # Don't update the database?
     41           'no-op'           => \$no_op,      # Don't do any operations?
     42           'redirect-output' => \$redirect,   # Redirect output?
    4243           ) or pod2usage( 2 );
    4344
    … …  
    5253$ipprc->define_camera($camera);
    5354
     55my $logDest = $ipprc->filename("LOG.EXP", $outroot, $magic_id) or
     56    &my_die("Missing entry from camera config", $magic_id, $PS_EXIT_CONFIG_ERROR);
     57$ipprc->redirect_output($logDest) if $redirect;
    5458
    5559# Look for programs we need

  • trunk/ippScripts/scripts/magic_tree.pl

    r18702 r18784  
    3333
    3434# Parse the command-line arguments
    35 my ($magic_id, $tess_id, $camera, $ra0, $dec0, $dbname, $outroot, $save_temps, $verbose, $no_update, $no_op);
     35my ($magic_id, $tess_id, $camera, $ra0, $dec0, $dbname, $outroot,
     36    $save_temps, $verbose, $no_update, $no_op, $redirect);
    3637GetOptions(
    37            'magic_id=s'    => \$magic_id,   # Magic identifier
    38            'tess_id=s'     => \$tess_id,    # Tessellation identifier
    39            'camera=s'      => \$camera,     # Camera name
    40            'ra=f'          => \$ra0,        # Boresight right ascension, radians
    41            'dec=f'         => \$dec0,       # Boresight declination, radians
    42            'dbname=s'      => \$dbname,     # Database name
    43            'outroot=s'     => \$outroot,    # Output root name
    44            'save-temps'    => \$save_temps, # Save temporary files?
    45            'verbose'       => \$verbose,    # Print stuff?
    46            'no-update'     => \$no_update,  # Don't update the database?
    47            'no-op'         => \$no_op,      # Don't do any operations?
     38           'magic_id=s'      => \$magic_id,   # Magic identifier
     39           'tess_id=s'       => \$tess_id,    # Tessellation identifier
     40           'camera=s'        => \$camera,     # Camera name
     41           'ra=f'            => \$ra0,        # Boresight right ascension, radians
     42           'dec=f'           => \$dec0,       # Boresight declination, radians
     43           'dbname=s'        => \$dbname,     # Database name
     44           'outroot=s'       => \$outroot,    # Output root name
     45           'save-temps'      => \$save_temps, # Save temporary files?
     46           'verbose'         => \$verbose,    # Print stuff?
     47           'no-update'       => \$no_update,  # Don't update the database?
     48           'no-op'           => \$no_op,      # Don't do any operations?
     49           'redirect-output' => \$redirect,   # Redirect output?
    4850           ) or pod2usage( 2 );
    4951
    … …  
    6062$ipprc->define_camera($camera);
    6163
     64my $logDest = $ipprc->filename("LOG.EXP", $outroot, $magic_id) or
     65    &my_die("Missing entry from camera config", $magic_id, $PS_EXIT_CONFIG_ERROR);
     66$ipprc->redirect_output($logDest) if $redirect;
    6267
    6368# Look for programs we need
Note: See TracChangeset for help on using the changeset viewer.