Tfe

Old stuff/Perl/newirc/fcts/allow

A
\@allow ([^\s]*)
	$ajout = $1;
	$fullpower = "$fullpower $ajout ";	
	if (\$fullpower !~ / \$ajout /) 
	{
	    print "PRIVMSG $chan :Ajout de $1 pour le controle du bot.\n";
	    

	    open(CONF_OPEN,"config");
	    my @temp_nick = <CONF_OPEN>;
	    close CONF_OPEN;
	

	    open(CONF_WRITE,">config");
	    foreach(@temp_nick)
	    {
	  	if (/^\$fullpower/) { print CONF_WRITE "\$fullpower=\"$fullpower$ajout \";\n"; }
	 	else { print CONF_WRITE "$_"; }
	    }
	    close CONF_WRITE;
	}
	else 
	{
	    print "PRIVMSG $chan :$1 a deja le pouvoir :)\n";	
	}