summaryrefslogtreecommitdiff
path: root/utilities/diatheke
diff options
context:
space:
mode:
authorRoberto C. Sanchez <roberto@connexer.com>2014-03-29 10:54:02 -0400
committerRoberto C. Sanchez <roberto@connexer.com>2014-03-29 10:54:02 -0400
commit936d9e8484ff73282c8c0a277310d1ffdde86e10 (patch)
tree084d6d2e50f188b0e9c00c109a935efa6ad665fc /utilities/diatheke
parent71a39f4652cd51df814c930dd268f3c9ad2aee86 (diff)
Imported Upstream version 1.6.1+dfsg
Diffstat (limited to 'utilities/diatheke')
-rw-r--r--utilities/diatheke/Makefile.am13
-rw-r--r--utilities/diatheke/Makefile.in162
-rw-r--r--utilities/diatheke/cgi/Makefile.am3
-rw-r--r--utilities/diatheke/cgi/index-private.html1264
-rw-r--r--utilities/diatheke/cgi/index.html (renamed from utilities/diatheke/cgi/index-public.html)0
-rw-r--r--utilities/diatheke/corediatheke.cpp4
-rw-r--r--utilities/diatheke/diatheke.cpp14
-rw-r--r--utilities/diatheke/tcl/README53
-rw-r--r--utilities/diatheke/tcl/biblebot-diatheke-books.tcl42
-rw-r--r--utilities/diatheke/tcl/biblebot-diatheke.tcl1794
-rw-r--r--utilities/diatheke/tcl/makebooklist.pl109
11 files changed, 352 insertions, 3106 deletions
diff --git a/utilities/diatheke/Makefile.am b/utilities/diatheke/Makefile.am
index 51a30c6..8ba34e5 100644
--- a/utilities/diatheke/Makefile.am
+++ b/utilities/diatheke/Makefile.am
@@ -1,23 +1,12 @@
AUTOMAKE_OPTIONS = 1.6
-INCLUDES = -I$(top_srcdir)/include
+LDADD = $(top_builddir)/lib/libsword.la
bin_PROGRAMS = diatheke
diatheke_SOURCES = diatheke.cpp corediatheke.cpp diathekemgr.cpp \
diafiltmgr.cpp thmlcgi.cpp gbfcgi.cpp osiscgi.cpp
-if ICU
-iculibs = -licui18n -licuuc
-endif
-
-if USELUCENE
-lucenelibs = -lclucene
-endif
-
-diatheke_LDADD = $(top_builddir)/lib/libsword.la \
- $(iculibs) $(lucenelibs)
-
noinst_HEADERS = corediatheke.h diafiltmgr.h diathekemgr.h gbfcgi.h thmlcgi.h \
osiscgi.h
diff --git a/utilities/diatheke/Makefile.in b/utilities/diatheke/Makefile.in
index fa59942..6139bb3 100644
--- a/utilities/diatheke/Makefile.in
+++ b/utilities/diatheke/Makefile.in
@@ -1,8 +1,9 @@
-# Makefile.in generated by automake 1.10.2 from Makefile.am.
+# Makefile.in generated by automake 1.11 from Makefile.am.
# @configure_input@
# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+# 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
+# Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
@@ -17,8 +18,9 @@
VPATH = @srcdir@
pkgdatadir = $(datadir)/@PACKAGE@
-pkglibdir = $(libdir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
+pkglibdir = $(libdir)/@PACKAGE@
+pkglibexecdir = $(libexecdir)/@PACKAGE@
am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
install_sh_DATA = $(install_sh) -c -m 644
install_sh_PROGRAM = $(install_sh) -c
@@ -40,28 +42,26 @@ DIST_COMMON = README $(noinst_HEADERS) $(srcdir)/Makefile.am \
subdir = utilities/diatheke
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/m4/acx_clucene.m4 \
- $(top_srcdir)/m4/cppunit.m4 $(top_srcdir)/m4/libtool.m4 \
- $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
- $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
+ $(top_srcdir)/m4/colored-echo.m4 $(top_srcdir)/m4/cppunit.m4 \
$(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
mkinstalldirs = $(install_sh) -d
CONFIG_HEADER = $(top_builddir)/include/config.h
CONFIG_CLEAN_FILES =
+CONFIG_CLEAN_VPATH_FILES =
am__installdirs = "$(DESTDIR)$(bindir)"
-binPROGRAMS_INSTALL = $(INSTALL_PROGRAM)
PROGRAMS = $(bin_PROGRAMS)
am_diatheke_OBJECTS = diatheke.$(OBJEXT) corediatheke.$(OBJEXT) \
diathekemgr.$(OBJEXT) diafiltmgr.$(OBJEXT) thmlcgi.$(OBJEXT) \
gbfcgi.$(OBJEXT) osiscgi.$(OBJEXT)
diatheke_OBJECTS = $(am_diatheke_OBJECTS)
-am__DEPENDENCIES_1 =
-diatheke_DEPENDENCIES = $(top_builddir)/lib/libsword.la \
- $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1)
+diatheke_LDADD = $(LDADD)
+diatheke_DEPENDENCIES = $(top_builddir)/lib/libsword.la
DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/include
depcomp = $(SHELL) $(top_srcdir)/depcomp
am__depfiles_maybe = depfiles
+am__mv = mv -f
CXXCOMPILE = $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \
$(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS)
LTCXXCOMPILE = $(LIBTOOL) --tag=CXX $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
@@ -96,7 +96,6 @@ CPPFLAGS = @CPPFLAGS@
CPPUNIT_CFLAGS = @CPPUNIT_CFLAGS@
CPPUNIT_CONFIG = @CPPUNIT_CONFIG@
CPPUNIT_LIBS = @CPPUNIT_LIBS@
-CURL_AM_CFLAGS = @CURL_AM_CFLAGS@
CURL_CONFIG = @CURL_CONFIG@
CURL_LIBS = @CURL_LIBS@
CXX = @CXX@
@@ -108,13 +107,14 @@ DEFS = @DEFS@
DEPDIR = @DEPDIR@
DLLTOOL = @DLLTOOL@
DSYMUTIL = @DSYMUTIL@
-DUMPBIN = @DUMPBIN@
+ECHO = @ECHO@
ECHO_C = @ECHO_C@
ECHO_N = @ECHO_N@
ECHO_T = @ECHO_T@
EGREP = @EGREP@
EXEEXT = @EXEEXT@
-FGREP = @FGREP@
+F77 = @F77@
+FFLAGS = @FFLAGS@
GENCCODE = @GENCCODE@
GENCMN = @GENCMN@
GENRB = @GENRB@
@@ -128,23 +128,18 @@ INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
-LD = @LD@
LDFLAGS = @LDFLAGS@
LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LIBTOOL = @LIBTOOL@
-LIPO = @LIPO@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
MAINT = @MAINT@
MAKEINFO = @MAKEINFO@
MKDIR_P = @MKDIR_P@
-NM = @NM@
NMEDIT = @NMEDIT@
OBJDUMP = @OBJDUMP@
OBJEXT = @OBJEXT@
-OTOOL = @OTOOL@
-OTOOL64 = @OTOOL64@
PACKAGE = @PACKAGE@
PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
PACKAGE_NAME = @PACKAGE_NAME@
@@ -160,14 +155,13 @@ SET_MAKE = @SET_MAKE@
SHELL = @SHELL@
STRIP = @STRIP@
VERSION = @VERSION@
-XML_LIBS = @XML_LIBS@
abs_builddir = @abs_builddir@
abs_srcdir = @abs_srcdir@
abs_top_builddir = @abs_top_builddir@
abs_top_srcdir = @abs_top_srcdir@
ac_ct_CC = @ac_ct_CC@
ac_ct_CXX = @ac_ct_CXX@
-ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
+ac_ct_F77 = @ac_ct_F77@
am__include = @am__include@
am__leading_dot = @am__leading_dot@
am__quote = @am__quote@
@@ -201,7 +195,6 @@ libdir = @libdir@
libexecdir = @libexecdir@
localedir = @localedir@
localstatedir = @localstatedir@
-lt_ECHO = @lt_ECHO@
mandir = @mandir@
mkdir_p = @mkdir_p@
oldincludedir = @oldincludedir@
@@ -225,23 +218,19 @@ top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
with_conf = @with_conf@
with_icu = @with_icu@
+with_icusword = @with_icusword@
with_zlib = @with_zlib@
AUTOMAKE_OPTIONS = 1.6
-INCLUDES = -I$(top_srcdir)/include
+LDADD = $(top_builddir)/lib/libsword.la
diatheke_SOURCES = diatheke.cpp corediatheke.cpp diathekemgr.cpp \
diafiltmgr.cpp thmlcgi.cpp gbfcgi.cpp osiscgi.cpp
-@ICU_TRUE@iculibs = -licui18n -licuuc
-@USELUCENE_TRUE@lucenelibs = -lclucene
-diatheke_LDADD = $(top_builddir)/lib/libsword.la \
- $(iculibs) $(lucenelibs)
-
noinst_HEADERS = corediatheke.h diafiltmgr.h diathekemgr.h gbfcgi.h thmlcgi.h \
osiscgi.h
swcgidir = $(top_srcdir)/utilities/diatheke/cgi
EXTRA_DIST = $(swcgidir)/dia-def.pl $(swcgidir)/diatheke.pl \
- $(swcgidir)/index-private.html $(swcgidir)/index-public.html
+ $(swcgidir)/index.html
all: all-am
.SUFFIXES:
@@ -255,9 +244,9 @@ $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(srcdir)/cg
exit 1;; \
esac; \
done; \
- echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign utilities/diatheke/Makefile'; \
- cd $(top_srcdir) && \
- $(AUTOMAKE) --foreign utilities/diatheke/Makefile
+ echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign utilities/diatheke/Makefile'; \
+ $(am__cd) $(top_srcdir) && \
+ $(AUTOMAKE) --foreign utilities/diatheke/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \
@@ -275,34 +264,50 @@ $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
+$(am__aclocal_m4_deps):
install-binPROGRAMS: $(bin_PROGRAMS)
@$(NORMAL_INSTALL)
test -z "$(bindir)" || $(MKDIR_P) "$(DESTDIR)$(bindir)"
- @list='$(bin_PROGRAMS)'; for p in $$list; do \
- p1=`echo $$p|sed 's/$(EXEEXT)$$//'`; \
- if test -f $$p \
- || test -f $$p1 \
- ; then \
- f=`echo "$$p1" | sed 's,^.*/,,;$(transform);s/$$/$(EXEEXT)/'`; \
- echo " $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(binPROGRAMS_INSTALL) '$$p' '$(DESTDIR)$(bindir)/$$f'"; \
- $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(binPROGRAMS_INSTALL) "$$p" "$(DESTDIR)$(bindir)/$$f" || exit 1; \
- else :; fi; \
- done
+ @list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \
+ for p in $$list; do echo "$$p $$p"; done | \
+ sed 's/$(EXEEXT)$$//' | \
+ while read p p1; do if test -f $$p || test -f $$p1; \
+ then echo "$$p"; echo "$$p"; else :; fi; \
+ done | \
+ sed -e 'p;s,.*/,,;n;h' -e 's|.*|.|' \
+ -e 'p;x;s,.*/,,;s/$(EXEEXT)$$//;$(transform);s/$$/$(EXEEXT)/' | \
+ sed 'N;N;N;s,\n, ,g' | \
+ $(AWK) 'BEGIN { files["."] = ""; dirs["."] = 1 } \
+ { d=$$3; if (dirs[d] != 1) { print "d", d; dirs[d] = 1 } \
+ if ($$2 == $$4) files[d] = files[d] " " $$1; \
+ else { print "f", $$3 "/" $$4, $$1; } } \
+ END { for (d in files) print "f", d, files[d] }' | \
+ while read type dir files; do \
+ if test "$$dir" = .; then dir=; else dir=/$$dir; fi; \
+ test -z "$$files" || { \
+ echo " $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL_PROGRAM) $$files '$(DESTDIR)$(bindir)$$dir'"; \
+ $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL_PROGRAM) $$files "$(DESTDIR)$(bindir)$$dir" || exit $$?; \
+ } \
+ ; done
uninstall-binPROGRAMS:
@$(NORMAL_UNINSTALL)
- @list='$(bin_PROGRAMS)'; for p in $$list; do \
- f=`echo "$$p" | sed 's,^.*/,,;s/$(EXEEXT)$$//;$(transform);s/$$/$(EXEEXT)/'`; \
- echo " rm -f '$(DESTDIR)$(bindir)/$$f'"; \
- rm -f "$(DESTDIR)$(bindir)/$$f"; \
- done
+ @list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \
+ files=`for p in $$list; do echo "$$p"; done | \
+ sed -e 'h;s,^.*/,,;s/$(EXEEXT)$$//;$(transform)' \
+ -e 's/$$/$(EXEEXT)/' `; \
+ test -n "$$list" || exit 0; \
+ echo " ( cd '$(DESTDIR)$(bindir)' && rm -f" $$files ")"; \
+ cd "$(DESTDIR)$(bindir)" && rm -f $$files
clean-binPROGRAMS:
- @list='$(bin_PROGRAMS)'; for p in $$list; do \
- f=`echo $$p|sed 's/$(EXEEXT)$$//'`; \
- echo " rm -f $$p $$f"; \
- rm -f $$p $$f ; \
- done
+ @list='$(bin_PROGRAMS)'; test -n "$$list" || exit 0; \
+ echo " rm -f" $$list; \
+ rm -f $$list || exit $$?; \
+ test -n "$(EXEEXT)" || exit 0; \
+ list=`for p in $$list; do echo "$$p"; done | sed 's/$(EXEEXT)$$//'`; \
+ echo " rm -f" $$list; \
+ rm -f $$list
diatheke$(EXEEXT): $(diatheke_OBJECTS) $(diatheke_DEPENDENCIES)
@rm -f diatheke$(EXEEXT)
$(CXXLINK) $(diatheke_OBJECTS) $(diatheke_LDADD) $(LIBS)
@@ -323,21 +328,21 @@ distclean-compile:
.cpp.o:
@am__fastdepCXX_TRUE@ $(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
-@am__fastdepCXX_TRUE@ mv -f $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
+@am__fastdepCXX_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCXX_FALSE@ $(CXXCOMPILE) -c -o $@ $<
.cpp.obj:
@am__fastdepCXX_TRUE@ $(CXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'`
-@am__fastdepCXX_TRUE@ mv -f $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
+@am__fastdepCXX_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCXX_FALSE@ $(CXXCOMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
.cpp.lo:
@am__fastdepCXX_TRUE@ $(LTCXXCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
-@am__fastdepCXX_TRUE@ mv -f $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo
+@am__fastdepCXX_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo
@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCXX_FALSE@ $(LTCXXCOMPILE) -c -o $@ $<
@@ -360,7 +365,7 @@ tags: TAGS
TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
- tags=; \
+ set x; \
here=`pwd`; \
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
@@ -368,29 +373,34 @@ TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
- if test -z "$(ETAGS_ARGS)$$tags$$unique"; then :; else \
+ shift; \
+ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
test -n "$$unique" || unique=$$empty_fix; \
- $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
- $$tags $$unique; \
+ if test $$# -gt 0; then \
+ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
+ "$$@" $$unique; \
+ else \
+ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
+ $$unique; \
+ fi; \
fi
ctags: CTAGS
CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
- tags=; \
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
- test -z "$(CTAGS_ARGS)$$tags$$unique" \
+ test -z "$(CTAGS_ARGS)$$unique" \
|| $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
- $$tags $$unique
+ $$unique
GTAGS:
here=`$(am__cd) $(top_builddir) && pwd` \
- && cd $(top_srcdir) \
- && gtags -i $(GTAGS_ARGS) $$here
+ && $(am__cd) $(top_srcdir) \
+ && gtags -i $(GTAGS_ARGS) "$$here"
distclean-tags:
-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
@@ -411,13 +421,17 @@ distdir: $(DISTFILES)
if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
if test -d $$d/$$file; then \
dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
+ if test -d "$(distdir)/$$file"; then \
+ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
+ fi; \
if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
- cp -pR $(srcdir)/$$file $(distdir)$$dir || exit 1; \
+ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
+ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
- cp -pR $$d/$$file $(distdir)$$dir || exit 1; \
+ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
else \
- test -f $(distdir)/$$file \
- || cp -p $$d/$$file $(distdir)/$$file \
+ test -f "$(distdir)/$$file" \
+ || cp -p $$d/$$file "$(distdir)/$$file" \
|| exit 1; \
fi; \
done
@@ -448,6 +462,7 @@ clean-generic:
distclean-generic:
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
+ -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
maintainer-clean-generic:
@echo "This command is intended for maintainers to use"
@@ -468,6 +483,8 @@ dvi-am:
html: html-am
+html-am:
+
info: info-am
info-am:
@@ -476,18 +493,28 @@ install-data-am:
install-dvi: install-dvi-am
+install-dvi-am:
+
install-exec-am: install-binPROGRAMS
install-html: install-html-am
+install-html-am:
+
install-info: install-info-am
+install-info-am:
+
install-man:
install-pdf: install-pdf-am
+install-pdf-am:
+
install-ps: install-ps-am
+install-ps-am:
+
installcheck-am:
maintainer-clean: maintainer-clean-am
@@ -526,6 +553,7 @@ uninstall-am: uninstall-binPROGRAMS
pdf pdf-am ps ps-am tags uninstall uninstall-am \
uninstall-binPROGRAMS
+
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:
diff --git a/utilities/diatheke/cgi/Makefile.am b/utilities/diatheke/cgi/Makefile.am
index 237aefd..e006304 100644
--- a/utilities/diatheke/cgi/Makefile.am
+++ b/utilities/diatheke/cgi/Makefile.am
@@ -2,5 +2,4 @@ swcgidir = $(top_srcdir)/utilities/diatheke/cgi
EXTRA_DIST = $(swcgidir)/dia-def.pl
EXTRA_DIST += $(swcgidir)/diatheke.pl
-EXTRA_DIST += $(swcgidir)/index-private.html
-EXTRA_DIST += $(swcgidir)/index-public.html
+EXTRA_DIST += $(swcgidir)/index.html
diff --git a/utilities/diatheke/cgi/index-private.html b/utilities/diatheke/cgi/index-private.html
deleted file mode 100644
index 6afbc91..0000000
--- a/utilities/diatheke/cgi/index-private.html
+++ /dev/null
@@ -1,1264 +0,0 @@
-<html>
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
-<title>Diatheke Online Bible</title>
-</head>
-
-<body>
-
-<form method="get" action="cgi-bin/diatheke.pl">
- <p /> <font face="Arial, Helvetica, sans-serif">Verse or Search key:</font>
- <input type="text" name="verse" size="20">
- <input type="submit" name="Submit" value="Submit">
- <input type="reset" name="Reset" value="Reset">
- <br />
- <br />
- <input type="radio" name="search" checked value="" />
- <font face="Arial, Helvetica, sans-serif">Verse/Commentary Lookup</font> <br />
- <input type="radio" name="search" value="phrase" />
- <font face="Arial, Helvetica, sans-serif">Phrase Search</font><br />
- <input type="radio" name="search" value="multiword" />
- <font face="Arial, Helvetica, sans-serif">Multiple Word Search</font><br />
- <input type="radio" name="search" value="regex" />
- <font face="Arial, Helvetica, sans-serif">Regular Expression Search<br>
- <br>
- </font>
- <table width="100%" border="0">
- <tr>
- <td width="50%">
- <input type="checkbox" name="strongs" value="on" checked>
- <font size="-1" face="Arial, Helvetica, sans-serif">Show Strong's Numbers</font></td>
- <td width="50%">
- <input type="checkbox" name="headings" value="on" checked>
- <font size="-1" face="Arial, Helvetica, sans-serif">Show Section Headings</font></td>
- </tr>
- <tr>
- <td width="50%">
- <input type="checkbox" name="footnotes" value="on" checked>
- <font size="-1" face="Arial, Helvetica, sans-serif">Show Footnotes</font></td>
- <td width="50%">
- <input type="checkbox" name="scriprefs" value="on" checked>
- <font size="-1" face="Arial, Helvetica, sans-serif">Show Scripture Cross-References</font></td>
- </tr>
- <tr>
- <td width="50%">
- <input type="checkbox" name="morph" value="on" checked>
- <font size="-1" face="Arial, Helvetica, sans-serif">Show Morphology</font></td>
- <td width="50%">
- <input type="checkbox" name="hebvowels" value="on" checked>
- <font size="-1" face="Arial, Helvetica, sans-serif">Show Hebrew Vowels</font></td>
- </tr>
- <tr>
- <td width="50%">
- <input type="checkbox" name="lemmas" value="on" checked>
- <font size="-1" face="Arial, Helvetica, sans-serif">Show Lemmas</font></td>
- <td width="50%">
- <input type="checkbox" name="hebcant" value="on">
- <font size="-1" face="Arial, Helvetica, sans-serif">Show Hebrew Cantillation
- Marks </font></td>
- </tr>
- <tr>
- <td width="50%">
- <input type="checkbox" name="latinxlit" value="on">
- <font face="Arial, Helvetica, sans-serif" size="-1">Latin Transliterate</font>
- </td>
- <td width="50%">
- <input type="checkbox" name="grkacc" value="on" checked>
- <font size="-1" face="Arial, Helvetica, sans-serif">Show Greek Accents</font>
- </td>
- </tr>
- </table>
- <br>
- <table BORDER="0" WIDTH="100%">
- <tr>
- <td width="50%"><font face=Times New Roman, Times, serif><b>English Biblical
- Texts:</b></font><br />
- </td>
- <td width="50%"><font face=Times New Roman, Times, serif><b>Non-English
- Biblical Texts:</b></font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="AKJV" value="on">
- <font size="-1" face=Times New Roman, Times, serif>American King James
- Version (AKJV)</font></td>
- <td width="50%">
- <input type="checkbox" name="ALB" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Albanian Bible (ALB)</font>
- </td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="ALT" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Analytical-Literal
- Translation (ALT)</font> </td>
- <td width="50%">
- <input type="checkbox" name="Afr1953" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1953 Afrikaans Bybel
- (Afr1953)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="ASV" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1901 American Standard
- Version (ASV)</font> </td>
- <td width="50%">
- <input type="checkbox" name="Afr1983" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1983 Afrikaans Bybel
- (Afr1983)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="BBE" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1965 Bible in Basic
- English (BBE)</font> </td>
- <td width="50%">
- <input type="checkbox" name="AraSVD" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Smith & Van Dyke Arabic
- Bible (AraSVD)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="BWE" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Bible in Worldwide
- English (BWE)</font> </td>
- <td width="50%">
- <input type="checkbox" name="ChiGU" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Chinese Glory Union
- Bible (ChiGU)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Brenton" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Brenton's English Translation
- of the Septuagint (Brenton)</font> </td>
- <td width="50%">
- <input type="checkbox" name="CzeBKR" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Czech Bible Kralicka
- (CzeBKR)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Common" value="on">
- <font size="-1" face=Times New Roman, Times, serif>The Common Edition:
- New Testament (Common)</font> </td>
- <td width="50%">
- <input type="checkbox" name="CzeCEP" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Czech Ekumenicky Cesky
- preklad (CzeCEP)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="DR" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Douay-Rheims Bible
- (DR)</font> </td>
- <td width="50%">
- <input type="checkbox" name="CzeKMS" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Czech Preklad KMS Nova
- smlouva (CzeKMS)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="DRA" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Douay-Rheims 1899 American
- Edition (DRA)</font> </td>
- <td width="50%">
- <input type="checkbox" name="CzeNKB" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Czech Nova kralicka
- Bible (CzeNKB)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Darby" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1889 Darby Bible (Darby)</font>
- </td>
- <td width="50%">
- <input type="checkbox" name="Dan" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Danske Bibel (Dan)</font>
- </td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="GodsWord" value="on">
- <font size="-1" face=Times New Roman, Times, serif>GOD'S WORD Translation
- (GodsWord)</font> </td>
- <td width="50%">
- <input type="checkbox" name="DutLEI" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Dutch Leidse Vertaling
- (DutLEI)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="HNV" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Hebrew Names Version
- of the World English Bible (HNV)</font> </td>
- <td width="50%">
- <input type="checkbox" name="DutLU" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Dutch Lutherse Vertaling
- (DutLU)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="IGNT" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Interlinear Greek New
- Testament (IGNT)</font> </td>
- <td width="50%">
- <input type="checkbox" name="DutNBG" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Dutch Netherlands Bijbelgenootschap
- Vertaling 1951 (DutNBG)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="ISV" value="on">
- <font size="-1" face=Times New Roman, Times, serif>International Standard
- Version (ISV)</font> </td>
- <td width="50%">
- <input type="checkbox" name="DutPALM" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Dutch PALM-editie NT
- (DutPALM)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="JPS" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Jewish Publication
- Society Old Testament (JPS)</font> </td>
- <td width="50%">
- <input type="checkbox" name="DutSVV" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Dutch Statenvertaling
- (DutSVV)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="KJ21" value="on">
- <font size="-1" face=Times New Roman, Times, serif>21st Century King James
- Version (KJ21)</font></td>
- <td width="50%">
- <input type="checkbox" name="EquShr" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Equadorian Shuar NT
- (EquShr)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="KJV" value="on">
- <font size="-1" face=Times New Roman, Times, serif>King James Version
- of 1611 w/ Strongs Numbers (KJV)</font></td>
- <td width="50%">
- <input type="checkbox" name="Esperanto" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Esperanto Bible (Esperanto)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="LITV" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Green's Literal Translation
- (LITV)</font></td>
- <td width="50%">
- <input type="checkbox" name="FinPR" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Finnish 1938 PhyZ Raamattu
- (FinPR)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="LO" value="on">
- <font size="-1" face=Times New Roman, Times, serif>The Living Oracles
- NT (LO)</font></td>
- <td width="50%">
- <input type="checkbox" name="FreBFC" value="on">
- <font size="-1" face=Times New Roman, Times, serif>French Bible en francais
- courant, edition revisee (FreBFC)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="MKJV" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Green's Modern King
- James Version (MKJV)</font></td>
- <td width="50%">
- <input type="checkbox" name="FreBJ" value="on">
- <font size="-1" face=Times New Roman, Times, serif>French Bible de Jerusalem
- (FreBJ)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Montgomery" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Montgomery New Testament
- (Montgomery)</font></td>
- <td width="50%">
- <input type="checkbox" name="FreCrl" value="on">
- <font size="-1" face=Times New Roman, Times, serif>French Haitian Creole
- Version (FreCrl)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Murdock" value="on">
- <font size="-1" face=Times New Roman, Times, serif>James Murdock's Translation
- of the Syriac Peshitta (Murdock)</font></td>
- <td width="50%">
- <input type="checkbox" name="FreDrb" value="on">
- <font size="-1" face=Times New Roman, Times, serif>French Darby Version
- (FreDrb)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="NAB" value="on">
- <font size="-1" face=Times New Roman, Times, serif>New American Bible
- (NAB)</font></td>
- <td width="50%">
- <input type="checkbox" name="FreLSG" value="on">
- <font size="-1" face=Times New Roman, Times, serif>French 1910 Louis Segond
- (FreLSG)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="NASB" value="on">
- <font size="-1" face=Times New Roman, Times, serif>New American Standard
- Bible (NASB)</font></td>
- <td width="50%">
- <input type="checkbox" name="FreNEG" value="on">
- <font size="-1" face=Times New Roman, Times, serif>French Nouvelle Edition
- de Geneve 1979 (FreNEG)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="NASB95" value="on">
- <font size="-1" face=Times New Roman, Times, serif> New American Standard
- Bible 1995 Update (NASB95)</font></td>
- <td width="50%">
- <input type="checkbox" name="FreTOB" value="on">
- <font size="-1" face=Times New Roman, Times, serif>French Traduction oecumenique
- de la Bible (FreTOB)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="NCV" value="on">
- <font size="-1" face=Times New Roman, Times, serif>New Century Version
- (NCV)</font></td>
- <td width="50%">
- <input type="checkbox" name="GerBen" value="on">
- <font size="-1" face=Times New Roman, Times, serif>German Bengel NT (GerBen)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="NIV" value="on">
- <font size="-1" face=Times New Roman, Times, serif>New International Version
- (NIV)</font></td>
- <td width="50%">
- <input type="checkbox" name="GerEin" value="on">
- <font size="-1" face=Times New Roman, Times, serif>German Einheitsuebersetzung
- der Heilegen Schrift (GerEin)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="NIVBr" value="on">
- <font size="-1" face=Times New Roman, Times, serif>New International Version,
- British Edition (NIVBr)</font></td>
- <td width="50%">
- <input type="checkbox" name="GerElb" value="on">
- <font size="-1" face=Times New Roman, Times, serif>German Darby Unrevidierte
- Elberfelder 1905 (GerElb)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="NJB" value="on">
- <font size="-1" face=Times New Roman, Times, serif>New Jerusalem Bible
- (NJB)</font></td>
- <td width="50%">
- <input type="checkbox" name="GerLut" value="on">
- <font size="-1" face=Times New Roman, Times, serif>German 1912 Luther
- (GerLut)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="NKJV" value="on">
- <font size="-1" face=Times New Roman, Times, serif>New King James Version
- (NKJV)</font></td>
- <td width="50%">
- <input type="checkbox" name="GerLut1545" value="on">
- <font size="-1" face=Times New Roman, Times, serif>German 1545 Luther
- (GerLut1545)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="NLT" value="on">
- <font size="-1" face=Times New Roman, Times, serif>New Living Translation
- (NLT)</font></td>
- <td width="50%">
- <input type="checkbox" name="GerRElb" value="on">
- <font size="-1" face=Times New Roman, Times, serif>German Elberfelder
- Bibel revidierte Fassung 1993 (GerRElb)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="NRSV" value="on">
- <font size="-1" face=Times New Roman, Times, serif>New Revised Standard
- Version (NRSV)</font></td>
- <td width="50%">
- <input type="checkbox" name="GerRLut" value="on">
- <font size="-1" face=Times New Roman, Times, serif>German Revised Lutherbibel
- 1984 (GerRLut)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="ORTHJBC" value="on">
- <font size="-1" face=Times New Roman, Times, serif>The Orthodox Jewish
- Brit Chadasha (ORTHJBC)</font> </td>
- <td width="50%">
- <input type="checkbox" name="GerSch" value="on">
- <font size="-1" face=Times New Roman, Times, serif>German 1951 Schlachter
- Bibel (GerSch)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Phillips" value="on">
- <font size="-1" face=Times New Roman, Times, serif>J B Phillips New Testament
- (Phillips)</font> </td>
- <td width="50%">
- <input type="checkbox" name="GothicA" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Gothic Codex Ambr.
- A & Mss. (GothicA)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="RNKJV" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Restored Name King
- James Version (RNKJV)</font> </td>
- <td width="50%">
- <input type="checkbox" name="GothicB" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Gothic Codex Ambr.
- B & Car. (GothicB)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="RSV" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Revised Standard Version
- (RSV)</font> </td>
- <td width="50%">
- <input type="checkbox" name="HunKar" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Hungarian Karoli (HunKar)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="RWebster" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Revised 1833 Webster
- Version (RWebster)</font></td>
- <td width="50%">
- <input type="checkbox" name="Icelandic" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Icelandic Bible (Icelandic)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Rotherham" value="on">
- <font size="-1" face=Times New Roman, Times, serif>The Emphasized Bible
- by J. B. Rotherham (Rotherham)</font> </td>
- <td width="50%">
- <input type="checkbox" name="IndBIS" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Indonesian Bahasa Indonesia
- Sehari-hari (IndBIS)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="TEV" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Todays English Version
- (Good News Bible) 1966 and 1976 (TEV)</font></td>
- <td width="50%">
- <input type="checkbox" name="IndTB" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Indonesian Terjemahan
- Baru (IndTB)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="TMB" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Third Millenium Bible
- (TMB)</font></td>
- <td width="50%">
- <input type="checkbox" name="IndTL" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Indonesian Terjemahan
- Baru (IndTL)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Twenty" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Twentieth Century New
- Testament (Twenty)</font> </td>
- <td width="50%">
- <input type="checkbox" name="ItaIEP" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Italian NVB Nuovissima
- Versione della Bibbbia San Paolo Edizione (ItaIEP)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="WEB" value="on">
- <font size="-1" face=Times New Roman, Times, serif>World English Bible
- (WEB)</font></td>
- <td width="50%">
- <input type="checkbox" name="ItaLND" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Italian 1991 La Nuova
- Diodati (ItaLND)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Websters" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Webster Bible (Websters)</font>
- </td>
- <td width="50%">
- <input type="checkbox" name="ItaNRV" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Italian 1994 La Sacra
- Bibbia Nuova Riveduta (ItaNRV)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Weymouth" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1912 Weymouth NT (Weymouth)</font>
- </td>
- <td width="50%">
- <input type="checkbox" name="JapKUG" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Japanese JKUG Translation
- (JapKUG)</font> </td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="YLT" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1898 Young's Literal
- Translation (YLT)</font> </td>
- <td width="50%">
- <input type="checkbox" name="JapSNKI" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Japanese JSNKI Translation
- (JapSNKI)</font></td>
- </tr>
- <tr>
- <td width="48%">&nbsp; </td>
- <td width="50%">
- <input type="checkbox" name="Ketchi" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Ketchi Bible (Ketchi)</font></td>
- </tr>
- <tr>
- <td width="48%"><font face=Times New Roman, Times, serif><b>Unorthodox or
- Heretical Biblical Texts:</b></font> </td>
- <td width="50%">
- <input type="checkbox" name="Korean" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Korean Bible (Korean)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="CLNT" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Concordant Literal
- New Testament (CLNT)</font> </td>
- <td width="50%">
- <input type="checkbox" name="Latvian" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Latvian New Testament
- (Latvian)</font> </td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Diaglott" value="on">
- <font size="-1" face=Times New Roman, Times, serif>The Emphatic Diaglott
- (Diaglott)</font> </td>
- <td width="50%">
- <input type="checkbox" name="ManxGaelic" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Manx Gaelic Scripture
- Portions (ManxGaelic)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="JST" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Joseph Smith Translation
- (JST)</font></td>
- <td width="50%">
- <input type="checkbox" name="Maori" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Maori Bible (Maori)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="RVIC" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Revised Version, Improved
- and Corrected (RVIC)</font></td>
- <td width="50%">
- <input type="checkbox" name="Mel" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Melanesian Pidgin Bible
- (Mel)</font></td>
- </tr>
- <tr>
- <td width="48%">&nbsp; </td>
- <td width="50%">
- <input type="checkbox" name="NorBok" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Norwegian 1930 Bokmal
- (NorBok)</font></td>
- </tr>
- <tr>
- <td width="48%"><font face=Times New Roman, Times, serif><b>Original Language
- Biblical Texts:</b></font> </td>
- <td width="50%">
- <input type="checkbox" name="NorN38" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Norwegian 1938 Nynorsk
- (NorN38)</font></td>
- </tr>
- <tr>
- <td width="51%">
- <input type="checkbox" name="LXX" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Septuagint (LXX)</font></td>
- <td width="50%">
- <input type="checkbox" name="NorNBK" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Norwegian Bibel Konkordant
- (NorNBK)</font></td>
- </tr>
- <tr>
- <td width="51%">
- <input type="checkbox" name="LXXM" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Septuagint, Morphologically
- Tagged Rahlfs' (LXXM)</font></td>
- <td width="50%">
- <input type="checkbox" name="NorNyn" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Norwegian 1994 Nynorsk
- (NorNyn)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="N27U4" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Nestle Aland 27th Ed./
- UBS 4th Ed. Greek Text (N27U4)</font> </td>
- <td width="50%">
- <input type="checkbox" name="Norsk" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Norsk Bibelen (Norsk)</font></td>
- </tr>
- <tr>
- <td width="51%">
- <input type="checkbox" name="BHS" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Biblia Hebraica Stuttgartensia
- (BHS)</font> </td>
- <td width="50%">
- <input type="checkbox" name="PhiCEB" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Philippine Nga Cebuano
- (PhiCEB)</font> </td>
- </tr>
- <tr>
- <td width="51%">
- <input type="checkbox" name="Byz" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1991 Byzantine/Majority
- Text (Byz)</font></td>
- <td width="50%">
- <input type="checkbox" name="PolBTP" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Polish Millenium Bible
- 1984, 4th Ed. (PolBTP)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Scrivner" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1894 Scrivener Textus
- Receptus (Scrivner)</font></td>
- <td width="50%">
- <input type="checkbox" name="PorAA" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Portuguese Joao Ferreira
- de Almeida Atualizada (PorAA)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Stephanus" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1550 Stephanus Textus
- Receptus (Stephanus)</font></td>
- <td width="50%">
- <input type="checkbox" name="PorACF" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Brazillian Portuguese
- Joao Ferreira de Almeida, Corrigada Fiel 1995 (PorACF)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Tisch" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Tischendorf's Eighth
- Edition GNT (Tisch)</font> </td>
- <td width="50%">
- <input type="checkbox" name="PorBRP" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Portuguese 1994 Almeida
- Biblia (PorBRP)</font></td>
- </tr>
- <tr>
- <td width="51%">
- <input type="checkbox" name="Vulgate" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Latin Vulgate (Vulgate)</font></td>
- <td width="50%">
- <input type="checkbox" name="PorRA" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Portuguese Almeida
- Revista e Atualizada (PorRA)</font></td>
- </tr>
- <tr>
- <td width="51%">
- <input type="checkbox" name="Vulgate_HebPs" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Latin Vulgate Psalms
- from Hebrew (Vulgate_HebPs)</font></td>
- <td width="50%">
- <input type="checkbox" name="PorRC" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Portuguese Almeida
- Revista e Corrigida (PorRC)</font></td>
- </tr>
- <tr>
- <td width="51%">
- <input type="checkbox" name="WH" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1881 Westcott-Hort
- Greek Text (WH)</font></td>
- <td width="50%">
- <input type="checkbox" name="RST" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Russian Synodal Translation
- (RST)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="WHNU" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Westcott-Hort with
- NA27U4 variants (WHNU)</font> </td>
- <td width="50%">
- <input type="checkbox" name="RomCor" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Romanian Cornilescu
- Version (RomCor)</font></td>
- </tr>
- <tr>
- <td width="48%">&nbsp;</td>
- <td width="50%">
- <input type="checkbox" name="Romani" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Romani (Gypsy) New
- Testament (Romani)</font></td>
- </tr>
- <tr>
- <td width="48%"><font face=Times New Roman, Times, serif><b>Commentaries:</b></font></td>
- <td width="50%">
- <input type="checkbox" name="Sango" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Le Sainte Bible en
- sango, 1996 (Sango)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="AudioKJV" value="on">
- <font size="-1" face=Times New Roman, Times, serif>KJV Audio Bible read
- by James Scourby (AudioKJV)</font></td>
- <td width="50%">
- <input type="checkbox" name="ScotsGaelic" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Scots Gaelic Gospel
- of Mark (ScotsGaelic)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Barnes" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Barnes' New Testament
- Notes (Barnes)</font></td>
- <td width="50%">
- <input type="checkbox" name="SpaLBA" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Spanish La Biblia de
- Las Americas (SpaLBA)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Clarke" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Adam Clarke's Commentary
- on the Bible (Clarke)</font></td>
- <td width="50%">
- <input type="checkbox" name="SpaRV" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Spanish Reina-Valera
- (SpaRV)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="DTN" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Darby Translation Notes
- (DTN)</font></td>
- <td width="50%">
- <input type="checkbox" name="SpaRV60" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Spanish Reina-Valera
- Revised 1960 (SpaRV60)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Family" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Family Bible Notes
- (Family)</font></td>
- <td width="50%">
- <input type="checkbox" name="SpaRV95" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Spanish Reina-Valera
- Update 1995 (SpaRV95)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Geneva" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Geneva Bible Translation
- Notes (Geneva)</font></td>
- <td width="50%">
- <input type="checkbox" name="SpaRVA" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Spanish Version Reina-Valera
- Actualizada (SpaRVA)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Gill" value="on">
- <font size="-1" face=Times New Roman, Times, serif>John Gill's Expositor
- (Gill)</font></td>
- <td width="50%">
- <input type="checkbox" name="SpaSEV" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Spanish 1569 Sagradas
- Escrituras Version Antigua (SpaSEV)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="JFB" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Jamieson Fausset Brown
- Bible Commentary (JFB)</font></td>
- <td width="50%">
- <input type="checkbox" name="SpaVNT" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Spanish 1858 Valera
- New Testament (SpaVNT)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="MAK" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Matthias Ansorgs Kommentar
- (MAK)</font></td>
- <td width="50%">
- <input type="checkbox" name="Swahili" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Swahili New Testament
- (Swahili)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="MHC" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Matthew Henry's Complete
- Commentary on the Whole Bible (MHC)</font></td>
- <td width="50%">
- <input type="checkbox" name="SweSVE" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Swedish Bible 1917
- New Testament (SweSVE)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="MHCC" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Matthew Henry's Concise
- Commentary on the Whole Bible (MHCC)</font></td>
- <td width="50%">
- <input type="checkbox" name="Tagalog" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Tagalog (John & James)
- (Tagalog)</font> </td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="PNT" value="on">
- <font size="-1" face=Times New Roman, Times, serif>The People's New Testament
- (PNT)</font></td>
- <td width="50%">
- <input type="checkbox" name="Tamil" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Tamil Bible (Tamil)</font>
- </td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Personal" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Personal Commentary
- (Personal)</font></td>
- <td width="50%">
- <input type="checkbox" name="ThaiKJV" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Thai KJV (ThaiKJV)</font>
- </td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="RWP" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Robertson's Word Pictures
- (RWP)</font></td>
- <td width="50%">
- <input type="checkbox" name="Turkish" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Turkish NT (Turkish)</font>
- </td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Rieger" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Carl Heinrich Riegers
- Kommentar (Rieger)</font></td>
- <td width="50%">
- <input type="checkbox" name="UMGreek" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Unaccented Modern Greek
- Text (UMGreek)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="TDavid" value="on">
- <font size="-1" face=Times New Roman, Times, serif>C. H. Spurgeon's Treasury
- of David (TDavid)</font></td>
- <td width="50%">
- <input type="checkbox" name="Ukrainian" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Ukrainian Bible (Ukrainian)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="TFG" value="on">
- <font size="-1" face=Times New Roman, Times, serif>The Fourfold Gospel
- and Commentary on Acts of Apostles (TFG)</font></td>
- <td width="50%">
- <input type="checkbox" name="Uma" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Uma New Testament (Uma)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="TSK" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Treasury of Scriptural
- Knowledge (TSK)</font></td>
- <td width="50%">
- <input type="checkbox" name="Viet" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1934 Vietnamese Bible
- (Viet)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Wesley" value="on">
- <font size="-1" face=Times New Roman, Times, serif>John Wesley's Notes
- on the Bible (Wesley)</font></td>
- <td width="50%">
- <input type="checkbox" name="Xhosa" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Xhosa Bible (Xhosa)</font></td>
- </tr>
- <tr>
- <td width="48%">&nbsp;</td>
- <td width="50%">&nbsp; </td>
- </tr>
- <tr>
- <td width="48%"><font face=Times New Roman, Times, serif><b>Dictionaries
- & Lexica:</b></font></td>
- <td width="50%"><font face=Times New Roman, Times, serif><b>Daily Devotionals:</b></font>
- </td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="AmTract" value="on">
- <font size="-1" face=Times New Roman, Times, serif>American Tract Society
- Bible Dictionary (AmTract)</font></td>
- <td width="50%">
- <input type="checkbox" name="Daily" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Jonathan Bagster's
- Daily Light on the Daily Path (Daily)</font> </td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="BDB" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Brown-Driver-Briggs
- Hebrew Lexicon (BDB)</font></td>
- <td width="50%">
- <input type="checkbox" name="SME" value="on">
- <font size="-1" face=Times New Roman, Times, serif>C. H. Spurgeon's Morning
- and Evening: Daily Readins (SME)</font> </td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Eastons" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Easton's Bible Dictionary
- (Eastons)</font></td>
- <td width="50%">
- <input type="checkbox" name="losung_de_89" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1989 Losung auf deutsch
- (losung_de_89)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Hitchcocks" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Hitchcock's Bible Names
- (Hitchcocks)</font></td>
- <td width="50%">
- <input type="checkbox" name="losung_de_90" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1990 Losung auf deutsch
- (losung_de_90)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="ISBE" value="on">
- <font size="-1" face=Times New Roman, Times, serif>International Standard
- Bible Encyclopedia (ISBE)</font></td>
- <td width="50%">
- <input type="checkbox" name="losung_de_91" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1991 Losung auf deutsch
- (losung_de_91)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Naves" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Nave's Topical Bible
- (Naves)</font></td>
- <td width="50%">
- <input type="checkbox" name="losung_de_92" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1992 Losung auf deutsch
- (losung_de_92)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Packard" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Packard's Morphological
- Analysis Codes (Packard)</font></td>
- <td width="50%">
- <input type="checkbox" name="losung_de_93" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1993 Losung auf deutsch
- (losung_de_93)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Smiths" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Smith's Bible Dictionary
- (Smiths)</font></td>
- <td width="50%">
- <input type="checkbox" name="losung_de_94" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1994 Losung auf deutsch
- (losung_de_94)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="StrongsGreek" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Strong's Greek Bible
- Dictionary (StrongsGreek)</font></td>
- <td width="50%">
- <input type="checkbox" name="losung_de_95" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1995 Losung auf deutsch
- (losung_de_95)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="StrongsHebrew" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Strong's Hebrew Bible
- Dictionary (StrongsHebrew)</font></td>
- <td width="50%">
- <input type="checkbox" name="losung_de_96" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1996 Losung auf deutsch
- (losung_de_96)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Thayer" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Thayer's Greek Lexicon
- (Thayer)</font></td>
- <td width="50%">
- <input type="checkbox" name="losung_de_97" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1997 Losung auf deutsch
- (losung_de_97)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="Torrey" value="on">
- <font size="-1" face=Times New Roman, Times, serif>R. A. Torrey's New
- Topical Textbook (Torrey)</font></td>
- <td width="50%">
- <input type="checkbox" name="losung_de_98" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1998 Losung auf deutsch
- (losung_de_98)</font></td>
- </tr>
- <tr>
- <td width="48%" height="23">
- <input type="checkbox" name="Vines" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Vines Bible Dictionary
- (Vines)</font></td>
- <td width="50%">
- <input type="checkbox" name="losung_de_99" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1999 Losung auf deutsch
- (losung_de_99)</font></td>
- </tr>
- <tr>
- <td width="48%">
- <input type="checkbox" name="WebstersDict" value="on">
- <font size="-1" face=Times New Roman, Times, serif>Webster's Revised Unabridged
- Dictionary 1913 (WebstersDict)</font></td>
- <td width="50%">
- <input type="checkbox" name="losung_en_96" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1996 Watchwords (Losung)
- in English (losung_en_96)</font></td>
- </tr>
- <tr>
- <td width="48%" height="23">&nbsp;</td>
- <td width="50%" height="23">
- <input type="checkbox" name="losung_en_97" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1997 Watchwords (Losung)
- in English (losung_en_97)</font></td>
- </tr>
- <tr>
- <td width="48%">&nbsp;</td>
- <td width="50%">
- <input type="checkbox" name="losung_en_98" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1998 Watchwords (Losung)
- in English (losung_en_98)</font></td>
- </tr>
- <tr>
- <td width="48%">&nbsp; </td>
- <td width="50%">
- <input type="checkbox" name="losung_en_99" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1999 Watchwords (Losung)
- in English (losung_en_99)</font></td>
- </tr>
- <tr>
- <td width="48%">&nbsp; </td>
- <td width="50%">
- <input type="checkbox" name="losung_es_99" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1999 Watchwords (Losung)
- en Castellano (losung_es_99)</font></td>
- </tr>
- <tr>
- <td width="48%">&nbsp;</td>
- <td width="50%">
- <input type="checkbox" name="losung_nl_99" value="on">
- <font size="-1" face=Times New Roman, Times, serif>1999 Watchwords (Losung)
- in Dutch (losung_nl_99)</font></td>
- </tr>
- </table>
-</form>
-
-<form method="get" action="cgi-bin/dia-def.pl">
- Select default Bible version for cross-references:&nbsp;<select name="defversion" size="1">
-
-<option value="AKJV">American King James Version (AKJV)</option>
-<option value="ALB">Albanian Bible (ALB)</option>
-<option value="ALT">Analytical-Literal Translation (ALT)</option>
-<option value="ASV">1901 American Standard Version (ASV)</option>
-<option value="Afr1953">1953 Afrikaans Bybel (Afr1953)</option>
-<option value="Afr1983">1983 Afrikaans Bybel (Afr1983)</option>
-<option value="AraSVD">Smith & Van Dyke Arabic Bible (AraSVD)</option>
-<option value="BBE">1965 Bible in Basic English (BBE)</option>
-<option value="BHS">Biblia Hebraica Stuttgartensia (BHS)</option>
-<option value="BWE">Bible in Worldwide English (BWE)</option>
-<option value="Brenton">Brenton's English Translation of the Septuagint (Brenton)</option>
-<option value="Byz">1991 Byzantine/Majority Text (Byz)</option>
-<option value="CLNT">Concordant Literal New Testament (CLNT)</option>
-<option value="ChiGU">Chinese Glory Union Bible (ChiGU)</option>
-<option value="Common">The Common Edition: New Testament (Common)</option>
-<option value="CzeBKR">Czech Bible Kralicka (CzeBKR)</option>
-<option value="CzeCEP">Czech Ekumenicky Cesky preklad (CzeCEP)</option>
-<option value="CzeKMS">Czech Preklad KMS Nova smlouva (CzeKMS)</option>
-<option value="CzeNKB">Czech Nova kralicka Bible (CzeNKB)</option>
-<option value="DR">Douay-Rheims Bible (DR)</option>
-<option value="DRA">Douay-Rheims 1899 American Edition (DRA)</option>
-<option value="Dan">Danske Bibel (Dan)</option>
-<option value="Darby">1889 Darby Bible (Darby)</option>
-<option value="Diaglott">The Emphatic Diaglott (Diaglott)</option>
-<option value="DutLEI">Dutch Leidse Vertaling (DutLEI)</option>
-<option value="DutLU">Dutch Lutherse Vertaling (DutLU)</option>
-<option value="DutNBG">Dutch Netherlands Bijbelgenootschap Vertaling 1951 (DutNBG)</option>
-<option value="DutPALM">Dutch PALM-editie NT (DutPALM)</option>
-<option value="DutSVV">Dutch Statenvertaling (DutSVV)</option>
-<option value="EquShr">Equadorian Shuar NT (EquShr)</option>
-<option value="Esperanto">Esperanto Bible (Esperanto)</option>
-<option value="FinPR">Finnish 1938 PhyZ Raamattu (FinPR)</option>
-<option value="FreBFC">French Bible en francais courant, edition revisee (FreBFC)</option>
-<option value="FreBJ">French Bible de Jerusalem (FreBJ)</option>
-<option value="FreCrl">French Haitian Creole Version (FreCrl)</option>
-<option value="FreDrb">French Darby Version (FreDrb)</option>
-<option value="FreLSG">1910 Louis Segond (FreLSG)</option>
-<option value="FreNEG">French Nouvelle Edition de Geneve 1979 (FreNEG)</option>
-<option value="FreTOB">French Traduction oecumenique de la Bible (FreTOB)</option>
-<option value="GerBen">German Bengel NT (GerBen)</option>
-<option value="GerEin">German Einheitsuebersetzung der Heilegen Schrift (GerEin)</option>
-<option value="GerElb">German Darby Unrevidierte Elberfelder 1905 (GerElb)</option>
-<option value="GerLut">German 1912 Luther (GerLut)</option>
-<option value="GerLut1545">German 1545 Luther (GerLut1545)</option>
-<option value="GerRElb">German Elberfelder Bibel revidierte Fassung 1993 (GerRElb)</option>
-<option value="GerRLut">German Revised Lutherbibel 1984 (GerRLut)</option>
-<option value="GerSch">German 1951 Schlachter Bibel (GerSch)</option>
-<option value="GodsWord">GOD'S WORD Translation (GodsWord)</option>
-<option value="GothicA">Gothic Codex Ambr. A & Mss. (GothicA)</option>
-<option value="GothicB">Gothic Codex Ambr. B & Car. (GothicB)</option>
-<option value="HNV">Hebrew Names Version of the World English Bible (HNV)</option>
-<option value="HunKar">Hungarian Karoli (HunKar)</option>
-<option value="IGNT">Interlinear Greek New Testament (IGNT)</option>
-<option value="ISV">International Standard Version (ISV)</option>
-<option value="Icelandic">Icelandic Bible (Icelandic)</option>
-<option value="IndBIS">Indonesian Bahasa Indonesia Sehari-hari (IndBIS)</option>
-<option value="IndTB">Indonesian Terjemahan Baru (IndTB)</option>
-<option value="IndTL">Indonesian Terjemahan Baru (IndTL)</option>
-<option value="ItaIEP">Italian NVB Nuovissima Versione della Bibbbia San Paolo Edizione (ItaIEP)</option>
-<option value="ItaLND">Italian 1991 La Nuova Diodati (ItaLND)</option>
-<option value="ItaNRV">Italian 1994 La Sacra Bibbia Nuova Riveduta (ItaNRV)</option>
-<option value="JPS">Jewish Publication Society Old Testament (JPS)</option>
-<option value="JST">Joseph Smith Translation (JST)</option>
-<option value="JapKUG">Japanese JKUG Translation (JapKUG)</option>
-<option value="JapSNKI">Japanese JSNKI Translation (JapSNKI)</option>
-<option value="KJ21">21st Century King James Version (KJ21)</option>
-<option value="KJV">King James Version of 1611 w/ Strongs Numbers (KJV)</option>
-<option value="Ketchi">Ketchi Bible (Ketchi)</option>
-<option value="Korean">Korean Bible (Korean)</option>
-<option value="LITV">Green's Literal Translation (LITV)</option>
-<option value="LO">The Living Oracles NT (LO)</option>
-<option value="LXX">Septuagint (LXX)</option>
-<option value="LXXM">Septuagint, Morphologically Tagged Rahlfs' (LXXM)</option>
-<option value="Latvian">Latvian New Testament (Latvian)</option>
-<option value="MKJV">Green's Modern King James Version (MKJV) (MKJV)</option>
-<option value="ManxGaelic">Manx Gaelic Scripture Portions (ManxGaelic)</option>
-<option value="Maori">Maori Bible (Maori)</option>
-<option value="Mel">Melanesian Pidgin Bible (Mel)</option>
-<option value="Montgomery">Montgomery New Testament (Montgomery)</option>
-<option value="Murdock">James Murdock's Translation of the Syriac Peshitta (Murdock)</option>
-<option value="N27U4">Nestle Aland 27th Ed./ UBS 4th Ed. Greek Text (N27U4)</option>
-<option value="NAB">New American Bible (NAB)</option>
-<option value="NASB">The New American Standard Bible (NASB)</option>
-<option value="NASB95">The New American Standard Bible 1995 Update (NASB95)</option>
-<option value="NCV">New Century Version (NCV)</option>
-<option value="NIV">New International Version (NIV)</option>
-<option value="NIVBr">New International Version, British Edition (NIVBr)</option>
-<option value="NJB">New Jerusalem Bible (NJB)</option>
-<option value="NKJV">New King James Version (NKJV)</option>
-<option value="NLT">New Living Translation (NLT)</option>
-<option value="NRSV">New Revised Standard Version (NRSV)</option>
-<option value="NorBok">Norwegian 1930 Bokmal (NorBok)</option>
-<option value="NorN38">Norwegian 1938 Nynorsk (NorN38)</option>
-<option value="NorNBK">Norwegian Bibel Konkordant (NorNBK)</option>
-<option value="NorNyn">Norwegian 1994 Nynorsk (NorNyn)</option>
-<option value="Norsk">Norsk Bibelen (Norsk)</option>
-<option value="ORTHJBC">The Orthodox Jewish Brit Chadasha (ORTHJBC)</option>
-<option value="PhiCEB">Philippine Nga Cebuano (PhiCEB)</option>
-<option value="Phillips">J B Phillips New Testament (Phillips)</option>
-<option value="PolBTP">Polish Millenium Bible 1984, 4th Ed. (PolBTP)</option>
-<option value="PorAA">Portuguese Joao Ferreira de Almeida Atualizada (PorAA)</option>
-<option value="PorACF">Brazillian Portuguese Joao Ferreira de Almeida, Corrigada Fiel 1995 (PorACF)</option>
-<option value="PorBRP">Portuguese 1994 Almeida Biblia (PorBRP)</option>
-<option value="PorRA">Portuguese Almeida Revista e Atualizada (PorRA)</option>
-<option value="PorRC">Portuguese Almeida Revista e Corrigida (PorRC)</option>
-<option value="RNKJV">Restored Name King James Version (RNKJV)</option>
-<option value="RST">Russian Synodal Translation (RST)</option>
-<option value="RSV">Revised Standard Version (RSV)</option>
-<option value="RVIC">Revised Version, Improved and Corrected (RVIC)</option>
-<option value="RWebster">Revised 1833 Webster Version (RWebster)</option>
-<option value="RomCor">Romanian Cornilescu Version (RomCor)</option>
-<option value="Romani">Romani (Gypsy) New Testament (Romani)</option>
-<option value="Rotherham">The Emphasized Bible by J. B. Rotherham (Rotherham)</option>
-<option value="Sango">Le Sainte Bible en sango, 1996 (Sango)</option>
-<option value="ScotsGaelic">Scots Gaelic Gospel of Mark (ScotsGaelic)</option>
-<option value="Scrivner">1894 Scrivener Textus Receptus (Scrivner)</option>
-<option value="SpaLBA">Spanish La Biblia de Las Americas (SpaLBA)</option>
-<option value="SpaRV">Spanish Reina-Valera (SpaRV)</option>
-<option value="SpaRV60">Spanish Reina-Valera Revised 1960 (SpaRV60)</option>
-<option value="SpaRV95">Spanish Reina-Valera Update 1995 (SpaRV95)</option>
-<option value="SpaRVA">Spanish Version Reina-Valera Actualizada (SpaRVA)</option>
-<option value="SpaSEV">Spanish 1569 Sagradas Escrituras Version Antigua (SpaSEV)</option>
-<option value="SpaVNT">Spanish 1858 Valera New Testament (SpaVNT)</option>
-<option value="Stephanus">1550 Stephanus Textus Receptus (Stephanus)</option>
-<option value="Swahili">Swahili New Testament (Swahili)</option>
-<option value="SweSVE">Swedish Bible 1917 New Testament (SweSVE)</option>
-<option value="TEV">Todays English Version (Good News Bible) 1966 and 1976 (TEV)</option>
-<option value="TMB">Third Millenium Bible (TMB)</option>
-<option value="Tagalog">Tagalog (John & James) (Tagalog)</option>
-<option value="Tamil">Tamil Bible (Tamil)</option>
-<option value="ThaiKJV">Thai KJV (ThaiKJV)</option>
-<option value="Tisch">Tischendorf's Eighth Edition GNT (Tisch)</option>
-<option value="Turkish">Turkish NT (Turkish)</option>
-<option value="Twenty">Twentieth Century New Testament (Twenty)</option>
-<option value="UMGreek">Unaccented Modern Greek Text (UMGreek)</option>
-<option value="Ukrainian">Ukrainian Bible (Ukrainian)</option>
-<option value="Uma">Uma New Testament (Uma)</option>
-<option value="Viet">1934 Vietnamese Bible (Viet)</option>
-<option value="Vulgate">Latin Vulgate (Vulgate)</option>
-<option value="Vulgate_HebPs">Latin Vulgate Psalms from Hebrew (Vulgate_HebPs)</option>
-<option value="WEB">World English Bible (WEB)</option>
-<option value="WH">1881 Westcott-Hort Greek Text (WH)</option>
-<option value="WHNU">Westcott-Hort with NA27U4 variants (WHNU)</option>
-<option value="Websters">Webster Bible (Websters)</option>
-<option value="Weymouth">1912 Weymouth NT (Weymouth)</option>
-<option value="Xhosa">Xhosa Bible (Xhosa)</option>
-<option value="YLT">1898 Young's Literal Translation (YLT)</option>
-</select><input type="submit" name="Submit" value="Submit"></form><br/><form method="get" action="cgi-bin/dia-def.pl">Select locale:&nbsp;
-<select name="locale" size="1"><option value="">browser default</option>
-<option value="en">en</option>
-<option value="de">de</option>
-<option value="pt">pt</option>
-<option value="sk">sk</option>
-<option value="cs">cs</option>
-<option value="da">da</option>
-<option value="no">no</option>
-</select>
-<input type="submit" name="Submit" value="Submit">
-</form>
-Many of these modules require a browser with good Unicode support such as Internet
-Explorer 5.0+ and a good Unicode font such as Code 2000 (available at <a href="http://home.att.net/~jameskass/">http://home.att.net/~jameskass/</a>).
-</body>
-</html>
diff --git a/utilities/diatheke/cgi/index-public.html b/utilities/diatheke/cgi/index.html
index 8406364..8406364 100644
--- a/utilities/diatheke/cgi/index-public.html
+++ b/utilities/diatheke/cgi/index.html
diff --git a/utilities/diatheke/corediatheke.cpp b/utilities/diatheke/corediatheke.cpp
index f2dcac9..9b4a8f1 100644
--- a/utilities/diatheke/corediatheke.cpp
+++ b/utilities/diatheke/corediatheke.cpp
@@ -250,6 +250,10 @@ void doquery(unsigned long maxverses = -1, unsigned char outputformat = FMT_PLAI
manager.setGlobalOption("Transliteration", script);
else
manager.setGlobalOption("Transliteration", "Off");
+ if (optionfilters & OP_ARABICPOINTS)
+ manager.setGlobalOption("Arabic Vowel Points","On");
+ else
+ manager.setGlobalOption("Arabic Vowel Points","Off");
if (querytype == QT_SEARCH) {
diff --git a/utilities/diatheke/diatheke.cpp b/utilities/diatheke/diatheke.cpp
index 3ffe194..30add7b 100644
--- a/utilities/diatheke/diatheke.cpp
+++ b/utilities/diatheke/diatheke.cpp
@@ -1,5 +1,5 @@
-// Diatheke 4.2.1 by Chris Little <chrislit@crosswire.org>
-// Copyright 1999-2005 by CrossWire Bible Society
+// Diatheke 4.5 by Chris Little <chrislit@crosswire.org>
+// Copyright 1999-2009 by CrossWire Bible Society
// http://www.crosswire.org/sword/diatheke
/*
@@ -31,8 +31,8 @@ using std::cout;
void printsyntax() {
//if we got this far without exiting, something went wrong, so print syntax
- fprintf (stderr, "Diatheke command-line SWORD frontend Version 4.2.1\n");
- fprintf (stderr, "Copyright 1999-2005 by the CrossWire Bible Society\n");
+ fprintf (stderr, "Diatheke command-line SWORD frontend Version 4.5\n");
+ fprintf (stderr, "Copyright 1999-2009 by the CrossWire Bible Society\n");
fprintf (stderr, "http://www.crosswire.org/sword/diatheke/\n");
fprintf (stderr, "usage: \n ");
fprintf (stderr, "diatheke <-b module_name> [-s search_type] [-r search_range]\n");
@@ -47,7 +47,7 @@ void printsyntax() {
fprintf (stderr, "Valid option_filters values are: n (Strong's numbers),\n");
fprintf (stderr, " f (Footnotes), m (Morphology), h (Section Headings),\n");
fprintf (stderr, " c (Cantillation), v (Hebrew Vowels), a (Greek Accents), p (Arabic Vowels)\n");
- fprintf (stderr, " l (Lemmas), s (Scripture Crossrefs), r (Arabic Shaping,\n");
+ fprintf (stderr, " l (Lemmas), s (Scripture Crossrefs), r (Arabic Shaping),\n");
fprintf (stderr, " b (Bi-Directional Reordering), x (Red Words of Christ)\n");
fprintf (stderr, "Maximum verses may be any integer value\n");
@@ -162,6 +162,10 @@ int main(int argc, char **argv)
outputformat = FMT_GBF;
i++;
}
+ else if (!::stricmp("htmlhref", argv[i+1])) {
+ outputformat = FMT_HTMLHREF;
+ i++;
+ }
else if (!::stricmp("html", argv[i+1])) {
outputformat = FMT_HTML;
i++;
diff --git a/utilities/diatheke/tcl/README b/utilities/diatheke/tcl/README
new file mode 100644
index 0000000..4614422
--- /dev/null
+++ b/utilities/diatheke/tcl/README
@@ -0,0 +1,53 @@
+Diatheke/Tcl by Chris Little <chrislit@crosswire.org>
+Based on code schema of <cking@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.
+
+#######################################################################
+
+This script is intended for use with libraries and modules from
+The SWORD Project, available at http://www.crosswire.org/
+
+This script requires the Diatheke command line front end to The SWORD
+Project. You should really install this first, including all optional
+components: zlib, CLucene, ICU (preferrably icu-sword), and cURL. Then
+install any modules you want to make available to users.
+
+Modify the file biblebot-diatheke.tcl as necessary so that the two
+variables "diatheke" and "dict" point to the copies of the diatheke
+and dict programs on your system.
+
+Finally, run the Perl script makebooklist.pl, which will
+create/overwrite the file biblebot-diatheke-books.tcl. This includes
+all books installed on the system, so remove any entries you want to
+hide from users, as necessary.
+
+To install Diatheke/Tcl, install an eggdrop IRC bot, copy the
+Diatheke/Tcl .tcl files (biblebot-diatheke.tcl and
+biblebot-diatheke-books.tcl) to your eggdrop scripts directory, and
+add a line to the end of your bot startup script to load the two
+Diatheke/Tcl scripts, for example:
+
+source /usr/share/eggdrop/scripts/biblebot-diatheke.tcl
+source /usr/share/eggdrop/scripts/biblebot-diatheke-books.tcl
+
+This script has been tested with eggdrop 1.3.23 & 1.6.19, but should
+function fine in later versions.
+
+When you get the script loaded, type !biblehelp in a channel where
+the bot is present and it will give you a full list of commands.
+More commands will appear to you depending upon which mode the bot is
+in and whether you are an op on the bot or voiced in the channel.
diff --git a/utilities/diatheke/tcl/biblebot-diatheke-books.tcl b/utilities/diatheke/tcl/biblebot-diatheke-books.tcl
new file mode 100644
index 0000000..f10528b
--- /dev/null
+++ b/utilities/diatheke/tcl/biblebot-diatheke-books.tcl
@@ -0,0 +1,42 @@
+# Diatheke/Tcl 5.0 by Chris Little <chrislit@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} {
+}
diff --git a/utilities/diatheke/tcl/biblebot-diatheke.tcl b/utilities/diatheke/tcl/biblebot-diatheke.tcl
index 52d7568..6fb196f 100644
--- a/utilities/diatheke/tcl/biblebot-diatheke.tcl
+++ b/utilities/diatheke/tcl/biblebot-diatheke.tcl
@@ -1,53 +1,26 @@
-# Diatheke/Tcl 3.0 by Chris Little <chrislit@gotjesus.org>
+# Diatheke/Tcl 5.0 by Chris Little <chrislit@crosswire.org>
# Based on code schema of <cking@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.
-# *
-
-
-# This script is intended for use with libraries and modules from
-# the SWORD Project, available at http://www.crosswire.org/
-#
-# To install Diatheke/Tcl, install an eggdrop IRC bot, copy the
-# Diatheke/Tcl .tcl file to your eggdrop scripts directory, and
-# add a line to the end of your bot startup script to load the
-# Diatheke/Tcl script. This script has been tested with eggdrop 1.3.23
-# but should function fine in later versions.
+# Copyright 1999-2009 CrossWire Bible Society (http://www.crosswire.org)
+# CrossWire Bible Society
+# P. O. Box 2528
+# Tempe, AZ 85280-2528
#
-# This is script assumes you have every single SWORD module installed
-# that was available at the time of release. Since you probably do not,
-# remove all modules listed in the pub_books function that you do not
-# have installed to hide them from end-users.
+# 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.
#
-# The !history command only works if you have LOGGING turned on in
-# diatheke (the command line C program). This command is commented out
-# of the help function and must be uncommented to make it show up for
-# end-users.
-#
-# When you get the script loaded, type !biblehelp in a channel where
-# the bot is present and it will give you a full list of commands.
-# More commands will appear to you depending upon which mode the bot is
-# in and whether you are an op on the bot or voiced in the channel.
-
-set diaver 4.0
+# 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.
-#modify this to reflect actual location of diatheke and dict binaries
+# modify this to reflect actual location of diatheke and dict binaries
set diatheke "/usr/bin/diatheke"
set dict "/usr/bin/dict"
+set diaver 5.0
+
proc publookupverse {vlookup} {
global botnick chan bibver diatheke
@@ -65,6 +38,7 @@ proc publookupverse {vlookup} {
set vlookup [string trimleft $vlookup "@"]
set vlookup [string trimleft $vlookup "#"]
+ regsub -all {[\[\]\{\}\#\%\\\$\'\"\/\s]} $vlookup { } vlookup
catch {exec $diatheke -f plaintext -o $arg -b $bibver -k "$vlookup" >& /tmp/fooout.$botnick}
catch {set foofile [open /tmp/fooout.$botnick]}
while {[gets $foofile fooverse] >= 0} {
@@ -95,12 +69,11 @@ proc publookupverse {vlookup} {
putmsg $chan "$foo2"
}
- catch {close $foofile}
+ catch {close $foofile}
exec rm /tmp/fooout.$botnick
return 1
}
-
proc pub_lookup {nick uhost hand channel arg} {
global von chan bibver
set chan $channel
@@ -112,761 +85,15 @@ proc pub_lookup {nick uhost hand channel arg} {
putmsg $nick "Only ops can display verses at this time."
return 0
}
-
- publookupverse $arg
-
-}
-
-bind pub - !kjv setver_kjv
-bind pub - !english 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 - !niv setver_niv
-
-proc setver_niv {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver NIV
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !dr setver_dr
-bind pub - !douayrheims setver_dr
-bind pub - !dre setver_dr
-
-proc setver_dr {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver DR
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !nas setver_nasb
-bind pub - !nasb setver_nasb
-
-proc setver_nasb {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver NASB
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !hnv setver_hnv
-
-proc setver_hnv {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver HNV
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !web setver_web
-
-proc setver_web {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver WEB
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !akjv setver_akjv
-
-proc setver_akjv {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver AKJV
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !bbe setver_bbe
-
-proc setver_bbe {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver BBE
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !webster setver_webster
-
-proc setver_webster {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Websters
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !jbc setver_jbc
-
-proc setver_jbc {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver ORTHJBC
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !rva setver_rva
-bind pub - !spanish setver_rva
-
-proc setver_rva {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver SpaRVA
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !lsg setver_lsg
-bind pub - !french setver_lsg
-
-proc setver_lsg {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver FreLSG
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !bis setver_bis
-bind pub - !indonesian setver_bis
-
-proc setver_bis {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver IndBIS
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !tb setver_tb
-
-proc setver_tb {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver IndTB
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sve setver_sve
-bind pub - !swedish setver_sve
-
-proc setver_sve {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver SweSve
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !vnt setver_vnt
-
-proc setver_vnt {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver SpaVNT
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !asv setver_asv
-
-proc setver_asv {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver ASV
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !rsv setver_rsv
-
-proc setver_rsv {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver RSV
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !alt setver_alt
-
-proc setver_alt {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver ALT
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !dby setver_dby
-bind pub - !darby setver_dby
-
-proc setver_dby {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Darby
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !pr setver_pr
-bind pub - !finnish setver_pr
-
-proc setver_pr {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver FinPR
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !lsg setver_lsg
-bind pub - !french setver_lsg
-
-proc setver_lsg {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver FreLSG
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !lut setver_lut
-bind pub - !luther setver_lut
-bind pub - !german setver_lut
-
-proc setver_lut {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver GerLut
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sch setver_sch
-
-proc setver_sch {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver GerSch
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-
-bind pub - !kar setver_kar
-bind pub - !hungarian setver_kar
-
-proc setver_kar {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver HunKar
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !nrv setver_nrv
-bind pub - !italian setver_nrv
-
-proc setver_nrv {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver ItaNRV
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !jps setver_jps
-
-proc setver_jps {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver JPS
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !brp setver_brp
-bind pub - !portuguese setver_brp
-
-proc setver_brp {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver PorBRP
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sev setver_sev
-
-proc setver_sev {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver SpaSEV
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !swahili setver_swahili
-
-proc setver_swahili {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Swahili
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !wey setver_wey
-bind pub - !weymouth setver_wey
-
-proc setver_wey {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Weymouth
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !ylt setver_ylt
-
-proc setver_ylt {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver YLT
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !alb setver_alb
-bind pub - !albanian setver_alb
-
-proc setver_alb {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Alb
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !gnpu setver_gnpu
-bind pub - !chinese setver_gnpu
-
-proc setver_gnpu {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver ChiGNPU
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !dan setver_dan
-bind pub - !danish setver_dan
-
-proc setver_dan {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Dan
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !lei setver_lei
-bind pub - !dutch setver_lei
-
-proc setver_lei {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver DutLEI
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !lu setver_lu
-
-proc setver_lu {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver DutLU
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !svv setver_svv
-
-proc setver_svv {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver DutSVV
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !shr setver_shr
-bind pub - !equadoran setver_shr
-
-proc setver_shr {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver EquShr
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !crl setver_crl
-bind pub - !creole setver_crl
-
-proc setver_crl {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver FreCrl
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !fredrb setver_fredrb
-
-proc setver_fredrb {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver FreDrb
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !ben setver_ben
-
-proc setver_ben {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver GerBen
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !elb setver_elb
-
-proc setver_elb {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver GerElb
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !kj21 setver_kj21
-
-proc setver_kj21 {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver KJ21
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !litv setver_litv
-
-proc setver_litv {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver LITV
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !lo setver_lo
-
-proc setver_lo {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver LO
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !maori setver_maori
-
-proc setver_maori {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Maori
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !mkjv setver_mkjv
-
-proc setver_mkjv {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver MKJV
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !nkj setver_nkjv
-bind pub - !nkjv setver_nkjv
-
-proc setver_nkjv {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver NKJV
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !ceb setver_ceb
-bind pub - !filipino setver_ceb
-
-proc setver_ceb {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver PhiCeb
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !rwebster setver_rwebster
-
-proc setver_rwebster {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver RWebster
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !rv setver_rv
-
-proc setver_rv {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver SpaRV
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !turkish setver_turkish
-
-proc setver_turkish {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Turkish
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !uma setver_uma
-
-proc setver_uma {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Uma
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !vulgate setver_vulgate
-bind pub - !vulg setver_vulgate
-bind pub - !latin setver_vulgate
-
-proc setver_vulgate {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Vulgate
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !nasb95 setver_nasb95
-bind pub - !nas95 setver_nasb95
-bind pub - !nau setver_nasb95
-
-proc setver_nasb95 {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver NASB95
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !nivbr setver_nivbr
-bind pub - !nib setver_nivbr
-
-proc setver_nivbr {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver NIVBr
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !nlt setver_nlt
-
-proc setver_nlt {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver NLT
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !nrsv setver_nrsv
-
-proc setver_nrsv {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver NRSV
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !neg setver_neg
-
-proc setver_neg {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver FreNEG
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !lnd setver_lnd
-
-proc setver_lnd {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver ItaLND
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !mel setver_mel
-bind pub - !melanesian setver_mel
-
-proc setver_mel {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Mel
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !norsk setver_norsk
-
-proc setver_norsk {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Norsk
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !cor setver_cor
-
-proc setver_cor {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver RomCor
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !lba setver_lba
-
-proc setver_lba {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver SpaLBA
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !byz setver_byz
-
-proc setver_byz {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver ByzX
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !lxx setver_lxx
-
-proc setver_lxx {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver LXXX
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !na26 setver_na26
-bind pub - !greek setver_na26
-
-proc setver_na26 {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver NA26X
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !scrivner setver_scrivner
-
-proc setver_scrivner {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver ScrivnerX
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !stephanus setver_stephanus
-
-proc setver_stephanus {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver StephanusX
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !tischendorf setver_tisch
-bind pub - !tisch setver_tisch
-
-proc setver_tisch {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver TischX
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !wh setver_wh
-
-proc setver_wh {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver WHX
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !whnu setver_whnu
-
-proc setver_whnu {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver WHNUX
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !grkbyz setver_grkbyz
-
-proc setver_grkbyz {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Byz
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !grklxx setver_grklxx
-
-proc setver_grklxx {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver LXX
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !grkna26 setver_grkna26
-bind pub - !grkgreek setver_na26
-proc setver_grkna26 {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver NA26
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !grkscrivner setver_grkscrivner
-
-proc setver_grkscrivner {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Scrivner
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !grkstephanus setver_grkstephanus
-
-proc setver_grkstephanus {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Stephanus
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !grktischendorf setver_grktisch
-bind pub - !grktisch setver_grktisch
-
-proc setver_grktisch {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Tisch
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !grkwh setver_grkwh
-
-proc setver_grkwh {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver WH
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !grkwhnu setver_grkwhnu
-
-proc setver_grkwhnu {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver WHNU
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !bhs setver_bhs
-bind pub - !hebrew setver_bhs
-
-proc setver_bhs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver BHS
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !rst setver_rst
-
-proc setver_rst {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver RST
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !ukrainian setver_ukrainian
-
-proc setver_ukrainian {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Ukrainian
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !arabic setver_arabic
-
-proc setver_arabic {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Arabic
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !n27u4 setver_n27u4
-bind pub - !nu setver_n27u4
-bind pub - !bgreek setver_n27u4
-
-proc setver_n27u4 {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver N27U4
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !umgreek setver_ukgreek
-
-proc setver_umgreek {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver UMGreek
- pub_lookup $nick $uhost $hand $channel $arg
-}
-
-bind pub - !viet setver_viet
-bind pub - !vietnamese setver_viet
-
-proc setver_viet {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Viet
- pub_lookup $nick $uhost $hand $channel $arg
+ publookupverse $arg
}
-
-# ----------------------------------------------------------------------
+#----------------------------------------------------------------------
proc pubsearchword {vlookup} {
global botnick chan bibver diatheke
+ regsub -all {[\[\]\{\}\#\%\\\$\'\"\/\s]} $vlookup { } vlookup
catch {exec $diatheke -s $bibver "$vlookup" >& /tmp/fooout.$botnick}
catch {set foofile [open /tmp/fooout.$botnick]}
@@ -894,7 +121,6 @@ proc pubsearchword {vlookup} {
return 1
}
-
proc pub_lookups {nick uhost hand channel arg} {
global von chan bibver
set chan $channel
@@ -914,738 +140,11 @@ proc pub_lookups {nick uhost hand channel arg} {
pubsearchword $arg
}
-bind pub - !skjv setver_kjvs
-bind pub - !senglish setver_kjvs
-
-proc setver_kjvs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver KJV
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-
-bind pub - !sniv setver_nivs
-
-proc setver_nivs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver NIV
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sdr setver_drs
-bind pub - !sdouayrheims setver_drs
-bind pub - !sdre setver_drs
-
-proc setver_drs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver DR
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !snas setver_nasbs
-bind pub - !snasb setver_nasbs
-
-proc setver_nasbs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver NASB
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !shnv setver_hnvs
-
-proc setver_hnvs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver HNV
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sweb setver_webs
-
-proc setver_webs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver WEB
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sbbe setver_bbes
-
-proc setver_bbes {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver BBE
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !swebster setver_websters
-
-proc setver_websters {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Websters
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sjbc setver_jbcs
-
-proc setver_jbcs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver ORTHJBC
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !srva setver_rvas
-bind pub - !sspanish setver_rvas
-
-proc setver_rvas {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver SpaRVA
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sbis setver_biss
-bind pub - !sindonesian setver_biss
-
-proc setver_biss {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver IndBIS
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !stb setver_tbs
-
-proc setver_tbs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver IndTB
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !ssve setver_sves
-bind pub - !sswedish setver_sves
-
-proc setver_sves {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver SweSve
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !svnt setver_vnts
-
-proc setver_vnts {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver SpaVNT
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sasv setver_asvs
-
-proc setver_asvs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver ASV
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !srsv setver_rsvs
-
-proc setver_rsvs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver RSV
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !salt setver_alts
-
-proc setver_alts {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver ALT
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sdby setver_dbys
-bind pub - !sdarby setver_dbys
-
-proc setver_dbys {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Darby
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !spr setver_prs
-bind pub - !sfinnish setver_prs
-
-proc setver_prs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver FinPR
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !slsg setver_lsgs
-bind pub - !sfrench setver_lsgs
-
-proc setver_lsgs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver FreLSG
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !slut setver_luts
-bind pub - !sluther setver_luts
-bind pub - !sgerman setver_luts
-
-proc setver_luts {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver GerLut
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !ssch setver_schs
-
-proc setver_schs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver GerSch
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-
-bind pub - !skar setver_kars
-bind pub - !shungarian setver_kars
-
-proc setver_kars {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver HunKar
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !snrv setver_nrvs
-bind pub - !sitalian setver_nrvs
-
-proc setver_nrvs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver ItaNRV
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sjps setver_jpss
-
-proc setver_jpss {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver JPS
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sbrp setver_brps
-bind pub - !sportuguese setver_brps
-
-proc setver_brps {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver PorBRP
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !ssev setver_sevs
-
-proc setver_sevs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver SpaSEV
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sswahili setver_swahilis
-
-proc setver_swahilis {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Swahili
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !swey setver_weys
-bind pub - !sweymouth setver_weys
-
-proc setver_weys {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Weymouth
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sylt setver_ylts
-
-proc setver_ylts {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver YLT
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !salb setver_albs
-bind pub - !salbanian setver_albs
-
-proc setver_albs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver ALB
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sgnpu setver_gnpus
-bind pub - !schinese setver_gnpus
-
-proc setver_gnpus {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver ChiGNPU
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sdan setver_dans
-bind pub - !sdanish setver_dans
-
-proc setver_dans {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Dan
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !slei setver_leis
-bind pub - !sdutch setver_leis
-
-proc setver_leis {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver DutLEI
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !slu setver_lus
-
-proc setver_lus {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver DutLU
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !ssvv setver_svvs
-
-proc setver_svvs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver DutSVV
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sshr setver_shrs
-bind pub - !sequadoran setver_shrs
-
-proc setver_shrs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver EquShr
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !scrl setver_crls
-bind pub - !screole setver_crls
-
-proc setver_crls {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver FreCrl
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sfredrb setver_fredrbs
-
-proc setver_fredrbs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver FreDrb
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sben setver_bens
-
-proc setver_bens {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver BerBen
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !selb setver_elbs
-
-proc setver_elbs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver GerElb
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !skj21 setver_kj21s
-
-proc setver_kj21s {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver KJ21
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !slitv setver_litvs
-
-proc setver_litvs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver LITV
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !slo setver_los
-
-proc setver_los {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver LO
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !smaori setver_maoris
-
-proc setver_maoris {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Mao
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !smkjv setver_mkjvs
-
-proc setver_mkjvs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver MKJV
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !snkjv setver_nkjvs
-
-proc setver_nkjvs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver NKJV
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sceb setver_cebs
-bind pub - !sfilipino setver_cebs
-
-proc setver_cebs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver PhiCeb
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !srwebster setver_rwebsters
-
-proc setver_rwebsters {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver RWebster
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !srv setver_rvs
-
-proc setver_rvs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver SpaRV
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sturkish setver_turkishs
-
-proc setver_turkishs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Turkish
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !suma setver_umas
-
-proc setver_umas {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Uma
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !svulgate setver_vulgates
-bind pub - !svulg setver_vulgates
-bind pub - !slatin setver_vulgates
-
-proc setver_vulgates {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Vulgate
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !snasb95 setver_nasb95s
-bind pub - !snas95 setver_nasb95s
-bind pub - !snau setver_nasb95s
-
-proc setver_nasb95s {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver NASB95
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !snivbr setver_nivbrs
-bind pub - !snib setver_nivbrs
-
-proc setver_nivbrs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver NIVBr
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !snlt setver_nlts
-
-proc setver_nlts {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver NLT
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !snrsv setver_nrsvs
-
-proc setver_nrsvs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver NRSV
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sneg setver_negs
-
-proc setver_negs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver FreNEG
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !slnd setver_lnds
-
-proc setver_lnds {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver ItaLND
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !smel setver_mels
-bind pub - !smelanesian setver_mels
-
-proc setver_mels {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Mel
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !snorsk setver_norsks
-
-proc setver_norsks {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Norsk
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !scor setver_cors
-
-proc setver_cors {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver RomCor
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !slba setver_lbas
-
-proc setver_lbas {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver SpaLBA
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sbyz setver_byzs
-
-proc setver_byzs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver ByzX
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !slxx setver_lxxs
-
-proc setver_lxxs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver LXXX
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sna26 setver_na26s
-bind pub - !sgreek setver_na26s
-
-proc setver_na26s {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver NA26X
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sscrivner setver_scrivners
-
-proc setver_scrivners {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver ScrivnerX
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sstephanus setver_stephanuss
-
-proc setver_stephanuss {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver StephanusX
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !stischendorf setver_tischs
-bind pub - !stisch setver_tischs
-
-proc setver_tischs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver TischX
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !swh setver_whs
-
-proc setver_whs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver WHX
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !swhnu setver_whnus
-
-proc setver_whnus {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver WHNUX
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sgrkbyz setver_grkbyzs
-
-proc setver_grkbyzs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Byz
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sgrklxx setver_grklxxs
-
-proc setver_grklxxs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver LXX
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sgrkna26 setver_grkna26s
-bind pub - !sgrkgreek setver_na26s
-
-proc setver_grkna26s {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver NA26
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sgrkscrivner setver_grkscrivners
-
-proc setver_grkscrivners {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Scrivner
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sgrkstephanus setver_grkstephanuss
-
-proc setver_grkstephanuss {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Stephanus
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sgrktischendorf setver_grktischs
-bind pub - !sgrktisch setver_grktischs
-
-proc setver_grktischs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Tisch
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sgrkwh setver_grkwhs
-
-proc setver_grkwhs {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver WH
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sgrkwhnu setver_grkwhnus
-
-proc setver_grkwhnus {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver WHNU
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sbhs setver_bhss
-bind pub - !shebrew setver_bhss
-
-proc setver_bhss {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver BHS
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !srst setver_rsts
-
-proc setver_rsts {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver RST
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sukrainian setver_ukrainians
-
-proc setver_ukrainians {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Ukrainian
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sarabic setver_arabics
-
-proc setver_arabics {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Arabic
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sn27u4 setver_n27u4s
-bind pub - !snu setver_n27u4s
-bind pub - !sbgreek setver_n27u4s
-
-proc setver_n27u4s {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver N27U4
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sumgreek setver_ukgreeks
-
-proc setver_umgreeks {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver UMGreek
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
-bind pub - !sviet setver_viets
-bind pub - !svietnamese setver_viets
-
-proc setver_viets {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Viet
- pub_lookups $nick $uhost $hand $channel $arg
-}
-
#----------------------------------------------------------------------
-
proc publookupdict {vlookup} {
global botnick chan bibver diatheke
+ regsub -all {[\[\]\{\}\#\%\\\$\'\"\/\s]} $vlookup { } vlookup
catch {exec $diatheke -f plaintext -b $bibver -k "$vlookup" >& /tmp/fooout.$botnick}
catch {set foofile [open /tmp/fooout.$botnick]}
@@ -1653,11 +152,10 @@ proc publookupdict {vlookup} {
putmsg $chan "$fooverse"
}
catch {close $foofile}
- # exec rm /tmp/fooout.$botnick
+ exec rm /tmp/fooout.$botnick
return 1
}
-
proc pub_lookupd {nick uhost hand channel arg} {
global von chan bibver
set chan $channel
@@ -1673,111 +171,27 @@ proc pub_lookupd {nick uhost hand channel arg} {
putmsg $nick "Sorry, only ops can use dictionaries and indices right now."
return 0
}
-
- publookupdict $arg
-}
-
-bind pub - !losung setver_losung
-
-proc setver_losung {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver losung_en_99
- set arg [exec date "+%m.%d"]
- pub_lookupd $nick $uhost $hand $channel $arg
-}
-
-bind pub - !vines setver_vines
-
-proc setver_vines {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Vines
- pub_lookupd $nick $uhost $hand $channel $arg
-}
-
-bind pub - !naves setver_naves
-
-proc setver_naves {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Naves
- pub_lookupd $nick $uhost $hand $channel $arg
-}
-
-bind pub - !eastons setver_eastons
-
-proc setver_eastons {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Eastons
- pub_lookupd $nick $uhost $hand $channel $arg
-}
-
-bind pub - !strheb setver_strheb
-
-proc setver_strheb {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver StrongsHebrew
- pub_lookupd $nick $uhost $hand $channel $arg
-}
-
-bind pub - !strgrk setver_strgrk
-
-proc setver_strgrk {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver StrongsGreek
- pub_lookupd $nick $uhost $hand $channel $arg
-}
-
-bind pub - !bdb setver_bdb
-
-proc setver_bdb {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver BDB
- pub_lookupd $nick $uhost $hand $channel $arg
-}
-
-bind pub - !thayer setver_thayer
-
-proc setver_thayer {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Thayer
- pub_lookupd $nick $uhost $hand $channel $arg
-}
-
-bind pub - !hitch setver_hitch
-
-proc setver_hitch {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Hitch
- pub_lookupd $nick $uhost $hand $channel $arg
-}
-
-bind pub - !isbe setver_isbe
-
-proc setver_isbe {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver ISBE
- pub_lookupd $nick $uhost $hand $channel $arg
-}
-
-bind pub - !smiths setver_smiths
-proc setver_smiths {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Smiths
- pub_lookupd $nick $uhost $hand $channel $arg
+ publookupdict $arg
}
-bind pub - !torrey setver_torrey
+# Saving this as an example of some interesting (but now lost) functionality
+# whereby the argument is overridden by the current date for a daily
+# devotional query.
-proc setver_torrey {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Torrey
- pub_lookupd $nick $uhost $hand $channel $arg
-}
+#bind pub - !losung setver_losung
+#proc setver_losung {nick uhost hand channel arg} {
+# global botnick chan bibver
+# set bibver losung_en_99
+# set arg [exec date "+%m.%d"]
+# pub_lookupd $nick $uhost $hand $channel $arg
+#}
#----------------------------------------------------------------------
proc publookupcomm {vlookup} {
global botnick chan bibver diatheke
+ regsub -all {[\[\]\{\}\#\%\\\$\'\"\/\s]} $vlookup { } vlookup
catch {exec $diatheke -c $bibver "$vlookup" >& /tmp/fooout.$botnick}
catch {set foofile [open /tmp/fooout.$botnick]}
while {[gets $foofile fooverse] >= 0} {
@@ -1808,7 +222,6 @@ proc publookupcomm {vlookup} {
return 1
}
-
proc pub_lookupc {nick uhost hand channel arg} {
global von chan bibver
set chan $channel
@@ -1828,86 +241,6 @@ proc pub_lookupc {nick uhost hand channel arg} {
publookupcomm $arg
}
-bind pub - !rwp setver_rwp
-
-proc setver_rwp {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver RWP
- pub_lookupc $nick $uhost $hand $channel $arg
-}
-
-bind pub - !mhc setver_mhc
-
-proc setver_mhc {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver MHC
- pub_lookupc $nick $uhost $hand $channel $arg
-}
-
-bind pub - !dtn setver_dtn
-
-proc setver_dtn {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver DTN
- pub_lookupc $nick $uhost $hand $channel $arg
-}
-
-bind pub - !family setver_family
-
-proc setver_family {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Family
- pub_lookupc $nick $uhost $hand $channel $arg
-}
-
-bind pub - !geneva setver_geneva
-
-proc setver_geneva {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Geneva
- pub_lookupc $nick $uhost $hand $channel $arg
-}
-
-bind pub - !gill setver_gill
-
-proc setver_gill {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Gill
- pub_lookupc $nick $uhost $hand $channel $arg
-}
-
-bind pub - !pnt setver_pnt
-
-proc setver_pnt {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver PNT
- pub_lookupc $nick $uhost $hand $channel $arg
-}
-
-bind pub - !tfg setver_tfg
-
-proc setver_tfg {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver TFG
- pub_lookupc $nick $uhost $hand $channel $arg
-}
-
-bind pub - !tsk setver_tsk
-
-proc setver_tsk {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver TSK
- pub_lookupc $nick $uhost $hand $channel $arg
-}
-
-bind pub - !wesley setver_wesley
-
-proc setver_wesley {nick uhost hand channel arg} {
- global botnick chan bibver
- set bibver Wesley
- pub_lookupc $nick $uhost $hand $channel $arg
-}
-
#----------------------------------------------------------------------
bind pub - !dict dictlookup
@@ -1928,6 +261,7 @@ proc dictlookup {nick uhost hand channel arg} {
return 0
}
+ regsub -all {[\[\]\{\}\#\%\\\$\'\"\/\s]} $arg { } arg
catch {exec $dict "$arg" >& /tmp/fooout.$botnick}
catch {set foofile [open /tmp/fooout.$botnick]}
catch {set fooverse [gets $foofile]}
@@ -1958,9 +292,6 @@ proc pub_help {nick uhost hand channel arg} {
putserv "NOTICE $nick :Supported commands:"
putserv "NOTICE $nick :Help, using \"!biblehelp\""
putserv "NOTICE $nick :Book list, using \"!books\" (it's long)"
-# Uncomment the next line if you have turned LOGGING on in diatheke to enable
-# the history function.
-# putserv "NOTICE $nick :See last 5 calls to BibleBot, using \"!history\""
putserv "NOTICE $nick :Check display status, using \"!status\""
putserv "NOTICE $nick :Bible lookups, using \"!<bible version> <book> <chapter>:<verse>\""
putserv "NOTICE $nick :verse ranges can be specified by adding \"-<last verse>\" to this"
@@ -1996,29 +327,14 @@ proc pub_books {nick uhost hand channel arg} {
return 1
}
- putserv "NOTICE $nick :English language Bibles (26):"
- putserv "NOTICE $nick :Ameican Standard Version (!asv), Analytical Literal Translation (!alt), Bible in Basic English (!bbe), Darby (!dby), Douay-Rheims Bible (!dr), Green's Literal Translation (!litv), Green's Modern King James Version (!mkjv), Hebrew Names Version (!hnv), Jewish Publication Society 1917 (!jps), King James Version (!kjv), The Living Oracles NT (!lo),"
- putserv "NOTICE $nick :New American Standard Bible (!nasb), New American Standard Bible, 95 Update (!nasb95), New International Version (!niv), New Internation Version, British Edition (!nivbr), New King James Version (!nkjv), New Living Translation (!nlt), New Revised Standard Version (!nrsv), Orthodox Jewish Brit ChadashaNT only (!jbc),"
- putserv "NOTICE $nick :Revised Standard Version (!rsv), Revised 1833 Webster's (!rwebster), World English Bible (!web), Webster's (!webster), Weymouth NT (!wey), Young's Literal Translation (!ylt), 21st Century King James Version (!kj21)"
- putserv "NOTICE $nick :Non-English language Bibles (39):"
- putserv "NOTICE $nick :Albanian Bible (!alb), Chinese GNPU (!gnpu), Danish Bible (!dan), Dutch Leidse Vertaling (!lei), Dutch Lutherse Vertaling (!lu), Dutch Statemvertaling (!svv), Equadoran Shuar NT (!shr), Filipino Nga Cebuano (!ceb), Finnish Pyhz Raamattu (!pr), French Louis Segond Version (!lsg), French Haitian Creole Version (!crl), French Darby's Version (!fredrb),"
- putserv "NOTICE $nick :French Nouvelle Edition de Geneve (!neg), German Luther Version (!lut), German Schlachter (!sch), German Bengel NT (!ben), German Elberfelder Version (!elb), Hungarian Karoli (!kar), Indonesian Bahasa Indonesia Sehari-hari (!bis), Indonesian Terjemahan Baru (!tb), Italian La Nouva Diodati (!lnd), Italian La Sacra Bibbia Nuova Riveduta (!nrv),"
- putserv "NOTICE $nick :Maori Bible (!maori), Melanesian Pidgin Bible (!mel), Norsk Bible (!norsk), Portuguese A Biblia Sagrada Traduzida em Portugues (!brp), Spanish La Biblia de Las Americas (!lba), Spanish Reina-Valera Actualizada (!rva), Spanish Reina-Valera (!rv), Spanish Sagradas Escrituras (!sev), Spanish Valera NT only (!vnt), Swahili NT (!swahili),"
- putserv "NOTICE $nick :Swedish 1917 Bible NT only (!sve), Turkish NT (!turkish), Uma NT (!uma)"
- putserv "NOTICE $nick :Original Language Bibles (18): (NB, /'s divide transliterated/non-roman versions)"
- putserv "NOTICE $nick :1991 Byzantine/Majority Text (!byz/!grkbyz), Nestle-Aland 26th/27th Ed. (!na26/!grkna26), 1894 Scrivner Textus Receptus (!scrivner/!grkscrivner), 1550 Stephanus Textus Receptus (!stephanus/!grkstephanus), Tischendorf' 8th Ed. GNT (!tisch/!grktisch), 1881 Westcott-Hort GNT (!wh/!grkwh), 1881 Westcott-Hort with NA26 alternate readings (!whnu/!grkwhnu)"
- putserv "NOTICE $nick: Nestle-Aland 27th Ed./UBS 4th Ed. (!n27u4), Septuagint/LXX (!lxx/!grklxx), Biblia Hebraica Stuttgartensia in Hebrew font (!bhs), Jerome's Latin Vulgate (!vulg)"
- putserv "NOTICE $nick :Non-Roman character Bibles (5):"
- putserv "NOTICE $nick :Arabic Bible (!arabic), Russian Synodal Translation (!rst), Ukrainian Bible (!ukrainian), Unaccented Modern Greek Bible (!umgreek), Vietnamese Bible (!viet)"
+ printBibles $nick
if {($von==3) && (![matchattr $hand 3]) && (![matchattr $hand o]) && (![isvoice $nick $channel])} {
return 1
}
- putserv "NOTICE $nick :Dictionaries & Indices (12):"
- putserv "NOTICE $nick :Webster's Dictionary (!dict), Vine's Bible Dictionary(!vines), Easton's Bible Dictionary (!eastons), Nave's Topical Bible (!naves), Smith's Bible Dictionary (!smiths), Hitchcock's Bible Names Dictionary (!hitch), International Standard Bible Dictionary (!isbe), Torrey's New Topical Textbook (!torrey), Strong's Hebrew Bible Dictionary (!strheb), Strong's Greek Bible Dictionary (!strgrk), Brown-Driver-Briggs Hebrew Lexicon (!bdb), Thayer's Greek Lexicon (!thayer)"
- putserv "NOTICE $nick :Commentaries (10):"
- putserv "NOTICE $nick :Darby's Translation Notes (!dtn), Family Bible Notes (!family), Geneva Bible Translation Notes (!geneva), John Gill's Expositor (!gill), Matthew Henry's Concise (!mhc), The People's New Testament (!pnt), Robertson's Word Pictures (!rwp), The Fourfold Gospel (!tfg), Treasury of Scriptural Knowledge (!tsk), Wesley's Bible Notes (!wesley)"
+ printComms $nick
+ printDicts $nick
}
#----------------------------------------------------------------------
@@ -2041,25 +357,6 @@ proc pub_status {nick uhost hand channel arg} {
return 1
}
-
-bind pub - !history pub_hist
-bind msg - history pub_hist
-
-proc pub_hist {nick uhost hand channel arg} {
- global botnick
- catch {exec tail -n 5 /var/log/diatheke.log >& /tmp/fooout.$botnick}
- catch {set foofile [open /tmp/fooout.$botnick]}
- catch {set fooverse [gets $foofile]}
- putserv "NOTICE $nick :Last 5 calls to Diatheke/Tcl BibleBot"
- putserv "NOTICE $nick :$fooverse"
- while {[gets $foofile fooverse] >= 0} {
- putserv "NOTICE $nick :$fooverse"
- }
- catch {close $foofile}
- exec rm /tmp/fooout.$botnick
- return 1
-}
-
#---------------------------------------------------------------------
proc pub_verseon {nick uhost hand channel arg} {
@@ -2127,18 +424,3 @@ bind dcc - verseon dcc_verseon
#sets default von mode
set von 1
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/utilities/diatheke/tcl/makebooklist.pl b/utilities/diatheke/tcl/makebooklist.pl
new file mode 100644
index 0000000..26ef54f
--- /dev/null
+++ b/utilities/diatheke/tcl/makebooklist.pl
@@ -0,0 +1,109 @@
+#!/bin/perl
+
+# Diatheke/Tcl 5.0 by Chris Little <chrislit@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.
+
+@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;
+