Tfe

Old stuff/Perl/droyer_irc/fcts/reload

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