diff options
Diffstat (limited to 'utilities/perl')
-rwxr-xr-x | utilities/perl/cipherkeygen.pl | 22 | ||||
-rwxr-xr-x | utilities/perl/linkvers.pl | 18 | ||||
-rwxr-xr-x | utilities/perl/localecap.pl | 21 | ||||
-rwxr-xr-x | utilities/perl/mkvsmod.pl | 19 |
4 files changed, 77 insertions, 3 deletions
diff --git a/utilities/perl/cipherkeygen.pl b/utilities/perl/cipherkeygen.pl index db53d88..c3de452 100755 --- a/utilities/perl/cipherkeygen.pl +++ b/utilities/perl/cipherkeygen.pl @@ -1,10 +1,28 @@ #!/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... +# +# $Id: cipherkeygen.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. +# # let's get a base key of \d{4}[A-Z]{4}\d{4}[A-Z]{4} diff --git a/utilities/perl/linkvers.pl b/utilities/perl/linkvers.pl index caf3192..d1b6157 100755 --- a/utilities/perl/linkvers.pl +++ b/utilities/perl/linkvers.pl @@ -1,4 +1,22 @@ #!/usr/bin/perl +#****************************************************************************** +# +# $Id: linkvers.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. +# $vplfile = $ARGV[0]; diff --git a/utilities/perl/localecap.pl b/utilities/perl/localecap.pl index f5d846e..d73c539 100755 --- a/utilities/perl/localecap.pl +++ b/utilities/perl/localecap.pl @@ -1,6 +1,25 @@ #!/usr/bin/perl - +#****************************************************************************** +# # This tool is only for locales in Latin-1, not UTF-8 (should such locales be supported at a later date) +# +# $Id: localecap.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. +# + use locale; diff --git a/utilities/perl/mkvsmod.pl b/utilities/perl/mkvsmod.pl index e44c27d..bb997b2 100755 --- a/utilities/perl/mkvsmod.pl +++ b/utilities/perl/mkvsmod.pl @@ -1,4 +1,23 @@ #!/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. +#* +#*/ open (INF, $ARGV[0]); |