Differences From:

File tools/fossil_chat.tcl part of check-in [5e3f5322e2] - Updates to the fossil_chat.tcl script. by drh on 2007-09-25 15:12:16. Also file tools/fossil_chat.tcl part of check-in [e6d1cd9679] - Merger w/fossil chat update (5e3f) by jnc on 2007-09-25 19:32:07. [view]

To:

File tools/fossil_chat.tcl part of check-in [307233d828] - Added rudimentary proxy support to fossil chat client by mjanssen on 2007-10-02 10:34:46. Also file tools/fossil_chat.tcl part of check-in [d0305b305a] - Merged mainline into my branch to get the newest application. by aku on 2007-12-05 08:07:46. [view]

@@ -8,8 +8,12 @@
 # set SERVERHOST 127.0.0.1
 #set SERVERHOST 64.5.53.192
 set SERVERPORT 8615
 
+# set to correct values if you have to use a proxy
+set PROXYHOST {}
+set PROXYPORT {}
+
 # Setup the user interface
 wm title . Fossil-Chat
 wm iconname . [wm title .]
 
@@ -78,9 +82,16 @@
 proc connect {} {
   global SOCKET tcl_platform
   catch {close $SOCKET}
   if {[catch {
-    set SOCKET [socket $::SERVERHOST $::SERVERPORT]
+      if {$::PROXYHOST ne {}} {
+          set SOCKET [socket $::PROXYHOST $::PROXYPORT]
+          puts $SOCKET "CONNECT $::SERVERHOST:$::SERVERPORT HTTP/1.1"
+          puts $SOCKET "Host:  $::SERVERHOST:$::SERVERPORT"
+          puts $SOCKET ""
+      } else {
+          set SOCKET [socket $::SERVERHOST $::SERVERPORT]
+      }
     fconfigure $SOCKET -translation binary -blocking 0
     puts $SOCKET [list login $tcl_platform(user) fact,fuzz]
     flush $SOCKET
     fileevent $SOCKET readable handle_input