Id: 15593; Nick: SilverRain; Timestamp: 2008-07-22 17:28:47; Pasted as: mIRC
Description: n/a 
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
 
Square brackets warning on line 20:
puts $sid "SERVER tclserv.gvnetworks.org 1 933022556 947908144 J10 ZZ]]] :Services Server."
There is only 0 [, but 3 ].

Square brackets warning on line 21:
puts $sid "ZZ N Q 1 1216744447 TheQBot CServe.gvnetworks.org +ok B]AAAB ZZAAA :The Q Bot - /msg Q showcommands"
There is only 0 [, but 1 ].

Square brackets warning on line 22:
puts $sid "ZZ N N 1 1216744447 control controlserv.gvnetworks.org +ok B]AAAB ZZNNN :ControlServ"
There is only 0 [, but 1 ].

Square brackets warning on line 23:
puts $sid "ZZ N S 1 1216744447 spamserv spamscan.gvnetworks.org +ok B]AAAB ZZSSS :SpamServ"
There is only 0 [, but 1 ].
Parsed for bracket errors and indented: 
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
 
Options: New, Download,
, mIRC Parser;
Copyright © 2006 by Zyberdog - Some rights reserved. (Browse/Disclaimer/Stats/About)
Nothing to see here.