Index: trunk/tools/cam_inputs.pl
===================================================================
--- trunk/tools/cam_inputs.pl	(revision 26796)
+++ trunk/tools/cam_inputs.pl	(revision 26940)
@@ -13,9 +13,10 @@
 
 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,4 +28,5 @@
            '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,6 +57,7 @@
 $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,13 +68,15 @@
 
     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;