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();
|
