[sword-svn] r2841 - in trunk: bindings/swig bindings/swig/examples utilities/diatheke/cgi utilities/diatheke/soap utilities/diatheke/tcl utilities/perl
chrislit at crosswire.org
chrislit at crosswire.org
Sat Jun 29 03:58:08 MST 2013
Author: chrislit
Date: 2013-06-29 03:58:08 -0700 (Sat, 29 Jun 2013)
New Revision: 2841
Modified:
trunk/bindings/swig/examples/mod2zmod.pl
trunk/bindings/swig/sword.pl
trunk/utilities/diatheke/cgi/dia-def.pl
trunk/utilities/diatheke/cgi/diatheke.pl
trunk/utilities/diatheke/soap/soapatheke.pl
trunk/utilities/diatheke/tcl/makebooklist.pl
trunk/utilities/perl/cipherkeygen.pl
trunk/utilities/perl/linkvers.pl
trunk/utilities/perl/localecap.pl
trunk/utilities/perl/mkvsmod.pl
Log:
license/properties updates for Perl files
Modified: trunk/bindings/swig/examples/mod2zmod.pl
===================================================================
--- trunk/bindings/swig/examples/mod2zmod.pl 2013-06-29 10:30:44 UTC (rev 2840)
+++ trunk/bindings/swig/examples/mod2zmod.pl 2013-06-29 10:58:08 UTC (rev 2841)
@@ -1,13 +1,16 @@
#!/usr/bin/perl
+
#******************************************************************************
#
-# This program converts a given module into a compressed module of the same type.
-# This is just an example to demomstrate the power of the Perl Sword bindings.
-# The code is almost written the same way the C++ of mod2zmod.cpp code was written
+# mod2zmod.pl - This program converts a given module into a compressed
+# module of the same type. This is just an example to
+# demomstrate the power of the Perl Sword bindings. The
+# code is almost written the same way the C++ of
+# mod2zmod.cpp code was written
#
# $Id$
#
-# Copyright 1998-2009 CrossWire Bible Society (http://www.crosswire.org)
+# Copyright 2002-2009 CrossWire Bible Society (http://www.crosswire.org)
# CrossWire Bible Society
# P. O. Box 2528
# Tempe, AZ 85280-2528
Property changes on: trunk/bindings/swig/examples/mod2zmod.pl
___________________________________________________________________
Modified: svn:keywords
- author date id
+ Author Date Id
Modified: trunk/bindings/swig/sword.pl
===================================================================
--- trunk/bindings/swig/sword.pl 2013-06-29 10:30:44 UTC (rev 2840)
+++ trunk/bindings/swig/sword.pl 2013-06-29 10:58:08 UTC (rev 2841)
@@ -1,12 +1,12 @@
#!/usr/bin/perl
+
#******************************************************************************
#
-# This looks like a test program to check binding functionality :)
-# Someone update me otherwise
+# sword.pl - This looks like a test program to check binding functionality
#
# $Id$
#
-# Copyright 1998-2009 CrossWire Bible Society (http://www.crosswire.org)
+# Copyright 2002-2009 CrossWire Bible Society (http://www.crosswire.org)
# CrossWire Bible Society
# P. O. Box 2528
# Tempe, AZ 85280-2528
Property changes on: trunk/bindings/swig/sword.pl
___________________________________________________________________
Modified: svn:keywords
- author date id
+ Author Date Id
Modified: trunk/utilities/diatheke/cgi/dia-def.pl
===================================================================
--- trunk/utilities/diatheke/cgi/dia-def.pl 2013-06-29 10:30:44 UTC (rev 2840)
+++ trunk/utilities/diatheke/cgi/dia-def.pl 2013-06-29 10:58:08 UTC (rev 2841)
@@ -1,22 +1,26 @@
#!/usr/bin/perl
-# *
-# * Copyright 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.
-# *
+#******************************************************************************
+#
+# dia-def.pl -
+#
+# $Id$
+#
+# Copyright 2000-2013 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.
+#
-
#change this variable to hostname of your server
@values = split(/\&/,$ENV{'QUERY_STRING'});
$DOMAIN = $ENV{'REMOTE_ADDR'};
Property changes on: trunk/utilities/diatheke/cgi/dia-def.pl
___________________________________________________________________
Modified: svn:keywords
- author date id
+ Author Date Id
Modified: trunk/utilities/diatheke/cgi/diatheke.pl
===================================================================
--- trunk/utilities/diatheke/cgi/diatheke.pl 2013-06-29 10:30:44 UTC (rev 2840)
+++ trunk/utilities/diatheke/cgi/diatheke.pl 2013-06-29 10:58:08 UTC (rev 2841)
@@ -11,21 +11,26 @@
### server: http://www.crosswire.org/swordweb/
########################################################################
-# *
-# * Copyright 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.
-# *
+#******************************************************************************
+#
+# diatheke.pl -
+#
+# $Id$
+#
+# Copyright 2000-2013 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.
+#
# Typical Linux/Unix settings
Property changes on: trunk/utilities/diatheke/cgi/diatheke.pl
___________________________________________________________________
Modified: svn:keywords
- author date id
+ Author Date Id
Modified: trunk/utilities/diatheke/soap/soapatheke.pl
===================================================================
--- trunk/utilities/diatheke/soap/soapatheke.pl 2013-06-29 10:30:44 UTC (rev 2840)
+++ trunk/utilities/diatheke/soap/soapatheke.pl 2013-06-29 10:58:08 UTC (rev 2841)
@@ -1,24 +1,26 @@
#!/usr/bin/perl
-# *
-# * Copyright 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.
-# *
+#******************************************************************************
+#
+# soapatheke.pl - This is a demo SOAP app and has no other purpose.
+#
+# $Id$
+#
+# Copyright 2001-2013 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.
+#
-
-## This is a test app and has no other purpose.
-
use SOAP::Lite;
my ($books, $key, $options, $encoding, $markup, $searchtype, $locale, $script, $max) = @ARGV;
Property changes on: trunk/utilities/diatheke/soap/soapatheke.pl
___________________________________________________________________
Modified: svn:keywords
- author date id
+ Author Date Id
Modified: trunk/utilities/diatheke/tcl/makebooklist.pl
===================================================================
--- trunk/utilities/diatheke/tcl/makebooklist.pl 2013-06-29 10:30:44 UTC (rev 2840)
+++ trunk/utilities/diatheke/tcl/makebooklist.pl 2013-06-29 10:58:08 UTC (rev 2841)
@@ -1,109 +1,114 @@
-#!/bin/perl
-
-# Diatheke/Tcl 5.0 by Chris Little <chrislit at crosswire.org>
-
-# Copyright 1999-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.
-
- at booklist = `diatheke -b system -k modulelist`;
-
-open TCL, ">:utf8", "biblebot-diatheke-books.tcl";
-
-print TCL "# Diatheke/Tcl 5.0 by Chris Little <chrislit\@crosswire.org>\n\n# Copyright 1999-2009 CrossWire Bible Society (http://www.crosswire.org)\n# CrossWire Bible Society\n# P. O. Box 2528\n# Tempe, AZ 85280-2528\n#\n# This program is free software; you can redistribute it and/or modify it\n# under the terms of the GNU General Public License as published by the\n# Free Software Foundation version 2.\n#\n# This program is distributed in the hope that it will be useful, but\n# WITHOUT ANY WARRANTY; without even the implied warranty of\n# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n# GNU General Public License for more details.\n\n";
-
-foreach $line (@booklist) {
- $line =~ s/[\r\n]+$//;
- if ($line =~ /^Biblical Texts:/) {
- $mode = "bible";
- }
- elsif ($line =~ /^Commentaries:/) {
- $mode = "comm";
- }
- elsif ($line =~ /^Dictionaries:/) {
- $mode = "dict";
- }
- elsif ($line =~ /^Generic books:/) {
- $mode = "genbook";
- }
- elsif ($line =~ /^([^:]+) : (.+)/) {
- $bookid = $1;
- $bookdesc = $2;
- if ($mode eq "bible") {
- print TCL "bind pub - !$bookid setver_$bookid\nproc setver_$bookid {nick uhost hand channel arg} {\n global botnick chan bibver\n set bibver $bookid\n pub_lookup \$nick \$uhost \$hand \$channel \$arg\n}\n\n";
- print TCL "bind pub - !s$bookid setver_s$bookid\nproc setver_s$bookid {nick uhost hand channel arg} {\n global botnick chan bibver\n set bibver $bookid\n pub_lookups \$nick \$uhost \$hand \$channel \$arg\n}\n\n";
-
- if ($count_bible != 0) {
- $putservtext_bible .= ", ";
- }
- if (($count_bible != 0) && ($count_bible % 5 == 0)) {
- $putservtext_bible .= "\n";
- }
- $count_bible++;
- $putservtext_bible .= "$bookdesc (!$bookid)";
- }
- elsif ($mode eq "comm") {
- print TCL "bind pub - !$bookid setver_$bookid\nproc setver_$bookid {nick uhost hand channel arg} {\n global botnick chan bibver\n set bibver $bookid\n pub_lookupc \$nick \$uhost \$hand \$channel \$arg\n}\n\n";
-
- if ($count_comm != 0) {
- $putservtext_comm .= ", ";
- }
- if (($count_comm != 0) && ($count_comm % 5 == 0)) {
- $putservtext_comm .= "\n";
- }
- $count_comm++;
- $putservtext_comm .= "$bookdesc (!$bookid)";
- }
- elsif ($mode eq "dict") {
- print TCL "bind pub - !$bookid setver_$bookid\nproc setver_$bookid {nick uhost hand channel arg} {\n global botnick chan bibver\n set bibver $bookid\n pub_lookupd \$nick \$uhost \$hand \$channel \$arg\n}\n\n";
-
- if ($count_dict != 0) {
- $putservtext_dict .= ", ";
- }
- if (($count_dict != 0) && ($count_dict % 5 == 0)) {
- $putservtext_dict .= "\n";
- }
- $count_dict++;
- $putservtext_dict .= "$bookdesc (!$bookid)";
- }
- elsif ($mode eq "genbook") {
- # do nothing until diatheke supports genbooks
- }
- }
-}
-
-$putservtext_bible = "\n$putservtext_bible";
-$putservtext_bible =~ s/\n/\"\n\tputserv \"NOTICE \$nick :/gs;
-$putservtext_bible =~ s/, \"/,\"/gs;
-$putservtext_bible .= "\"\n";
-$putservtext_bible = "\tputserv \"NOTICE \$nick :Bibles ($count_bible):$putservtext_bible";
-$putservtext_bible = "proc printBibles \{nick\} \{\n$putservtext_bible\}\n";
-
-$putservtext_comm = "\n$putservtext_comm";
-$putservtext_comm =~ s/\n/\"\n\tputserv \"NOTICE \$nick :/gs;
-$putservtext_comm =~ s/, \"/,\"/gs;
-$putservtext_comm .= "\"\n";
-$putservtext_comm = "\tputserv \"NOTICE \$nick :Commentaries ($count_comm):$putservtext_comm";
-$putservtext_comm = "proc printComms \{nick\} \{\n$putservtext_comm\}\n";
-
-$putservtext_dict = "\n$putservtext_dict";
-$putservtext_dict =~ s/\n/\"\n\tputserv \"NOTICE \$nick :/gs;
-$putservtext_dict =~ s/, \"/,\"/gs;
-$putservtext_dict .= "\"\n";
-$putservtext_dict = "\tputserv \"NOTICE \$nick :Dictionaries, Lexicons, & Daily Devotionals ($count_dict):$putservtext_dict";
-$putservtext_dict = "proc printDicts \{nick\} \{\n$putservtext_dict\}\n";
-
-print TCL $putservtext_bible;
-print TCL $putservtext_comm;
-print TCL $putservtext_dict;
-
+#!/bin/perl
+
+#******************************************************************************
+#
+# makebooklist.pl -
+#
+# $Id$
+#
+# Copyright 2009-2013 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.
+#
+
+ at booklist = `diatheke -b system -k modulelist`;
+
+open TCL, ">:utf8", "biblebot-diatheke-books.tcl";
+
+print TCL "# Diatheke/Tcl 5.0 by Chris Little <chrislit\@crosswire.org>\n\n# Copyright 1999-2009 CrossWire Bible Society (http://www.crosswire.org)\n# CrossWire Bible Society\n# P. O. Box 2528\n# Tempe, AZ 85280-2528\n#\n# This program is free software; you can redistribute it and/or modify it\n# under the terms of the GNU General Public License as published by the\n# Free Software Foundation version 2.\n#\n# This program is distributed in the hope that it will be useful, but\n# WITHOUT ANY WARRANTY; without even the implied warranty of\n# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n# GNU General Public License for more details.\n\n";
+
+foreach $line (@booklist) {
+ $line =~ s/[\r\n]+$//;
+ if ($line =~ /^Biblical Texts:/) {
+ $mode = "bible";
+ }
+ elsif ($line =~ /^Commentaries:/) {
+ $mode = "comm";
+ }
+ elsif ($line =~ /^Dictionaries:/) {
+ $mode = "dict";
+ }
+ elsif ($line =~ /^Generic books:/) {
+ $mode = "genbook";
+ }
+ elsif ($line =~ /^([^:]+) : (.+)/) {
+ $bookid = $1;
+ $bookdesc = $2;
+ if ($mode eq "bible") {
+ print TCL "bind pub - !$bookid setver_$bookid\nproc setver_$bookid {nick uhost hand channel arg} {\n global botnick chan bibver\n set bibver $bookid\n pub_lookup \$nick \$uhost \$hand \$channel \$arg\n}\n\n";
+ print TCL "bind pub - !s$bookid setver_s$bookid\nproc setver_s$bookid {nick uhost hand channel arg} {\n global botnick chan bibver\n set bibver $bookid\n pub_lookups \$nick \$uhost \$hand \$channel \$arg\n}\n\n";
+
+ if ($count_bible != 0) {
+ $putservtext_bible .= ", ";
+ }
+ if (($count_bible != 0) && ($count_bible % 5 == 0)) {
+ $putservtext_bible .= "\n";
+ }
+ $count_bible++;
+ $putservtext_bible .= "$bookdesc (!$bookid)";
+ }
+ elsif ($mode eq "comm") {
+ print TCL "bind pub - !$bookid setver_$bookid\nproc setver_$bookid {nick uhost hand channel arg} {\n global botnick chan bibver\n set bibver $bookid\n pub_lookupc \$nick \$uhost \$hand \$channel \$arg\n}\n\n";
+
+ if ($count_comm != 0) {
+ $putservtext_comm .= ", ";
+ }
+ if (($count_comm != 0) && ($count_comm % 5 == 0)) {
+ $putservtext_comm .= "\n";
+ }
+ $count_comm++;
+ $putservtext_comm .= "$bookdesc (!$bookid)";
+ }
+ elsif ($mode eq "dict") {
+ print TCL "bind pub - !$bookid setver_$bookid\nproc setver_$bookid {nick uhost hand channel arg} {\n global botnick chan bibver\n set bibver $bookid\n pub_lookupd \$nick \$uhost \$hand \$channel \$arg\n}\n\n";
+
+ if ($count_dict != 0) {
+ $putservtext_dict .= ", ";
+ }
+ if (($count_dict != 0) && ($count_dict % 5 == 0)) {
+ $putservtext_dict .= "\n";
+ }
+ $count_dict++;
+ $putservtext_dict .= "$bookdesc (!$bookid)";
+ }
+ elsif ($mode eq "genbook") {
+ # do nothing until diatheke supports genbooks
+ }
+ }
+}
+
+$putservtext_bible = "\n$putservtext_bible";
+$putservtext_bible =~ s/\n/\"\n\tputserv \"NOTICE \$nick :/gs;
+$putservtext_bible =~ s/, \"/,\"/gs;
+$putservtext_bible .= "\"\n";
+$putservtext_bible = "\tputserv \"NOTICE \$nick :Bibles ($count_bible):$putservtext_bible";
+$putservtext_bible = "proc printBibles \{nick\} \{\n$putservtext_bible\}\n";
+
+$putservtext_comm = "\n$putservtext_comm";
+$putservtext_comm =~ s/\n/\"\n\tputserv \"NOTICE \$nick :/gs;
+$putservtext_comm =~ s/, \"/,\"/gs;
+$putservtext_comm .= "\"\n";
+$putservtext_comm = "\tputserv \"NOTICE \$nick :Commentaries ($count_comm):$putservtext_comm";
+$putservtext_comm = "proc printComms \{nick\} \{\n$putservtext_comm\}\n";
+
+$putservtext_dict = "\n$putservtext_dict";
+$putservtext_dict =~ s/\n/\"\n\tputserv \"NOTICE \$nick :/gs;
+$putservtext_dict =~ s/, \"/,\"/gs;
+$putservtext_dict .= "\"\n";
+$putservtext_dict = "\tputserv \"NOTICE \$nick :Dictionaries, Lexicons, & Daily Devotionals ($count_dict):$putservtext_dict";
+$putservtext_dict = "proc printDicts \{nick\} \{\n$putservtext_dict\}\n";
+
+print TCL $putservtext_bible;
+print TCL $putservtext_comm;
+print TCL $putservtext_dict;
+
Property changes on: trunk/utilities/diatheke/tcl/makebooklist.pl
___________________________________________________________________
Added: svn:executable
+ *
Added: svn:keywords
+ Author Date Id
Added: svn:eol-style
+ native
Modified: trunk/utilities/perl/cipherkeygen.pl
===================================================================
--- trunk/utilities/perl/cipherkeygen.pl 2013-06-29 10:30:44 UTC (rev 2840)
+++ trunk/utilities/perl/cipherkeygen.pl 2013-06-29 10:58:08 UTC (rev 2841)
@@ -1,15 +1,13 @@
#!/usr/bin/perl
+
#******************************************************************************
#
-# cipherkeygen.pl
+# cipherkeygen.pl - generates a cipher key of the format
+# \d{4}[a-zA-Z]{4}\d{4}[a-zA-Z]{4}
#
-# 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$
#
-# 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
Property changes on: trunk/utilities/perl/cipherkeygen.pl
___________________________________________________________________
Modified: svn:keywords
- author date id
+ Author Date Id
Modified: trunk/utilities/perl/linkvers.pl
===================================================================
--- trunk/utilities/perl/linkvers.pl 2013-06-29 10:30:44 UTC (rev 2840)
+++ trunk/utilities/perl/linkvers.pl 2013-06-29 10:58:08 UTC (rev 2841)
@@ -1,9 +1,12 @@
#!/usr/bin/perl
+
#******************************************************************************
#
+# linkvers.pl -
+#
# $Id$
#
-# 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
Property changes on: trunk/utilities/perl/linkvers.pl
___________________________________________________________________
Modified: svn:keywords
- author date id
+ Author Date Id
Modified: trunk/utilities/perl/localecap.pl
===================================================================
--- trunk/utilities/perl/localecap.pl 2013-06-29 10:30:44 UTC (rev 2840)
+++ trunk/utilities/perl/localecap.pl 2013-06-29 10:58:08 UTC (rev 2841)
@@ -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$
#
-# 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
Property changes on: trunk/utilities/perl/localecap.pl
___________________________________________________________________
Modified: svn:keywords
- author date id
+ Author Date Id
Modified: trunk/utilities/perl/mkvsmod.pl
===================================================================
--- trunk/utilities/perl/mkvsmod.pl 2013-06-29 10:30:44 UTC (rev 2840)
+++ trunk/utilities/perl/mkvsmod.pl 2013-06-29 10:58:08 UTC (rev 2841)
@@ -1,23 +1,25 @@
#!/usr/bin/perl
+
#******************************************************************************
-#*
-#* $Id$
-#*
-#* 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$
+#
+# 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]);
Property changes on: trunk/utilities/perl/mkvsmod.pl
___________________________________________________________________
Modified: svn:keywords
- author date id
+ Author Date Id
More information about the sword-cvs
mailing list