[naviserver-commits] naviserver/tcl file.tcl,1.2,1.3 util.tcl,1.2,1.3

[Stephen D. <sd...@us...>]

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
      }