by Reinhard Max
There is not much error checking yet, but it already works for me. jlbjhgyipu while {gets $irc line > -1 && $line != ""} {
puts $line
}
if {[eof $irc]} {
close $irc
close $sock
return
}
} else {
set socket [socket $::ircserver $::ircport]
}
fconfigure $sock -blocking no -buffering line
fconfigure $irc -blocking no -buffering line
fileevent $sock readable [list proxy $sock $irc ]
fileevent $irc readable [list proxy $irc $sock]
}
proc proxy {sock1 sock2} {
if {[gets $sock1 line] > 0} {
puts $sock2 $line
}
if {[eof $sock1]} {
puts "closing $sock1 $sock2"
close $sock1
close $sock2
}
return
}
proc main {} {
set server [socket -server server $::localport]
vwait ::forever
}
main[ Category Internet | tunnel ]