These settings are only examples. There is no need to 'fix' this page by adding your local settings====== THIS MEANS YOU ! ====
set useproxy 1
set proxyserver proxy.example.com
set proxyport 3128
set ircserver rucus.zanet.net
set ircport 443
set localport 6667
proc server {sock host port} {
puts "connection from $host $port on $sock"
if {$::useproxy} {
set irc [socket $::proxyserver $::proxyport]
puts $irc "CONNECT $::ircserver:$::ircport HTTP/1.1"
puts $irc "Host: $::ircserver"
puts $irc {}
flush $irc
while {[gets $irc line] > -1 && $line ne {}} {
puts $line
}
if {[eof $irc]} {
close $irc
close $sock
return
}
} else {
set irc [socket $::ircserver $::ircport]
}
fconfigure $sock -blocking no -buffering none -translation binary
fconfigure $irc -blocking no -buffering none -translation binary
fileevent $sock readable [list proxy $sock $irc ]
fileevent $irc readable [list proxy $irc $sock]
}
proc proxy {sock1 sock2} {
puts -nonewline $sock2 [read $sock1]
if {[eof $sock1]} {
puts "closing $sock1 $sock2"
close $sock1
close $sock2
}
return
}
proc main {} {
set server [socket -server server -myaddr 127.0.0.1 $::localport]
vwait ::forever
}
main