Changeset 26940

Timestamp:

Feb 12, 2010, 5:21:33 PM (16 years ago)

Author:

Paul Price

Message:

Get masks too.

File:

• trunk/tools/cam_inputs.pl (modified) (4 diffs)

trunk/tools/cam_inputs.pl

@@ -13 +13 @@
 
 use constant SOURCES => '.cmf';  # Sources extension
+use constant MASK => '.ch.mk.fits';  # Mask extension
 
 
 my ($db_host, $db_name, $db_user, $db_pw); # Database details
 my ($cam_id);                              # Camera run of interest
-my ($sources);                             # Name for list of sources
+my ($sources, $masks);                     # Name for list files
 my ($muggle);                   # No magicked inputs?
 
@@ -27 +28 @@
            'cam_id=s' => \$cam_id, # Camera run identifier
            'sources=s' => \$sources, # File with sources
+           'masks=s' => \$masks, # File with masks
            'muggle'   => \$muggle, # No magicked inputs?
            ) or die "Unable to parse arguments.\n";
@@ -55 +57 @@
 $db->disconnect;
 
-my ($sourcesList); # Files to write to
+my ($sourcesList, $masksList); # Files to write to
 open $sourcesList, "> $sources" if defined $sources;
+open $masksList, "> $masks" if defined $masks;
 
 foreach my $row ( @$results ) {
@@ -65 +68 @@
 
     my $sourcesName = $path . SOURCES(); # Name of sources file
+    my $maskName = $path . MASK(); # Name of mask file
 
     $sourcesName = copy_file( $sourcesName );
+    $maskName = copy_file( $maskName );
 
     print $sourcesList "$sourcesName\n" if defined $sources;
-
-
+    print $masksList "$maskName\n" if defined $masks;
 }
 
 close $sourcesList if defined $sources;
+close $masksList if defined $masks;