[Refdb-cvs] CVS: refdb/scripts statgen.pl,1.1.2.1,1.1.2.2

[Markus H. <mho...@us...>]

Update of /cvsroot/refdb/refdb/scripts
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16694

Modified Files:
      Tag: Release_0_9_5_stable
	statgen.pl 
Log Message:
rephrased 202 and 204

Index: statgen.pl
===================================================================
RCS file: /cvsroot/refdb/refdb/scripts/Attic/statgen.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -U2 -r1.1.2.1 -r1.1.2.2
--- statgen.pl	20 Apr 2005 19:43:32 -0000	1.1.2.1
+++ statgen.pl	5 May 2005 17:07:50 -0000	1.1.2.2
@@ -1,7 +1,8 @@
 #!/usr/bin/perl
 # generates status message listings for C, Perl, DocBook
-# usage: vargen.pl c|perl|docbook > outfile
+# usage: statgen.pl c|perl|docbook > outfile
+# if no argument is given, statgen.pl creates tab-separated output
 
-## the status message hashes
+## the status message array
 
 @refstat = (
@@ -28,7 +29,7 @@
 	    ["200", "void"],
 	    ["201", "main database is missing"],
-	    ["202", "access denied to main database"],
+	    ["202", "could not open main database"],
 	    ["203", "main database is too old or corrupt"],
-	    ["204", "access denied to reference database"],
+	    ["204", "could not open reference database"],
 	    ["205", "could not connect to database server"],
 	    ["206", "main database version is not supported"],
@@ -181,5 +182,5 @@
 
 
-
+# check command line argument and call appropriate output sub
 if ($ARGV[0] eq "c") {
     write_c();