[sword-svn] r2429 - trunk/utilities/diatheke/tcl

[chrislit at crosswire.org]

Author: chrislit
Date: 2009-06-04 00:09:33 -0700 (Thu, 04 Jun 2009)
New Revision: 2429

Modified:
   trunk/utilities/diatheke/tcl/biblebot-diatheke-books.tcl
   trunk/utilities/diatheke/tcl/biblebot-diatheke.tcl
Log:
added/cleaned up license text


Modified: trunk/utilities/diatheke/tcl/biblebot-diatheke-books.tcl
===================================================================
--- trunk/utilities/diatheke/tcl/biblebot-diatheke-books.tcl	2009-06-04 07:07:15 UTC (rev 2428)
+++ trunk/utilities/diatheke/tcl/biblebot-diatheke-books.tcl	2009-06-04 07:09:33 UTC (rev 2429)
@@ -1,26 +1,42 @@
-bind pub - !KJV setver_KJV
-
-proc setver_KJV {nick uhost hand channel arg} {
-    global botnick chan bibver
-    set bibver KJV
-    pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sKJV setver_sKJV
-
-proc setver_sKJV {nick uhost hand channel arg} {
-    global botnick chan bibver
-    set bibver KJV
-    pub_lookups $nick $uhost $hand $channel $arg
-}
-
-proc printBibles {nick} {
-	putserv "NOTICE $nick :Bibles (1):"
-	putserv "NOTICE $nick :King James Version (1769) with Strongs Numbers and Morphology (!KJV)"
-}
-
-proc printComms {nick} {
-}
-
-proc printDicts {nick} {
-}
+# 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.
+
+bind pub - !KJV setver_KJV
+
+proc setver_KJV {nick uhost hand channel arg} {
+    global botnick chan bibver
+    set bibver KJV
+    pub_lookup $nick $uhost $hand $channel $arg
+}
+
+bind pub - !sKJV setver_sKJV
+
+proc setver_sKJV {nick uhost hand channel arg} {
+    global botnick chan bibver
+    set bibver KJV
+    pub_lookups $nick $uhost $hand $channel $arg
+}
+
+proc printBibles {nick} {
+	putserv "NOTICE $nick :Bibles (1):"
+	putserv "NOTICE $nick :King James Version (1769) with Strongs Numbers and Morphology (!KJV)"
+}
+
+proc printComms {nick} {
+}
+
+proc printDicts {nick} {
+}

Modified: trunk/utilities/diatheke/tcl/biblebot-diatheke.tcl
===================================================================
--- trunk/utilities/diatheke/tcl/biblebot-diatheke.tcl	2009-06-04 07:07:15 UTC (rev 2428)
+++ trunk/utilities/diatheke/tcl/biblebot-diatheke.tcl	2009-06-04 07:09:33 UTC (rev 2429)
@@ -1,21 +1,19 @@
 # Diatheke/Tcl 5.0 by Chris Little <chrislit at crosswire.org>
 # Based on code schema of <cking at acy.digex.net>
 
-# *
-# * 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.
-# *
+# 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.
 
 set diaver 5.0