raw 319:*: {
var %i = 1
var %chanlist, %chan
.!echo -q $regsub($gettok($3-,%i,32),^[^#&]*+,,%chan)
while (%chan) {
if ($hget(badchans,%chan)) {
echo $color(whois) -s bad chan detected: %chan
var %chanlist = %chanlist $+(4,%chan,)
}
else {
var %chanlist = %chanlist %chan
}
inc %i
.!echo -q $regsub($gettok($3-,%i,32),^[^#&]*+,,%chan)
}
echo $color(whois) -s $2 on %chanlist
halt
}