From 40df45352156d24ae7ab2105eaf4b894900455f0 Mon Sep 17 00:00:00 2001 From: Mikhail Teterin Date: Sun, 28 Oct 2001 08:37:27 +0000 Subject: NeoWebScript[tm] is a module for the Apache webserver that allows you to embed the Tcl/Tk programming language in your webpages as a scripting tool. It was invented by Karl Lehenbauer, NeoSoft's Chief Technical Officer, and documented, enhanced and extended by NeoSoft's programmers and technical writers. WWW: http://www.sourceforge.net/projects/nws/ The changes: . don't build the Apache, TclX, gd, db, neo-tcl bundled in the tarball, but use those that are installed by their ports . don't generate GIFs -- use PNGs . look in /var/log for Apache's log file . use /var/db/neowebscript for caches and per-user databases . expose some configuration knobs into the neowebscript.conf -- there should be no need to edit init.tcl itself anymore All of the bundled demos work, except for the gd-based banner generator. The demo code uses Gdtclft commands that don't exist in the modern Gdtclft. --- www/neowebscript/files/patch-db | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 www/neowebscript/files/patch-db (limited to 'www/neowebscript/files/patch-db') diff --git a/www/neowebscript/files/patch-db b/www/neowebscript/files/patch-db new file mode 100644 index 000000000000..02edd6c63025 --- /dev/null +++ b/www/neowebscript/files/patch-db @@ -0,0 +1,29 @@ +--- ../neowebscript/db.tcl Fri Nov 19 19:36:10 1999 ++++ ../neowebscript/db.tcl Mon Sep 3 14:02:50 2001 +@@ -6,6 +6,8 @@ + # for the trusted interp + # + ++package require Neo ++ + proc dbtransaction {code args} { + global errorCode parallelDir webenv + +@@ -115,7 +117,7 @@ + if {[catch {db open $dbFileName hash cl 0664} db] == 1} { + create_user_dir db + if {[catch {db open $dbFileName hash cl 0664} db] == 1} { +- return -code error "$dbFileName: $errorCode" $errorInfo ++ return -code error "$dbFileName: $errorCode $errorInfo" + } + } + +@@ -271,7 +273,7 @@ + if {[catch {db open $dbFileName hash cl 0664} db] == 1} { + create_user_dir db + if {[catch {db open $dbFileName hash cl 0664} db] == 1} { +- return -code error "$dbFileName: $errorCode" $errorInfo ++ return -code error "$dbFileName: $errorCode $errorInfo" + } + } + -- cgit v1.2.3