Update of /cvsroot/naviserver/naviserver/tcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19580/tcl
Modified Files:
file.tcl util.tcl
Log Message:
* include/ns.h:
* nsd/nsd.h:
* nsd/proc.c:
* nsd/tclrequest.c: Convert to new callback and parse proc APIs.
Remove support for old connId parameter.
* tcl/file.tcl:
* tcl/util.tcl: Remove support for old connId parameter.
Index: file.tcl
===================================================================
RCS file: /cvsroot/naviserver/naviserver/tcl/file.tcl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** file.tcl 16 Feb 2005 16:45:44 -0000 1.2
--- file.tcl 26 Mar 2005 17:42:26 -0000 1.3
***************
*** 66,76 ****
if { ![string equal [info commands "ns_cache"] ""] } {
! proc ns_sourceproc {conn ignored} {
ns_share errorPage
! set file [ns_url2file [ns_conn url $conn]]
if ![file exists $file] {
! ns_returnnotfound $conn
} else {
set code [catch {
--- 66,76 ----
if { ![string equal [info commands "ns_cache"] ""] } {
! proc ns_sourceproc {ignored} {
ns_share errorPage
! set file [ns_url2file [ns_conn url]]
if ![file exists $file] {
! ns_returnnotfound
} else {
set code [catch {
***************
*** 103,113 ****
}
} else {
! proc ns_sourceproc {conn ignored} {
ns_share errorPage
! set file [ns_url2file [ns_conn url $conn]]
if ![file exists $file] {
! ns_returnnotfound $conn
} else {
set code [catch {
--- 103,113 ----
}
} else {
! proc ns_sourceproc {ignored} {
ns_share errorPage
! set file [ns_url2file [ns_conn url]]
if ![file exists $file] {
! ns_returnnotfound
} else {
set code [catch {
Index: util.tcl
===================================================================
RCS file: /cvsroot/naviserver/naviserver/tcl/util.tcl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** util.tcl 16 Feb 2005 16:45:45 -0000 1.2
--- util.tcl 26 Mar 2005 17:42:27 -0000 1.3
***************
*** 64,72 ****
# getformdata - make sure an HTML FORM was sent with the request.
! proc getformdata {conn formVar} {
upvar $formVar form
! set form [ns_conn form $conn]
if {[string match "" $form]} {
! ns_returnbadrequest $conn "Missing HTML FORM data"
return 0
}
--- 64,72 ----
# getformdata - make sure an HTML FORM was sent with the request.
! proc getformdata {formVar} {
upvar $formVar form
! set form [ns_conn form]
if {[string match "" $form]} {
! ns_returnbadrequest "Missing HTML FORM data"
return 0
}
|
