[Tkabber-dev] r1760 - in trunk/tkabber-plugins: . georoster tclchat

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Mar 29 14:51:56 MSD 2009


Author: sergei
Date: 2009-03-29 14:51:55 +0400 (Sun, 29 Mar 2009)
New Revision: 1760

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/georoster/georoster.tcl
   trunk/tkabber-plugins/tclchat/tclchat.tcl
Log:
	* georoster/georoster.tcl, tclchat/tclchat.tcl: Restored calls to
	  ::http::geturl because it's finally fully wrapped and adopted for
	  work with proxies.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2009-03-29 08:17:25 UTC (rev 1759)
+++ trunk/tkabber-plugins/ChangeLog	2009-03-29 10:51:55 UTC (rev 1760)
@@ -1,3 +1,9 @@
+2009-03-29  Sergei Golovan <sgolovan at nes.ru>
+
+	* georoster/georoster.tcl, tclchat/tclchat.tcl: Restored calls to
+	  ::http::geturl because it's finally fully wrapped and adopted for
+	  work with proxies.
+
 2009-03-27  Sergei Golovan <sgolovan at nes.ru>
 
 	* georoster/georoster.tcl: Use new proxied HTTP query for downloading

Modified: trunk/tkabber-plugins/georoster/georoster.tcl
===================================================================
--- trunk/tkabber-plugins/georoster/georoster.tcl	2009-03-29 08:17:25 UTC (rev 1759)
+++ trunk/tkabber-plugins/georoster/georoster.tcl	2009-03-29 10:51:55 UTC (rev 1760)
@@ -595,7 +595,7 @@
 		set query [eval ::http::formatQuery $args]
 
 		if {![catch {
-		    ::proxy::http::geturl \
+		    ::http::geturl \
 			http://www.census.gov/cgi-bin/gazetteer?$query \
 			-timeout 300 \
 			-command [list [namespace current]::parse_vcard_aux $w \

Modified: trunk/tkabber-plugins/tclchat/tclchat.tcl
===================================================================
--- trunk/tkabber-plugins/tclchat/tclchat.tcl	2009-03-29 08:17:25 UTC (rev 1759)
+++ trunk/tkabber-plugins/tclchat/tclchat.tcl	2009-03-29 10:51:55 UTC (rev 1760)
@@ -122,7 +122,7 @@
     variable Options
 
     set loglist {}
-    set tok [::proxy::http::geturl ${url}$Options(sel)]
+    set tok [::http::geturl ${url}$Options(sel)]
     switch -- [::http::status $tok] {
         ok {
             if {[::http::ncode $tok] >= 500} {
@@ -165,7 +165,7 @@
     # fetch log
     set url "$Options(url)/$log"
     debugmsg tclchat "fetch log \"$url\""
-    set tok [::proxy::http::geturl $url]
+    set tok [::http::geturl $url]
 
     debugmsg tclchat "status [::http::status $tok] [::http::code $tok]"
     switch -- [::http::status $tok] {



More information about the Tkabber-dev mailing list