Changeset 23694

Timestamp:

Apr 2, 2009, 5:09:44 PM (17 years ago)

Author:

Paul Price

Message:

Cleaning up.

File:

• trunk/psLib/utils/psParseErrorCodes (modified) (2 diffs)

trunk/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
+    or not defined $outdir) {
+    print "Usage: parseErrorCodes ", "[--data=dataFile] ", "[--outdir=directory] ", "[--help] ",
         "[--verbose] filename\n\n";
     exit(0);
@@ -28 +27 @@
     die "Can not open data file $data.";
 }
+
+my @ErrorCodes        = ();
+my @ErrorDescriptions = ();
 
 print "Datafile:\n" if $verbose;