Hi Tcl-Httpd-ers,
I am using Tclhttpd3.1.0 and realise that the Session.tcl does not actually
set the input value in the array variable inside the session interpreter.
The original code is:
1: proc Session_Value {id var {default {}}} {
2: upvar #0 Session:$id session
3: set group $session(group)
4: if {[catch {interp eval $session(interp) set ${group}($var)} value]}
{
5: set value $default
6: }
7: return $value
8: }
If we add the following between line 4 and line 5, it will do the work
interp eval $session(interp) set ${group}($var) $default
Am I correct ?
BTW, is there any plan to port existing Tclhttpd libraries to 100%
namespace. What I meant is
Session_Value
to
httpd::session::Session_Value
FYI, I am curently using Tclhttpd to web-enable the analysis of factory
simulation data.
Best regards,
--Chi Hung
Gintic CAD CAM Centre
Gintic Institute of Manufacturing Technology
71 Nanyang Drive, Singapore 638075
Email: [EMAIL PROTECTED]
Tel: +65 793 8217 (Direct) +65 793 8383(Main)
Fax: +65 793 8218 (Direct) +65 791 6377 (Main)
For PDEX:
http://pdex.gintic.gov.sg:8000/
