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";
Ongi etorri tfe-ren webgunera...
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";