diff options
| author | Mikhail Teterin <mi@FreeBSD.org> | 2001-10-28 08:37:27 +0000 |
|---|---|---|
| committer | Mikhail Teterin <mi@FreeBSD.org> | 2001-10-28 08:37:27 +0000 |
| commit | 40df45352156d24ae7ab2105eaf4b894900455f0 (patch) | |
| tree | 5f9afb850e66875f994e795c1cb436bef20eb4b3 /www/neowebscript/files/patch-db | |
| parent | Prevent build from breaking when the user has incompatible version of (diff) | |
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.
Notes
Notes:
svn path=/head/; revision=49283
Diffstat (limited to 'www/neowebscript/files/patch-db')
| -rw-r--r-- | www/neowebscript/files/patch-db | 29 |
1 files changed, 29 insertions, 0 deletions
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" + } + } + |