summaryrefslogtreecommitdiff
path: root/utilities/perl
diff options
context:
space:
mode:
Diffstat (limited to 'utilities/perl')
-rwxr-xr-xutilities/perl/cipherkeygen.pl12
-rwxr-xr-xutilities/perl/linkvers.pl7
-rwxr-xr-xutilities/perl/localecap.pl6
-rwxr-xr-xutilities/perl/mkvsmod.pl38
4 files changed, 33 insertions, 30 deletions
diff --git a/utilities/perl/cipherkeygen.pl b/utilities/perl/cipherkeygen.pl
index c3de452..84d756c 100755
--- a/utilities/perl/cipherkeygen.pl
+++ b/utilities/perl/cipherkeygen.pl
@@ -1,15 +1,13 @@
#!/usr/bin/perl
+
#******************************************************************************
#
-# cipherkeygen.pl
-#
-# generates a cipher key of the format \d{4}[a-zA-Z]{4}\d{4}[a-zA-Z]{4}.
-# because I'm lazy and not random enough.
-# and because the utilities/perl directory is kinda bare...
+# cipherkeygen.pl - generates a cipher key of the format
+# \d{4}[a-zA-Z]{4}\d{4}[a-zA-Z]{4}
#
-# $Id: cipherkeygen.pl 2327 2009-04-22 11:42:33Z scribe $
+# $Id: cipherkeygen.pl 2841 2013-06-29 10:58:08Z chrislit $
#
-# Copyright 1998-2009 CrossWire Bible Society (http://www.crosswire.org)
+# Copyright 2001-2013 CrossWire Bible Society (http://www.crosswire.org)
# CrossWire Bible Society
# P. O. Box 2528
# Tempe, AZ 85280-2528
diff --git a/utilities/perl/linkvers.pl b/utilities/perl/linkvers.pl
index d1b6157..529c89d 100755
--- a/utilities/perl/linkvers.pl
+++ b/utilities/perl/linkvers.pl
@@ -1,9 +1,12 @@
#!/usr/bin/perl
+
#******************************************************************************
#
-# $Id: linkvers.pl 2327 2009-04-22 11:42:33Z scribe $
+# linkvers.pl -
+#
+# $Id: linkvers.pl 2841 2013-06-29 10:58:08Z chrislit $
#
-# Copyright 1998-2009 CrossWire Bible Society (http://www.crosswire.org)
+# Copyright 2001-2009 CrossWire Bible Society (http://www.crosswire.org)
# CrossWire Bible Society
# P. O. Box 2528
# Tempe, AZ 85280-2528
diff --git a/utilities/perl/localecap.pl b/utilities/perl/localecap.pl
index d73c539..cf7d250 100755
--- a/utilities/perl/localecap.pl
+++ b/utilities/perl/localecap.pl
@@ -1,11 +1,11 @@
#!/usr/bin/perl
#******************************************************************************
#
-# This tool is only for locales in Latin-1, not UTF-8 (should such locales be supported at a later date)
+# localecap.pl - This tool is only for locales in Latin-1, not UTF-8
#
-# $Id: localecap.pl 2327 2009-04-22 11:42:33Z scribe $
+# $Id: localecap.pl 2841 2013-06-29 10:58:08Z chrislit $
#
-# Copyright 1998-2009 CrossWire Bible Society (http://www.crosswire.org)
+# Copyright 2001-2009 CrossWire Bible Society (http://www.crosswire.org)
# CrossWire Bible Society
# P. O. Box 2528
# Tempe, AZ 85280-2528
diff --git a/utilities/perl/mkvsmod.pl b/utilities/perl/mkvsmod.pl
index bb997b2..fa0fd29 100755
--- a/utilities/perl/mkvsmod.pl
+++ b/utilities/perl/mkvsmod.pl
@@ -1,23 +1,25 @@
#!/usr/bin/perl
+
#******************************************************************************
-#*
-#* $Id: mkvsmod.pl 2327 2009-04-22 11:42:33Z scribe $
-#*
-#* Copyright 1998-2009 CrossWire Bible Society (http://www.crosswire.org)
-#* CrossWire Bible Society
-#* P. O. Box 2528
-#* Tempe, AZ 85280-2528
-#*
-#* This program is free software; you can redistribute it and/or modify it
-#* under the terms of the GNU General Public License as published by the
-#* Free Software Foundation version 2.
-#*
-#* This program is distributed in the hope that it will be useful, but
-#* WITHOUT ANY WARRANTY; without even the implied warranty of
-#* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-#* General Public License for more details.
-#*
-#*/
+#
+# mkvsmod.pl -
+#
+# $Id: mkvsmod.pl 2841 2013-06-29 10:58:08Z chrislit $
+#
+# Copyright 2001-2009 CrossWire Bible Society (http://www.crosswire.org)
+# CrossWire Bible Society
+# P. O. Box 2528
+# Tempe, AZ 85280-2528
+#
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by the
+# Free Software Foundation version 2.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# General Public License for more details.
+#
open (INF, $ARGV[0]);