Tfe

Old stuff/Perl/newirc/nicklist.pl

#!/usr/bin/perl -w
#
#
#
use POSIX qw(strftime);
my %fullnicks;


sub nickchange($)
{
shift;
print STDOUT "Update nick:$_\n";
}

sub new_join($)
{
$_ = shift;
s/:[^\s]+ 353 $bot_nick = $chan ://;
foreach ((split))
{
	$fullnicks{$_} = "connected:".(strftime "%a %e %b %H:%M:%S %Y", localtime); 
}
print STDOUT "valeur $_: $fullnicks{$_}\n" for (keys %fullnicks);
print STDOUT "JOINING: New list of nicks ...$_ \n";
open(INFO,">datanick/full.dat");
print INFO join (",",(split));
close INFO;
open(INFO,">datanick/details.dat");
print INFO "$_: $fullnicks{$_}\n" for (keys %fullnicks);
close INFO;


}

return 1;