summaryrefslogtreecommitdiff
path: root/utilities/diatheke
diff options
context:
space:
mode:
authorRoberto C. Sanchez <roberto@connexer.com>2014-03-29 10:53:49 -0400
committerRoberto C. Sanchez <roberto@connexer.com>2014-03-29 10:53:49 -0400
commit8c8aa6b07e595cfac56838b5964ab3e96051f1b2 (patch)
treeda38e2c1979148dbd3b0c7b87f930746f5ba7f44 /utilities/diatheke
parent8d3fc864d094eeadc721f8e93436b37a5fab173e (diff)
Imported Upstream version 1.5.7
Diffstat (limited to 'utilities/diatheke')
-rw-r--r--utilities/diatheke/Makefile.am23
-rw-r--r--utilities/diatheke/Makefile.in519
-rw-r--r--utilities/diatheke/README76
-rw-r--r--utilities/diatheke/cgi/Makefile.am6
-rwxr-xr-xutilities/diatheke/cgi/dia-def.pl41
-rwxr-xr-xutilities/diatheke/cgi/diatheke.pl491
-rw-r--r--utilities/diatheke/cgi/index-private.html1264
-rw-r--r--utilities/diatheke/cgi/index-public.html883
-rw-r--r--utilities/diatheke/corediatheke.cpp449
-rw-r--r--utilities/diatheke/corediatheke.h42
-rw-r--r--utilities/diatheke/diafiltmgr.cpp227
-rw-r--r--utilities/diatheke/diafiltmgr.h47
-rw-r--r--utilities/diatheke/diatheke.cpp222
-rw-r--r--utilities/diatheke/diatheke.dsp204
-rw-r--r--utilities/diatheke/diatheke.dsw44
-rw-r--r--utilities/diatheke/diathekemgr.cpp107
-rw-r--r--utilities/diatheke/diathekemgr.h35
-rw-r--r--utilities/diatheke/gbfcgi.cpp138
-rw-r--r--utilities/diatheke/gbfcgi.h36
-rw-r--r--utilities/diatheke/osiscgi.cpp323
-rw-r--r--utilities/diatheke/osiscgi.h48
-rw-r--r--utilities/diatheke/pqa/Diatheke.pqabin0 -> 662 bytes
-rw-r--r--utilities/diatheke/pqa/src/README1
-rw-r--r--utilities/diatheke/pqa/src/all.html170
-rw-r--r--utilities/diatheke/pqa/src/ancient.html32
-rw-r--r--utilities/diatheke/pqa/src/dict.html32
-rw-r--r--utilities/diatheke/pqa/src/english.html68
-rw-r--r--utilities/diatheke/pqa/src/french.html26
-rw-r--r--utilities/diatheke/pqa/src/german.html35
-rw-r--r--utilities/diatheke/pqa/src/index.html43
-rw-r--r--utilities/diatheke/pqa/src/lex.html29
-rw-r--r--utilities/diatheke/pqa/src/other.html57
-rw-r--r--utilities/diatheke/pqa/src/spanish.html29
-rwxr-xr-xutilities/diatheke/soap/sapouni.cgi97
-rwxr-xr-xutilities/diatheke/soap/soapatheke.pl16
-rw-r--r--utilities/diatheke/tcl/biblebot-diatheke.tcl2131
-rw-r--r--utilities/diatheke/thmlcgi.cpp192
-rw-r--r--utilities/diatheke/thmlcgi.h36
38 files changed, 8219 insertions, 0 deletions
diff --git a/utilities/diatheke/Makefile.am b/utilities/diatheke/Makefile.am
new file mode 100644
index 0000000..58d0cf8
--- /dev/null
+++ b/utilities/diatheke/Makefile.am
@@ -0,0 +1,23 @@
+AUTOMAKE_OPTIONS = 1.6
+
+INCLUDES = -I$(top_srcdir)/include
+
+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 = -L$(top_builddir)/lib -lsword $(iculibs) $(lucenelibs)
+
+noinst_HEADERS = corediatheke.h diafiltmgr.h diathekemgr.h gbfcgi.h thmlcgi.h \
+ osiscgi.h
+
+include cgi/Makefile.am
diff --git a/utilities/diatheke/Makefile.in b/utilities/diatheke/Makefile.in
new file mode 100644
index 0000000..9c97cc3
--- /dev/null
+++ b/utilities/diatheke/Makefile.in
@@ -0,0 +1,519 @@
+# Makefile.in generated by automake 1.7.4 from Makefile.am.
+# @configure_input@
+
+# Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
+# 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.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
+# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+# PARTICULAR PURPOSE.
+
+@SET_MAKE@
+
+srcdir = @srcdir@
+top_srcdir = @top_srcdir@
+VPATH = @srcdir@
+pkgdatadir = $(datadir)/@PACKAGE@
+pkglibdir = $(libdir)/@PACKAGE@
+pkgincludedir = $(includedir)/@PACKAGE@
+top_builddir = ../..
+
+am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
+INSTALL = @INSTALL@
+install_sh_DATA = $(install_sh) -c -m 644
+install_sh_PROGRAM = $(install_sh) -c
+install_sh_SCRIPT = $(install_sh) -c
+INSTALL_HEADER = $(INSTALL_DATA)
+transform = $(program_transform_name)
+NORMAL_INSTALL = :
+PRE_INSTALL = :
+POST_INSTALL = :
+NORMAL_UNINSTALL = :
+PRE_UNINSTALL = :
+POST_UNINSTALL = :
+host_triplet = @host@
+ACLOCAL = @ACLOCAL@
+AMDEP_FALSE = @AMDEP_FALSE@
+AMDEP_TRUE = @AMDEP_TRUE@
+AMTAR = @AMTAR@
+AUTOCONF = @AUTOCONF@
+AUTOHEADER = @AUTOHEADER@
+AUTOMAKE = @AUTOMAKE@
+AWK = @AWK@
+BUILDEXAMPLES_FALSE = @BUILDEXAMPLES_FALSE@
+BUILDEXAMPLES_TRUE = @BUILDEXAMPLES_TRUE@
+BUILDTESTS_FALSE = @BUILDTESTS_FALSE@
+BUILDTESTS_TRUE = @BUILDTESTS_TRUE@
+BUILDUTILS_FALSE = @BUILDUTILS_FALSE@
+BUILDUTILS_TRUE = @BUILDUTILS_TRUE@
+CC = @CC@
+CCDEPMODE = @CCDEPMODE@
+CFLAGS = @CFLAGS@
+CONFDEF_FALSE = @CONFDEF_FALSE@
+CONFDEF_TRUE = @CONFDEF_TRUE@
+CPPFLAGS = @CPPFLAGS@
+CURL_CFLAGS = @CURL_CFLAGS@
+CURL_CONFIG = @CURL_CONFIG@
+CURL_LIBS = @CURL_LIBS@
+CXX = @CXX@
+CXXCPP = @CXXCPP@
+CXXDEPMODE = @CXXDEPMODE@
+CXXFLAGS = @CXXFLAGS@
+CYGPATH_W = @CYGPATH_W@
+DEFS = @DEFS@
+DEPDIR = @DEPDIR@
+ECHO = @ECHO@
+ECHO_C = @ECHO_C@
+ECHO_N = @ECHO_N@
+ECHO_T = @ECHO_T@
+EGREP = @EGREP@
+EXEEXT = @EXEEXT@
+GENCCODE = @GENCCODE@
+GENCMN = @GENCMN@
+GENRB = @GENRB@
+ICUSWORD_FALSE = @ICUSWORD_FALSE@
+ICUSWORD_TRUE = @ICUSWORD_TRUE@
+ICU_CONFIG = @ICU_CONFIG@
+ICU_FALSE = @ICU_FALSE@
+ICU_IOLIBS = @ICU_IOLIBS@
+ICU_LIBS = @ICU_LIBS@
+ICU_TRUE = @ICU_TRUE@
+ICU_VER = @ICU_VER@
+INSTALLMGR_FALSE = @INSTALLMGR_FALSE@
+INSTALLMGR_TRUE = @INSTALLMGR_TRUE@
+INSTALL_DATA = @INSTALL_DATA@
+INSTALL_PROGRAM = @INSTALL_PROGRAM@
+INSTALL_SCRIPT = @INSTALL_SCRIPT@
+INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
+INSTCONF_FALSE = @INSTCONF_FALSE@
+INSTCONF_TRUE = @INSTCONF_TRUE@
+LDFLAGS = @LDFLAGS@
+LIBOBJS = @LIBOBJS@
+LIBS = @LIBS@
+LIBTOOL = @LIBTOOL@
+LN_S = @LN_S@
+LTLIBOBJS = @LTLIBOBJS@
+LUCENE_LIBS = @LUCENE_LIBS@
+MAINT = @MAINT@
+MAINTAINER_MODE_FALSE = @MAINTAINER_MODE_FALSE@
+MAINTAINER_MODE_TRUE = @MAINTAINER_MODE_TRUE@
+MAKEINFO = @MAKEINFO@
+MINGW_FALSE = @MINGW_FALSE@
+MINGW_TRUE = @MINGW_TRUE@
+OBJEXT = @OBJEXT@
+PACKAGE = @PACKAGE@
+PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
+PACKAGE_NAME = @PACKAGE_NAME@
+PACKAGE_STRING = @PACKAGE_STRING@
+PACKAGE_TARNAME = @PACKAGE_TARNAME@
+PACKAGE_VERSION = @PACKAGE_VERSION@
+PATH_SEPARATOR = @PATH_SEPARATOR@
+PKGDATA = @PKGDATA@
+PKG_CONFIG = @PKG_CONFIG@
+RANLIB = @RANLIB@
+SET_MAKE = @SET_MAKE@
+SHELL = @SHELL@
+STRIP = @STRIP@
+USELUCENE_FALSE = @USELUCENE_FALSE@
+USELUCENE_TRUE = @USELUCENE_TRUE@
+USE_PKGCONF_FALSE = @USE_PKGCONF_FALSE@
+USE_PKGCONF_TRUE = @USE_PKGCONF_TRUE@
+VERSION = @VERSION@
+ZLIB_FALSE = @ZLIB_FALSE@
+ZLIB_TRUE = @ZLIB_TRUE@
+ac_ct_CC = @ac_ct_CC@
+ac_ct_CXX = @ac_ct_CXX@
+ac_ct_RANLIB = @ac_ct_RANLIB@
+ac_ct_STRIP = @ac_ct_STRIP@
+am__fastdepCC_FALSE = @am__fastdepCC_FALSE@
+am__fastdepCC_TRUE = @am__fastdepCC_TRUE@
+am__fastdepCXX_FALSE = @am__fastdepCXX_FALSE@
+am__fastdepCXX_TRUE = @am__fastdepCXX_TRUE@
+am__include = @am__include@
+am__leading_dot = @am__leading_dot@
+am__quote = @am__quote@
+bindir = @bindir@
+build = @build@
+build_alias = @build_alias@
+build_cpu = @build_cpu@
+build_os = @build_os@
+build_vendor = @build_vendor@
+datadir = @datadir@
+dir_confdef = @dir_confdef@
+enable_debug = @enable_debug@
+enable_profile = @enable_profile@
+exec_prefix = @exec_prefix@
+host = @host@
+host_alias = @host_alias@
+host_cpu = @host_cpu@
+host_os = @host_os@
+host_vendor = @host_vendor@
+includedir = @includedir@
+infodir = @infodir@
+install_sh = @install_sh@
+libdir = @libdir@
+libexecdir = @libexecdir@
+localstatedir = @localstatedir@
+mandir = @mandir@
+oldincludedir = @oldincludedir@
+prefix = @prefix@
+program_transform_name = @program_transform_name@
+sbindir = @sbindir@
+sharedstatedir = @sharedstatedir@
+sysconfdir = @sysconfdir@
+target = @target@
+target_alias = @target_alias@
+target_cpu = @target_cpu@
+target_mingw32 = @target_mingw32@
+target_os = @target_os@
+target_system = @target_system@
+target_vendor = @target_vendor@
+with_conf = @with_conf@
+with_icu = @with_icu@
+with_zlib = @with_zlib@
+AUTOMAKE_OPTIONS = 1.6
+
+INCLUDES = -I$(top_srcdir)/include
+
+bin_PROGRAMS = diatheke
+
+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 = -L$(top_builddir)/lib -lsword $(iculibs) $(lucenelibs)
+
+noinst_HEADERS = corediatheke.h diafiltmgr.h diathekemgr.h gbfcgi.h thmlcgi.h \
+ osiscgi.h
+
+swcgidir = $(top_srcdir)/apps/console/diatheke/cgi
+
+EXTRA_DIST = $(swcgidir)/dia-def.pl $(swcgidir)/diatheke.pl $(swcgidir)/index-private.html $(swcgidir)/index-public.html
+subdir = utilities/diatheke
+ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
+mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
+CONFIG_HEADER = $(top_builddir)/config.h
+CONFIG_CLEAN_FILES =
+bin_PROGRAMS = diatheke$(EXEEXT)
+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)
+@ICU_FALSE@@USELUCENE_TRUE@diatheke_DEPENDENCIES =
+@ICU_FALSE@@USELUCENE_FALSE@diatheke_DEPENDENCIES =
+@ICU_TRUE@@USELUCENE_TRUE@diatheke_DEPENDENCIES =
+@ICU_TRUE@@USELUCENE_FALSE@diatheke_DEPENDENCIES =
+diatheke_LDFLAGS =
+
+DEFAULT_INCLUDES = -I. -I$(srcdir) -I$(top_builddir)
+depcomp = $(SHELL) $(top_srcdir)/depcomp
+am__depfiles_maybe = depfiles
+@AMDEP_TRUE@DEP_FILES = ./$(DEPDIR)/corediatheke.Po \
+@AMDEP_TRUE@ ./$(DEPDIR)/diafiltmgr.Po ./$(DEPDIR)/diatheke.Po \
+@AMDEP_TRUE@ ./$(DEPDIR)/diathekemgr.Po ./$(DEPDIR)/gbfcgi.Po \
+@AMDEP_TRUE@ ./$(DEPDIR)/osiscgi.Po ./$(DEPDIR)/thmlcgi.Po
+CXXCOMPILE = $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \
+ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS)
+LTCXXCOMPILE = $(LIBTOOL) --mode=compile $(CXX) $(DEFS) \
+ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \
+ $(AM_CXXFLAGS) $(CXXFLAGS)
+CXXLD = $(CXX)
+CXXLINK = $(LIBTOOL) --mode=link $(CXXLD) $(AM_CXXFLAGS) $(CXXFLAGS) \
+ $(AM_LDFLAGS) $(LDFLAGS) -o $@
+DIST_SOURCES = $(diatheke_SOURCES)
+HEADERS = $(noinst_HEADERS)
+
+DIST_COMMON = README $(noinst_HEADERS) $(srcdir)/cgi/Makefile.am \
+ Makefile.am Makefile.in
+SOURCES = $(diatheke_SOURCES)
+
+all: all-am
+
+.SUFFIXES:
+.SUFFIXES: .cpp .lo .o .obj
+$(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ Makefile.am $(srcdir)/cgi/Makefile.am $(top_srcdir)/configure.ac $(ACLOCAL_M4)
+ cd $(top_srcdir) && \
+ $(AUTOMAKE) --foreign utilities/diatheke/Makefile
+Makefile: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.in $(top_builddir)/config.status
+ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)
+binPROGRAMS_INSTALL = $(INSTALL_PROGRAM)
+install-binPROGRAMS: $(bin_PROGRAMS)
+ @$(NORMAL_INSTALL)
+ $(mkinstalldirs) $(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) --mode=install $(binPROGRAMS_INSTALL) $$p $(DESTDIR)$(bindir)/$$f"; \
+ $(INSTALL_PROGRAM_ENV) $(LIBTOOL) --mode=install $(binPROGRAMS_INSTALL) $$p $(DESTDIR)$(bindir)/$$f || exit 1; \
+ else :; fi; \
+ 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
+
+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
+diatheke$(EXEEXT): $(diatheke_OBJECTS) $(diatheke_DEPENDENCIES)
+ @rm -f diatheke$(EXEEXT)
+ $(CXXLINK) $(diatheke_LDFLAGS) $(diatheke_OBJECTS) $(diatheke_LDADD) $(LIBS)
+
+mostlyclean-compile:
+ -rm -f *.$(OBJEXT) core *.core
+
+distclean-compile:
+ -rm -f *.tab.c
+
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/corediatheke.Po@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/diafiltmgr.Po@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/diatheke.Po@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/diathekemgr.Po@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gbfcgi.Po@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/osiscgi.Po@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/thmlcgi.Po@am__quote@
+
+distclean-depend:
+ -rm -rf ./$(DEPDIR)
+
+.cpp.o:
+@am__fastdepCXX_TRUE@ if $(CXXCOMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" \
+@am__fastdepCXX_TRUE@ -c -o $@ `test -f '$<' || echo '$(srcdir)/'`$<; \
+@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Po"; \
+@am__fastdepCXX_TRUE@ else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; \
+@am__fastdepCXX_TRUE@ fi
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@ depfile='$(DEPDIR)/$*.Po' tmpdepfile='$(DEPDIR)/$*.TPo' @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCXX_FALSE@ $(CXXCOMPILE) -c -o $@ `test -f '$<' || echo '$(srcdir)/'`$<
+
+.cpp.obj:
+@am__fastdepCXX_TRUE@ if $(CXXCOMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" \
+@am__fastdepCXX_TRUE@ -c -o $@ `if test -f '$<'; then $(CYGPATH_W) '$<'; else $(CYGPATH_W) '$(srcdir)/$<'; fi`; \
+@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Po"; \
+@am__fastdepCXX_TRUE@ else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; \
+@am__fastdepCXX_TRUE@ fi
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@ depfile='$(DEPDIR)/$*.Po' tmpdepfile='$(DEPDIR)/$*.TPo' @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCXX_FALSE@ $(CXXCOMPILE) -c -o $@ `if test -f '$<'; then $(CYGPATH_W) '$<'; else $(CYGPATH_W) '$(srcdir)/$<'; fi`
+
+.cpp.lo:
+@am__fastdepCXX_TRUE@ if $(LTCXXCOMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" \
+@am__fastdepCXX_TRUE@ -c -o $@ `test -f '$<' || echo '$(srcdir)/'`$<; \
+@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Plo"; \
+@am__fastdepCXX_TRUE@ else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; \
+@am__fastdepCXX_TRUE@ fi
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@ depfile='$(DEPDIR)/$*.Plo' tmpdepfile='$(DEPDIR)/$*.TPlo' @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@ $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCXX_FALSE@ $(LTCXXCOMPILE) -c -o $@ `test -f '$<' || echo '$(srcdir)/'`$<
+
+mostlyclean-libtool:
+ -rm -f *.lo
+
+clean-libtool:
+ -rm -rf .libs _libs
+
+distclean-libtool:
+ -rm -f libtool
+uninstall-info-am:
+
+ETAGS = etags
+ETAGSFLAGS =
+
+CTAGS = ctags
+CTAGSFLAGS =
+
+tags: TAGS
+
+ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
+ 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; } \
+ END { for (i in files) print i; }'`; \
+ mkid -fID $$unique
+
+TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
+ $(TAGS_FILES) $(LISP)
+ tags=; \
+ here=`pwd`; \
+ 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; } \
+ END { for (i in files) print i; }'`; \
+ test -z "$(ETAGS_ARGS)$$tags$$unique" \
+ || $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
+ $$tags $$unique
+
+ctags: CTAGS
+CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
+ $(TAGS_FILES) $(LISP)
+ tags=; \
+ here=`pwd`; \
+ 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; } \
+ END { for (i in files) print i; }'`; \
+ test -z "$(CTAGS_ARGS)$$tags$$unique" \
+ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
+ $$tags $$unique
+
+GTAGS:
+ here=`$(am__cd) $(top_builddir) && pwd` \
+ && cd $(top_srcdir) \
+ && gtags -i $(GTAGS_ARGS) $$here
+
+distclean-tags:
+ -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
+DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
+
+top_distdir = ../..
+distdir = $(top_distdir)/$(PACKAGE)-$(VERSION)
+
+distdir: $(DISTFILES)
+ $(mkinstalldirs) $(distdir)/$(swcgidir) $(distdir)/./cgi
+ @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \
+ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's|.|.|g'`; \
+ list='$(DISTFILES)'; for file in $$list; do \
+ case $$file in \
+ $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \
+ $(top_srcdir)/*) file=`echo "$$file" | sed "s|^$$topsrcdirstrip/|$(top_builddir)/|"`;; \
+ esac; \
+ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
+ dir=`echo "$$file" | sed -e 's,/[^/]*$$,,'`; \
+ if test "$$dir" != "$$file" && test "$$dir" != "."; then \
+ dir="/$$dir"; \
+ $(mkinstalldirs) "$(distdir)$$dir"; \
+ else \
+ dir=''; \
+ fi; \
+ if test -d $$d/$$file; then \
+ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
+ cp -pR $(srcdir)/$$file $(distdir)$$dir || exit 1; \
+ fi; \
+ cp -pR $$d/$$file $(distdir)$$dir || exit 1; \
+ else \
+ test -f $(distdir)/$$file \
+ || cp -p $$d/$$file $(distdir)/$$file \
+ || exit 1; \
+ fi; \
+ done
+check-am: all-am
+check: check-am
+all-am: Makefile $(PROGRAMS) $(HEADERS)
+
+installdirs:
+ $(mkinstalldirs) $(DESTDIR)$(bindir)
+
+install: install-am
+install-exec: install-exec-am
+install-data: install-data-am
+uninstall: uninstall-am
+
+install-am: all-am
+ @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
+
+installcheck: installcheck-am
+install-strip:
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ INSTALL_STRIP_FLAG=-s \
+ `test -z '$(STRIP)' || \
+ echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
+mostlyclean-generic:
+
+clean-generic:
+
+distclean-generic:
+ -rm -f Makefile $(CONFIG_CLEAN_FILES)
+
+maintainer-clean-generic:
+ @echo "This command is intended for maintainers to use"
+ @echo "it deletes files that may require special tools to rebuild."
+clean: clean-am
+
+clean-am: clean-binPROGRAMS clean-generic clean-libtool mostlyclean-am
+
+distclean: distclean-am
+
+distclean-am: clean-am distclean-compile distclean-depend \
+ distclean-generic distclean-libtool distclean-tags
+
+dvi: dvi-am
+
+dvi-am:
+
+info: info-am
+
+info-am:
+
+install-data-am:
+
+install-exec-am: install-binPROGRAMS
+
+install-info: install-info-am
+
+install-man:
+
+installcheck-am:
+
+maintainer-clean: maintainer-clean-am
+
+maintainer-clean-am: distclean-am maintainer-clean-generic
+
+mostlyclean: mostlyclean-am
+
+mostlyclean-am: mostlyclean-compile mostlyclean-generic \
+ mostlyclean-libtool
+
+pdf: pdf-am
+
+pdf-am:
+
+ps: ps-am
+
+ps-am:
+
+uninstall-am: uninstall-binPROGRAMS uninstall-info-am
+
+.PHONY: CTAGS GTAGS all all-am check check-am clean clean-binPROGRAMS \
+ clean-generic clean-libtool ctags distclean distclean-compile \
+ distclean-depend distclean-generic distclean-libtool \
+ distclean-tags distdir dvi dvi-am info info-am install \
+ install-am install-binPROGRAMS install-data install-data-am \
+ install-exec install-exec-am install-info install-info-am \
+ install-man install-strip installcheck installcheck-am \
+ installdirs maintainer-clean maintainer-clean-generic \
+ mostlyclean mostlyclean-compile mostlyclean-generic \
+ mostlyclean-libtool pdf pdf-am ps ps-am tags uninstall \
+ uninstall-am uninstall-binPROGRAMS uninstall-info-am
+
+# 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/README b/utilities/diatheke/README
new file mode 100644
index 0000000..5f1a793
--- /dev/null
+++ b/utilities/diatheke/README
@@ -0,0 +1,76 @@
+Diatheke Suite release 4.0
+by Chris Little <chrislit@crosswire.org>
+
+This suite is intended for use with libraries and modules from
+the SWORD Project, available at http://www.crosswire.org/
+
+The latest versions of this suite and its components are available
+at http://www.crosswire.org/sword/diatheke
+
+Version 4.0 of this suite consists of the following components:
+
+Diatheke 4.0 - a command line utility, good for lots of stuff
+Diatheke/CGI 4.0 - a PERL CGI module interface to Diatheke 4.0
+
+--------------------------------------------------------------------
+INSTALLING Diatheke/CGI
+
+To install Diatheke/CGI, first install PERL and a webserver such as
+Apache that is capable of running PERL CGIs. Installing mod_perl is
+recommended for a speed improvement, but is by no means necessary.
+
+Then copy the two .pl files from the ./cgi directory of this
+distribution into your cgi-bin directory. Modify the top of
+diatheke.pl to reflect the correct location of your your diatheke
+command line utility binary and the default font if necessary. The
+CGI is now installed and ready for access.
+
+diatheke.pl is the main lookup script. dia-def.pl is a supplemental
+script used to set a default Bible translation (saved on the
+user's computer as a cookie).
+
+Two sample HTML files are included as sample interfaces for an
+general Web-Bible gateway. index-public.html includes all currently
+available free texts while index-private.html includes all currently
+available texts, including those which are encrypted because
+of copyright and distribution restrictions. In any case, you should
+only use these as a guide, adding and subtracting modules depending
+on which modules you have installed and have permission to publish
+on the internet or your intranet. The bottom section of each file
+includes an example call to the dia-def.pl script to set a default
+Bible version.
+
+You may also direct users directly to your perl script since it will
+present a page with all of your modules. Or you may wish to use this
+default page to create a custom index.html for your users.
+
+----------------------------------------------------------------------
+VERSION HISTORY
+
+4.0 July 8, 2001.
+ Updated to Sword 1.5.2 with innumerable bug fixes.
+ Now builds properly for Win32 using VC++.
+ Diatheke/Tcl and HANDiatheke were omitted, for the moment
+ from this release, but are still available in the CVS.
+
+3.0 March 31, 2001.
+ Self-generating HTML page for the lazy (Diatheke/CGI).
+ Localization support. (Diatheke and Diatheke/CGI).
+
+2.5 Now supports ThML. Numerous bugfixes. December 10, 2000.
+ Includes Diatheke 3.0, Diatheke/CGI 3.0, Diatheke/Tcl 3.0,
+ and HANDiatheke 3.0 (initial version, but version-synced)
+
+2.0 First public release, including Diatheke 2.0, Diatheke/CGI
+ 2.0, and Diatheke/Tcl 2.5. October 23, 1999.
+
+-----------------------------------------------------------------------
+COPYRIGHT
+
+The Diatheke Suite and its components, Diatheke, Diatheke/CGI, and
+Diatheke/Tcl are Copyright 1999, 2000, 2001 by CrossWire Bible Society.
+HANDiatheke is Copyright 2000, 2001 by CrossWire Bible Society.
+The Diatheke Suite and all of its components are licensed through
+the GNU General Public License and are intended for free distribution.
+See http://www.gnu.org/copyleft/gpl.html for details.
+
diff --git a/utilities/diatheke/cgi/Makefile.am b/utilities/diatheke/cgi/Makefile.am
new file mode 100644
index 0000000..87f60cd
--- /dev/null
+++ b/utilities/diatheke/cgi/Makefile.am
@@ -0,0 +1,6 @@
+swcgidir = $(top_srcdir)/apps/console/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
diff --git a/utilities/diatheke/cgi/dia-def.pl b/utilities/diatheke/cgi/dia-def.pl
new file mode 100755
index 0000000..e2f1d4f
--- /dev/null
+++ b/utilities/diatheke/cgi/dia-def.pl
@@ -0,0 +1,41 @@
+#!/usr/bin/perl
+
+#change this variable to hostname of your server
+@values = split(/\&/,$ENV{'QUERY_STRING'});
+$DOMAIN = $ENV{'REMOTE_ADDR'};
+$EXPIRES = 'Fri Dec 31 23:59:00 GMT 2005';
+
+foreach $i (@values) {
+ ($varname, $mydata) = split(/=/,$i);
+ if ($varname eq "defversion") {
+ $COOKIE = "DEFTRANS=$mydata ; expires=$EXPIRES";
+ }
+ elsif ($varname eq "locale") {
+ $COOKIE = "LOCALE=$mydata ; expires=$EXPIRES";
+ }
+ elsif ($varname eq "settrans") {
+ $COOKIE = "SETTRANS=$mydata ; expires=$EXPIRES";
+ }
+ elsif ($varname eq "setcomm") {
+ $COOKIE = "SETCOMM=$mydata ; expires=$EXPIRES";
+ }
+ elsif ($varname eq "setld") {
+ $COOKIE = "SETLD=$mydata ; expires=$EXPIRES";
+ }
+}
+
+# Set the cookie and send the user the thank you page.
+print "Set-cookie: $COOKIE\n";
+print "Content-type: text/html\n\n"; #Note extra newline to mark
+ #end of header.
+
+print "<html><meta http-equiv=\"refresh\" content=\"0\; URL=$ENV{'HTTP_REFERER'}\"></html>";
+
+
+
+
+
+
+
+
+
diff --git a/utilities/diatheke/cgi/diatheke.pl b/utilities/diatheke/cgi/diatheke.pl
new file mode 100755
index 0000000..3b0351d
--- /dev/null
+++ b/utilities/diatheke/cgi/diatheke.pl
@@ -0,0 +1,491 @@
+#!/usr/bin/perl
+
+# Typical Linux/Unix settings
+$err = "2> /dev/null";
+$sword_path = "/home/sword"; # SWORD_PATH environment variable you want to use
+$diatheke = "nice /usr/bin/diatheke"; # location of diatheke command line program
+
+# Typical Windows settings
+#$err = "";
+#$sword_path = "C:\\Program Files\\CrossWire\\The SWORD Project"; # SWORD_PATH environment variable you want to use
+#$diatheke = "$sword_path\\diatheke.exe"; # location of diatheke command line program
+
+$cgiurl = "http:\/\/www.crosswire.org\/cgi-bin";
+
+$scriptname = "diatheke.pl";
+$defaultfontface = "Times New Roman, Times, Roman, serif"; # default font name
+$maxverses = 50; # maximum number of verses diatheke will return per query (prevents people from asking for Gen1:1-Rev22:21)
+$defaultbook = "KJV"; # book to query when none is selected, but a verse/search is entered
+$deflocale = "abbr"; # this is just the default for cases where user has not selected a locale and his browser does not reveal one -- you can also set locale using locale=<locale> in the GET URL
+
+###############################################################################
+## You should not need to edit anything below this line.
+## Unless you want to modify functionality of course. :)
+###############################################################################
+
+$version = "4.2";
+
+sub plussifyaddress {
+ ($p_ver = @_[0]) =~ tr/ /+/;
+ $p_newline = "<a href=\"$scriptname?verse=$p_ver&@_[1]=on\">";
+ return $p_newline;
+}
+
+sub urlvers {
+ $u_verse = @_[0];
+ $u_version = @_[1];
+ $u_oldverse = $u_verse;
+ $u_verse =~ tr/ /+/;
+ $u_newline = "<a href=\"$scriptname?verse=$u_verse&$u_version=on\">$u_oldverse</a>";
+ return $u_newline;
+}
+
+$ENV{'SWORD_PATH'} = $sword_path;
+
+print "Content-type: text/html\n\n";
+
+
+if ($ENV{'HTTP_COOKIE'}) {
+
+ $cookie = $ENV{'HTTP_COOKIE'};
+ $cookie =~ s/\; /=/g;
+ %cookiedata = split(/=/, $cookie);
+
+ $defversion = $cookiedata{DEFTRANS};
+ $locale = $cookiedata{LOCALE};
+}
+
+if ($defversion eq "") {
+ $defversion = 'KJV';
+}
+if ($locale eq "") {
+ $locale = $ENV{'HTTP_ACCEPT_LANGUAGE'};
+ $locale =~ s/(..).*/$1/;
+ if ($locale eq "") {
+ $locale = $deflocale;
+ }
+ elsif ($locale eq "en") {
+ $locale = "abbr";
+ }
+}
+
+$hostname = $ENV{'REMOTE_ADDR'};
+@values = split(/\&/,$ENV{'QUERY_STRING'});
+$n = 0;
+$palm = 0;
+
+$latinxlit = "";
+
+$optionfilters = "";
+$debug=1;
+foreach $i (@values) {
+ ($varname, $mydata) = split(/=/,$i);
+ if ($varname ne "Submit" && $varname ne "lookup") {
+ if ($varname eq "verse") {
+ $verse = $mydata;
+ $verse =~ tr/+/ /;
+ $verse =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
+ }
+ elsif ($varname eq "search" && $mydata ne "" && $mydata ne "off") {
+ $search = "-s $mydata";
+ }
+ elsif ($varname eq "range" && $mydata ne "" && $mydata ne "off") {
+ $range = $mydata;
+ $range =~ tr/+/ /;
+ $range =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
+ $range = "-r \"$range\"";
+ }
+
+ elsif ($varname eq "strongs") {
+ $optionfilters .= "n";
+ }
+ elsif ($varname eq "footnotes") {
+ $optionfilters .= "f";
+ }
+ elsif ($varname eq "headings") {
+ $optionfilters .= "h";
+ }
+ elsif ($varname eq "morph") {
+ $optionfilters .= "m";
+ }
+ elsif ($varname eq "hebcant") {
+ $optionfilters .= "c";
+ }
+ elsif ($varname eq "hebvowels") {
+ $optionfilters .= "v";
+ }
+ elsif ($varname eq "grkacc") {
+ $optionfilters .= "a";
+ }
+ elsif ($varname eq "lemmas") {
+ $optionfilters .= "l";
+ }
+ elsif ($varname eq "scriprefs") {
+ $optionfilters .= "s";
+ }
+ elsif ($varname eq "arshape") {
+ $optionfilters .= "r";
+ }
+ elsif ($varname eq "bidi") {
+ $optionfilters .= "b";
+ }
+
+ elsif ($varname eq "latinxlit") {
+ $latinxlit = "-t Latin";
+ }
+
+ elsif ($varname eq "palm") {
+ $palm = 1;
+ }
+ elsif ($varname eq "debug") {
+ $debug = 1;
+ }
+ elsif ($varname eq "locale") {
+ $locale = $mydata;
+ }
+ elsif ($varname eq "maxverses") {
+ $maxverses = $mydata;
+ }
+ elsif ($mydata eq "on" || $mydata eq "ON") {
+ $versions[$n] = $varname;
+ $n++;
+ }
+ }
+}
+if ($optionfilters ne "") {
+ $optionfilters = "-o " . $optionfilters;
+}
+
+
+
+if ($n == 0) {
+ $versions[0] = $defaultbook;
+ $n++;
+}
+
+if ($verse eq "") {
+
+ @versionlist = `$diatheke -b system -k modulelist $err`;
+ @versionlist2 = @versionlist;
+ @localelist = `$diatheke -b system -k localelist $err`;
+
+ print <<DEF1;
+<html>
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
+<title>Diatheke Online Bible</title>
+</head>
+
+<body>
+
+<form method="get" action="$scriptname">
+ <p /><input type="radio" name="search" checked value="" /><font face="Arial, Helvetica, sans-serif">Verse/Commentary Lookup&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+ 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 />
+ <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</font><br />
+<br />
+ <table width="100%" border="0">
+ <tr>
+ <td colspan="2" width="100%">
+
+ <table>
+ <tr>
+ <td>
+ <font size="-1" face="Arial, Helvetica, sans-serif">Custom Range Restriction</font>
+ </td>
+ <td>
+ <input type="text" name="range" size="20">
+ </td>
+ </tr>
+ </table>
+
+ </td>
+ </tr>
+
+ <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%">
+DEF1
+
+ foreach $line (@versionlist) {
+ chomp($line);
+
+ if ($line eq "Biblical Texts:") {
+ print "<tr><td><font face=$defaultfontface><b>Biblical Texts:</b></font><br /></td></tr>";
+ }
+ elsif ($line eq "Commentaries:") {
+ print "<tr><td><font face=$defaultfontface><b>Commentaries:</b></font></td></tr>";
+ }
+ elsif ($line eq "Dictionaries:") {
+ print "<tr><td><font face=$defaultfontface><b>Dictionaries & Lexica:</b></font></td></tr>";
+ }
+ else {
+ $line =~ s/([^:]+) : (.+)/<tr><td><input type=\"checkbox\" name=\"$1\" value=\"on\"><font size=\"-1\" face=$defaultfontface>$2 ($1)<\/font><\/td><\/tr>/;
+ print "$line\n";
+ }
+
+ }
+
+ print <<DEF2;
+ </table>
+</form>
+
+<form method="get" action="dia-def.pl">
+ Select default Bible version for cross-references:&nbsp;<select name="defversion" size="1">
+
+DEF2
+
+ $biblesflag = 1;
+ foreach $line (@versionlist2) {
+ if ($biblesflag == 1) {
+ chomp ($line);
+ if ($line eq "Biblical Texts:") {
+ }
+ elsif ($line eq "Commentaries:") {
+ $biblesflag = 0;
+ }
+ else {
+ $line =~ s/([^:]+) : (.+)/<option value=\"$1\">$2 ($1)<\/option>/;
+ print "$line\n";
+ }
+ }
+ }
+
+ print <<DEF3;
+</select><input type="submit" name="Submit" value="Submit"></form><br/><form method="get" action="dia-def.pl">Select locale:&nbsp;
+<select name="locale" size="1"><option value="">browser default</option>
+<option value="en">en</option>
+DEF3
+ foreach $line (@localelist) {
+ chomp($line);
+ print "<option value=\"$line\">$line<\/option>";
+ }
+print <<DEF4
+</select>
+<input type="submit" name="Submit" value="Submit">
+</form>
+</body>
+</html>
+DEF4
+
+}
+else {
+
+
+
+if ($palm == 0) {
+print <<END;
+
+<html><head>
+<title>Diatheke Interlinear Bible</title>
+<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
+<meta name="palmcomputingplatform" content="true">
+<meta name="historylisttext" content="Diatheke">
+<style type="text/css">
+#divBottom{position:absolute; visibility:hidden; font-family:arial,helvetica; height:30; width:100; font-size:10pt; font-weight:bold}
+A:link, A:visited, A:active{text-decoration: none}
+</style>
+<script type="text/javascript" language="JavaScript">
+/********************************************************************************
+Copyright (C) 1999 Thomas Brattli
+This script is made by and copyrighted to Thomas Brattli at www.bratta.com
+Visit for more great scripts. This may be used freely as long as this msg is intact!
+I will also appriciate any links you could give me.
+********************************************************************************/
+//Default browsercheck, added to all scripts!
+function checkBrowser(){
+ this.ver=navigator.appVersion;
+ this.dom=document.getElementById?1:0;
+ this.ie5=( (this.ver.indexOf("MSIE 6")>-1 || this.ver.indexOf("MSIE 5")>-1) && this.dom)?1:0;
+ this.ie4=(document.all && !this.dom)?1:0;
+ this.ns5=(this.dom && parseInt(this.ver) >= 5) ?1:0;
+ this.ns4=(document.layers && !this.dom)?1:0;
+ this.bw=(this.ie5 || this.ie4 || this.ns4 || this.ns5);
+ return this;
+}
+bw=new checkBrowser()
+/********************************************************************************
+Remeber to set the look of the divBottom layer in the stylesheet (if you wan't
+another font or something)
+********************************************************************************/
+/*Set these values, gright for how much from the right you wan't the layer to go
+and gbottom for how much from the bottom you want it*/
+var gright=160
+var gbottom=80
+
+
+
+/********************************************************************************
+Constructing the ChangeText object
+********************************************************************************/
+function makeObj(obj,nest){
+ nest=(!nest) ? '':'document.'+nest+'.';
+ this.css=bw.dom? document.getElementById(obj).style:bw.ie4?document.all[obj].style:bw.ns4?eval(nest+"document.layers." +obj):0;
+ this.moveIt=b_moveIt;
+}
+function b_moveIt(x,y){this.x=x; this.y=y; this.css.left=this.x; this.css.top=this.y}
+
+/********************************************************************************
+Initilizing the page, getting height and width to moveto and calls the
+object constructor
+********************************************************************************/
+ function geoInit(){
+ oGeo=new makeObj('divBottom');
+ pageWidth=(bw.ie4 || bw.ie5)?document.body.offsetWidth-4:innerWidth;
+ pageHeight=(bw.ie4 || bw.ie5)?document.body.offsetHeight-2:innerHeight;
+ checkIt();
+ // sets the resize handler.
+ onresize=resized;
+ if(bw.ie4 || bw.ie5) window.onscroll=checkIt;
+ // shows the div
+ oGeo.css.visibility='visible';
+ }
+/********************************************************************************
+This function executes onscroll in ie and every 30 millisecond in ns
+and checks if the user have scrolled, and if it has it moves the layer.
+********************************************************************************/
+function checkIt(){
+ if(bw.ie4 || bw.ie5) oGeo.moveIt(document.body.scrollLeft +pageWidth-gright,document.body.scrollTop+pageHeight-gbottom);
+ else if(bw.ns4){
+ oGeo.moveIt(window.pageXOffset+pageWidth-gright, window.pageYOffset+pageHeight-gbottom);
+ setTimeout('checkIt()',30);
+ }
+}
+
+//Adds a onresize event handler to handle the resizing of the window.
+function resized(){
+ pageWidth=(bw.ie4 || bw.ie5)?document.body.offsetWidth-4:innerWidth;
+ pageHeight=(bw.ie4 || bw.ie5)?document.body.offsetHeight-2:innerHeight;
+ if(bw.ie4 || bw.ie5) checkIt()
+}
+
+
+//Calls the geoInit onload
+if(bw.bw && !bw.ns5) onload=geoInit;
+
+//Here we will write the div out so that lower browser won't see it.'
+if(bw.bw && !bw.ns5) document.write('<div id="divBottom"><table><tr><td align="center">Powered by<br /><img src="http://www.crosswire.org/sword/pbsword.gif"><br /><a href="http://www.crosswire.org/">www.crosswire.org</td></tr></table></div>')
+</script>
+
+</head>
+
+<body bgcolor="#FFFFFF"><font face="$defaultfontface">
+
+END
+}
+else {
+print <<END
+
+<html><head>
+<title>HANDiatheke</title>
+<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
+<meta name="palmcomputingplatform" content="true">
+<meta name="historylisttext" content="HANDiatheke">
+</head>
+<body bgcolor="#FFFFFF"><font face="$defaultfontface">
+END
+}
+for ($i = 0; $i < $n; $i++) {
+
+ $line = "$diatheke $search $range $optionfilters $latinxlit -l $locale -m $maxverses -f cgi -b $versions[$i] -k \"$verse\" $err";
+
+ if ($debug) {
+ print "<br /><i>command line: $line\n</i><br /><br />";
+ }
+ $line = `$line`;
+
+ chomp($line);
+
+ $line =~ s/!DIATHEKE_URL!/$scriptname\?/g;
+
+# Parse and link to Strong's references if present
+
+ $info = `$diatheke -b info -k $versions[$i] $err`;
+ $info =~ /([^\;]+)\;([^\;]+)/;
+ $format = $1;
+ $type = $2;
+
+ if ($versions[$i] eq "StrongsHebrew") {
+ $line =~ s/(see HEBREW for )([0-9]+)/<a href=\"$scriptname?verse=$2&StrongsHebrew=on\">$1$2\<\/a\>/g;
+ }
+ elsif($versions[$i] eq "StrongsGreek") {
+ $line =~ s/(see GREEK for )([0-9]+)/<a href=\"$scriptname?verse=$2&StrongsGreek=on\">$1$2\<\/a\>/g;
+ }
+ #case for searches
+ elsif($search ne "") {
+ $line =~ s/<entry>([^<]+)<\/entry>/urlvers($1, $versions[$i])/eg;
+ }
+ #case for non-ThML, non-Bible texts
+ elsif($type ne "Biblical Texts") {
+ $book = $verse;
+ $book =~ s/^([A-Za-z0-9]+) [0-9]+:[0-9]+.*/$1/;
+ $chapter = $verse;
+ $chapter =~ s/[A-Za-z0-9]+ ([0-9]+):[0-9]+.*/$1/;
+ $line =~ s/\#*([1-9]*[A-Z][a-z]+\.*) ([0-9]+):([0-9]+-*,*[0-9]*)\|*/<a href=\"$scriptname?verse=$1+$2%3A$3&$defversion=on\">$1 $2:$3\<\/a\>/g;
+ $line =~ s/\#([0-9]+):([0-9]+-*,*[0-9]*)\|*/<a href=\"$scriptname?verse=$book+$1%3A$2&$defversion=on\">$book $1:$2\<\/a\>/g;
+ $line =~ s/\#([0-9]+-*,*[0-9]*)\|*/<a href=\"$scriptname?verse=$book+$chapter%3A$1&$defversion=on\">$book $chapter:$1\<\/a\>/g;
+ }
+
+ if ($locale ne "abbr") {
+ $line =~ s/href=\"$scriptname([^\"]+)\"/href=\"$scriptname$1&locale=$locale\"/g;
+ }
+ if ($palm == 1) {
+ $line =~ s/href=\"$scriptname([^\"]+)\"/href=\"$cgiurl\/$scriptname$1&palm=on\"/g;
+ }
+
+ print "$line <br /><br />\n";
+}
+
+if ($palm == 1) {
+ print "<hr>Powered by Diatheke (http:\/\/www.gotjesus.org\/sword\/diatheke) and the SWORD Project (http:\/\/www.crosswire.org\/sword).";
+}
+
+print "<br /><br /><br /><br /></font></body></html>";
+
+}
+
+
diff --git a/utilities/diatheke/cgi/index-private.html b/utilities/diatheke/cgi/index-private.html
new file mode 100644
index 0000000..6afbc91
--- /dev/null
+++ b/utilities/diatheke/cgi/index-private.html
@@ -0,0 +1,1264 @@
+<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-public.html
new file mode 100644
index 0000000..8406364
--- /dev/null
+++ b/utilities/diatheke/cgi/index-public.html
@@ -0,0 +1,883 @@
+<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</font>
+ <br>
+ <p />&nbsp;
+ <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="48%"><font face=Times New Roman, Times, serif><b>English Biblical
+ Texts:</b></font><br />
+ </td>
+ <td width="51%"><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="51%">
+ <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="ASV" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>1901 American Standard
+ Version (ASV)</font> </td>
+ <td width="51%">
+ <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="BBE" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>1965 Bible in Basic
+ English (BBE)</font> </td>
+ <td width="51%">
+ <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="Common" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>The Common Edition:
+ New Testament (Common)</font> </td>
+ <td width="51%">
+ <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="DR" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Douay-Rheims Bible
+ (DR)</font> </td>
+ <td width="51%">
+ <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="DRA" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Douay-Rheims 1899 American
+ Edition (DRA)</font> </td>
+ <td width="51%">
+ <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="Darby" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>1889 Darby Bible (Darby)</font>
+ </td>
+ <td width="51%">
+ <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="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="51%">
+ <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="IGNT" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Interlinear Greek New
+ Testament (IGNT)</font> </td>
+ <td width="51%">
+ <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="ISV" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>International Standard
+ Version (ISV)</font> </td>
+ <td width="51%">
+ <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="JPS" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Jewish Publication
+ Society Old Testament (JPS)</font> </td>
+ <td width="51%">
+ <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="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="51%">
+ <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="LO" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>The Living Oracles
+ NT (LO)</font> </td>
+ <td width="51%">
+ <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="Montgomery" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Montgomery New Testament
+ (Montgomery)</font></td>
+ <td width="51%">
+ <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="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="51%">
+ <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="ORTHJBC" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>The Orthodox Jewish
+ Brit Chadasha (ORTHJBC)</font> </td>
+ <td width="51%">
+ <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="RNKJV" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Restored Name King
+ James Version (RNKJV)</font> </td>
+ <td width="51%">
+ <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="RWebster" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Revised 1833 Webster
+ Version (RWebster)</font></td>
+ <td width="51%">
+ <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="Rotherham" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>The Emphasized Bible
+ by J. B. Rotherham (Rotherham)</font> </td>
+ <td width="51%">
+ <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="WEB" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>World English Bible
+ (WEB)</font></td>
+ <td width="51%">
+ <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="Websters" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Webster Bible (Websters)</font>
+ </td>
+ <td width="51%">
+ <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="Weymouth" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>1912 Weymouth NT (Weymouth)</font>
+ </td>
+ <td width="51%">
+ <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="YLT" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>1898 Young's Literal
+ Translation (YLT)</font> </td>
+ <td width="51%">
+ <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%">&nbsp; </td>
+ <td width="51%">
+ <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%"><font face=Times New Roman, Times, serif><b>Unorthodox or
+ Heretical Biblical Texts:</b></font> </td>
+ <td width="51%">
+ <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="Diaglott" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>The Emphatic Diaglott
+ (Diaglott)</font> </td>
+ <td width="51%">
+ <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="JST" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Joseph Smith Translation
+ (JST)</font></td>
+ <td width="51%">
+ <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="51%">
+ <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>Original Language
+ Biblical Texts:</b></font> </td>
+ <td width="51%">
+ <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="51%">
+ <input type="checkbox" name="LXX" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Septuagint (LXX)</font></td>
+ <td width="51%">
+ <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="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="51%">
+ <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="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="51%">
+ <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="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="51%">
+ <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%">
+ <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="51%">
+ <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="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="51%">
+ <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="Tisch" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Tischendorf's Eighth
+ Edition GNT (Tisch)</font> </td>
+ <td width="51%">
+ <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="51%">
+ <input type="checkbox" name="Vulgate" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Latin Vulgate (Vulgate)</font></td>
+ <td width="51%">
+ <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="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="51%">
+ <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="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="51%">
+ <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="WHNU" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Westcott-Hort with
+ NA27U4 variants (WHNU)</font> </td>
+ <td width="51%">
+ <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%">&nbsp;</td>
+ <td width="51%">
+ <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%"><font face=Times New Roman, Times, serif><b>Commentaries:</b></font></td>
+ <td width="51%">
+ <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="Barnes" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Barnes' New Testament
+ Notes (Barnes)</font></td>
+ <td width="51%">
+ <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="Clarke" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Adam Clarke's Commentary
+ on the Bible (Clarke)</font></td>
+ <td width="51%">
+ <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="DTN" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Darby Translation Notes
+ (DTN)</font></td>
+ <td width="51%">
+ <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="Family" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Family Bible Notes
+ (Family)</font></td>
+ <td width="51%">
+ <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="Geneva" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Geneva Bible Translation
+ Notes (Geneva)</font></td>
+ <td width="51%">
+ <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="JFB" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Jamieson Fausset Brown
+ Bible Commentary (JFB)</font></td>
+ <td width="51%">
+ <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="MAK" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Matthias Ansorgs Kommentar
+ (MAK)</font></td>
+ <td width="51%">
+ <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="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="51%">
+ <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="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="51%">
+ <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%">
+ <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="51%">&nbsp;</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="51%"><font face=Times New Roman, Times, serif><b>Daily Devotionals:</b></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="51%">
+ <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="Rieger" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Carl Heinrich Riegers
+ Kommentar (Rieger)</font></td>
+ <td width="51%">
+ <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="TDavid" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>C. H. Spurgeon's Treasury
+ of David (TDavid)</font></td>
+ <td width="48%">
+ <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="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="48%">
+ <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="TSK" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Treasury of Scriptural
+ Knowledge (TSK)</font></td>
+ <td width="48%">
+ <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="Wesley" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>John Wesley's Notes
+ on the Bible (Wesley)</font></td>
+ <td width="48%">
+ <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%">&nbsp;</td>
+ <td width="48%">
+ <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%"><font face=Times New Roman, Times, serif><b>Dictionaries
+ & Lexica:</b></font></td>
+ <td width="48%">
+ <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="AmTract" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>American Tract Society
+ Bible Dictionary (AmTract)</font></td>
+ <td width="48%">
+ <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="BDB" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Brown-Driver-Briggs
+ Hebrew Lexicon (BDB)</font></td>
+ <td width="48%">
+ <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="Eastons" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Easton's Bible Dictionary
+ (Eastons)</font></td>
+ <td width="48%">
+ <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="Hitchcocks" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Hitchcock's Bible Names
+ (Hitchcocks)</font></td>
+ <td width="48%">
+ <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%">
+ <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="48%">
+ <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="Naves" value="on">
+ <font size="-1" face=Times New Roman, Times, serif>Nave's Topical Bible
+ (Naves)</font></td>
+ <td width="48%">
+ <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%">
+ <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="48%" 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%">
+ <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="48%">
+ <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%">
+ <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="48%">
+ <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%">
+ <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="48%">
+ <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%">
+ <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="48%">
+ <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>
+ <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="51%">&nbsp;</td>
+ </tr>
+ <tr>
+ <td width="48%" height="23">
+ <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="51%">&nbsp;</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="ASV">1901 American Standard Version (ASV)</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="Byz">1991 Byzantine/Majority Text (Byz)</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="Esperanto">Esperanto Bible (Esperanto)</option>
+<option value="FinPR">Finnish 1938 PhyZ Raamattu (FinPR)</option>
+<option value="FreCrl">French Haitian Creole Version (FreCrl)</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="GerLut">German 1912 Luther (GerLut)</option>
+<option value="GerLut1545">German 1545 Luther (GerLut1545)</option>
+<option value="GerSch">German 1951 Schlachter Bibel (GerSch)</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="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="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="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="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="Norsk">Norsk Bibelen (Norsk)</option>
+<option value="ORTHJBC">The Orthodox Jewish Brit Chadasha (ORTHJBC)</option>
+<option value="PorAA">Portuguese Joao Ferreira de Almeida Atualizada (PorAA)</option>
+<option value="RNKJV">Restored Name King James Version (RNKJV)</option>
+<option value="RST">Russian Synodal Translation (RST)</option>
+<option value="RWebster">Revised 1833 Webster Version (RWebster)</option>
+<option value="RomCor">Romanian Cornilescu Version (RomCor)</option>
+<option value="Rotherham">The Emphasized Bible by J. B. Rotherham (Rotherham)</option>
+<option value="ScotsGaelic">Scots Gaelic Gospel of Mark (ScotsGaelic)</option>
+<option value="Scrivner">1894 Scrivener Textus Receptus (Scrivner)</option>
+<option value="SpaRV">Spanish Reina-Valera (SpaRV)</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="Tagalog">Tagalog (John & James) (Tagalog)</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="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>
+<font face="Arial, Helvetica, sans-serif">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>.)</font>
+</body>
+</html>
diff --git a/utilities/diatheke/corediatheke.cpp b/utilities/diatheke/corediatheke.cpp
new file mode 100644
index 0000000..b27b670
--- /dev/null
+++ b/utilities/diatheke/corediatheke.cpp
@@ -0,0 +1,449 @@
+// Diatheke 4.2 by Chris Little <chrislit@crosswire.org>
+// Copyright 1999-2002 by CrossWire Bible Society
+// http://www.crosswire.org/sword/diatheke
+// Licensed under GNU General Public License (GPL)
+// see accompanying LICENSE file for license details
+
+#include "corediatheke.h"
+#include <regex.h>
+#include <iostream>
+#include <list>
+
+using std::list;
+using std::cout;
+using std::endl;
+using std::ostream;
+
+void systemquery(const char * key, ostream* output){
+ DiathekeMgr manager;
+ ModMap::iterator it;
+
+ SWModule *target;
+
+ bool types = false, descriptions = false, names = false;
+
+ if (!stricmp(key, "localelist")) {
+ LocaleMgr *lm = &LocaleMgr::systemLocaleMgr;
+ list<SWBuf> loclist = lm->getAvailableLocales();
+ list<SWBuf>::iterator li = loclist.begin();
+ for (;li != loclist.end(); li++) {
+ *output << li->c_str() << endl;
+ }
+ }
+ else if (!stricmp(key, "modulelist")) {
+ types = true;
+ descriptions = true;
+ names = true;
+ }
+ else if (!stricmp(key, "modulelistnames")) {
+ names = true;
+ }
+ else if (!stricmp(key, "modulelistdescriptions")) {
+ descriptions = true;
+ }
+
+
+ if (types || descriptions || names) {
+ if (types) *output << "Biblical Texts:\n";
+ for (it = manager.Modules.begin(); it != manager.Modules.end(); it++) {
+ target = it->second;
+ if (!strcmp(target->Type(), "Biblical Texts")) {
+ if (names) *output << target->Name();
+ if (names && descriptions) *output << " : ";
+ if (descriptions) *output << target->Description();
+ *output << endl;
+ }
+ }
+ if (types) *output << "Commentaries:\n";
+ for (it = manager.Modules.begin(); it != manager.Modules.end(); it++) {
+ target = it->second;
+ if (!strcmp(target->Type(), "Commentaries")) {
+ if (names) *output << target->Name();
+ if (names && descriptions) *output << " : ";
+ if (descriptions) *output << target->Description();
+ *output << endl;
+ }
+ }
+ if (types) *output << "Dictionaries:\n";
+ for (it = manager.Modules.begin(); it != manager.Modules.end(); it++) {
+ target = it->second;
+ if (!strcmp(target->Type(), "Lexicons / Dictionaries")) {
+ if (names) *output << target->Name();
+ if (names && descriptions) *output << " : ";
+ if (descriptions) *output << target->Description();
+ *output << endl;
+ }
+ }
+ }
+}
+
+void doquery(unsigned long maxverses = -1, unsigned char outputformat = FMT_PLAIN, unsigned char outputencoding = ENC_UTF8, unsigned long optionfilters = 0, unsigned char searchtype = ST_NONE, const char *range = 0, const char *text = 0, const char *locale = 0, const char *ref = 0, ostream* output = &cout, const char *script = 0, signed short variants = 0) {
+ static DiathekeMgr manager;
+
+ ModMap::iterator it;
+ ListKey listkey;
+ SectionMap::iterator sit;
+ ConfigEntMap::iterator eit;
+
+ SWModule * target;
+ char *font = 0;
+ char inputformat = 0;
+ SWBuf encoding;
+ char querytype = 0;
+
+ if (locale) {
+ LocaleMgr::systemLocaleMgr.setDefaultLocaleName(locale);
+ }
+ VerseKey vk;
+
+ //deal with queries to "system"
+ if (!stricmp(text, "system")) {
+ querytype = QT_SYSTEM;
+ systemquery(ref, output);
+ }
+ if (!strnicmp(text, "info", 4)) {
+ querytype = QT_INFO;
+ text = ref;
+ }
+ //otherwise, we have a real book
+ it = manager.Modules.find(text);
+ if (it == manager.Modules.end()) { //book not found
+ return;
+ }
+ target = (*it).second;
+
+ manager.Markup(outputformat);
+ manager.Encoding(outputencoding);
+ manager.bidi = ((OP_BIDI & optionfilters) == OP_BIDI);
+ manager.shape = ((OP_ARSHAPE & optionfilters) == OP_ARSHAPE);
+
+ if ((sit = manager.config->Sections.find((*it).second->Name())) != manager.config->Sections.end()) {
+ if ((eit = (*sit).second.find("SourceType")) != (*sit).second.end()) {
+ if (!stricmp((char *)(*eit).second.c_str(), "GBF"))
+ inputformat = FMT_GBF;
+ else if (!stricmp((char *)(*eit).second.c_str(), "ThML"))
+ inputformat = FMT_THML;
+ else if (!stricmp((char *)(*eit).second.c_str(), "OSIS"))
+ inputformat = FMT_OSIS;
+ }
+ encoding = ((eit = (*sit).second.find("Encoding")) != (*sit).second.end()) ? (*eit).second : (SWBuf)"";
+ }
+
+
+ if (querytype == QT_INFO) {
+ switch (inputformat) {
+ case FMT_THML :
+ *output << "ThML";
+ break;
+ case FMT_GBF :
+ *output << "GBF";
+ break;
+ case FMT_OSIS :
+ *output << "OSIS";
+ break;
+ default:
+ *output << "Other";
+ }
+ *output << ";";
+ *output << target->Type();
+ *output << ";";
+ return;
+ }
+
+ if (searchtype)
+ querytype = QT_SEARCH;
+ else if (!strcmp(target->Type(), "Biblical Texts"))
+ querytype = QT_BIBLE;
+ else if (!strcmp(target->Type(), "Commentaries"))
+ querytype = QT_COMM;
+ else if (!strcmp(target->Type(), "Lexicons / Dictionaries"))
+ querytype = QT_LD;
+
+ if (optionfilters & OP_FOOTNOTES)
+ manager.setGlobalOption("Footnotes","On");
+ else
+ manager.setGlobalOption("Footnotes","Off");
+ if (optionfilters & OP_HEADINGS)
+ manager.setGlobalOption("Headings","On");
+ else
+ manager.setGlobalOption("Headings","Off");
+ if (optionfilters & OP_STRONGS)
+ manager.setGlobalOption("Strong's Numbers","On");
+ else
+ manager.setGlobalOption("Strong's Numbers","Off");
+ if (optionfilters & OP_MORPH)
+ manager.setGlobalOption("Morphological Tags","On");
+ else
+ manager.setGlobalOption("Morphological Tags","Off");
+ if (optionfilters & OP_CANTILLATION)
+ manager.setGlobalOption("Hebrew Cantillation","On");
+ else
+ manager.setGlobalOption("Hebrew Cantillation","Off");
+ if (optionfilters & OP_HEBREWPOINTS)
+ manager.setGlobalOption("Hebrew Vowel Points","On");
+ else
+ manager.setGlobalOption("Hebrew Vowel Points","Off");
+ if (optionfilters & OP_GREEKACCENTS)
+ manager.setGlobalOption("Greek Accents","On");
+ else
+ manager.setGlobalOption("Greek Accents","Off");
+ if (optionfilters & OP_LEMMAS)
+ manager.setGlobalOption("Lemmas","On");
+ else
+ manager.setGlobalOption("Lemmas","Off");
+ if (optionfilters & OP_SCRIPREF)
+ manager.setGlobalOption("Cross-references","On");
+ else
+ manager.setGlobalOption("Cross-references","Off");
+ if (optionfilters & OP_RED)
+ manager.setGlobalOption("Words of Christ in Red","On");
+ else
+ manager.setGlobalOption("Words of Christ in Red","Off");
+ if (optionfilters & OP_VARIANTS && variants) {
+ if (variants == -1)
+ manager.setGlobalOption("Variants", "All Readings");
+ else if (variants == 1)
+ manager.setGlobalOption("Variants", "Secondary Readings");
+ }
+ else
+ manager.setGlobalOption("Transliteration", "Primary Readings");
+
+#ifdef _ICU_
+ if (optionfilters & OP_TRANSLITERATOR && script)
+ manager.setGlobalOption("Transliteration", script);
+ else
+ manager.setGlobalOption("Transliteration", "Off");
+#endif
+
+ if (querytype == QT_SEARCH) {
+
+ //this test is just to determine if we've got SWKeys or VerseKeys
+ if (!strcmp(target->Type(), "Biblical Texts"))
+ querytype = QT_BIBLE;
+ else if (!strcmp(target->Type(), "Commentaries"))
+ querytype = QT_BIBLE;
+ else if (!strcmp(target->Type(), "Lexicons / Dictionaries"))
+ querytype = QT_LD;
+
+ //do search stuff
+ char st = 1 - searchtype;
+ if (querytype == QT_BIBLE) {
+ *output << "Verses containing \"";
+ }
+ else *output << "Entries containing \"";
+ *output << ref;
+ *output << "\"-- ";
+
+ if (range) {
+ VerseKey parser;
+ ListKey scope = parser.ParseVerseList(range, parser, true);
+ listkey = target->Search(ref, st, REG_ICASE, &scope);
+ }
+ else listkey = target->Search(ref, st, REG_ICASE);
+
+ if (strlen((const char*)listkey)) {
+ if (!listkey.Error()) {
+ if (outputformat == FMT_CGI) *output << "<entry>";
+ if (querytype == QT_BIBLE) {
+ vk = listkey;
+ *output << (const char *)vk;
+ }
+ else *output << (const char *)listkey;
+ if (outputformat == FMT_CGI) *output << "</entry>";
+ }
+ listkey++;
+ while (!listkey.Error()) {
+ *output << " ; ";
+ if (outputformat == FMT_CGI) *output << "<entry>";
+ if (querytype == QT_BIBLE) {
+ vk = listkey;
+ *output << (const char *)vk;
+ }
+ else *output << (const char *)listkey;
+ if (outputformat == FMT_CGI) *output << "</entry>";
+ listkey++;
+ }
+ *output << " -- ";
+
+ char *temp = new char[10];
+ sprintf(temp, "%u", listkey.Count());
+ *output << temp;
+ delete [] temp;
+
+ *output << " matches total (";
+ *output << target->Name();
+ *output << ")\n";
+ }
+ else {
+ *output << "none (";
+ *output << target->Name();
+ *output << ")\n";
+ }
+ }
+
+ else if (querytype == QT_LD) {
+ //do dictionary stuff
+
+ target->setKey(ref);
+
+ const char * text = (const char *) *target;
+
+ if (outputformat == FMT_RTF) {
+ *output << "{\\rtf1\\ansi{\\fonttbl{\\f0\\froman\\fcharset0\\fprq2 Times New Roman;}{\\f1\\fdecor\\fprq2 ";
+ if (font)
+ *output << font;
+ else
+ *output << "Times New Roman";
+ *output << ";}}";
+ }
+ else if (outputformat == FMT_HTML) {
+ *output << "<meta http-equiv=\"content-type\" content=\"text/html; charset=UTF-8\">";
+ }
+
+ if (strlen(text)) {
+ *output << (char*)target->KeyText();
+ if (font && (outputformat == FMT_HTML || outputformat == FMT_THML || outputformat == FMT_CGI)) {
+ *output << ": <font face=\"";
+ *output << font;
+ *output << "\">";
+ }
+ else if (outputformat == FMT_RTF) {
+ *output << ": {\\f1 ";
+ }
+ else {
+ *output << ": ";
+ }
+ *output << text;
+ if (font && (outputformat == FMT_HTML || outputformat == FMT_THML || outputformat == FMT_CGI)) {
+ *output << "</font>";
+ }
+ else if (outputformat == FMT_RTF) {
+ *output << "}";
+ }
+
+ *output << "(";
+ *output << target->Name();
+ *output << ")\n";
+ }
+
+ if (outputformat == FMT_RTF) {
+ *output << "}";
+ }
+
+ }
+
+ else if (querytype == QT_BIBLE || querytype == QT_COMM) {
+ //do commentary/Bible stuff
+
+ if ((sit = manager.config->Sections.find((*it).second->Name())) != manager.config->Sections.end()) {
+ if ((eit = (*sit).second.find("Font")) != (*sit).second.end()) {
+ font = (char *)(*eit).second.c_str();
+ if (strlen(font) == 0) font = 0;
+ }
+ }
+
+ listkey = vk.ParseVerseList(ref, "Gen1:1", true);
+ int i;
+
+ if (outputformat == FMT_RTF) {
+ *output << "{\\rtf1\\ansi{\\fonttbl{\\f0\\froman\\fcharset0\\fprq2 Times New Roman;}{\\f1\\fdecor\\fprq2 ";
+ if (font)
+ *output << font;
+ else
+ *output << "Times New Roman";
+ *output << ";}{\\f7\\froman\\fcharset2\\fprq2 Symbol;}}";
+ }
+ else if (outputformat == FMT_HTML) {
+ *output << "<meta http-equiv=\"content-type\" content=\"text/html; charset=UTF-8\">";
+ }
+
+ for (i = 0; i < listkey.Count() && maxverses; i++) {
+ VerseKey *element = SWDYNAMIC_CAST(VerseKey, listkey.GetElement(i));
+ if (element) {
+ target->Key(element->LowerBound());
+ vk = element->UpperBound();
+ while (maxverses && target->Key() <= vk) {
+ *output << (char*)target->KeyText();
+ if (font && (outputformat == FMT_HTML || outputformat == FMT_THML || outputformat == FMT_CGI)) {
+ *output << ": <font face=\"";
+ *output << font;
+ *output << "\">";
+ }
+ else if (outputformat == FMT_RTF) {
+ *output << ": {\\f1 ";
+ }
+ else {
+ *output << ": ";
+ }
+ *output << (const char*)*target;
+ if (font && (outputformat == FMT_HTML || outputformat == FMT_THML || outputformat == FMT_CGI)) {
+ *output << "</font>";
+ }
+ else if (outputformat == FMT_RTF) {
+ *output << "}";
+ }
+
+ if (inputformat != FMT_THML && (outputformat == FMT_HTML || outputformat == FMT_THML || outputformat == FMT_CGI))
+ *output << "<br />";
+ else if (outputformat == FMT_OSIS)
+ *output << "<milestone type=\"line\"/>";
+ else if (outputformat == FMT_RTF)
+ *output << "\\par ";
+ else if (outputformat == FMT_GBF)
+ *output << "<CM>";
+
+ *output << "\n";
+
+ if (target->Key() == vk)
+ break;
+ maxverses--;
+ (*target)++;
+ }
+ }
+ else {
+ target->Key(*listkey.GetElement(i));
+ *output << (char*)target->KeyText();
+ if (font && (outputformat == FMT_HTML || outputformat == FMT_THML || outputformat == FMT_CGI)) {
+ *output << ": <font face=\"";
+ *output << font;
+ *output << "\">";
+ }
+ else if (outputformat == FMT_RTF) {
+ *output << ": {\\f1 ";
+ }
+ else {
+ *output << ": ";
+ }
+ *output << (const char*)*target;
+ if (font && (outputformat == FMT_HTML || outputformat == FMT_THML || outputformat == FMT_CGI)) {
+ *output << "</font>";
+ }
+ else if (outputformat == FMT_RTF) {
+ *output << "}";
+ }
+
+ if (inputformat != FMT_THML && (outputformat == FMT_HTML || outputformat == FMT_THML || outputformat == FMT_CGI))
+ *output << "<br />";
+ else if (outputformat == FMT_OSIS)
+ *output << "<milestone type=\"line\"/>";
+ else if (outputformat == FMT_RTF)
+ *output << "\\par ";
+ else if (outputformat == FMT_GBF)
+ *output << "<CM>";
+
+ *output << "\n";
+ maxverses--;
+ }
+ }
+
+ *output << "(";
+ *output << target->Name();
+ *output << ")\n";
+
+ if (outputformat == FMT_RTF) {
+ *output << "}";
+ }
+
+ }
+}
+
diff --git a/utilities/diatheke/corediatheke.h b/utilities/diatheke/corediatheke.h
new file mode 100644
index 0000000..6c51c8a
--- /dev/null
+++ b/utilities/diatheke/corediatheke.h
@@ -0,0 +1,42 @@
+// Diatheke 4.2 by Chris Little <chrislit@crosswire.org>
+// Copyright 1999-2002 by CrossWire Bible Society http://www.crosswire.org
+// Licensed under GNU General Public License (GPL)
+// see accompanying LICENSE file for license details
+
+#include <stdio.h>
+
+#include "diathekemgr.h"
+#include <localemgr.h>
+
+#define QT_BIBLE 1
+#define QT_COMM 2
+#define QT_LD 3
+#define QT_SEARCH 4
+#define QT_SYSTEM 5
+#define QT_INFO 6
+
+#define OP_NONE 0
+#define OP_STRONGS 1
+#define OP_FOOTNOTES 2
+#define OP_HEADINGS 4
+#define OP_MORPH 8
+#define OP_CANTILLATION 16
+#define OP_HEBREWPOINTS 32
+#define OP_GREEKACCENTS 64
+#define OP_TRANSLITERATOR 128
+#define OP_LEMMAS 256
+#define OP_SCRIPREF 512
+#define OP_ARSHAPE 1024
+#define OP_BIDI 2048
+#define OP_VARIANTS 4096
+#define OP_RED 8192
+
+#define ST_NONE 0
+#define ST_REGEX 1 //0
+#define ST_PHRASE 2 // -1
+#define ST_MULTIWORD 3 // -2
+
+using namespace std;
+
+int hasalpha (char * string);
+void doquery(unsigned long maxverses, unsigned char outputformat, unsigned char outputencoding, unsigned long optionfilters, unsigned char searchtype, const char *range, const char *text, const char *locale, const char *ref, ostream* output, const char* script, signed short variants);
diff --git a/utilities/diatheke/diafiltmgr.cpp b/utilities/diatheke/diafiltmgr.cpp
new file mode 100644
index 0000000..5f38379
--- /dev/null
+++ b/utilities/diatheke/diafiltmgr.cpp
@@ -0,0 +1,227 @@
+/******************************************************************************
+ * diafiltmgr.cpp
+ *
+ * Copyright 1998 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.
+ *
+ */
+
+#include <thmlplain.h>
+#include <gbfplain.h>
+#include <thmlgbf.h>
+#include <gbfthml.h>
+#include <thmlhtml.h>
+#include <gbfhtml.h>
+#include <plainhtml.h>
+#include <thmlhtmlhref.h>
+#include <gbfhtmlhref.h>
+#include <thmlrtf.h>
+#include <gbfrtf.h>
+#include <osisrtf.h>
+#include <osishtmlhref.h>
+#include <osisplain.h>
+#include <thmlosis.h>
+#include <gbfosis.h>
+
+#include <swmgr.h>
+
+#include "diafiltmgr.h"
+#include "thmlcgi.h"
+#include "gbfcgi.h"
+#include "osiscgi.h"
+
+DiathekeFilterMgr::DiathekeFilterMgr (char mark, char enc)
+ : EncodingFilterMgr(enc) {
+
+ markup = mark;
+
+ CreateFilters(markup);
+}
+
+DiathekeFilterMgr::~DiathekeFilterMgr() {
+ if (fromthml)
+ delete (fromthml);
+ if (fromgbf)
+ delete (fromgbf);
+ if (fromplain)
+ delete (fromplain);
+ if (fromosis)
+ delete (fromosis);
+}
+
+void DiathekeFilterMgr::AddRenderFilters(SWModule *module, ConfigEntMap &section) {
+ switch (module->Markup()) {
+ case FMT_THML:
+ if (fromthml)
+ module->AddRenderFilter(fromthml);
+ break;
+ case FMT_GBF:
+ if (fromgbf)
+ module->AddRenderFilter(fromgbf);
+ break;
+ case FMT_PLAIN:
+ if (fromplain)
+ module->AddRenderFilter(fromplain);
+ break;
+ case FMT_OSIS:
+ if (fromosis)
+ module->AddRenderFilter(fromosis);
+ break;
+ }
+ EncodingFilterMgr::AddRenderFilters(module, section);
+}
+
+
+char DiathekeFilterMgr::Markup(char mark) {
+ if (mark && mark != markup) {
+ markup = mark;
+ ModMap::const_iterator module;
+
+ SWFilter * oldplain = fromplain;
+ SWFilter * oldthml = fromthml;
+ SWFilter * oldgbf = fromgbf;
+ SWFilter * oldosis = fromosis;
+
+ CreateFilters(markup);
+
+ for (module = getParentMgr()->Modules.begin(); module != getParentMgr()->Modules.end(); module++)
+ switch (module->second->Markup()) {
+ case FMT_THML:
+ if (oldthml != fromthml) {
+ if (oldthml) {
+ if (!fromthml) {
+ module->second->RemoveRenderFilter(oldthml);
+ }
+ else {
+ module->second->ReplaceRenderFilter(oldthml, fromthml);
+ }
+ }
+ else if (fromthml) {
+ module->second->AddRenderFilter(fromthml);
+ }
+ }
+ break;
+ case FMT_GBF:
+ if (oldgbf != fromgbf) {
+ if (oldgbf) {
+ if (!fromgbf) {
+ module->second->RemoveRenderFilter(oldgbf);
+ }
+ else {
+ module->second->ReplaceRenderFilter(oldgbf, fromgbf);
+ }
+ }
+ else if (fromgbf) {
+ module->second->AddRenderFilter(fromgbf);
+ }
+ break;
+ }
+ case FMT_PLAIN:
+ if (oldplain != fromplain) {
+ if (oldplain) {
+ if (!fromplain) {
+ module->second->RemoveRenderFilter(oldplain);
+ }
+ else {
+ module->second->ReplaceRenderFilter(oldplain, fromplain);
+ }
+ }
+ else if (fromplain) {
+ module->second->AddRenderFilter(fromplain);
+ }
+ break;
+ }
+ case FMT_OSIS:
+ if (oldosis != fromosis) {
+ if (oldosis) {
+ if (!fromosis) {
+ module->second->RemoveRenderFilter(oldosis);
+ }
+ else {
+ module->second->ReplaceRenderFilter(oldosis, fromosis);
+ }
+ }
+ else if (fromosis) {
+ module->second->AddRenderFilter(fromosis);
+ }
+ break;
+ }
+ }
+
+ if (oldthml)
+ delete oldthml;
+ if (oldgbf)
+ delete oldgbf;
+ if (oldplain)
+ delete oldplain;
+ if (oldosis)
+ delete oldosis;
+ }
+ return markup;
+}
+
+void DiathekeFilterMgr::CreateFilters(char markup) {
+
+ switch (markup) {
+ case FMT_CGI:
+ fromplain = NULL;
+ fromthml = new ThMLCGI();
+ fromgbf = new GBFCGI();
+ fromosis = new OSISCGI();
+ break;
+ case FMT_PLAIN:
+ fromplain = NULL;
+ fromthml = new ThMLPlain();
+ fromgbf = new GBFPlain();
+ fromosis = new OSISPlain();
+ break;
+ case FMT_THML:
+ fromplain = NULL;
+ fromthml = NULL;
+ fromgbf = new GBFThML();
+ fromosis = NULL;
+ break;
+ case FMT_GBF:
+ fromplain = NULL;
+ fromthml = new ThMLGBF();
+ fromgbf = NULL;
+ fromosis = NULL;
+ break;
+ case FMT_HTML:
+ fromplain = new PLAINHTML();
+ fromthml = new ThMLHTML();
+ fromgbf = new GBFHTML();
+ fromosis = NULL;
+ break;
+ case FMT_HTMLHREF:
+ fromplain = NULL;
+ fromthml = new ThMLHTMLHREF();
+ fromgbf = new GBFHTMLHREF();
+ fromosis = new OSISHTMLHREF();
+ break;
+ case FMT_RTF:
+ fromplain = NULL;
+ fromthml = new ThMLRTF();
+ fromgbf = new GBFRTF();
+ fromosis = new OSISRTF();
+ break;
+ case FMT_OSIS:
+ fromplain = NULL;
+ fromthml = new ThMLOSIS();
+ fromgbf = new GBFOSIS();
+ fromosis = NULL;
+ break;
+ }
+
+}
diff --git a/utilities/diatheke/diafiltmgr.h b/utilities/diatheke/diafiltmgr.h
new file mode 100644
index 0000000..2ca34eb
--- /dev/null
+++ b/utilities/diatheke/diafiltmgr.h
@@ -0,0 +1,47 @@
+/******************************************************************************
+ * diafiltmgr.h
+ *
+ * Copyright 1998 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.
+ *
+ */
+
+#ifndef DIAFILTMGR_H
+#define DIAFILTMGR_H
+
+#define FMT_CGI 127
+
+#include <encfiltmgr.h>
+#ifndef NO_SWORD_NAMESPACE
+using namespace sword;
+#endif
+
+class SWDLLEXPORT DiathekeFilterMgr : public EncodingFilterMgr {
+protected:
+ SWFilter* fromthml;
+ SWFilter* fromgbf;
+ SWFilter* fromplain;
+ SWFilter* fromosis;
+
+ char markup;
+
+ void CreateFilters(char markup);
+public:
+ DiathekeFilterMgr(char markup = FMT_THML, char encoding = ENC_UTF8);
+ ~DiathekeFilterMgr();
+ char Markup(char m = FMT_UNKNOWN);
+ virtual void AddRenderFilters(SWModule *module, ConfigEntMap &section);
+};
+
+#endif
diff --git a/utilities/diatheke/diatheke.cpp b/utilities/diatheke/diatheke.cpp
new file mode 100644
index 0000000..7dc95b0
--- /dev/null
+++ b/utilities/diatheke/diatheke.cpp
@@ -0,0 +1,222 @@
+// Diatheke 4.2 by Chris Little <chrislit@crosswire.org>
+// Copyright 1999-2002 by CrossWire Bible Society
+// http://www.crosswire.org/sword/diatheke
+// Licensed under GNU General Public License (GPL)
+// see accompanying LICENSE file for license details
+
+
+#include "corediatheke.h"
+#include "diathekemgr.h"
+#include "diafiltmgr.h"
+#include <iostream>
+
+using std::cout;
+
+#define RQ_REF 1
+#define RQ_BOOK 2
+
+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\n");
+ fprintf (stderr, "Copyright 1999-2002 by the CrossWire Bible Society\n");
+ fprintf (stderr, "http://www.crosswire.org/sword/diatheke/\n");
+ fprintf (stderr, "usage: \n ");
+ fprintf (stderr, "diatheke <-b book> [-s search_type] [-r search_range] [-o option_filters]\n");
+ fprintf (stderr, "[-m maximum_verses] [-f output_format] [-l locale]\n");
+ fprintf (stderr, "[-e output_encoding] [-t script] [-v variant#(-1=all|0|1)]\n");
+ fprintf (stderr, "<-k query_key>\n");
+ fprintf (stderr, "\n");
+ fprintf (stderr, "If <book> is \"system\" you may use these system keys: \"modulelist\",\n");
+ fprintf (stderr, "\"modulelistnames\", and \"localelist\".");
+ fprintf (stderr, "\n");
+ fprintf (stderr, "Valid search_type values are: regex, multiword, and phrase(def).\n");
+ 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),\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");
+ fprintf (stderr, "Valid output_format values are: GBF, ThML, RTF, HTML, OSIS, CGI, and plain (def)\n");
+ fprintf (stderr, "Valid output_encoding values are: Latin1, UTF8 (def), UTF16, HTML, and RTF\n");
+ fprintf (stderr, "Valid locale values depend on installed locales. en is default.\n");
+ fprintf (stderr, "The query_key must be the last argument because all following\n");
+ fprintf (stderr, " arguments are added to the key.\n");
+}
+
+int main(int argc, char **argv)
+{
+ int maxverses = -1;
+ unsigned char outputformat = FMT_PLAIN, searchtype = ST_NONE, outputencoding = ENC_UTF8;
+ unsigned long optionfilters = OP_NONE;
+ char *text = 0, *locale = 0, *ref = 0, *script = 0, *range = 0;
+ signed short variants = 0;
+
+ char runquery = 0; // used to check that we have enough arguments to perform a legal query
+ // (a querytype & text = 1 and a ref = 2)
+
+ for (int i = 1; i < argc; i++) {
+ if (!stricmp("-b", argv[i])) {
+ if (i+1 <= argc) {
+ text = argv[i+1];
+ i++;
+ runquery |= RQ_BOOK;
+ }
+ }
+ else if (!stricmp("-s", argv[i])) {
+ if (i+1 <= argc) {
+ if (!stricmp("phrase", argv[i+1])) {
+ searchtype = ST_PHRASE;
+ i++;
+ }
+ else if (!stricmp("regex", argv[i+1])) {
+ searchtype = ST_REGEX;
+ i++;
+ }
+ else if (!stricmp("multiword", argv[i+1])) {
+ searchtype = ST_MULTIWORD;
+ i++;
+ }
+ else i++;
+ }
+ }
+ else if (!stricmp("-r", argv[i])) {
+ if (i+1 <= argc) {
+ range = argv[i+1];
+ i++;
+ }
+ }
+ else if (!stricmp("-l", argv[i])) {
+ if (i+1 <= argc) {
+ locale = argv[i+1];
+ i++;
+ }
+ }
+ else if (!stricmp("-m", argv[i])) {
+ if (i+1 <= argc) {
+ maxverses = atoi(argv[i+1]);
+ i++;
+ }
+ }
+ else if (!stricmp("-o", argv[i])) {
+ if (i+1 <= argc) {
+ if (strchr(argv[i+1], 'f'))
+ optionfilters |= OP_FOOTNOTES;
+ if (strchr(argv[i+1], 'n'))
+ optionfilters |= OP_STRONGS;
+ if (strchr(argv[i+1], 'h'))
+ optionfilters |= OP_HEADINGS;
+ if (strchr(argv[i+1], 'm'))
+ optionfilters |= OP_MORPH;
+ if (strchr(argv[i+1], 'c'))
+ optionfilters |= OP_CANTILLATION;
+ if (strchr(argv[i+1], 'v'))
+ optionfilters |= OP_HEBREWPOINTS;
+ if (strchr(argv[i+1], 'a'))
+ optionfilters |= OP_GREEKACCENTS;
+ if (strchr(argv[i+1], 'l'))
+ optionfilters |= OP_LEMMAS;
+ if (strchr(argv[i+1], 's'))
+ optionfilters |= OP_SCRIPREF;
+ if (strchr(argv[i+1], 'r'))
+ optionfilters |= OP_ARSHAPE;
+ if (strchr(argv[i+1], 'b'))
+ optionfilters |= OP_BIDI;
+ if (strchr(argv[i+1], 'x'))
+ optionfilters |= OP_RED;
+ i++;
+ }
+ }
+ else if (!stricmp("-f", argv[i])) {
+ if (i+1 <= argc) {
+ if (!stricmp("thml", argv[i+1])) {
+ outputformat = FMT_THML;
+ i++;
+ }
+ else if (!stricmp("cgi", argv[i+1])) {
+ outputformat = FMT_CGI;
+ i++;
+ }
+ else if (!stricmp("gbf", argv[i+1])) {
+ outputformat = FMT_GBF;
+ i++;
+ }
+ else if (!stricmp("html", argv[i+1])) {
+ outputformat = FMT_HTML;
+ i++;
+ }
+ else if (!stricmp("rtf", argv[i+1])) {
+ outputformat = FMT_RTF;
+ i++;
+ }
+ else if (!stricmp("osis", argv[i+1])) {
+ outputformat = FMT_OSIS;
+ i++;
+ }
+ else i++;
+ }
+ }
+ else if (!stricmp("-e", argv[i])) {
+ if (i+1 <= argc) {
+ if (!stricmp("utf8", argv[i+1])) {
+ outputencoding = ENC_UTF8;
+ i++;
+ }
+ else if (!stricmp("rtf", argv[i+1])) {
+ outputencoding = ENC_RTF;
+ i++;
+ }
+ else if (!stricmp("html", argv[i+1])) {
+ outputencoding = ENC_HTML;
+ i++;
+ }
+ else if (!stricmp("latin1", argv[i+1])) {
+ outputencoding = ENC_LATIN1;
+ i++;
+ }
+ else if (!stricmp("utf16", argv[i+1])) {
+ outputencoding = ENC_UTF16;
+ i++;
+ }
+ else i++;
+ }
+ }
+ else if (!stricmp("-k", argv[i])) {
+ i++;
+ if (i < argc) {
+ SWBuf key = argv[i];
+ i++;
+ for (; i < argc; i++)
+ key = key + " " + argv[i];
+ ref = new char[key.length() + 1];
+ strcpy (ref, key.c_str());
+ if (strlen(ref))
+ runquery |= RQ_REF;
+ }
+ }
+ else if (!stricmp("-v", argv[i])) {
+ if (i+1 <= argc) {
+ variants = atoi(argv[i+1]);
+ optionfilters |= OP_VARIANTS;
+ i++;
+ }
+ }
+#ifdef _ICU_
+ else if (!stricmp("-t", argv[i])) {
+ if (i+1 <= argc) {
+ script = argv[i+1];
+ optionfilters |= OP_TRANSLITERATOR;
+ i++;
+ }
+ }
+#endif
+ }
+
+
+ if (runquery == (RQ_BOOK | RQ_REF)) {
+ doquery(maxverses, outputformat, outputencoding, optionfilters, searchtype, range, text, locale, ref, &cout, script, variants);
+ }
+ else printsyntax();
+
+ return 0;
+}
diff --git a/utilities/diatheke/diatheke.dsp b/utilities/diatheke/diatheke.dsp
new file mode 100644
index 0000000..520b861
--- /dev/null
+++ b/utilities/diatheke/diatheke.dsp
@@ -0,0 +1,204 @@
+# Microsoft Developer Studio Project File - Name="diatheke" - Package Owner=<4>
+# Microsoft Developer Studio Generated Build File, Format Version 6.00
+# ** DO NOT EDIT **
+
+# TARGTYPE "Win32 (x86) Console Application" 0x0103
+
+CFG=diatheke - Win32 Debug with ICU
+!MESSAGE This is not a valid makefile. To build this project using NMAKE,
+!MESSAGE use the Export Makefile command and run
+!MESSAGE
+!MESSAGE NMAKE /f "diatheke.mak".
+!MESSAGE
+!MESSAGE You can specify a configuration when running NMAKE
+!MESSAGE by defining the macro CFG on the command line. For example:
+!MESSAGE
+!MESSAGE NMAKE /f "diatheke.mak" CFG="diatheke - Win32 Debug with ICU"
+!MESSAGE
+!MESSAGE Possible choices for configuration are:
+!MESSAGE
+!MESSAGE "diatheke - Win32 Release" (based on "Win32 (x86) Console Application")
+!MESSAGE "diatheke - Win32 Debug" (based on "Win32 (x86) Console Application")
+!MESSAGE "diatheke - Win32 Debug with ICU" (based on "Win32 (x86) Console Application")
+!MESSAGE "diatheke - Win32 Release with ICU" (based on "Win32 (x86) Console Application")
+!MESSAGE
+
+# Begin Project
+# PROP AllowPerConfigDependencies 0
+# PROP Scc_ProjName ""
+# PROP Scc_LocalPath ""
+CPP=cl.exe
+RSC=rc.exe
+
+!IF "$(CFG)" == "diatheke - Win32 Release"
+
+# PROP BASE Use_MFC 0
+# PROP BASE Use_Debug_Libraries 0
+# PROP BASE Output_Dir "Release"
+# PROP BASE Intermediate_Dir "Release"
+# PROP BASE Target_Dir ""
+# PROP Use_MFC 0
+# PROP Use_Debug_Libraries 0
+# PROP Output_Dir "Release"
+# PROP Intermediate_Dir "Release"
+# PROP Ignore_Export_Lib 0
+# PROP Target_Dir ""
+# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
+# ADD CPP /nologo /MD /w /W0 /GX /O2 /I "../../../include" /I "../../../src/utilfuns/win32" /D "NDEBUG" /D "WIN32" /D "_CONSOLE" /D "_MBCS" /FR /YX /FD /c
+# ADD BASE RSC /l 0x409 /d "NDEBUG"
+# ADD RSC /l 0x409 /d "NDEBUG"
+BSC32=bscmake.exe
+# ADD BASE BSC32 /nologo
+# ADD BSC32 /nologo
+LINK32=link.exe
+# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
+# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib libswordvc6.lib /nologo /subsystem:console /machine:I386 /libpath:"../../../lib"
+
+!ELSEIF "$(CFG)" == "diatheke - Win32 Debug"
+
+# PROP BASE Use_MFC 0
+# PROP BASE Use_Debug_Libraries 1
+# PROP BASE Output_Dir "Debug"
+# PROP BASE Intermediate_Dir "Debug"
+# PROP BASE Target_Dir ""
+# PROP Use_MFC 0
+# PROP Use_Debug_Libraries 1
+# PROP Output_Dir "Debug"
+# PROP Intermediate_Dir "Debug"
+# PROP Ignore_Export_Lib 0
+# PROP Target_Dir ""
+# ADD BASE CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /GZ /c
+# ADD CPP /nologo /MDd /w /W0 /Gm /GX /ZI /Od /I "../../../include" /I "../../../src/utilfuns/win32" /D "_DEBUG" /D "WIN32" /D "_CONSOLE" /D "_MBCS" /FR /YX /FD /GZ /c
+# ADD BASE RSC /l 0x409 /d "_DEBUG"
+# ADD RSC /l 0x409 /d "_DEBUG"
+BSC32=bscmake.exe
+# ADD BASE BSC32 /nologo
+# ADD BSC32 /nologo
+LINK32=link.exe
+# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
+# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib libswordvc6d.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept /libpath:"../../../lib"
+
+!ELSEIF "$(CFG)" == "diatheke - Win32 Debug with ICU"
+
+# PROP BASE Use_MFC 0
+# PROP BASE Use_Debug_Libraries 1
+# PROP BASE Output_Dir "diatheke___Win32_Debug_with_ICU"
+# PROP BASE Intermediate_Dir "diatheke___Win32_Debug_with_ICU"
+# PROP BASE Ignore_Export_Lib 0
+# PROP BASE Target_Dir ""
+# PROP Use_MFC 0
+# PROP Use_Debug_Libraries 1
+# PROP Output_Dir "ICUDebug"
+# PROP Intermediate_Dir "ICUDebug"
+# PROP Ignore_Export_Lib 0
+# PROP Target_Dir ""
+# ADD BASE CPP /nologo /w /W0 /Gm /GX /ZI /Od /I "../../../include" /I "../../../src/utilfuns/win32" /D "_DEBUG" /D "WIN32" /D "_CONSOLE" /D "_MBCS" /D "__VISUALC__" /FR /YX /FD /GZ /c
+# ADD CPP /nologo /MDd /w /W0 /Gm /GX /ZI /Od /I "../../../include" /I "../../../src/utilfuns/win32" /I "../../../../icu-sword/include" /D "_DEBUG" /D "WIN32" /D "_CONSOLE" /D "_MBCS" /D "_ICU_" /D "_ICUSWORD_" /FR /YX /FD /GZ /c
+# ADD BASE RSC /l 0x409 /d "_DEBUG"
+# ADD RSC /l 0x409 /d "_DEBUG"
+BSC32=bscmake.exe
+# ADD BASE BSC32 /nologo
+# ADD BSC32 /nologo
+LINK32=link.exe
+# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib libsword.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept /libpath:"../../../lib/vcppmake/vc6/Debug"
+# ADD LINK32 icuin.lib icuuc.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib libswordvc6icud.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept /libpath:"../../../../icu-sword/lib" /libpath:"../../../lib"
+
+!ELSEIF "$(CFG)" == "diatheke - Win32 Release with ICU"
+
+# PROP BASE Use_MFC 0
+# PROP BASE Use_Debug_Libraries 0
+# PROP BASE Output_Dir "diatheke___Win32_Release_with_ICU"
+# PROP BASE Intermediate_Dir "diatheke___Win32_Release_with_ICU"
+# PROP BASE Ignore_Export_Lib 0
+# PROP BASE Target_Dir ""
+# PROP Use_MFC 0
+# PROP Use_Debug_Libraries 0
+# PROP Output_Dir "ICURelease"
+# PROP Intermediate_Dir "ICURelease"
+# PROP Ignore_Export_Lib 0
+# PROP Target_Dir ""
+# ADD BASE CPP /nologo /w /W0 /GX /O2 /I "../../../include" /I "../../../src/utilfuns/win32" /D "NDEBUG" /D "WIN32" /D "_CONSOLE" /D "_MBCS" /D "__VISUALC__" /FR /YX /FD /c
+# ADD CPP /nologo /MD /w /W0 /GX /O2 /I "../../../include" /I "../../../src/utilfuns/win32" /I "../../../../icu-sword/include" /D "NDEBUG" /D "_ICU_" /D "_ICUSWORD_" /D "WIN32" /D "_CONSOLE" /D "_MBCS" /FR /YX /FD /c
+# ADD BASE RSC /l 0x409 /d "NDEBUG"
+# ADD RSC /l 0x409 /d "NDEBUG"
+BSC32=bscmake.exe
+# ADD BASE BSC32 /nologo
+# ADD BSC32 /nologo
+LINK32=link.exe
+# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib libsword.lib /nologo /subsystem:console /machine:I386 /libpath:"../../../lib/vcppmake/vc6/Release"
+# ADD LINK32 icuin.lib icuuc.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib libswordvc6icu.lib /nologo /subsystem:console /machine:I386 /libpath:"../../../../icu-sword/lib" /libpath:"../../../lib"
+
+!ENDIF
+
+# Begin Target
+
+# Name "diatheke - Win32 Release"
+# Name "diatheke - Win32 Debug"
+# Name "diatheke - Win32 Debug with ICU"
+# Name "diatheke - Win32 Release with ICU"
+# Begin Group "Source Files"
+
+# PROP Default_Filter "cpp;c;cxx;rc;def;r;odl;idl;hpj;bat"
+# Begin Source File
+
+SOURCE=.\corediatheke.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\diafiltmgr.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\diatheke.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\diathekemgr.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\gbfcgi.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\osiscgi.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\thmlcgi.cpp
+# End Source File
+# End Group
+# Begin Group "Header Files"
+
+# PROP Default_Filter "h;hpp;hxx;hm;inl"
+# Begin Source File
+
+SOURCE=.\corediatheke.h
+# End Source File
+# Begin Source File
+
+SOURCE=.\diafiltmgr.h
+# End Source File
+# Begin Source File
+
+SOURCE=.\diathekemgr.h
+# End Source File
+# Begin Source File
+
+SOURCE=.\gbfcgi.h
+# End Source File
+# Begin Source File
+
+SOURCE=.\osiscgi.h
+# End Source File
+# Begin Source File
+
+SOURCE=.\thmlcgi.h
+# End Source File
+# End Group
+# Begin Group "Resource Files"
+
+# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"
+# End Group
+# End Target
+# End Project
diff --git a/utilities/diatheke/diatheke.dsw b/utilities/diatheke/diatheke.dsw
new file mode 100644
index 0000000..caaf25d
--- /dev/null
+++ b/utilities/diatheke/diatheke.dsw
@@ -0,0 +1,44 @@
+Microsoft Developer Studio Workspace File, Format Version 6.00
+# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE!
+
+###############################################################################
+
+Project: "diatheke"=.\diatheke.dsp - Package Owner=<4>
+
+Package=<5>
+{{{
+}}}
+
+Package=<4>
+{{{
+ Begin Project Dependency
+ Project_Dep_Name libsword
+ End Project Dependency
+}}}
+
+###############################################################################
+
+Project: "libsword"=..\..\..\lib\vcppmake\vc6\libsword.dsp - Package Owner=<4>
+
+Package=<5>
+{{{
+}}}
+
+Package=<4>
+{{{
+}}}
+
+###############################################################################
+
+Global:
+
+Package=<5>
+{{{
+}}}
+
+Package=<3>
+{{{
+}}}
+
+###############################################################################
+
diff --git a/utilities/diatheke/diathekemgr.cpp b/utilities/diatheke/diathekemgr.cpp
new file mode 100644
index 0000000..9a4bb44
--- /dev/null
+++ b/utilities/diatheke/diathekemgr.cpp
@@ -0,0 +1,107 @@
+//---------------------------------------------------------------------------
+#include <thmlplain.h>
+#include <gbfplain.h>
+#include <thmlgbf.h>
+#include <gbfthml.h>
+#include <thmlhtml.h>
+#include <gbfhtml.h>
+#include <plainhtml.h>
+#include <thmlhtmlhref.h>
+#include <gbfhtmlhref.h>
+#include <thmlrtf.h>
+#include <gbfrtf.h>
+
+#include <swconfig.h>
+#include "diafiltmgr.h"
+
+#ifdef _ICU_
+#include <utf8arshaping.h>
+#include <utf8bidireorder.h>
+#include <utf8transliterator.h>
+#endif
+
+#ifdef WIN32
+#include <windows.h>
+#endif
+
+#include "diathekemgr.h"
+#include "gbfcgi.h"
+#include "thmlcgi.h"
+
+//---------------------------------------------------------------------------
+DiathekeMgr::DiathekeMgr (SWConfig * iconfig, SWConfig * isysconfig, bool autoload, char enc, char mark, bool ibidi, bool ishape)
+ : SWMgr(iconfig, isysconfig, autoload, new DiathekeFilterMgr(mark, enc))
+{
+ bidi = ibidi;
+ shape = ishape;
+
+#ifdef _ICU_
+ arshaping = new UTF8arShaping();
+ bidireorder = new UTF8BiDiReorder();
+ transliterator = new UTF8Transliterator();
+#endif
+ Load();
+
+#ifdef WIN32
+ OSVERSIONINFO osvi;
+ memset (&osvi, 0, sizeof(OSVERSIONINFO));
+ osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
+ GetVersionEx(&osvi);
+ platformID = osvi.dwPlatformId;
+#endif
+
+}
+
+
+DiathekeMgr::~DiathekeMgr()
+{
+#ifdef _ICU_
+ if (arshaping)
+ delete arshaping;
+ if (bidireorder)
+ delete bidireorder;
+ if (transliterator)
+ delete transliterator;
+#endif
+}
+
+
+void DiathekeMgr::AddRenderFilters(SWModule *module, ConfigEntMap &section)
+{
+ SWBuf lang;
+ bool rtl;
+ ConfigEntMap::iterator entry;
+
+ lang = ((entry = section.find("Lang")) != section.end()) ? (*entry).second : (SWBuf)"en";
+ rtl = ((entry = section.find("Direction")) != section.end()) ? ((*entry).second == "RtoL") : false;
+
+#ifdef _ICU_
+ if (shape && !strnicmp(lang.c_str(), "ar", 2)) {
+ module->AddRenderFilter(arshaping);
+ }
+ if (bidi && rtl) {
+ module->AddRenderFilter(bidireorder);
+ }
+#endif
+ SWMgr::AddRenderFilters(module, section);
+}
+
+signed char DiathekeMgr::Load () {
+ signed char retval = SWMgr::Load();
+#ifdef _ICU_
+ optionFilters.insert(FilterMap::value_type("UTF8Transliterator", transliterator));
+ options.push_back(transliterator->getOptionName());
+#endif
+ return retval;
+};
+
+void DiathekeMgr::AddGlobalOptions (SWModule * module, ConfigEntMap & section,
+ ConfigEntMap::iterator start,
+ ConfigEntMap::iterator end) {
+
+ SWMgr::AddGlobalOptions(module, section, start, end);
+#ifdef _ICU_
+ module->AddOptionFilter(transliterator);
+#endif
+};
+
diff --git a/utilities/diatheke/diathekemgr.h b/utilities/diatheke/diathekemgr.h
new file mode 100644
index 0000000..6101e53
--- /dev/null
+++ b/utilities/diatheke/diathekemgr.h
@@ -0,0 +1,35 @@
+#ifndef DIATHEKEMGR_H
+#define DIATHEKEMGR_H
+
+#include <swmgr.h>
+#include "diafiltmgr.h"
+
+enum PlatformIDs { WIN32S = 0, WIN9X, WINNT, WINCE };
+
+class DiathekeMgr : public SWMgr {
+ SWFilter *arshaping;
+ SWFilter *bidireorder;
+ SWFilter *transliterator;
+
+#ifdef WIN32
+ char platformID;
+#endif
+
+protected:
+ virtual void AddRenderFilters(SWModule *module, ConfigEntMap &section);
+ virtual signed char Load ();
+ virtual void AddGlobalOptions (SWModule * module, ConfigEntMap & section, ConfigEntMap::iterator start, ConfigEntMap::iterator end);
+
+public:
+ bool shape;
+ bool bidi;
+
+ unsigned char Markup(unsigned char m = FMT_UNKNOWN) {return ((DiathekeFilterMgr*)filterMgr)->Markup(m);};
+ unsigned char Encoding(unsigned char e = ENC_UNKNOWN) {return ((EncodingFilterMgr*)filterMgr)->Encoding(e);};
+
+ DiathekeMgr(SWConfig * iconf = NULL, SWConfig * isysconfig = NULL, bool autoload = false, char enc = ENC_UTF8, char mark = FMT_PLAIN, bool bidi = false, bool shape = false);
+ virtual ~DiathekeMgr();
+};
+
+#endif
+
diff --git a/utilities/diatheke/gbfcgi.cpp b/utilities/diatheke/gbfcgi.cpp
new file mode 100644
index 0000000..c581fa1
--- /dev/null
+++ b/utilities/diatheke/gbfcgi.cpp
@@ -0,0 +1,138 @@
+/***************************************************************************
+ gbfcgi.cpp - GBF to Diatheke/CGI format
+ -------------------
+ begin : 2001-11-12
+ copyright : 2001 by CrossWire Bible Society
+ ***************************************************************************/
+
+/***************************************************************************
+ * *
+ * 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; either version 2 of the License, or *
+ * (at your option) any later version. *
+ * *
+ ***************************************************************************/
+
+#include <stdlib.h>
+#include <string.h>
+#include "gbfcgi.h"
+
+SWORD_NAMESPACE_START
+
+GBFCGI::GBFCGI() {
+ setTokenStart("<");
+ setTokenEnd(">");
+
+ setTokenCaseSensitive(true);
+
+ addTokenSubstitute("Rf", ")</small></font>");
+ addTokenSubstitute("FI", "<i>"); // italics begin
+ addTokenSubstitute("Fi", "</i>");
+ addTokenSubstitute("FB", "<n>"); // bold begin
+ addTokenSubstitute("Fb", "</n>");
+ addTokenSubstitute("FR", "<font color=\"#FF0000\">"); // words of Jesus begin
+ addTokenSubstitute("Fr", "</font>");
+ addTokenSubstitute("FU", "<u>"); // underline begin
+ addTokenSubstitute("Fu", "</u>");
+ addTokenSubstitute("FO", "<cite>"); // Old Testament quote begin
+ addTokenSubstitute("Fo", "</cite>");
+ addTokenSubstitute("FS", "<sup>"); // Superscript begin// Subscript begin
+ addTokenSubstitute("Fs", "</sup>");
+ addTokenSubstitute("FV", "<sub>"); // Subscript begin
+ addTokenSubstitute("Fv", "</sub>");
+ addTokenSubstitute("TT", "<big>"); // Book title begin
+ addTokenSubstitute("Tt", "</big>");
+ addTokenSubstitute("PP", "<cite>"); // poetry begin
+ addTokenSubstitute("Pp", "</cite>");
+ addTokenSubstitute("Fn", "</font>"); // font end
+ addTokenSubstitute("CL", "<br />"); // new line
+ addTokenSubstitute("CM", "<br />"); // paragraph
+ addTokenSubstitute("CG", "&gt;"); // ???
+ addTokenSubstitute("CT", "&lt;"); // ???
+ addTokenSubstitute("JR", "<div align=\"right\">"); // right align begin
+ addTokenSubstitute("JC", "<div align=\"center\">"); // center align begin
+ addTokenSubstitute("JL", "</div>"); // align end
+
+}
+
+
+bool GBFCGI::handleToken(SWBuf &buf, const char *token, DualStringMap &userData) {
+ unsigned long i;
+ if (!substituteToken(buf, token)) {
+ if (!strncmp(token, "WG", 2) || !strncmp(token, "WH", 2)) { // strong's numbers
+ buf += " <small><em>&lt;<a href=\"!DIATHEKE_URL!";
+ if (token[1] == 'H') {
+ buf += "StrongsHebrew";
+ }
+ else if (token[1] == 'G') {
+ buf += "StrongsGreek";
+ }
+ buf += "=on&verse=";
+ for (i = 2; i < strlen(token); i++)
+ buf += token[i];
+ buf += "\">";
+ for (i = 2; i < strlen(token); i++)
+ buf += token[i];
+ buf += "</a>&gt;</em></small>";
+ }
+
+ else if (!strncmp(token, "WTG", 3) || !strncmp(token, "WTH", 3)) { // strong's numbers tense
+ buf += " <small><em>&lt;<a href=\"!DIATHEKE_URL!";
+ if (token[2] == 'H') {
+ buf += "StrongsHebrew";
+ }
+ else if (token[2] == 'G') {
+ buf += "StrongsGreek";
+ }
+ buf += "=on&verse=";
+ for (i = 3; i < strlen(token); i++)
+ buf += token[i];
+ buf += "\">";
+ for (i = 3; i < strlen(token); i++)
+ buf += token[i];
+ buf += "</a>&gt;</em></small>";
+ }
+
+ else if (!strncmp(token, "WT", 2)) { // morph tags
+ buf += " <small><em>(<a href=\"!DIATHEKE_URL!Packard=on&verse=";
+ for (i = 1; i < strlen(token); i++)
+ buf += token[i];
+ buf += "\">";
+ for (i = 1; i < strlen(token); i++)
+ buf += token[i];
+ buf += "</a>)</em></small>";
+ }
+
+ else if (!strncmp(token, "RB", 2)) {
+ buf += "<i>";
+ userData["hasFootnotePreTag"] = "true";
+ }
+
+ else if (!strncmp(token, "RF", 2)) {
+ if(userData["hasFootnotePreTag"] == "true") {
+ userData["hasFootnotePreTag"] = "false";
+ buf += "</i> ";
+ }
+ buf += "<font color=\"#800000\"><small> (";
+ }
+
+ else if (!strncmp(token, "FN", 2)) {
+ buf += "<font face=\"";
+ for (i = 2; i < strlen(token); i++)
+ buf += token[i];
+ buf += "\">";
+ }
+
+ else if (!strncmp(token, "CA", 2)) { // ASCII value
+ buf += (char)atoi(&token[2]);
+ }
+
+ else {
+ return false;
+ }
+ }
+ return true;
+}
+
+SWORD_NAMESPACE_END
diff --git a/utilities/diatheke/gbfcgi.h b/utilities/diatheke/gbfcgi.h
new file mode 100644
index 0000000..8be1efe
--- /dev/null
+++ b/utilities/diatheke/gbfcgi.h
@@ -0,0 +1,36 @@
+/*-*************************************************************************
+ gbfcgi.h - description
+ -------------------
+ begin : 2001-11-12
+ copyright : 2001 by CrossWire Bible Society
+ ***************************************************************************/
+
+/***************************************************************************
+ * *
+ * 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; either version 2 of the License, or *
+ * (at your option) any later version. *
+ * *
+ ***************************************************************************/
+
+#ifndef GBFCGI_H
+#define GBFCGI_H
+
+#include <swbasicfilter.h>
+#include <swbuf.h>
+#include <defs.h>
+
+SWORD_NAMESPACE_START
+
+/** this filter converts GBF text to Diatheke/CGI format
+ */
+class SWDLLEXPORT GBFCGI : public SWBasicFilter {
+protected:
+ virtual bool handleToken(SWBuf &buf, const char *token, DualStringMap &userData);
+public:
+ GBFCGI ();
+};
+
+SWORD_NAMESPACE_END
+#endif
diff --git a/utilities/diatheke/osiscgi.cpp b/utilities/diatheke/osiscgi.cpp
new file mode 100644
index 0000000..b828149
--- /dev/null
+++ b/utilities/diatheke/osiscgi.cpp
@@ -0,0 +1,323 @@
+/***************************************************************************
+ osiscgi.cpp - OSIS to Diatheke/CGI format
+ -------------------
+ begin : 2003-10-21
+ copyright : 2003 by CrossWire Bible Society
+ ***************************************************************************/
+
+/***************************************************************************
+ * *
+ * 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; either version 2 of the License, or *
+ * (at your option) any later version. *
+ * *
+ ***************************************************************************/
+
+#include <stdlib.h>
+#include "osiscgi.h"
+#include <utilxml.h>
+#include <versekey.h>
+#include <swmodule.h>
+
+SWORD_NAMESPACE_START
+
+
+OSISCGI::MyUserData::MyUserData(const SWModule *module, const SWKey *key) : BasicFilterUserData(module, key) {
+ osisQToTick = ((!module->getConfigEntry("OSISqToTick")) || (strcmp(module->getConfigEntry("OSISqToTick"), "false")));
+}
+
+
+OSISCGI::OSISCGI() {
+ setTokenStart("<");
+ setTokenEnd(">");
+
+ setEscapeStart("&");
+ setEscapeEnd(";");
+
+ setEscapeStringCaseSensitive(true);
+
+ addEscapeStringSubstitute("amp", "&");
+ addEscapeStringSubstitute("apos", "'");
+ addEscapeStringSubstitute("lt", "<");
+ addEscapeStringSubstitute("gt", ">");
+ addEscapeStringSubstitute("quot", "\"");
+ addTokenSubstitute("lg", "<br />");
+ addTokenSubstitute("/lg", "<br />");
+
+ setTokenCaseSensitive(true);
+}
+
+
+bool OSISCGI::handleToken(SWBuf &buf, const char *token, BasicFilterUserData *userData) {
+ // manually process if it wasn't a simple substitution
+ if (!substituteToken(buf, token)) {
+ MyUserData *u = (MyUserData *)userData;
+ XMLTag tag(token);
+
+ // <w> tag
+ if (!strcmp(tag.getName(), "w")) {
+
+ // start <w> tag
+ if ((!tag.isEmpty()) && (!tag.isEndTag())) {
+ u->w = token;
+ }
+
+ // end or empty <w> tag
+ else {
+ bool endTag = tag.isEndTag();
+ SWBuf lastText;
+ bool show = true; // to handle unplaced article in kjv2003-- temporary till combined
+
+ if (endTag) {
+ tag = u->w.c_str();
+ lastText = u->lastTextNode.c_str();
+ }
+ else lastText = "stuff";
+
+ const char *attrib;
+ const char *val;
+ if (attrib = tag.getAttribute("xlit")) {
+ val = strchr(attrib, ':');
+ val = (val) ? (val + 1) : attrib;
+ buf.appendFormatted(" %s", val);
+ }
+ if (attrib = tag.getAttribute("gloss")) {
+ val = strchr(attrib, ':');
+ val = (val) ? (val + 1) : attrib;
+ buf.appendFormatted(" %s", val);
+ }
+ if (attrib = tag.getAttribute("lemma")) {
+ int count = tag.getAttributePartCount("lemma");
+ int i = (count > 1) ? 0 : -1; // -1 for whole value cuz it's faster, but does the same thing as 0
+ do {
+ attrib = tag.getAttribute("lemma", i);
+ if (i < 0) i = 0; // to handle our -1 condition
+ val = strchr(attrib, ':');
+ val = (val) ? (val + 1) : attrib;
+ const char *val2 = val;
+ if ((strchr("GH", *val)) && (isdigit(val[1])))
+ val2++;
+ if ((!strcmp(val2, "3588")) && (lastText.length() < 1))
+ show = false;
+ else {
+ if (!strchr("G", *val)) {
+ buf.appendFormatted(" <small><em>&lt;<a href=\"!DIATHEKE_URL!StrongsGreek=on&verse=%s\">%s</a>&gt;</em></small> ", val2, val);
+ }
+ else {
+ buf.appendFormatted(" <small><em>&lt;<a href=\"!DIATHEKE_URL!StrongsHebrew=on&verse=%s\">%s</a>&gt;</em></small> ", val2, val);
+ }
+ }
+ } while (++i < count);
+ }
+ if ((attrib = tag.getAttribute("morph")) && (show)) {
+ SWBuf savelemma = tag.getAttribute("savlm");
+ if ((strstr(savelemma.c_str(), "3588")) && (lastText.length() < 1))
+ show = false;
+ if (show) {
+ int count = tag.getAttributePartCount("morph");
+ int i = (count > 1) ? 0 : -1; // -1 for whole value cuz it's faster, but does the same thing as 0
+ do {
+ attrib = tag.getAttribute("morph", i);
+ if (i < 0) i = 0; // to handle our -1 condition
+ val = strchr(attrib, ':');
+ val = (val) ? (val + 1) : attrib;
+ const char *val2 = val;
+ if ((*val == 'T') && (strchr("GH", val[1])) && (isdigit(val[2])))
+ val2+=2;
+ if (!strchr("G", *val)) {
+ buf.appendFormatted(" <small><em>(;<a href=\"!DIATHEKE_URL!StrongsGreek=on&verse=%s\">%s</a>)</em></small> ", val+1, tag.getAttribute("morph"));
+ }
+ else if (!strchr("H", *val)) {
+ buf.appendFormatted(" <small><em>(<a href=\"!DIATHEKE_URL!StrongsHebrew=on&verse=%s\">%s</a>)</em></small> ", val+1, tag.getAttribute("morph"));
+ }
+ else {
+ buf.appendFormatted(" <small><em>(<a href=\"!DIATHEKE_URL!Packard=on&verse=%s\">%s</a>)</em></small> ", val, tag.getAttribute("morph"));
+ }
+ } while (++i < count);
+ }
+ }
+ if (attrib = tag.getAttribute("POS")) {
+ val = strchr(attrib, ':');
+ val = (val) ? (val + 1) : attrib;
+ buf.appendFormatted(" %s", val);
+ }
+
+ /*if (endTag)
+ buf += "}";*/
+ }
+ }
+
+ // <note> tag
+ else if (!strcmp(tag.getName(), "note")) {
+ if (!tag.isEndTag()) {
+ if (!tag.isEmpty()) {
+ SWBuf type = tag.getAttribute("type");
+
+ if (type != "strongsMarkup") { // leave strong's markup notes out, in the future we'll probably have different option filters to turn different note types on or off
+ SWBuf footnoteNumber = tag.getAttribute("swordFootnote");
+ VerseKey *vkey;
+ // see if we have a VerseKey * or descendant
+ try {
+ vkey = SWDYNAMIC_CAST(VerseKey, u->key);
+ }
+ catch ( ... ) { }
+ if (vkey) {
+ char ch = ((tag.getAttribute("type") && (!strcmp(tag.getAttribute("type"), "crossReference"))) ? 'x':'n');
+ buf.appendFormatted("<a href=\"noteID=%s.%c.%s\"><small><sup>*%c</sup></small></a> ", vkey->getText(), ch, footnoteNumber.c_str(), ch);
+ }
+ }
+ u->suspendTextPassThru = true;
+ }
+ }
+ if (tag.isEndTag()) {
+ u->suspendTextPassThru = false;
+ }
+ }
+
+ // <p> paragraph tag
+ else if (!strcmp(tag.getName(), "p")) {
+ if ((!tag.isEndTag()) && (!tag.isEmpty())) { // non-empty start tag
+ buf += "<p><br />";
+ }
+ else if (tag.isEndTag()) { // end tag
+ buf += "</p><br />";
+ userData->supressAdjacentWhitespace = true;
+ }
+ else { // empty paragraph break marker
+ buf += "<p><br />";
+ userData->supressAdjacentWhitespace = true;
+ }
+ }
+
+ // <reference> tag
+ else if (!strcmp(tag.getName(), "reference")) {
+ const char *attrib;
+ const char *val;
+
+ if ((!tag.isEndTag()) && (!tag.isEmpty())) {
+ buf += "<a href=\"!DIATHEKE_URL!verse=";
+ if (attrib = tag.getAttribute("osisRef")) {
+ val = strchr(attrib, ':');
+ val = (val) ? (val + 1) : attrib;
+ buf.appendFormatted("%s", val);
+ }
+ buf += "\">";
+ }
+ else if (tag.isEndTag()) {
+ buf += "</a>";
+ }
+ }
+
+ // <l> poetry, etc
+ else if (!strcmp(tag.getName(), "l")) {
+ if (tag.isEmpty()) {
+ buf += "<br />";
+ }
+ else if (tag.isEndTag()) {
+ buf += "<br />";
+ }
+ else if (tag.getAttribute("sID")) { // empty line marker
+ buf += "<br />";
+ }
+ }
+
+ // <milestone type="line"/>
+ else if ((!strcmp(tag.getName(), "milestone")) && (tag.getAttribute("type")) && (!strcmp(tag.getAttribute("type"), "line"))) {
+ buf += "<br />";
+ userData->supressAdjacentWhitespace = true;
+ }
+
+ // <title>
+ else if (!strcmp(tag.getName(), "title")) {
+ if ((!tag.isEndTag()) && (!tag.isEmpty())) {
+ buf += "<b>";
+ }
+ else if (tag.isEndTag()) {
+ buf += "</b><br />";
+ }
+ }
+
+ // <hi> hi? hi contrast?
+ else if (!strcmp(tag.getName(), "hi")) {
+ SWBuf type = tag.getAttribute("type");
+ if ((!tag.isEndTag()) && (!tag.isEmpty())) {
+ if (type == "bold" || type == "x-b") {
+ buf += "<b> ";
+ u->inBold = true;
+ }
+ else { // all other types
+ buf += "<i> ";
+ u->inBold = false;
+ }
+ }
+ else if (tag.isEndTag()) {
+ if(u->inBold) {
+ buf += "</b>";
+ u->inBold = false;
+ }
+ else
+ buf += "</i>";
+ }
+ else { // empty hi marker
+ // what to do? is this even valid?
+ }
+ }
+
+ // <q> quote
+ else if (!strcmp(tag.getName(), "q")) {
+ SWBuf type = tag.getAttribute("type");
+ SWBuf who = tag.getAttribute("who");
+ const char *lev = tag.getAttribute("level");
+ int level = (lev) ? atoi(lev) : 1;
+
+ if ((!tag.isEndTag()) && (!tag.isEmpty())) {
+ /*buf += "{";*/
+
+ //alternate " and '
+ if (u->osisQToTick)
+ buf += (level % 2) ? '\"' : '\'';
+
+ if (who == "Jesus") {
+ buf += "<font color=\"red\"> ";
+ }
+ }
+ else if (tag.isEndTag()) {
+ //alternate " and '
+ if (u->osisQToTick)
+ buf += (level % 2) ? '\"' : '\'';
+ //buf += "</font>";
+ }
+ else { // empty quote marker
+ //alternate " and '
+ if (u->osisQToTick)
+ buf += (level % 2) ? '\"' : '\'';
+ }
+ }
+
+ // <transChange>
+ else if (!strcmp(tag.getName(), "transChange")) {
+ SWBuf type = tag.getAttribute("type");
+
+ if ((!tag.isEndTag()) && (!tag.isEmpty())) {
+
+// just do all transChange tags this way for now
+// if (type == "supplied")
+ buf += "<i>";
+ }
+ else if (tag.isEndTag()) {
+ buf += "</i>";
+ }
+ else { // empty transChange marker?
+ }
+ }
+
+ else {
+ return false; // we still didn't handle token
+ }
+ }
+ return true;
+}
+
+
+SWORD_NAMESPACE_END
diff --git a/utilities/diatheke/osiscgi.h b/utilities/diatheke/osiscgi.h
new file mode 100644
index 0000000..c6c6411
--- /dev/null
+++ b/utilities/diatheke/osiscgi.h
@@ -0,0 +1,48 @@
+/***************************************************************************
+ osiscgi.h - OSIS to Diatheke/CGI format
+ -------------------
+ begin : 2003-10-21
+ copyright : 2003 by CrossWire Bible Society
+ ***************************************************************************/
+
+/***************************************************************************
+ * *
+ * 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; either version 2 of the License, or *
+ * (at your option) any later version. *
+ * *
+ ***************************************************************************/
+
+#ifndef OSISCGI_H
+#define OSISCGI_H
+
+#include <swbasicfilter.h>
+
+#include <defs.h>
+
+SWORD_NAMESPACE_START
+
+/** this filter converts OSIS text to Diatheke/CGI format
+ */
+class SWDLLEXPORT OSISCGI : public SWBasicFilter {
+private:
+protected:
+ class MyUserData : public BasicFilterUserData {
+ public:
+ bool osisQToTick;
+ bool inBold;
+ SWBuf w;
+ SWBuf fn;
+ MyUserData(const SWModule *module, const SWKey *key);
+ };
+ virtual BasicFilterUserData *createUserData(const SWModule *module, const SWKey *key) {
+ return new MyUserData(module, key);
+ }
+ virtual bool handleToken(SWBuf &buf, const char *token, BasicFilterUserData *userData);
+public:
+ OSISCGI();
+};
+
+SWORD_NAMESPACE_END
+#endif
diff --git a/utilities/diatheke/pqa/Diatheke.pqa b/utilities/diatheke/pqa/Diatheke.pqa
new file mode 100644
index 0000000..620a5fb
--- /dev/null
+++ b/utilities/diatheke/pqa/Diatheke.pqa
Binary files differ
diff --git a/utilities/diatheke/pqa/src/README b/utilities/diatheke/pqa/src/README
new file mode 100644
index 0000000..277a643
--- /dev/null
+++ b/utilities/diatheke/pqa/src/README
@@ -0,0 +1 @@
+Use Palm's PQA Builder with the contents of this directory (except the README file) to build Diatheke.PQA. \ No newline at end of file
diff --git a/utilities/diatheke/pqa/src/all.html b/utilities/diatheke/pqa/src/all.html
new file mode 100644
index 0000000..0974033
--- /dev/null
+++ b/utilities/diatheke/pqa/src/all.html
@@ -0,0 +1,170 @@
+<html>
+<head>
+<title>HANDiatheke</title>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+</head>
+<form action=http://bible.gotjesus.org/cgi-bin/diatheke.pl method=get>
+ <p align=center>Query:
+ <INPUT name=verse>
+ <INPUT name=Submit type=submit value=Lookup>
+ <input type=hidden name=palm value=on>
+ </p>
+ <font size="-1">
+ <p>
+<input name=strongs type=checkbox value=on>Stong's*| <input name=footnotes type=checkbox value=on>Footnotes| <input name=search type=checkbox value=on>Search</p>
+ <hr>
+ <p> <b>English Bibles</b><br>
+<input name=ALT type=checkbox value=on>Analytical-Literal Trans. (ALT)<br>
+<input name=ASV type=checkbox value=on>American Standard Ver. (ASV)<br>
+<input name=BBE type=checkbox value=on>Bible in Basic English (BBE)<br>
+<input name=Brenton type=checkbox value=on>Brenton's English LXX Trans. [OT]<br>
+<input name=Darby type=checkbox value=on>Darby's Bible<br>
+<input name=DR type=checkbox value=on>Douay-Rheims (DR)<br>
+<input name=DRA type=checkbox value=on>Douay-Rheims 1899 American Ed.<br>
+<input name=HNV type=checkbox value=on>Hebrew Names Ver. (HNV)<br>
+<input name=ISV type=checkbox value=on>International Standard Ver. (ISV) [NT]<br>
+<input name=JPS type=checkbox value=on>JPS 1917 Tanakh [OT]<br>
+<input name=KJ21 type=checkbox value=on>21st Century King James Ver. (KJ21)<br>
+<input name=KJV type=checkbox value=on>King James Ver. (KJV/AV) *<br>
+<input name=LITV type=checkbox value=on>Green's Literal Trans. (LitV)<br>
+<input name=LO type=checkbox value=on>The Living Oracles [NT]<br>
+<input name=MKJV type=checkbox value=on>A Modern King James Ver. (MKJV)<br>
+<input name=NASB type=checkbox value=on>New American Standard (NASB) <br>
+<input name=NASB95 type=checkbox value=on>New American Standard, 95 Update<br>
+<input name=NIV type=checkbox value=on>New International Ver. (NIV)<br>
+<input name=NIVBr type=checkbox value=on>New International Ver., British Ed.<br>
+<input name=NJB type=checkbox value=on>New Jerusalem Bible (NJB)<br>
+<input name=NKJV type=checkbox value=on>New King James Ver. (NKJV)<br>
+<input name=NLT type=checkbox value=on>New Living Trans. (NLT)<br>
+<input name=NRSV type=checkbox value=on>New Revised Standard Ver. (NRSV)<br>
+<input name=ORTHJBC type=checkbox value=on>Orthodox Jewish Brit Chadasha [NT]<br>
+<input name=RSV type=checkbox value=on>Revised Standard Ver. (RSV)<br>
+<input name=RWebster type=checkbox value=on>Revised 1833 Webster's Bible *<br>
+<input name=WEB type=checkbox value=on>World English Bible (WEB)<br>
+<input name=Websters type=checkbox value=on>Webster's Bible<br>
+<input name=Weymouth type=checkbox value=on>Weymouth New Testament [NT]<br>
+<input name=YLT type=checkbox value=on>Young's Literal Trans. (YLT)</p>
+<p><b>Ancient Language Bibles</b><br>
+<input name=BHS type=checkbox value=on>Biblia Hebraica Stuttgartensia (BHS)<br>
+<input name=ByzX type=checkbox value=on>1991 Byzantine/Majority Text<br>
+<input name=LXXX type=checkbox value=on>Septuagint (LXX)<br>
+<input name=NA26X type=checkbox value=on>Nestle-Aland 26th Ed. GNT<br>
+<input name=ScrivnerX type=checkbox value=on>1894 Scrivener Textus Receptus<br>
+<input name=StephanusX type=checkbox value=on>1550 Stephanus Textus Receptus<br>
+<input name=TischX type=checkbox value=on>Tischendorf's Eighth Ed. GNT<br>
+<input name=Vulgate type=checkbox value=on>Latin Vulgate<br>
+<input name=WHX type=checkbox value=on>1881 Westcott-Hort GNT<br>
+<input name=WHNUX type=checkbox value=on>Westcott-Hort with NA27U4 variants<br>
+</p><p>
+<b>French Bibles</b><br>
+<input name=FreCrl type=checkbox value=on>French Haitian Creaole Ver.<br>
+<input name=FreDrb type=checkbox value=on>French Darby Trans.<br>
+<input name=FreLSG type=checkbox value=on>French 1910 Louis Segond (LSG)<br>
+<input name=FreNEG type=checkbox value=on>French Nouvelle Edition de Geneve 1979<br>
+</p>
+<p><b>German Bibles</b><br>
+<input name=GerBen type=checkbox value=on>German Bengel [NT]<br>
+<input name=GerEin type=checkbox value=on>German Einheitsuebersetzung<br>
+<input name=GerElb type=checkbox value=on>German 1905 Darby Unrev. Elberfelder<br>
+<input name=GerLut type=checkbox value=on>German 1912 Luther<br>
+<input name=GerLut1545 type=checkbox value=on>German 1545 Luther<br>
+<input name=GerRElb type=checkbox value=on>German 1993 Elberfelder, rev. Fassung<br>
+<input name=GerRLut type=checkbox value=on>German 1984 Revised Luther<br>
+<input name=GerSch type=checkbox value=on>German 1951 Schlachter Bibel<br>
+</p>
+<p>
+<b>Spanish Bibles</b><br>
+<input name=SpaLBA type=checkbox value=on>Spanish La Biblia de Las Americas (LBA)<br>
+<input name=SpaRV type=checkbox value=on>Spanish Reina-Valera<br>
+<input name=SpaRV60 type=checkbox value=on>Spanish 1960 Reina-Valera Revised<br>
+<input name=SpaRV95 type=checkbox value=on>Spanish 1995 Reina-Valera Update<br>
+<input name=SpaRVA type=checkbox value=on>Spanish Ver. Reina-Valera Actualizada<br>
+<input name=SpaSEV type=checkbox value=on>Spanish 1569 Ver. Antigua<br>
+<input name=SpaVNT type=checkbox value=on>Spanish 1858 Valera[NT]<br>
+</p>
+ <p> <b>Other Bibles</b><br>
+<input name=ALB type=checkbox value=on>Albanian Bible<br>
+<input name=CzeBKR type=checkbox value=on>Czech Bible Kralicka<br>
+<input name=CzeCEP type=checkbox value=on>Czech Ekumenicky Cesky Preklad<br>
+<input name=CzeKMS type=checkbox value=on>Czech Preklad KMS Nova Smlouva<br>
+<input name=CzeNKB type=checkbox value=on>Czech Nova Kralicka Bible<br>
+<input name=Dan type=checkbox value=on>Danish Danske Bibel<br>
+<input name=DutLEI type=checkbox value=on>Dutch Leidse Vertaling<br>
+<input name=DutLU type=checkbox value=on>Dutch Lutherse Vertaling<br>
+<input name=DutNBG type=checkbox value=on>Dutch 1951 Bijbelgenootschap Ver.<br>
+<input name=DutSVV type=checkbox value=on>Dutch Statenvertaling<br>
+<input name=EquShr type=checkbox value=on>Equadoran Shuar [NT]<br>
+<input name=FinPR type=checkbox value=on>Finish 1933 Phy~N Raamattu<br>
+<input name=HunKar type=checkbox value=on>Hungarian Karoli<br>
+<input name=IndBIS type=checkbox value=on>Bahasa Indonesia Sehari-hari (BIS)<br>
+<input name=IndTB type=checkbox value=on>Indonesian Terjemahan Baru (TB)<br>
+<input name=ItaIEP type=checkbox value=on>Italian Nuovissima Ver., San Paolo Ed.<br>
+<input name=ItaLND type=checkbox value=on>Italian 1991 La Nuova Diodati<br>
+<input name=ItaNRV type=checkbox value=on>Italian 1994 La Nuova Riveduta<br>
+<input name=Maori type=checkbox value=on>Maori Bible<br>
+<input name=Mel type=checkbox value=on>Melanesian Pidgin Bible<br>
+<input name=NorBok type=checkbox value=on>Norwegian 1930 Bokmal<br>
+<input name=NorN38 type=checkbox value=on>Norwegian 1938 Bokmal<br>
+<input name=NorNBK type=checkbox value=on>Norwegian Bibel Konkordant<br>
+<input name=NorNyn type=checkbox value=on>Norwegian 1994 Nynorsk<br>
+<input name=Norsk type=checkbox value=on>Norwegian Norsk Bible<br>
+<input name=PhiCEB type=checkbox value=on>Philippine Nga Cebuano<br>
+<input name=PolBTP type=checkbox value=on>Polish 1984 Millenium Bible, 4th Ed.<br>
+<input name=PorACF type=checkbox value=on>Portuguese 1995 Joao Ferreira<br>
+<input name=PorBRP type=checkbox value=on>Portuguese 1994 Almeida Biblia<br>
+<input name=RomCor type=checkbox value=on>Romanian Cornilescu Ver.<br>
+<input name=Swahili type=checkbox value=on>Swahili New Testament [NT]<br>
+<input name=SweSVE type=checkbox value=on>Swedish 1917 New Testament [NT]<br>
+<input name=Turkish type=checkbox value=on>Turkish New Testament [NT]<br>
+<input name=Uma type=checkbox value=on>Uma New Testament [NT]<br>
+<input name=Viet type=checkbox value=on>Vietnamese 1934 Bible<br>
+</p>
+ <p> <b>English Commentaries</b><br>
+<input name=DTN type=checkbox value=on>Darby Translation Notes<br>
+<input name=Family type=checkbox value=on>Family Bible Notes<br>
+<input name=TFG type=checkbox value=on>The Fourfold Gospel<br>
+<input name=Geneva type=checkbox value=on>Geneva Bible Translation Notes<br>
+<input name=Gill type=checkbox value=on>Gill's Expositor<br>
+<input name=MHCC type=checkbox value=on>Matthew Henry's Commentary<br>
+<input name=MHC type=checkbox value=on>Matthew Henry's Concise Commentary<br>
+<input name=PNT type=checkbox value=on>The People's New Testament<br>
+<input name=RWP type=checkbox value=on>Robertson's Word Pictures<br>
+<input name=Scofield type=checkbox value=on>Scofield Reference Notes, 1917 Ed.<br>
+<input name=Wesley type=checkbox value=on>John Wesley's Notes on the Bible<br>
+</p><p>
+<p><b>German Commentaries</b><br>
+<input name=MAK type=checkbox value=on>Matthias Ansorgs Kommentar<br>
+<input name=Rieger type=checkbox value=on>Carl Heinrich Riegers Kommentar<br>
+<input name=GerScof type=checkbox value=on>German Scofield 1917 Ed. (Gen-Eccl)<br>
+</p>
+<p>
+<b>Cross-references</b><br>
+<input name=TSK type=checkbox value=on>Treasury of Scriptural Knowledge<br>
+</p>
+ <p>
+<b>Bible Dictionaries</b><br>
+<input name=Eastons type=checkbox value=on>Easton's Bible Dictionary<br>
+<input name=Hitchcocks type=checkbox value=on>Hitchcock's Bible Names Dictionary<br>
+<input name=ISBE type=checkbox value=on>Int'l Standard Bible Encyclopedia<br>
+<input name=Smiths type=checkbox value=on>Smith's Bible Dictionary<br>
+<input name=Vines type=checkbox value=on>Vine's Bible Dictionary<br>
+</p>
+<p>
+<b>Topical References</b><br>
+<input name=Naves type=checkbox value=on>Naves' Topical Bible<br>
+<input name=Torrey type=checkbox value=on>R. A. Torrey's New Topical Textbook<br>
+</p>
+ <p>
+<b>Greek Lexica</b><br>
+<input name=StrongsGreek type=checkbox value=on>Strong's Greek Lexicon<br>
+<input name=Thayer type=checkbox value=on>Thayer's Greek Lexicon<br>
+</p>
+<p>
+<b>Hebrew Lexica</b><br>
+<input name=StrongsHebrew type=checkbox value=on>Strong's Hebrew Lexicon<br>
+<input name=BDB type=checkbox value=on>Brown-Driver-Briggs Hebrew Lexicon<br>
+</p>
+ </font>
+</form>
+</body>
+</html>
diff --git a/utilities/diatheke/pqa/src/ancient.html b/utilities/diatheke/pqa/src/ancient.html
new file mode 100644
index 0000000..4be0036
--- /dev/null
+++ b/utilities/diatheke/pqa/src/ancient.html
@@ -0,0 +1,32 @@
+<html>
+<head>
+<title>HANDiatheke</title>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+</head>
+<form action=http://bible.gotjesus.org/cgi-bin/diatheke.pl method=get>
+ <p align=center>Query:
+ <INPUT name=verse>
+ <INPUT name=Submit type=submit value=Lookup>
+ <input type=hidden name=palm value=on>
+ </p>
+ <font size="-1">
+ <p>
+<input name=strongs type=checkbox value=on>Stong's*| <input name=footnotes type=checkbox value=on>Footnotes| <input name=search type=checkbox value=on>Search</p>
+ <hr>
+ <p>
+<b>Bibles</b><br>
+<input name=BHS type=checkbox value=on>Biblia Hebraica Stuttgartensia (BHS)<br>
+<input name=ByzX type=checkbox value=on>1991 Byzantine/Majority Text<br>
+<input name=LXXX type=checkbox value=on>Septuagint (LXX)<br>
+<input name=NA26X type=checkbox value=on>Nestle-Aland 26th Ed. GNT<br>
+<input name=ScrivnerX type=checkbox value=on>1894 Scrivener Textus Receptus<br>
+<input name=StephanusX type=checkbox value=on>1550 Stephanus Textus Receptus<br>
+<input name=TischX type=checkbox value=on>Tischendorf's Eighth Ed. GNT<br>
+<input name=Vulgate type=checkbox value=on>Latin Vulgate<br>
+<input name=WHX type=checkbox value=on>1881 Westcott-Hort GNT<br>
+<input name=WHNUX type=checkbox value=on>Westcott-Hort with NA27U4 variants<br>
+</p>
+ </font>
+</form>
+</body>
+</html>
diff --git a/utilities/diatheke/pqa/src/dict.html b/utilities/diatheke/pqa/src/dict.html
new file mode 100644
index 0000000..944bce3
--- /dev/null
+++ b/utilities/diatheke/pqa/src/dict.html
@@ -0,0 +1,32 @@
+<html>
+<head>
+<title>HANDiatheke</title>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+</head>
+<form action=http://bible.gotjesus.org/cgi-bin/diatheke.pl method=get>
+ <p align=center>Query:
+ <INPUT name=verse>
+ <INPUT name=Submit type=submit value=Lookup>
+ <input type=hidden name=palm value=on>
+ </p>
+ <font size="-1">
+ <p>
+<input name=strongs type=checkbox value=on>Stong's*| <input name=footnotes type=checkbox value=on>Footnotes| <input name=search type=checkbox value=on>Search</p>
+ <hr>
+ <p>
+<b>Bible Dictionaries</b><br>
+<input name=Eastons type=checkbox value=on>Easton's Bible Dictionary<br>
+<input name=Hitchcocks type=checkbox value=on>Hitchcock's Bible Names Dictionary<br>
+<input name=ISBE type=checkbox value=on>Int'l Standard Bible Encyclopedia<br>
+<input name=Smiths type=checkbox value=on>Smith's Bible Dictionary<br>
+<input name=Vines type=checkbox value=on>Vine's Bible Dictionary<br>
+</p>
+<p>
+<b>Topical References</b><br>
+<input name=Naves type=checkbox value=on>Naves' Topical Bible<br>
+<input name=Torrey type=checkbox value=on>R. A. Torrey's New Topical Textbook<br>
+</p>
+ </font>
+</form>
+</body>
+</html>
diff --git a/utilities/diatheke/pqa/src/english.html b/utilities/diatheke/pqa/src/english.html
new file mode 100644
index 0000000..774245c
--- /dev/null
+++ b/utilities/diatheke/pqa/src/english.html
@@ -0,0 +1,68 @@
+<html>
+<head>
+<title>HANDiatheke</title>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+</head>
+<form action=http://bible.gotjesus.org/cgi-bin/diatheke.pl method=get>
+ <p align=center>Query:
+ <INPUT name=verse>
+ <INPUT name=Submit type=submit value=Lookup>
+ <input type=hidden name=palm value=on>
+ </p>
+ <font size="-1">
+ <p>
+<input name=strongs type=checkbox value=on>Stong's*| <input name=footnotes type=checkbox value=on>Footnotes| <input name=search type=checkbox value=on>Search</p>
+ <hr>
+ <p>
+<b>Bibles</b><br>
+<input name=ALT type=checkbox value=on>Analytical-Literal Trans. (ALT)<br>
+<input name=ASV type=checkbox value=on>American Standard Ver. (ASV)<br>
+<input name=BBE type=checkbox value=on>Bible in Basic English (BBE)<br>
+<input name=Brenton type=checkbox value=on>Brenton's English LXX Trans. [OT]<br>
+<input name=Darby type=checkbox value=on>Darby's Bible<br>
+<input name=DR type=checkbox value=on>Douay-Rheims (DR)<br>
+<input name=DRA type=checkbox value=on>Douay-Rheims 1899 American Ed.<br>
+<input name=HNV type=checkbox value=on>Hebrew Names Ver. (HNV)<br>
+<input name=ISV type=checkbox value=on>International Standard Ver. (ISV) [NT]<br>
+<input name=JPS type=checkbox value=on>JPS 1917 Tanakh [OT]<br>
+<input name=KJ21 type=checkbox value=on>21st Century King James Ver. (KJ21)<br>
+<input name=KJV type=checkbox value=on>King James Ver. (KJV/AV) *<br>
+<input name=LITV type=checkbox value=on>Green's Literal Trans. (LitV)<br>
+<input name=LO type=checkbox value=on>The Living Oracles [NT]<br>
+<input name=MKJV type=checkbox value=on>A Modern King James Ver. (MKJV)<br>
+<input name=NASB type=checkbox value=on>New American Standard (NASB) <br>
+<input name=NASB95 type=checkbox value=on>New American Standard, 95 Update<br>
+<input name=NIV type=checkbox value=on>New International Ver. (NIV)<br>
+<input name=NIVBr type=checkbox value=on>New International Ver., British Ed.<br>
+<input name=NJB type=checkbox value=on>New Jerusalem Bible (NJB)<br>
+<input name=NKJV type=checkbox value=on>New King James Ver. (NKJV)<br>
+<input name=NLT type=checkbox value=on>New Living Trans. (NLT)<br>
+<input name=NRSV type=checkbox value=on>New Revised Standard Ver. (NRSV)<br>
+<input name=ORTHJBC type=checkbox value=on>Orthodox Jewish Brit Chadasha [NT]<br>
+<input name=RSV type=checkbox value=on>Revised Standard Ver. (RSV)<br>
+<input name=RWebster type=checkbox value=on>Revised 1833 Webster's Bible *<br>
+<input name=WEB type=checkbox value=on>World English Bible (WEB)<br>
+<input name=Websters type=checkbox value=on>Webster's Bible<br>
+<input name=Weymouth type=checkbox value=on>Weymouth New Testament [NT]<br>
+<input name=YLT type=checkbox value=on>Young's Literal Trans. (YLT)</p>
+<p>
+<b>Commentaries</b><br>
+<input name=DTN type=checkbox value=on>Darby Translation Notes<br>
+<input name=Family type=checkbox value=on>Family Bible Notes<br>
+<input name=TFG type=checkbox value=on>The Fourfold Gospel<br>
+<input name=Geneva type=checkbox value=on>Geneva Bible Translation Notes<br>
+<input name=Gill type=checkbox value=on>Gill's Expositor<br>
+<input name=MHCC type=checkbox value=on>Matthew Henry's Commentary<br>
+<input name=MHC type=checkbox value=on>Matthew Henry's Concise Commentary<br>
+<input name=PNT type=checkbox value=on>The People's New Testament<br>
+<input name=RWP type=checkbox value=on>Robertson's Word Pictures<br>
+<input name=Scofield type=checkbox value=on>Scofield Reference Notes, 1917 Ed.<br>
+<input name=Wesley type=checkbox value=on>John Wesley's Notes on the Bible<br>
+</p><p>
+<b>Cross-references</b><br>
+<input name=TSK type=checkbox value=on>Treasury of Scriptural Knowledge<br>
+</p>
+ </font>
+</form>
+</body>
+</html>
diff --git a/utilities/diatheke/pqa/src/french.html b/utilities/diatheke/pqa/src/french.html
new file mode 100644
index 0000000..4aeea79
--- /dev/null
+++ b/utilities/diatheke/pqa/src/french.html
@@ -0,0 +1,26 @@
+<html>
+<head>
+<title>HANDiatheke</title>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+</head>
+<form action=http://bible.gotjesus.org/cgi-bin/diatheke.pl method=get>
+ <p align=center>Query:
+ <INPUT name=verse>
+ <INPUT name=Submit type=submit value=Lookup>
+ <input type=hidden name=palm value=on>
+ </p>
+ <font size="-1">
+ <p>
+<input name=strongs type=checkbox value=on>Stong's*| <input name=footnotes type=checkbox value=on>Footnotes| <input name=search type=checkbox value=on>Search</p>
+ <hr>
+ <p>
+<b>Bibles</b><br>
+<input name=FreCrl type=checkbox value=on>French Haitian Creaole Ver.<br>
+<input name=FreDrb type=checkbox value=on>French Darby Trans.<br>
+<input name=FreLSG type=checkbox value=on>French 1910 Louis Segond (LSG)<br>
+<input name=FreNEG type=checkbox value=on>French Nouvelle Edition de Geneve 1979<br>
+</p>
+ </font>
+</form>
+</body>
+</html>
diff --git a/utilities/diatheke/pqa/src/german.html b/utilities/diatheke/pqa/src/german.html
new file mode 100644
index 0000000..d772a56
--- /dev/null
+++ b/utilities/diatheke/pqa/src/german.html
@@ -0,0 +1,35 @@
+<html>
+<head>
+<title>HANDiatheke</title>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+</head>
+<form action=http://bible.gotjesus.org/cgi-bin/diatheke.pl method=get>
+ <p align=center>Query:
+ <INPUT name=verse>
+ <INPUT name=Submit type=submit value=Lookup>
+ <input type=hidden name=palm value=on>
+ </p>
+ <font size="-1">
+ <p>
+<input name=strongs type=checkbox value=on>Stong's*| <input name=footnotes type=checkbox value=on>Footnotes| <input name=search type=checkbox value=on>Search</p>
+ <hr>
+ <p>
+<b>Bibles</b><br>
+<input name=GerBen type=checkbox value=on>German Bengel [NT]<br>
+<input name=GerEin type=checkbox value=on>German Einheitsuebersetzung<br>
+<input name=GerElb type=checkbox value=on>German 1905 Darby Unrev. Elberfelder<br>
+<input name=GerLut type=checkbox value=on>German 1912 Luther<br>
+<input name=GerLut1545 type=checkbox value=on>German 1545 Luther<br>
+<input name=GerRElb type=checkbox value=on>German 1993 Elberfelder, rev. Fassung<br>
+<input name=GerRLut type=checkbox value=on>German 1984 Revised Luther<br>
+<input name=GerSch type=checkbox value=on>German 1951 Schlachter Bibel<br>
+</p>
+<p><b>Commentaries</b><br>
+<input name=MAK type=checkbox value=on>Matthias Ansorgs Kommentar<br>
+<input name=Rieger type=checkbox value=on>Carl Heinrich Riegers Kommentar<br>
+<input name=GerScof type=checkbox value=on>German Scofield 1917 Ed. (Gen-Eccl)<br>
+</p>
+ </font>
+</form>
+</body>
+</html>
diff --git a/utilities/diatheke/pqa/src/index.html b/utilities/diatheke/pqa/src/index.html
new file mode 100644
index 0000000..ff7a8c4
--- /dev/null
+++ b/utilities/diatheke/pqa/src/index.html
@@ -0,0 +1,43 @@
+<html>
+<head>
+<title>HANDiatheke</title>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+</head>
+
+<body bgcolor="#FFFFFF">
+<center>
+<form action=http://bible.gotjesus.org/cgi-bin/diatheke.pl method=get>
+ Quick lookup in KJV, NIV, NAS, & WEB:<br>
+<INPUT name=verse>
+<INPUT name=Submit type=submit value=Lookup>
+<input type=hidden name=KJV value=on>
+<input type=hidden name=NIV value=on>
+<input type=hidden name=NASB value=on>
+<input type=hidden name=WEB value=on>
+<input type=hidden name=palm value=on>
+</form><hr>
+ <a href="all.html">All Books</a><br>
+ <br><br>
+ <table border=0>
+ <tr>
+ <td width="50%" height="22"> <a href="dict.html">Dictionaries & Topics</a></td>
+ <td width="50%" height="22"> <a href="lex.html">Lexica</a></td>
+ </tr>
+ </table>
+ <br><br>
+ Bibles & Commentaries:<br>
+ <table border=0>
+ <tr>
+ <td width="33%"> <a href="english.html">English</a></td>
+ <td width="34%"> <a href="french.html">French</a></td>
+ <td width="33%"> <a href="german.html">German</a></td>
+ </tr>
+ <tr>
+ <td width="33%"> <a href="ancient.html">Ancient</a></td>
+ <td width="34%"> <a href="spanish.html">Spanish</a></td>
+ <td width="33%"> <a href="other.html">Other</a></td>
+ </tr>
+ </table>
+</center>
+</body>
+</html>
diff --git a/utilities/diatheke/pqa/src/lex.html b/utilities/diatheke/pqa/src/lex.html
new file mode 100644
index 0000000..29fe0f7
--- /dev/null
+++ b/utilities/diatheke/pqa/src/lex.html
@@ -0,0 +1,29 @@
+<html>
+<head>
+<title>HANDiatheke</title>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+</head>
+<form action=http://bible.gotjesus.org/cgi-bin/diatheke.pl method=get>
+ <p align=center>Query:
+ <INPUT name=verse>
+ <INPUT name=Submit type=submit value=Lookup>
+ <input type=hidden name=palm value=on>
+ </p>
+ <font size="-1">
+ <p>
+<input name=strongs type=checkbox value=on>Stong's*| <input name=footnotes type=checkbox value=on>Footnotes| <input name=search type=checkbox value=on>Search</p>
+ <hr>
+ <p>
+<b>Greek Lexica</b><br>
+<input name=StrongsGreek type=checkbox value=on>Strong's Greek Lexicon<br>
+<input name=Thayer type=checkbox value=on>Thayer's Greek Lexicon<br>
+</p>
+<p>
+<b>Hebrew Lexica</b><br>
+<input name=StrongsHebrew type=checkbox value=on>Strong's Hebrew Lexicon<br>
+<input name=BDB type=checkbox value=on>Brown-Driver-Briggs Hebrew Lexicon<br>
+</p>
+ </font>
+</form>
+</body>
+</html>
diff --git a/utilities/diatheke/pqa/src/other.html b/utilities/diatheke/pqa/src/other.html
new file mode 100644
index 0000000..6184f94
--- /dev/null
+++ b/utilities/diatheke/pqa/src/other.html
@@ -0,0 +1,57 @@
+<html>
+<head>
+<title>HANDiatheke</title>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+</head>
+<form action=http://bible.gotjesus.org/cgi-bin/diatheke.pl method=get>
+ <p align=center>Query:
+ <INPUT name=verse>
+ <INPUT name=Submit type=submit value=Lookup>
+ <input type=hidden name=palm value=on>
+ </p>
+ <font size="-1">
+ <p>
+<input name=strongs type=checkbox value=on>Stong's*| <input name=footnotes type=checkbox value=on>Footnotes| <input name=search type=checkbox value=on>Search</p>
+ <hr>
+ <p>
+<b>Bibles</b><br>
+<input name=ALB type=checkbox value=on>Albanian Bible<br>
+<input name=CzeBKR type=checkbox value=on>Czech Bible Kralicka<br>
+<input name=CzeCEP type=checkbox value=on>Czech Ekumenicky Cesky Preklad<br>
+<input name=CzeKMS type=checkbox value=on>Czech Preklad KMS Nova Smlouva<br>
+<input name=CzeNKB type=checkbox value=on>Czech Nova Kralicka Bible<br>
+<input name=Dan type=checkbox value=on>Danish Danske Bibel<br>
+<input name=DutLEI type=checkbox value=on>Dutch Leidse Vertaling<br>
+<input name=DutLU type=checkbox value=on>Dutch Lutherse Vertaling<br>
+<input name=DutNBG type=checkbox value=on>Dutch 1951 Bijbelgenootschap Ver.<br>
+<input name=DutSVV type=checkbox value=on>Dutch Statenvertaling<br>
+<input name=EquShr type=checkbox value=on>Equadoran Shuar [NT]<br>
+<input name=FinPR type=checkbox value=on>Finish 1933 Phy~N Raamattu<br>
+<input name=HunKar type=checkbox value=on>Hungarian Karoli<br>
+<input name=IndBIS type=checkbox value=on>Bahasa Indonesia Sehari-hari (BIS)<br>
+<input name=IndTB type=checkbox value=on>Indonesian Terjemahan Baru (TB)<br>
+<input name=ItaIEP type=checkbox value=on>Italian Nuovissima Ver., San Paolo Ed.<br>
+<input name=ItaLND type=checkbox value=on>Italian 1991 La Nuova Diodati<br>
+<input name=ItaNRV type=checkbox value=on>Italian 1994 La Nuova Riveduta<br>
+<input name=Maori type=checkbox value=on>Maori Bible<br>
+<input name=Mel type=checkbox value=on>Melanesian Pidgin Bible<br>
+<input name=NorBok type=checkbox value=on>Norwegian 1930 Bokmal<br>
+<input name=NorN38 type=checkbox value=on>Norwegian 1938 Bokmal<br>
+<input name=NorNBK type=checkbox value=on>Norwegian Bibel Konkordant<br>
+<input name=NorNyn type=checkbox value=on>Norwegian 1994 Nynorsk<br>
+<input name=Norsk type=checkbox value=on>Norwegian Norsk Bible<br>
+<input name=PhiCEB type=checkbox value=on>Philippine Nga Cebuano<br>
+<input name=PolBTP type=checkbox value=on>Polish 1984 Millenium Bible, 4th Ed.<br>
+<input name=PorACF type=checkbox value=on>Portuguese 1995 Joao Ferreira<br>
+<input name=PorBRP type=checkbox value=on>Portuguese 1994 Almeida Biblia<br>
+<input name=RomCor type=checkbox value=on>Romanian Cornilescu Ver.<br>
+<input name=Swahili type=checkbox value=on>Swahili New Testament [NT]<br>
+<input name=SweSVE type=checkbox value=on>Swedish 1917 New Testament [NT]<br>
+<input name=Turkish type=checkbox value=on>Turkish New Testament [NT]<br>
+<input name=Uma type=checkbox value=on>Uma New Testament [NT]<br>
+<input name=Viet type=checkbox value=on>Vietnamese 1934 Bible<br>
+</p>
+ </font>
+</form>
+</body>
+</html>
diff --git a/utilities/diatheke/pqa/src/spanish.html b/utilities/diatheke/pqa/src/spanish.html
new file mode 100644
index 0000000..e848003
--- /dev/null
+++ b/utilities/diatheke/pqa/src/spanish.html
@@ -0,0 +1,29 @@
+<html>
+<head>
+<title>HANDiatheke</title>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+</head>
+<form action=http://bible.gotjesus.org/cgi-bin/diatheke.pl method=get>
+ <p align=center>Query:
+ <INPUT name=verse>
+ <INPUT name=Submit type=submit value=Lookup>
+ <input type=hidden name=palm value=on>
+ </p>
+ <font size="-1">
+ <p>
+<input name=strongs type=checkbox value=on>Stong's*| <input name=footnotes type=checkbox value=on>Footnotes| <input name=search type=checkbox value=on>Search</p>
+ <hr>
+ <p>
+<b>Bibles</b><br>
+<input name=SpaLBA type=checkbox value=on>Spanish La Biblia de Las Americas (LBA)<br>
+<input name=SpaRV type=checkbox value=on>Spanish Reina-Valera<br>
+<input name=SpaRV60 type=checkbox value=on>Spanish 1960 Reina-Valera Revised<br>
+<input name=SpaRV95 type=checkbox value=on>Spanish 1995 Reina-Valera Update<br>
+<input name=SpaRVA type=checkbox value=on>Spanish Ver. Reina-Valera Actualizada<br>
+<input name=SpaSEV type=checkbox value=on>Spanish 1569 Ver. Antigua<br>
+<input name=SpaVNT type=checkbox value=on>Spanish 1858 Valera[NT]<br>
+</p>
+ </font>
+</form>
+</body>
+</html>
diff --git a/utilities/diatheke/soap/sapouni.cgi b/utilities/diatheke/soap/sapouni.cgi
new file mode 100755
index 0000000..24df769
--- /dev/null
+++ b/utilities/diatheke/soap/sapouni.cgi
@@ -0,0 +1,97 @@
+#!/usr/bin/perl
+
+#version 1.0
+
+package sapouni;
+$sapouni = "nice /usr/bin/diatheke"; # location of diatheke command line program -- if you are using a MS Windows server, you might need to remove the "nice"
+
+$sword_path = "/home/sword"; # SWORD_PATH environment variable you want to use
+$maxverses = 0; # maximum number of verses diatheke will return per query (prevents people from asking for Gen1:1-Rev22:21; 0 for unlim.)
+$defversion = "KJV"; # book to query when none is selected, but a verse/search is entered
+$deflocale = "abbr"; # this is just the default for cases where user has not selected a locale and his browser does not reveal one -- you can also set locale using locael=<locale> in the GET URL
+
+
+###############################################################################
+## You should not need to edit anything below this line.
+## Unless you want to modify functionality of course. :)
+###############################################################################
+
+$ENV{'SWORD_PATH'} = $sword_path;
+
+use SOAP::Transport::HTTP;
+
+SOAP::Transport::HTTP::CGI
+ -> dispatch_to('sapouni')
+ -> handle;
+
+package sapouni;
+
+sub biblequery {
+ my ($class, $books, $key, $options, $encoding, $markup, $searchtype, $locale, $script, $max) = @_;
+
+ if ($key eq "") {
+ $key = "Jn 3:16";
+ }
+
+ @booklist = split ' ', $books;
+
+ $n = scalar(@booklist);
+ if ($n == 0) {
+ @booklist[0] = $defversion;
+ $n++;
+ }
+
+ $query = "";
+
+ if ($options ne "") {
+ $query .= " -o \"$options\"";
+ }
+
+ if ($encoding ne "") {
+ $query .= " -e \"$encoding\"";
+ }
+ else {
+ $query .= " -e UTF8";
+ }
+
+ if ($markup ne "") {
+ $query .= " -f \"$markup\"";
+ }
+ else {
+ $query .= " -f ThML";
+ }
+
+ if ($searchtype ne "") {
+ $query .= " -s \"$searchtype\"";
+ }
+
+ if ($locale ne "") {
+ $query .= " -l \"$locale\"";
+ }
+ else {
+ $query .= " -l $deflocale";
+ }
+
+ if ($script ne "") {
+ $query .= " -t \"$script\"";
+ }
+
+ if ($max ne "" && $max ne 0) {
+ $query .= " -m \"$max\"";
+ }
+
+ $rval = "";
+ for ($i = 0; $i < $n; $i++) {
+ $line = "$sapouni $query -b $booklist[$i] -k \"$key\" 2> /dev/null";
+
+ # uncomment to print the command line send to Diatheke (for debugging)
+ # $rval .= "$line\n";
+
+ $line = `$line`;
+ chomp($line);
+
+ $rval .= "$line\n";
+ }
+
+ return "$rval";
+}
diff --git a/utilities/diatheke/soap/soapatheke.pl b/utilities/diatheke/soap/soapatheke.pl
new file mode 100755
index 0000000..e3f88ed
--- /dev/null
+++ b/utilities/diatheke/soap/soapatheke.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+## This is a test app and has no other purpose.
+
+use SOAP::Lite;
+
+my ($books, $key, $options, $encoding, $markup, $searchtype, $locale, $script, $max) = @ARGV;
+
+# uncomment to see parameters being passed to the SOAP server (for debugging)
+# print "$books\n$key\n$options\n$encoding\n$markup\n$searchtype\n$locale\n$script\n$max\n";
+
+print SOAP::Lite
+ -> uri('http://bible.gotjesus.org/sapouni')
+ -> proxy('http://bible.gotjesus.org/cgi-bin/sapouni.cgi')
+ -> biblequery($books, $key, $options, $encoding, $markup, $searchtype, $locale, $script, $max)
+ -> result;
diff --git a/utilities/diatheke/tcl/biblebot-diatheke.tcl b/utilities/diatheke/tcl/biblebot-diatheke.tcl
new file mode 100644
index 0000000..1fea379
--- /dev/null
+++ b/utilities/diatheke/tcl/biblebot-diatheke.tcl
@@ -0,0 +1,2131 @@
+# Diatheke/Tcl 3.0 by Chris Little <chrislit@gotjesus.org>
+# Based on code schema of <cking@acy.digex.net>
+
+# Copyright 1999 by Chris Little
+# Licensed under GNU General Public License (GPL)
+# see accompanying LICENSE file for license 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.
+#
+# 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.
+#
+# 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
+
+#modify this to reflect actual location of diatheke and dict binaries
+set diatheke "/usr/bin/diatheke"
+set dict "/usr/bin/dict"
+
+proc publookupverse {vlookup} {
+ global botnick chan bibver diatheke
+
+ set arg "-b"
+ set n [string first "@" $vlookup]
+ if {$n > -1 && $n < 2} {
+ append arg n
+ }
+
+ set n [string first "#" $vlookup]
+ if {$n > -1 && $n < 2} {
+ append arg f
+ }
+ set vlookup [string trimleft $vlookup "#"]
+ set vlookup [string trimleft $vlookup "@"]
+ set vlookup [string trimleft $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} {
+ set len [string length $fooverse]
+ set i 0
+ set j 255
+ while {$j < $len} {
+ if {[regexp ">" $fooverse]} {
+ while {[string index $fooverse $j] != ">" && [string index $fooverse $j] != "\n"} {set j [expr $j - 1]}
+ } else {
+ while {[string index $fooverse $j] != " " && [string index $fooverse $j] != "\n"} {set j [expr $j - 1]}
+ }
+ set foo2 [string range $fooverse $i $j]
+ set foo2 [string trim $foo2]
+ regsub -all -nocase {(<FI>|<CM>|<FB>)} $foo2 {} foo2
+ regsub -all {<RF>} $foo2 {(footnote: } foo2
+ regsub -all {<Rf>} $foo2 {)} foo2
+ putmsg $chan "$foo2"
+ set i [expr $j + 1]
+ set j [expr $j + 256]
+ if {$j > $len} {set j $len}
+ }
+ set foo2 [string range $fooverse $i end]
+ set foo2 [string trim $foo2]
+ regsub -all -nocase {(<FI>|<CM>|<FB>)} $foo2 {} foo2
+ regsub -all {<RF>} $foo2 {(footnote: } foo2
+ regsub -all {<Rf>} $foo2 {)} foo2
+ putmsg $chan "$foo2"
+ }
+
+ 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
+ if {$von==0} {
+ putmsg $nick "Verse display is currently off."
+ return 0
+ }
+ if {($von==2) && (![matchattr $hand 3]) && (![matchattr $hand o])} {
+ 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
+}
+
+
+# ----------------------------------------------------------------------
+
+proc pubsearchword {vlookup} {
+ global botnick chan bibver diatheke
+ catch {exec $diatheke -s $bibver "$vlookup" >& /tmp/fooout.$botnick}
+ catch {set foofile [open /tmp/fooout.$botnick]}
+
+ while {[gets $foofile fooverse] >= 0} {
+ set len [string length $fooverse]
+ set i 0
+ set j 72
+ while {$j < $len} {
+ while {[string index $fooverse $j] != ";" && [string index $fooverse $j] != ")" && [string index $fooverse $j] != "\n"} {set j [expr $j + 1]}
+ set foo2 [string range $fooverse $i $j]
+ set foo2 [string trim $foo2]
+ putmsg $chan "$foo2"
+ set i [expr $j + 1]
+ set j [expr $j + 73]
+ if {$j > $len} {set j $len}
+ }
+ set foo2 [string range $fooverse $i end]
+ set foo2 [string trim $foo2]
+ putmsg $chan "$foo2"
+ }
+ catch {close $foofile}
+
+ putmsg $chan "$fooverse"
+ exec rm /tmp/fooout.$botnick
+ return 1
+}
+
+
+proc pub_lookups {nick uhost hand channel arg} {
+ global von chan bibver
+ set chan $channel
+ if {$von==0} {
+ putmsg $nick "Verse display is currently off."
+ return 0
+ }
+ if {($von==3) && (![matchattr $hand 3]) && (![matchattr $hand o]) && (![isvoice $nick $chan])} {
+ putmsg $nick "Sorry, only ops and voiced users can do searches right now."
+ return 0
+ }
+ if {($von==2) && (![matchattr $hand 3]) && (![matchattr $hand o])} {
+ putmsg $nick "Sorry, only ops can do searches right now."
+ return 0
+ }
+
+ 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
+ catch {exec $diatheke -f plaintext -b $bibver -k "$vlookup" >& /tmp/fooout.$botnick}
+ catch {set foofile [open /tmp/fooout.$botnick]}
+
+ while {[gets $foofile fooverse] >= 0} {
+ putmsg $chan "$fooverse"
+ }
+ catch {close $foofile}
+ # exec rm /tmp/fooout.$botnick
+ return 1
+}
+
+
+proc pub_lookupd {nick uhost hand channel arg} {
+ global von chan bibver
+ set chan $channel
+ if {$von==0} {
+ putmsg $nick "Verse display is currently off."
+ return 0
+ }
+ if {($von==3) && (![matchattr $hand 3]) && (![matchattr $hand o]) && (![isvoice $nick $chan])} {
+ putmsg $nick "Sorry, only ops and voiced users can use dictionaries and indices right now."
+ return 0
+ }
+ if {($von==2) && (![matchattr $hand 3]) && (![matchattr $hand o])} {
+ 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
+}
+
+bind pub - !torrey setver_torrey
+
+proc setver_torrey {nick uhost hand channel arg} {
+ global botnick chan bibver
+ set bibver Torrey
+ pub_lookupd $nick $uhost $hand $channel $arg
+}
+
+#----------------------------------------------------------------------
+
+proc publookupcomm {vlookup} {
+ global botnick chan bibver diatheke
+ catch {exec $diatheke -c $bibver "$vlookup" >& /tmp/fooout.$botnick}
+ catch {set foofile [open /tmp/fooout.$botnick]}
+ while {[gets $foofile fooverse] >= 0} {
+ set len [string length $fooverse]
+ set i 0
+ set j 72
+ while {$j < $len} {
+ while {[string index $fooverse $j] != " " && [string index $fooverse $j] != "\n"} {set j [expr $j + 1]}
+ set foo2 [string range $fooverse $i $j]
+ set foo2 [string trim $foo2]
+ regsub -all -nocase {(<FI>|<CM>|<FB>)} $foo2 {} foo2
+ regsub -all {<RF>} $foo2 {(footnote: } foo2
+ regsub -all {<Rf>} $foo2 {)} foo2
+ putmsg $chan "$foo2"
+ set i [expr $j + 1]
+ set j [expr $j + 73]
+ if {$j > $len} {set j $len}
+ }
+ set foo2 [string range $fooverse $i end]
+ set foo2 [string trim $foo2]
+ regsub -all -nocase {(<FI>|<CM>|<FB>)} $foo2 {} foo2
+ regsub -all {<RF>} $foo2 {(footnote: } foo2
+ regsub -all {<Rf>} $foo2 {)} foo2
+ putmsg $chan "$foo2"
+ }
+ catch {close $foofile}
+ exec rm /tmp/fooout.$botnick
+ return 1
+}
+
+
+proc pub_lookupc {nick uhost hand channel arg} {
+ global von chan bibver
+ set chan $channel
+ if {$von==0} {
+ putmsg $nick "Verse display is currently off."
+ return 0
+ }
+ if {($von==3) && (![matchattr $hand 3]) && (![matchattr $hand o]) && (![isvoice $nick $chan])} {
+ putmsg $nick "Sorry, only ops and voiced users can use commentaries right now."
+ return 0
+ }
+ if {($von==2) && (![matchattr $hand 3]) && (![matchattr $hand o])} {
+ putmsg $nick "Sorry, only ops can use commentaries right now."
+ return 0
+ }
+
+ 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
+
+proc dictlookup {nick uhost hand channel arg} {
+ global botnick von dict
+
+ if {$von==0} {
+ putmsg $nick "Verse display is currently off."
+ return 0
+ }
+ if {($von==3) && (![matchattr $hand 3]) && (![matchattr $hand o]) && (![isvoice $nick $channel])} {
+ putmsg $nick "Sorry, only ops and voiced users can use dictionaries and indices right now."
+ return 0
+ }
+ if {($von==2) && (![matchattr $hand 3]) && (![matchattr $hand o])} {
+ putmsg $nick "Only ops can use dictionaries and indices right now."
+ return 0
+ }
+
+ catch {exec $dict "$arg" >& /tmp/fooout.$botnick}
+ catch {set foofile [open /tmp/fooout.$botnick]}
+ catch {set fooverse [gets $foofile]}
+ while {[gets $foofile fooverse] >= 0} {
+ set fooverse [string trim $fooverse]
+ putmsg $channel "$fooverse"
+ }
+ catch {close $foofile}
+ exec rm /tmp/fooout.$botnick
+ return 1
+}
+
+#----------------------------------------------------------------------
+
+bind pub - !biblehelp pub_help
+bind msg - biblehelp pub_help
+
+proc pub_help {nick uhost hand channel arg} {
+ global diaver
+ global von
+ putserv "NOTICE $nick :Diatheke/Tcl BibleBot version $diaver"
+
+ if {(($von==0) || ($von==2)) && (![matchattr $hand 3]) && (![matchattr $hand o])} {
+ putserv "NOTICE $nick :BibleBot displays are currently turned off."
+ return 1
+ }
+
+ 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"
+ putserv "NOTICE $nick :To turn Strong's numbers and/or footnotes on, use @ and/or # respectively before the book name. For example \"!kjv @#Gen 1:4\" will retrieve Genesis 1:3 with the Strong's numbers and footnotes associated with it."
+
+ if {($von==3) && (![matchattr $hand 3]) && (![matchattr $hand o]) && (![isvoice $nick $channel])} {
+ return 1
+ }
+
+ putserv "NOTICE $nick :Commentary lookups, using \"!<commentary> <book> <chapter>:<verse>\""
+ putserv "NOTICE $nick :Dictionary/index lookups, using \"!<dictionary> <word or number>\""
+ putserv "NOTICE $nick :Bible searches, using \"!s<bible version> <word>\""
+ putserv "NOTICE $nick :Diatheke/Tcl defaults to PHRASE search mode. To use MULTI-WORD search mode, preface your search with an @. To use REGEX mode, preface your search with a #. For example: \"!skjv @Jesus love\" will print a list of all verses in the KJV containing the words Jesus and love."
+
+ if {(![matchattr $hand 3]) && (![matchattr $hand o])} {
+ return 1
+ }
+
+ putserv "NOTICE $nick :To turn verse display off, use \"!verseoff\""
+ putserv "NOTICE $nick :To turn all displays on for all users, use \"!verseon\""
+ putserv "NOTICE $nick :To turn all displays on for ops only, use \"!verseon o\""
+ putserv "NOTICE $nick :To turn verse diaplays on for regular users and all other displays on for ops and voiced users only, use \"!verseon v\" (default)"
+}
+
+bind pub - !books pub_books
+bind msg - books pub_books
+
+proc pub_books {nick uhost hand channel arg} {
+ global von
+
+ if {(($von==0) || ($von==2)) && (![matchattr $hand 3]) && (![matchattr $hand o])} {
+ putserv "NOTICE $nick :BibleBot displays are currently turned off."
+ 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)"
+
+ 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)"
+}
+
+#----------------------------------------------------------------------
+
+bind pub - !status pub_status
+bind msg - status pub_status
+
+proc pub_status {nick uhost hand channel arg} {
+ global von
+
+ if {$von==0} {
+ putserv "NOTICE $nick :All BibleBot displays are currently off."
+ } elseif {$von==1} {
+ putserv "NOTICE $nick :All BibleBot displays are currently on."
+ } elseif {$von==2} {
+ putserv "NOTICE $nick :All BibleBot displays are currently on for ops only."
+ } else {
+ putserv "NOTICE $nick :Verse displays are currently on for all users, but other BibleBot displays are currently restricted to ops and voiced users."
+ }
+ 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} {
+ global von
+ if {![matchattr $hand 3] && ![matchattr $hand o]} {
+ return 0
+ } elseif {$arg=="v"} {
+ set von 3
+# putserv "NOTICE $nick :Long Text Display is now on for voiced only!"
+ } elseif {$arg=="o"} {
+ set von 2
+# putserv "NOTICE $nick :Verse Display is now on for ops only!"
+ } else {
+ set von 1
+# putserv "NOTICE $nick :All Display is now on!"
+ }
+ pub_status $nick $uhost $hand $channel $arg
+ return 1
+}
+bind pub - !verseon pub_verseon
+bind msg - verseon pub_verseon
+
+proc pub_verseoff {nick uhost hand channel arg} {
+ global von
+
+ if {![matchattr $hand 3] && ![matchattr $hand o]} {
+ return 0
+ }
+ set von 0
+# putserv "NOTICE $nick :Verse Display is now off!"
+ pub_status $nick $uhost $hand $channel $arg
+ return 1
+}
+bind pub - !verseoff pub_verseoff
+bind msg - verseoff pub_verseoff
+
+proc dcc_verseoff {hand idx arg} {
+ global von
+ global whovoff
+ if {![matchattr $hand 3] && ![matchattr $hand o]} {
+ return 0
+ }
+ set von 0
+ set whovoff $hand
+ return 1
+}
+bind dcc - verseoff dcc_verseoff
+
+proc dcc_verseon {hand idx arg} {
+ global von
+ if {![matchattr $hand 3] && ![matchattr $hand o]} {
+ return 0
+ }
+ elseif {$arg=="v"} {
+ set von 3
+ }
+ elseif {$arg=="o"} {
+ set von 2
+ } else {
+ set von 1
+ }
+ return 1
+}
+bind dcc - verseon dcc_verseon
+
+#sets default von mode
+set von 1
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/utilities/diatheke/thmlcgi.cpp b/utilities/diatheke/thmlcgi.cpp
new file mode 100644
index 0000000..d24b9f9
--- /dev/null
+++ b/utilities/diatheke/thmlcgi.cpp
@@ -0,0 +1,192 @@
+/***************************************************************************
+ thmlcgi.cpp - ThML to Diatheke/CGI format
+ -------------------
+ begin : 2001-11-12
+ copyright : 2001 by CrossWire Bible Society
+ ***************************************************************************/
+
+/***************************************************************************
+ * *
+ * 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; either version 2 of the License, or *
+ * (at your option) any later version. *
+ * *
+ ***************************************************************************/
+
+#include <stdlib.h>
+#include <string.h>
+#include "thmlcgi.h"
+
+SWORD_NAMESPACE_START
+
+ThMLCGI::ThMLCGI() {
+ setTokenStart("<");
+ setTokenEnd(">");
+
+ setTokenCaseSensitive(true);
+
+ addTokenSubstitute("note", " <font color=\"#008000\"><small>(");
+ addTokenSubstitute("/note", ")</small></font> ");
+}
+
+
+bool ThMLCGI::handleToken(SWBuf &buf, const char *token, DualStringMap &userData) {
+ unsigned long i;
+ if (!substituteToken(buf, token)) {
+ // manually process if it wasn't a simple substitution
+ if (!strncmp(token, "sync ", 5)) {
+ buf += "<a href=\"!DIATHEKE_URL!";
+ char* pbuf;
+ char typ[32]; typ[0] = 0;
+ char val[32]; val[0] = 0;
+ char cls[32]; cls[0] = 0;
+ for (unsigned int j = 5; j < strlen(token); j++) {
+ if (!strncmp(token+j, "type=\"", 6)) {
+ pbuf = typ;
+ j += 6;
+ for (;token[j] != '\"'; j++)
+ *(pbuf)++ = token[j];
+ *(pbuf) = 0;
+ }
+ else if (!strncmp(token+j, "value=\"", 7)) {
+ pbuf = val;
+ j += 7;
+ for (;token[j] != '\"'; j++)
+ *(pbuf)++ = token[j];
+ *(pbuf) = 0;
+ }
+ else if (!strncmp(token+j, "class=\"", 7)) {
+ pbuf = cls;
+ j += 7;
+ for (;token[j] != '\"'; j++)
+ *(pbuf)++ = token[j];
+ *(pbuf) = 0;
+ }
+ }
+ if (*cls && *val) {
+ buf.appendFormatted("%s=on&verse=%s", cls, val);
+ }
+ else if (*typ && *val) {
+ if (!strnicmp(typ, "Strongs", 7)) {
+ if (*val == 'G') {
+ buf.appendFormatted("StrongsGreek=on&verse=%s", val + 1);
+ }
+ else if (*val == 'H') {
+ buf.appendFormatted("StrongsHebrew=on&verse=%s", val + 1);
+ }
+ }
+
+ else if (!strnicmp(typ, "Morph", 5)) {
+ if (*val == 'G') {
+ buf.appendFormatted("StrongsGreek=on&verse=%s", val + 1);
+ }
+ else if (*val == 'H') {
+ buf.appendFormatted("StrongsHebrew=on&verse=%s", val + 1);
+ }
+ else {
+ buf.appendFormatted("Packard=on&verse=%s", val);
+ }
+ }
+ else {
+ buf.appendFormatted("%s=on&verse=%s", typ, val);
+ }
+ }
+ buf += "\">";
+
+ if (*val) {
+ buf += val;
+ }
+ buf += "</a>";
+ }
+
+ else if (!strncmp(token, "scripRef p", 10) || !strncmp(token, "scripRef v", 10)) {
+ userData["inscriptRef"] = "true";
+ buf += "<a href=\"!DIATHEKE_URL!";
+ for (i = 9; i < strlen(token); i++) {
+ if (!strncmp(token+i, "version=\"", 9)) {
+ i += 9;
+ for (;token[i] != '\"'; i++)
+ buf += token[i];
+ buf += "=on&";
+ }
+ if (!strncmp(token+i, "passage=\"", 9)) {
+ i += 9;
+ buf += "verse=";
+ for (;token[i] != '\"'; i++) {
+ if (token[i] == ' ') buf += '+';
+ else buf += token[i];
+ }
+ buf += '&';
+ }
+ }
+ buf += "\">";
+ }
+
+ // we're starting a scripRef like "<scripRef>John 3:16</scripRef>"
+ else if (!strcmp(token, "scripRef")) {
+ userData["inscriptRef"] = "false";
+ // let's stop text from going to output
+ userData["suspendTextPassThru"] = "true";
+ }
+
+ // we've ended a scripRef
+ else if (!strcmp(token, "/scripRef")) {
+ if (userData["inscriptRef"] == "true") { // like "<scripRef passage="John 3:16">John 3:16</scripRef>"
+ userData["inscriptRef"] = "false";
+ buf += "</a>";
+ }
+
+ else { // like "<scripRef>John 3:16</scripRef>"
+ buf += "<a href=\"!DIATHEKE_URL!verse=";
+
+ char* vref = (char*)userData["lastTextNode"].c_str();
+ while (*vref) {
+ if (*vref == ' ') buf += '+';
+ else buf += *vref;
+ vref++;
+ }
+ buf += "\">";
+ buf += userData["lastTextNode"].c_str();
+ // let's let text resume to output again
+ userData["suspendTextPassThru"] = "false";
+ buf += "</a>";
+ }
+ }
+
+ else if (!strncmp(token, "div class=\"sechead\"", 19)) {
+ userData["SecHead"] = "true";
+ buf += "<br /><b><i>";
+ }
+ else if (!strncmp(token, "div class=\"title\"", 19)) {
+ userData["SecHead"] = "true";
+ buf += "<br /><b><i>";
+ }
+ else if (!strncmp(token, "/div", 4)) {
+ if (userData["SecHead"] == "true") {
+ buf += "</i></b><br />";
+ userData["SecHead"] = "false";
+ }
+ }
+
+ else if(!strncmp(token, "note", 4)) {
+ buf += " <small><font color=\"#008000\">{";
+ }
+
+ else {
+ buf += '<';
+ for (i = 0; i < strlen(token); i++)
+ buf += token[i];
+ buf += '>';
+ //return false; // we still didn't handle token
+ }
+ }
+ return true;
+}
+
+
+
+
+
+
+SWORD_NAMESPACE_END
diff --git a/utilities/diatheke/thmlcgi.h b/utilities/diatheke/thmlcgi.h
new file mode 100644
index 0000000..f41f021
--- /dev/null
+++ b/utilities/diatheke/thmlcgi.h
@@ -0,0 +1,36 @@
+/***************************************************************************
+ thmlcgi.h - OSIS to Diatheke/CGI format
+ -------------------
+ begin : 2001-11-12
+ copyright : 2001 by CrossWire Bible Society
+ ***************************************************************************/
+
+/***************************************************************************
+ * *
+ * 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; either version 2 of the License, or *
+ * (at your option) any later version. *
+ * *
+ ***************************************************************************/
+
+#ifndef THMLCGI_H
+#define THMLCGI_H
+
+#include <swbasicfilter.h>
+
+#include <defs.h>
+
+SWORD_NAMESPACE_START
+
+/** this filter converts ThML text to Diatheke/CGI format
+ */
+class SWDLLEXPORT ThMLCGI : public SWBasicFilter {
+protected:
+ virtual bool handleToken(SWBuf &buf, const char *token, DualStringMap &userData);
+public:
+ ThMLCGI();
+};
+
+SWORD_NAMESPACE_END
+#endif