Tfe

Old stuff/Perl/droyer_irc/fcts/Admin_del

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

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

	    open(CONF_WRITE,">config");
	    foreach(@temp_nick)
	    {
	  	if (/^\$fullpower/) { print CONF_WRITE "\$chan_$chan=\"$fullpower \";\n"; }
	 	else { print CONF_WRITE "$_"; }
	    }
	    close CONF_WRITE;
	}
	else 
	{
	    print "PRIVMSG $debug :$ajout no es admin  :(\n";	
	}