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
32
33
34
35
36
|
#IRCD Connection.
# Phil (SilverRain)
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 :asdfadf"
puts $sid "SERVER tclserv.gvnetworks.org 1 933022556 947908144 J10 ZZ]]] :Services Server."
puts $sid "ZZ N Q 1 1216744447 TheQBot CServe.gvnetworks.org +ok B]AAAB ZZAAA :The Q Bot - /msg Q showcommands"
puts $sid "ZZ N N 1 1216744447 control controlserv.gvnetworks.org +ok B]AAAB ZZNNN :ControlServ"
puts $sid "ZZ N S 1 1216744447 spamserv spamscan.gvnetworks.org +ok B]AAAB ZZSSS :SpamServ"
puts $sid "ZZ EB"
puts $sid "ZZ AC ZZAAA :Q"
puts $sid "ZZ AC ZZNNN :N"
puts $sid "ZZ AC ZZSSS :S"
puts $sid "ZZAAA J #debug"
puts $sid "ZZAAA M #debug +o ZZAAA"
puts $sid "ZZNNN J #debug"
puts $sid "ZZNNN M #debug +o ZZNNN"
puts $sid "ZZSSS J #debug"
puts $sid "ZZSSS M #debug +o ZZSSS"
vwait mainloop
|