diff options
Diffstat (limited to 'utilities/perl')
-rwxr-xr-x | utilities/perl/cipherkeygen.pl | 12 | ||||
-rwxr-xr-x | utilities/perl/linkvers.pl | 7 | ||||
-rwxr-xr-x | utilities/perl/localecap.pl | 6 | ||||
-rwxr-xr-x | utilities/perl/mkvsmod.pl | 38 |
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]); |