Changeset 31662

Timestamp:

Jun 22, 2011, 12:28:54 AM (15 years ago)

Author:

eugene

Message:

merged from eam_branches/ipp-20110505: add example help function to staticsky.pl

Location:

trunk/ippScripts/scripts

Files:

• ipp_apply_burntool_single.pl (modified) (1 prop)
• staticsky.pl (modified) (2 diffs)

trunk/ippScripts/scripts/staticsky.pl

@@ -40 +40 @@
 }
 
+sub HelpMessage {
+    print "USAGE: staticsky.pl --sky_id (sky_id) --outroot (root) --camera (camera) [options]\n";
+    print "  --sky_id (sky_id)   : run identifier\n";
+    print "  --camera (camera)   : Camera name\n";
+    print "  --dbname (dbname)   : Database name\n";
+    print "  --threads (N)       : Number of threads to use\n";
+    print "  --outroot (root)    : Output root name\n";
+    print "  --reduction (class) : Reduction class\n";
+    print "  --verbose           : Be extra verbose\n";
+    print "  --no-update         : Don't update the database?\n";
+    print "  --no-op             : Don't do any operations?\n";
+    print "  --redirect-output   : send output to the log file,\n";
+    print "  --save-temps        : Save temporary files?\n";
+    print "  --help              : show this message\n";
+    exit 2;
+}
+
 # XXX test:
 print "run staticsky.pl @ARGV\n";
-# exit 0;
 
 my ($sky_id, $camera, $dbname, $threads, $outroot, $reduction, $verbose, $no_update, $no_op, $redirect, $save_temps);
@@ -57 +73 @@
     'redirect-output'   => \$redirect,
     'save-temps'        => \$save_temps, # Save temporary files?
+    'help'              => sub { HelpMessage() },
 ) or pod2usage( 2 );
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
+
 pod2usage(
     -msg => "Required options: --sky_id --outroot --camera",