[Tkabber-dev] r1267 - in trunk/tkabber: . jabberlib

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Oct 10 20:54:31 MSD 2007


Author: sergei
Date: 2007-10-10 20:54:30 +0400 (Wed, 10 Oct 2007)
New Revision: 1267

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/jabberlib/transports.tcl
Log:
	* jabberlib/transports.tcl: Fixed supported proxy types list.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-10-10 16:28:45 UTC (rev 1266)
+++ trunk/tkabber/ChangeLog	2007-10-10 16:54:30 UTC (rev 1267)
@@ -2,6 +2,8 @@
 
 	* msgs/de.msg: Updated German translation (thanks to Roger Sondermann).
 
+	* jabberlib/transports.tcl: Fixed supported proxy types list.
+
 2007-10-07  Sergei Golovan  <sgolovan at nes.ru>
 
 	* examples/xrdb/*: Fixed *Balloon*foreground and *Balloon*background

Modified: trunk/tkabber/jabberlib/transports.tcl
===================================================================
--- trunk/tkabber/jabberlib/transports.tcl	2007-10-10 16:28:45 UTC (rev 1266)
+++ trunk/tkabber/jabberlib/transports.tcl	2007-10-10 16:54:30 UTC (rev 1267)
@@ -16,7 +16,13 @@
 namespace eval transport::proxy {}
 
 proc transport::proxy::capabilities {} {
-    return [list none socks4 socks5 https]
+    set caps {none}
+    foreach type {socks4 socks5 https} {
+	if {![catch {package require $type}]} {
+	    lappend caps $type
+	}
+    }
+    return $caps
 }
 
 ######################################################################



More information about the Tkabber-dev mailing list