Changeset 35096 for branches/eam_branches/ipp-20121219/tools/queuessky.lap

Timestamp:

Feb 6, 2013, 2:34:49 PM (13 years ago)

Author:

eugene

Message:

merging changes from trunk

Location:

branches/eam_branches/ipp-20121219

Files:

• . (modified) (1 prop)
• tools/queuessky.lap (modified) (4 diffs)

branches/eam_branches/ipp-20121219/tools/queuessky.lap

@@ -18 +18 @@
 
 
-my ($ramin, $ramax, $decmin, $decmax, $absglatmin, $go);
+my ($ramin, $ramax, $decmin, $decmax, $absglatmin, $glatmin, $glatmax, $go);
 my $combos = 5;
 my $verbose = 0;
@@ -27 +27 @@
     'dec_min=s'          =>  \$decmin,
     'dec_max=s'          =>  \$decmax,
-#    'absglatmin=s'      =>  \$absglatmin,  # not yet
-    'nfilters=s'        =>  \$combos,
-    'go'                =>  \$go,
-    'verbose|v'         =>  \$verbose,
+    'glat_min=s'         =>  \$glatmin,
+    'glat_max=s'         =>  \$glatmax,
+    'abs_glat_min=s'     =>  \$absglatmin,
+    'nfilters=s'         =>  \$combos,
+    'go'                 =>  \$go,
+    'verbose|v'          =>  \$verbose,
 ) or pod2usage(2);
 
@@ -57 +59 @@
 $command .= " -dec_max $decmax" if defined $decmax;
 
-# XXX TODO: implement absglatmin
+$command .= " -glat_min $glatmin" if defined $glatmin;
+$command .= " -glat_max $glatmax" if defined $glatmax;
+
+$command .= " -abs_glat_min $absglatmin" if defined $absglatmin;
 
 foreach my $filter_combo (@$filter_combos) {
@@ -72 +77 @@
     }
 }
-
-
 
 exit 0;