Changeset 16737

Timestamp:

Feb 28, 2008, 3:44:32 PM (18 years ago)

Author:

Paul Price

Message:

Moving to scheme where outroot is provided to the script instead of workdir.

File:

• trunk/ippScripts/scripts/magic_tree.pl (modified) (6 diffs)

trunk/ippScripts/scripts/magic_tree.pl

@@ -17 +17 @@
 use PS::IPP::Metadata::Config;
 use PS::IPP::Metadata::List qw( parse_md_list );
-use PS::IPP::Operations qw( skycell_file
-                            generate_skycells
-                            );
 
 use Astro::FITS::CFITSIO qw( :constants );
@@ -44 +41 @@
 
 # Parse the command-line arguments
-my ($magic_id, $tess_id, $camera, $ra0, $dec0, $dbname, $workdir, $save_temps, $verbose, $no_update, $no_op);
+my ($magic_id, $tess_id, $camera, $ra0, $dec0, $dbname, $outroot, $save_temps, $verbose, $no_update, $no_op);
 GetOptions(
            'magic_id=s'    => \$magic_id,   # Magic identifier
@@ -52 +49 @@
            'dec=f'         => \$dec0,       # Boresight declination, radians
            'dbname=s'      => \$dbname,     # Database name
-           'workdir=s'     => \$workdir,    # Working directory, for output files
+           'outroot=s'     => \$outroot,    # Output root name
            'save-temps'    => \$save_temps, # Save temporary files?
            'verbose'       => \$verbose,    # Print stuff?
@@ -60 +57 @@
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
-pod2usage( -msg => "Required options: --magic_id --camera --workdir",
+pod2usage( -msg => "Required options: --magic_id --camera --outroot",
            -exitval => 3) unless
     defined $magic_id and
@@ -67 +64 @@
     defined $dec0 and
     defined $camera and
-    defined $workdir;
+    defined $outroot;
 
 $ipprc->define_camera($camera);
@@ -106 +103 @@
 }
 
-generate_skycells($ipprc, $tess_id, \@skycells, $workdir, $verbose) or
-    &my_die("Unable to generate skycells", $magic_id, $PS_EXIT_PROG_ERROR);
-
 ### For each skycell, project centre of skycell onto tangent plane of boresight
 my @fields;
 foreach my $skycell_id ( @skycells ) {
-    my $skyfile = skycell_file($tess_id, $skycell_id, $workdir) or 
-        &my_die("Unable to get name of skycell file", $magic_id, $PS_EXIT_PROG_ERROR);
-    &my_die("Unable to find skycell file", $magic_id, $PS_EXIT_SYS_ERROR) unless
-        $ipprc->file_exists( $skyfile );
-
-    my ($header, $status) = Astro::FITS::CFITSIO::fits_read_header( $skyfile );
+    my $skyfile = $ipprc->filename("SKYCELL.TEMPLATE", $outroot, $skycell_id );
+    $ipprc->skycell_file($tess_id, $skycell_id, $skyFile, $verbose) or &my_die("Unable to generate skycells $skycell_id", $magic_id, $PS_EXIT_PROG_ERROR);
+    my $skyfileResolved = $ipprc->file_resolve( $skyfile );
+    my ($header, $status) = Astro::FITS::CFITSIO::fits_read_header( $skyfileResolved );
     &my_die("Unable to read skycell header: $status", $magic_id, $PS_EXIT_SYS_ERROR) if $status;