Tfe

Ongi etorri tfe-ren webgunera...

Old stuff/Perl/backup_irc/fcts/kb

(Deskargatu)
A
\@kb (.*)
my $temp_kb = $1;

print "KICK $chan ".(split " ",$temp_kb)[0]." :non mais, on se croit ou la?\n";
print "MODE  $chan +b $temp_kb*!*\@*\n";