Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v diff -u -N -r1.114.2.10 -r1.114.2.11 --- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl 3 Sep 2020 09:16:41 -0000 1.114.2.10 +++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl 28 Sep 2020 21:04:04 -0000 1.114.2.11 @@ -64,7 +64,7 @@ # When submitting needs authentication, OpenACS generates the redirect to # /register with the form-data coded into the URL to continue there..... - # set user_agent [string tolower [ns_set get [ns_conn headers] User-Agent]] + # set user_agent [string tolower [ns_set iget [ns_conn headers] User-Agent]] # ns_log notice "URL have url, len=[string length $return_url] $user_agent" if {[string length $return_url] > 2083} { Index: openacs-4/packages/acs-subsite/www/admin/configure.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/configure.tcl,v diff -u -N -r1.14.2.1 -r1.14.2.2 --- openacs-4/packages/acs-subsite/www/admin/configure.tcl 27 Sep 2020 17:56:56 -0000 1.14.2.1 +++ openacs-4/packages/acs-subsite/www/admin/configure.tcl 28 Sep 2020 21:04:04 -0000 1.14.2.2 @@ -1,6 +1,6 @@ ad_page_contract { Configuration home page. - + @author Lars Pind (lars@collaboraid.biz) @creation-date 2003-06-13 @cvs-id $Id$ Index: openacs-4/packages/acs-tcl/lib/page-error.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/lib/page-error.tcl,v diff -u -N -r1.21.2.2 -r1.21.2.3 --- openacs-4/packages/acs-tcl/lib/page-error.tcl 14 Aug 2019 08:06:29 -0000 1.21.2.2 +++ openacs-4/packages/acs-tcl/lib/page-error.tcl 28 Sep 2020 21:04:04 -0000 1.21.2.3 @@ -39,7 +39,7 @@ [_ acs-tcl.User_Name] [ns_quotehtml $user_name]
[_ acs-tcl.lt_User_Id_of_the_user_t] [ns_quotehtml $user_id]
IP: [ns_quotehtml [ns_conn peeraddr]]
-[_ acs-tcl.Browser_of_the_user] [ns_quotehtml [ns_set get [ns_conn headers] User-Agent]]
+[_ acs-tcl.Browser_of_the_user] [ns_quotehtml [ns_set iget [ns_conn headers] User-Agent]]

-----------------------------
[_ acs-tcl.Error_details]
@@ -269,7 +269,7 @@
[_ acs-tcl.File] [ns_quotehtml $error_file]
[_ acs-tcl.User_Name] [ns_quotehtml $user_name]
[_ acs-tcl.lt_User_Id_of_the_user_t] [ns_quotehtml $user_id] -
[_ acs-tcl.Browser_of_the_user] [ns_quotehtml [ns_set get [ns_conn headers] User-Agent]] +
[_ acs-tcl.Browser_of_the_user] [ns_quotehtml [ns_set iget [ns_conn headers] User-Agent]]

[_ acs-tcl.User_comments]
[ns_quotehtml [template::util::richtext::get_property contents $description]]
Index: openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl,v diff -u -N -r1.48.2.4 -r1.48.2.5 --- openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl 13 Nov 2019 17:02:38 -0000 1.48.2.4 +++ openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl 28 Sep 2020 21:04:04 -0000 1.48.2.5 @@ -298,7 +298,7 @@ set netscape_p 0 # get the version - set user_agent [ns_set get [ad_conn headers] User-Agent] + set user_agent [ns_set iget [ad_conn headers] User-Agent] regexp -nocase "mozilla/(\[^\.\ \]*)" $user_agent match version # IE browsers have MSIE and Mozilla in their user-agent header @@ -327,7 +327,7 @@ set netscape_p 0 # get the version - set user_agent [ns_set get [ad_conn headers] User-Agent] + set user_agent [ns_set iget [ad_conn headers] User-Agent] regexp -nocase "mozilla/(\[^\.\ \]*)" $user_agent match version # IE browsers have MSIE and Mozilla in their user-agent header Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v diff -u -N -r1.189.2.65 -r1.189.2.66 --- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 24 Aug 2020 23:50:18 -0000 1.189.2.65 +++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 28 Sep 2020 21:04:04 -0000 1.189.2.66 @@ -199,7 +199,7 @@ @return referrer from the request headers. @param relative return the refer without protocol and host } { - set url [ns_set get [ns_conn headers] Referer] + set url [ns_set iget [ns_conn headers] Referer] if {$relative_p} { # In case the referrer URL has a protocol and host remove it regexp {^[a-z]+://[^/]+(/.*)$} $url . url Index: openacs-4/packages/acs-templating/tcl/deprecated-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/deprecated-procs.tcl,v diff -u -N -r1.8.2.1 -r1.8.2.2 --- openacs-4/packages/acs-templating/tcl/deprecated-procs.tcl 19 Dec 2019 19:08:34 -0000 1.8.2.1 +++ openacs-4/packages/acs-templating/tcl/deprecated-procs.tcl 28 Sep 2020 21:04:04 -0000 1.8.2.2 @@ -262,7 +262,7 @@ # Check browser's User-Agent header for compatibility with htmlArea ad_return_complaint 1 "use htmlareap = $htmlarea_p" if { $htmlarea_p } { - set user_agent [string tolower [ns_set get [ns_conn headers] User-Agent]] + set user_agent [string tolower [ns_set iget [ns_conn headers] User-Agent]] if { [string first "opera" $user_agent] != -1 } { # Opera - doesn't work, even though Opera claims to be IE set htmlarea_p 0 Index: openacs-4/packages/acs-templating/tcl/richtext-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/richtext-procs.tcl,v diff -u -N -r1.66.2.4 -r1.66.2.5 --- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl 18 Feb 2020 11:53:15 -0000 1.66.2.4 +++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl 28 Sep 2020 21:04:04 -0000 1.66.2.5 @@ -449,7 +449,7 @@ set attributes(id) $element(id) set package_id_templating [apm_package_id_from_key "acs-templating"] - set user_agent [string tolower [ns_set get [ns_conn headers] User-Agent]] + set user_agent [string tolower [ns_set iget [ns_conn headers] User-Agent]] if {[string first "safari" $user_agent] != -1} { if {[regexp {version/([0-9]+)[.]} $user_agent _ user_agent_version] Index: openacs-4/packages/xotcl-core/tcl/context-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/context-procs.tcl,v diff -u -N -r1.75.2.15 -r1.75.2.16 --- openacs-4/packages/xotcl-core/tcl/context-procs.tcl 2 Apr 2020 18:23:41 -0000 1.75.2.15 +++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl 28 Sep 2020 21:04:04 -0000 1.75.2.16 @@ -297,7 +297,7 @@ # simple mobile detection ::xo::cc mobile 0 if {[ns_conn isconnected]} { - set user_agent [string tolower [ns_set get [ns_conn headers] User-Agent]] + set user_agent [string tolower [ns_set iget [ns_conn headers] User-Agent]] ::xo::cc mobile [regexp (android|webos|iphone|ipad) $user_agent] } Index: openacs-4/packages/xowiki/tcl/chat-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/chat-procs.tcl,v diff -u -N -r1.54.2.19 -r1.54.2.20 --- openacs-4/packages/xowiki/tcl/chat-procs.tcl 9 Sep 2020 10:22:57 -0000 1.54.2.19 +++ openacs-4/packages/xowiki/tcl/chat-procs.tcl 28 Sep 2020 21:04:04 -0000 1.54.2.20 @@ -438,7 +438,7 @@ # scripted streaming should work everywhere # set mode scripted-streaming - if {![regexp msie|opera [string tolower [ns_set get [ns_conn headers] User-Agent]]]} { + if {![regexp msie|opera [string tolower [ns_set iget [ns_conn headers] User-Agent]]]} { # # Explorer doesn't expose partial response until request state # != 4, while Opera fires onreadystateevent only once. For Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v diff -u -N -r1.239.2.54 -r1.239.2.55 --- openacs-4/packages/xowiki/tcl/includelet-procs.tcl 9 Sep 2020 10:24:37 -0000 1.239.2.54 +++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl 28 Sep 2020 21:04:04 -0000 1.239.2.55 @@ -3609,7 +3609,7 @@ graph instproc graphHTML {-edges -nodes -max_edges -cutoff -base {-attrib node_id}} { ::xo::Page requireJS "/resources/ajaxhelper/prototype/prototype.js" - set user_agent [string tolower [ns_set get [ns_conn headers] User-Agent]] + set user_agent [string tolower [ns_set iget [ns_conn headers] User-Agent]] if {[string match "*msie *" $user_agent]} { # canvas support for MSIE ::xo::Page requireJS "/resources/xowiki/excanvas.js" Index: openacs-4/packages/xowiki/tcl/syndicate-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/syndicate-procs.tcl,v diff -u -N -r1.51.2.10 -r1.51.2.11 --- openacs-4/packages/xowiki/tcl/syndicate-procs.tcl 26 Aug 2020 18:35:00 -0000 1.51.2.10 +++ openacs-4/packages/xowiki/tcl/syndicate-procs.tcl 28 Sep 2020 21:04:04 -0000 1.51.2.11 @@ -52,7 +52,7 @@ # http://www.blingblog.info/2006/10/30/firefox-big-browser/ # when we want to use custom style sheets # - set user_agent [string tolower [ns_set get [ns_conn headers] User-Agent]] + set user_agent [string tolower [ns_set iget [ns_conn headers] User-Agent]] set filler [expr {[string first firefox $user_agent] >- 1 ? "" : "" }]