IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 16752


Ignore:
Timestamp:
Feb 28, 2008, 5:02:12 PM (18 years ago)
Author:
Paul Price
Message:

Need to create the output directory

Location:
trunk/ippScripts/scripts
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • trunk/ippScripts/scripts/ipp_serial_camera.pl

    r16336 r16752  
    77use PS::IPP::Metadata::Config;
    88use PS::IPP::Metadata::List qw( parse_md_list );
     9use PS::IPP::Config qw( caturi );
    910use Data::Dumper;
    1011
    … …  
    3435
    3536my $mdcParser = PS::IPP::Metadata::Config->new; # Metadata config parser
     37my $ipprc = PS::IPP::Config->new; # IPP Configuration
    3638
    3739# Look for programs we need
    … …  
    5961   
    6062    $workdir = $workdir_default unless (defined $workdir or $workdir ne "NULL");
    61     my $outroot = $workdir . '/' . ${exp_tag} . '/' . ${exp_tag} . '.cm.' . ${cam_id};
     63    my $outroot = caturi( $workdir, $exp_tag, "$exp_tag.cm.$cam_id" );
     64    $ipprc->outroot_prepare( $outroot );
    6265
    6366    my $command = "$camera_exp --cam_id $cam_id --exp_tag $exp_tag --camera $camera --dbname $dbname";

  • trunk/ippScripts/scripts/ipp_serial_chip.pl

    r16336 r16752  
    77use PS::IPP::Metadata::Config;
    88use PS::IPP::Metadata::List qw( parse_md_list );
     9use PS::IPP::Config qw( caturi );
    910use Data::Dumper;
    1011
    … …  
    3435
    3536my $mdcParser = PS::IPP::Metadata::Config->new; # Metadata config parser
     37my $ipprc = PS::IPP::Config->new; # IPP Configuration
    3638
    3739# Look for programs we need
    … …  
    7375            $workdir = $workdir_default unless (defined $workdir or $workdir ne "NULL");
    7476
    75             my $outroot = $workdir . '/' . ${exp_tag} . '/' . ${exp_tag} . '.ch.' . ${chip_id};
     77            my $outroot = caturi( $workdir, $exp_tag, "$exp_tag.ch.$chip_id" );
     78            $ipprc->outroot_prepare( $outroot );
    7679
    7780            my $command = "$chip --chip_id $chip_id --exp_id $exp_id --exp_tag $exp_tag --class_id $class_id --uri $uri --dbname $dbname --camera $camera --outroot $outroot";

  • trunk/ippScripts/scripts/ipp_serial_detrend.pl

    r16744 r16752  
    99use PS::IPP::Metadata::Config qw( caturi );
    1010use PS::IPP::Metadata::List qw( parse_md_list );
     11use PS::IPP::Config;
    1112use Data::Dumper;
    1213
    … …  
    2526
    2627my $mdcParser = PS::IPP::Metadata::Config->new; # Metadata config parser
     28my $ipprc = PS::IPP::Config->new(); # IPP configuration
    2729
    2830# Look for programs we need
    … …  
    7476
    7577                my $outroot = caturi( $workdir, "$camera.$det_type.$det_id", $exp_tag, "$exp_tag.detproc.$det_id" );
     78                $ipprc->outroot_prepare( $outroot );
    7679
    7780                my $command = "$detrend_process_imfile --det_id $det_id --exp_tag $exp_tag --exp_id $exp_id --class_id $class_id --det_type $det_type --input_uri $uri --camera $camera --dbname $dbname --outroot $outroot";
    … …  
    109112       
    110113        my $outroot = caturi( $workdir, "$camera.$det_type.$det_id", $exp_tag, "$exp_tag.detproc.$det_id" );
     114        $ipprc->outroot_prepare( $outroot );
    111115
    112116        my $command = "$detrend_process_exp --det_id $det_id --det_type $det_type --exp_tag $exp_tag --exp_id $exp_id --camera $camera --dbname $dbname --outroot $outroot";
    … …  
    139143       
    140144        my $outroot = caturi( $workdir, "$camera.$det_type.$det_id", "$camera.$det_type.$det_id.$iteration" );
     145        $ipprc->outroot_prepare( $outroot );
     146
    141147
    142148        my $command = "$detrend_stack --det_id $det_id --iteration $iteration --class_id $class_id --det_type $det_type --camera $camera --dbname $dbname --outroot $outroot";
    … …  
    168174       
    169175        my $outroot = caturi( $workdir, "$camera.$det_type.$det_id", "$camera.$det_type.normstat.$det_id.$iteration" );
     176        $ipprc->outroot_prepare( $outroot );
    170177
    171178        my $command = "$detrend_norm_calc --det_id $det_id --iteration $iteration --det_type $det_type --dbname $dbname --outroot $outroot";
    … …  
    199206       
    200207        my $outroot = caturi( $workdir, "$camera.$det_type.$det_id", "$camera.$det_type.norm.$det_id.$iteration" );
     208        $ipprc->outroot_prepare( $outroot );
    201209
    202210        my $command = "$detrend_norm_apply --det_id $det_id --iteration $iteration --class_id $class_id --value $value --input_uri $uri --camera $camera --det_type $det_type --dbname $dbname --outroot $outroot";
    … …  
    230238       
    231239        my $outroot = caturi( $workdir, "$camera.$det_type.$det_id", "$camera.$det_type.normexp.$det_id.$iteration" );
     240        $ipprc->outroot_prepare( $outroot );
    232241
    233242        my $command = "$detrend_norm_exp --det_id $det_id --iteration $iteration --camera $camera --det_type $det_type --dbname $dbname --outroot $outroot";
    … …  
    275284               
    276285                my $outroot = caturi( $workdir, "$camera.$det_type.$det_id", $exp_tag, "$exp_tag.detresid.$det_id.$iteration" );
    277                
     286                $ipprc->outroot_prepare( $outroot );
     287
    278288                my $command = "$detrend_resid --det_id $det_id --iteration $iteration --exp_tag $exp_tag --exp_id $exp_id --class_id $class_id --det_type $det_type --camera $camera --input_uri $uri --mode $mode --dbname $dbname --outroot $outroot";
    279289                $command .= " --reduction $reduction" if defined $reduction;
    … …  
    313323       
    314324        my $outroot = caturi( $workdir, "$camera.$det_type.$det_id", $exp_tag, "$exp_tag.detresid.$det_id.$iteration" );
    315        
     325        $ipprc->outroot_prepare( $outroot );
     326
    316327        my $command = "$detrend_reject_imfile --det_id $det_id --iteration $iteration --exp_tag $exp_tag --exp_id $exp_id --det_type $det_type --camera $camera --dbname $dbname --outroot $outroot";
    317328        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
    … …  
    341352       
    342353        my $outroot = caturi( $workdir, "$camera.$det_type.$det_id", "$camera.$det_type.$det_id.$iteration.detreject" );
    343        
     354        $ipprc->outroot_prepare( $outroot );
     355
    344356        my $command = "$detrend_reject_exp --det_id $det_id --iteration $iteration --det_type $det_type --camera $camera --dbname $dbname --outroot $outroot";
    345357        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =

  • trunk/ippScripts/scripts/ipp_serial_diff.pl

    r16749 r16752  
    8080       
    8181        my $outroot = caturi( $workdir, "tess_$tess_id", $skycell_id, "$tess_id.$skycell_id.dif.$diff_id" );
     82        $ipprc->outroot_prepare( $outroot );
    8283
    8384        my $command = "$diff_skycell --diff_id $diff_id --dbname $dbname --outroot $outroot";

  • trunk/ippScripts/scripts/ipp_serial_stack.pl

    r16749 r16752  
    8282       
    8383        my $outroot = caturi( $workdir, "tess_$tess_id", $skycell_id, "$tess_id.$skycell_id.stk.$stack_id" );
     84        $ipprc->outroot_prepare( $outroot );
    8485
    8586        my $command = "$stack_skycell --stack_id $stack_id --dbname $dbname --outroot $outroot";

  • trunk/ippScripts/scripts/ipp_serial_warp.pl

    r16749 r16752  
    114114       
    115115        my $outroot = caturi( $workdir, "tess_$tess_id", $skycell_id, "$tess_id.$skycell_id.wrp.$warp_id" );
     116        $ipprc->outroot_prepare( $outroot );
    116117
    117118        my $command = "$warp_skycell --warp_id $warp_id --skycell_id $skycell_id --tess_id $tess_id --camera $camera --dbname $dbname --outroot $outroot";

  • trunk/ippScripts/scripts/warp_skycell.pl

    r16751 r16752  
    132132# Get list of filenames
    133133my $outrootResolved = $ipprc->file_resolve( $outroot );
    134 my ($imageFile,  $imageName)  = tempfile( caturi($outrootResolved, "$tess_id.$skycell_id.wrp$warp_id.image.list.XXXX"),  UNLINK => !$save_temps);
    135 my ($maskFile,   $maskName)   = tempfile( caturi($outrootResolved, "$tess_id.$skycell_id.wrp$warp_id.mask.list.XXXX"),   UNLINK => !$save_temps);
    136 my ($weightFile, $weightName) = tempfile( caturi($outrootResolved, "$tess_id.$skycell_id.wrp$warp_id.weight.list.XXXX"), UNLINK => !$save_temps);
    137 my ($astromFile, $astromName) = tempfile( caturi($outrootResolved, "$tess_id.$skycell_id.wrp$warp_id.astrom.list.XXXX"), UNLINK => !$save_temps);
     134my ($imageFile,  $imageName)  = tempfile( "$outrootResolved.image.list.XXXX"),  UNLINK => !$save_temps);
     135my ($maskFile,   $maskName)   = tempfile( "$outrootResolved.mask.list.XXXX"),   UNLINK => !$save_temps);
     136my ($weightFile, $weightName) = tempfile( "$outrootResolved.weight.list.XXXX"), UNLINK => !$save_temps);
     137my ($astromFile, $astromName) = tempfile( "$outrootResolved.astrom.list.XXXX"), UNLINK => !$save_temps);
    138138
    139139foreach my $imfile (@$imfiles) {
Note: See TracChangeset for help on using the changeset viewer.