Hi,
trying the DIO package with the Mysql database (I think it is the database
version 4.1.9) I had to fix the following:
diff dio_Mysql.tcl*
26c26
< if {[catch {package require mysqltcl}] \
---
> if {[catch {package require Mysqltcl}] \
51c51
< if {![lempty $host]} { lappend command -host $host }
---
> if {![lempty $host]} { lappend command $host }
Trying the SESSION package with the Mysql database there were problems
creating the session tables, the field names package, key and data are
reserved words for Mysql, so I appended a '_' to the field names and modified
the source accordingly.
There were also problems using now as timestamp value, I have introduced a
private variable now and fill that with a formatted string from Tcl clock
format command . If you intend to integrate Oracle, you have to provide
database specific code, because the date and time format is session specific
there! Maybe it would be a good idea, to provide a getNow function in the DIO
database specific code. The md5 code in my version needs a -hex option (see
changelog of that package)
diff session-class.tcl*
152c152
< return [::md5::md5 -hex $sessionIdKey]
---
> return [::md5::md5 $sessionIdKey]
206d205
< set now [clock format [clock seconds] -format "%Y-%m-%d %T"]
273c272
< set a(session_update_time) $now
---
> set a(session_update_time) now
298,299c297,298
< set a(package_) $packageName
< set a(key_) $key
---
> set a(package) $packageName
> set a(key) $key
302c301
< set a(data_) $data
---
> set a(data) $data
305c304
< set kf [list session_id package_ key_]
---
> set kf [list session_id package key]
374,375c373,374
< set a(session_start_time) $now
< set a(session_update_time) $now
---
> set a(session_start_time) now
> set a(session_update_time) now
449d447
< private variable now
Arnulf
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
