40df453521
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.
29 lines
868 B
Text
29 lines
868 B
Text
--- ../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"
|
|
}
|
|
}
|
|
|