1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
set server 83.244.151.99
proc readdata {cid} {
if {[gets $cid data] < 0} {
puts "Socket closed by remote host."; close $cid; return
}
puts "Incoming data: $data"
if {[lindex [split $data] 0] == "PING"} {
puts $cid "PONG [lindex [split $data] 1]"
}
}
set sid [socket $server 4400]
fconfigure $sid -buffering line
fileevent $sid readable "readdata $sid"
puts $sid "PASS :mypass"
puts $sid "SERVER tclserv.gvnetworks.org 1 933022556 947908144 J10 SS]]] +s :GVNetworks IRC Server."
puts $sid "SS N Q 1 947957573 TheQBot CServe.gvnetworks.org +okwsrg B]AAAB SSQQQ :The Q Bot - /msg Q showcommands"
puts $sid "SS N G 1 947957573 helpbot helpserv.gvnetworks.org +okwsrg B]AAAB SSGGG :HelpServ v1.42 BETA"
puts $sid "SS N S 1 947957573 spamserv spamscan.gvnetworks.org +okwsrg B]AAAB SSSSS :GVN SpamService"
puts $sid "SS N R 1 947957573 relay request.gvnetworks.org +okwsrg B]AAAB SSRRR :GVN Request Service"
puts $sid "SS N P 1 947957573 proxy proxyscan.gvnetworks.org +okwsrg B]AAAB SSPPP :GVN Open Proxy Scanner."
puts $sid "SS EB"
puts $sid "SS EA"
puts $sid "SSQQQ J #debug"
puts $sid "SSGGG J #debug"
puts $sid "SSSSS J #debug"
puts $sid "SSPPP J #debug"
puts $sid "SSRRR J #debug"
vwait mainloop |