Changeset 24244 for branches/cnb_branches/cnb_branch_20090301/psLib/utils/psParseErrorCodes

Timestamp:

May 26, 2009, 1:59:32 PM (17 years ago)

Author:

beaumont

Message:

merged with trunk

Location:

branches/cnb_branches/cnb_branch_20090301

Files:

• . (modified) (1 prop)
• psLib/utils/psParseErrorCodes (modified) (2 diffs)

branches/cnb_branches/cnb_branch_20090301/psLib/utils/psParseErrorCodes

@@ -4 +4 @@
 use Getopt::Long;
 
-my @ErrorCodes        = ();
-my @ErrorDescriptions = ();
-
-my $data = "psErrorCodes.dat";
-my $outdir = ".";
+my $data;                       # Input data
+my $outdir = ".";               # Output directory
 
 # Assign variables based on the presence of command line options to the script
 GetOptions(
-    "data=s"  => \$data,
-    "outdir=s" => \$outdir,
-    "verbose" => \$verbose,
-    "help"    => \$help
-);
+           "data=s"   => \$data,
+           "outdir=s" => \$outdir,
+           "verbose"  => \$verbose,
+           "help"     => \$help
+           );
 
-if ($help) {
-    print "Usage: parseErrorCodes ", "[--data=dataFile] ", "[--help] ",
+if ($help
+    or not defined $data) {
+    print "Usage: parseErrorCodes ", "[--data=dataFile] ", "[--outdir=directory] ", "[--help] ",
         "[--verbose] filename\n\n";
     exit(0);
@@ -28 +26 @@
     die "Can not open data file $data.";
 }
+
+my @ErrorCodes        = ();
+my @ErrorDescriptions = ();
 
 print "Datafile:\n" if $verbose;