Tfe

Old stuff/Perl/newirc/fcts/reload

A
\@reload
	foreach(split(" ",$fichiers_a_charger))
	{
		print STDOUT "$_\t";
		do "$_" or print "PRIVMSG $chan :[ERREUR] $!";
		print STDOUT "[OK]\n";
	}
	open(INFO,"config");
	while(<INFO>)
	{
	if (/\$fullpower=(.*)/)
	    {
	    $fullpower=$1;
	    }
    }