Index: ncgi.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ncgi/ncgi.tcl,v
retrieving revision 1.38
diff -u -r1.38 ncgi.tcl
--- ncgi.tcl 4 May 2004 22:28:34 -0000 1.38
+++ ncgi.tcl 4 Feb 2005 12:18:48 -0000
@@ -39,7 +39,9 @@
# This is the content-type which affects how the query is parsed
+ variable mediatype
variable contenttype
+ variable mediaparams
# value is an array of parsed query data. Each array element is a list
# of values, and the array index is the form element name.
@@ -228,11 +230,16 @@
proc ::ncgi::type {} {
global env
+ variable mediatype
variable contenttype
+ variable mediaparams
if {![info exists contenttype]} {
if {[info exists env(CONTENT_TYPE)]} {
- set contenttype $env(CONTENT_TYPE)
+ set mediatype $env(CONTENT_TYPE)
+ set lst [ parseMimeValue $mediatype ]
+ set contenttype [ lindex $lst 0 ]
+ set mediaparams [ lrange $lst 1 end ]
} else {
return ""
}
