Old stuff/Perl/newirc/fcts/users
(Deskargatu)A
\@users
open (INFO,"/home/tfe/truc/newirc/datanick/full.dat") or print STDOUT "$chan :error=> $!\n";
while (<INFO>)
{
print "PRIVMSG $chan :$_\n";
}
close USER;
Ongi etorri tfe-ren webgunera...
A
\@users
open (INFO,"/home/tfe/truc/newirc/datanick/full.dat") or print STDOUT "$chan :error=> $!\n";
while (<INFO>)
{
print "PRIVMSG $chan :$_\n";
}
close USER;