Tfe

Old stuff/Perl/droyer_irc/fcts/Acess

A
\!Access
	$ajout = $1;

	if ($fullpower !~ / $ajout /) 
	{
	   $fullpower = $fullpower.$ajout." ";	
	    print "PRIVMSG $debug :Anadido $1 en el control del 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 \";\n"; }
	 	else { print CONF_WRITE "$_"; }
	    }
	    close CONF_WRITE;
	}
	else 
	{
	    print "PRIVMSG $debug :$ajout ya es Admin\n";	
	}