Thanks(Xpert) !ipv6 2001:618:400:bf69::63
(eggush) 20010400:BF69:0000:0000:0000:0063 PTR RECORD 3.6.0.0.0.0.0.0.0.0.0.0.0.0.0.0.9.6.f.b.0.0.4.0.8.1.6.0.1.0.0.2.ip6.arpa
Code: Select all
regsub -all "(" $conn "" conn
regsub -all ")" $conn "" conn
Code: Select all
bind pub n "!settopic" pub:topic
bind pub n "!appendtopic" pub:append
proc pub:topic {nick host hand chan args} {
putserv "topic $chan :$args"
}
proc pub:append {nick host hand chan args} {
putserv "topic $chan :[topic $chan], $args"
}
Code: Select all
proc dcc:sends {} {
set dccsend [join [list [dcclist SEND]]]
set send2 ""
foreach send $dccsend {
append send2 "$send"
}
putlog "$send2"
}
Code: Select all
if {![string equal -nocase "$line" "$nick"} {
Code: Select all
if {![string equal -nocase "$line" "$nick"]} {