Tfe

Old stuff/Perl/droyer_irc/fcts/owner

A
\!owner (\w+)
	$owner = $1;

	open(OWNER_OPEN,"config");
	my @temp_OWNER = <OWNER_OPEN>;
	close OWNER_OPEN;

	open(OWNER_WRITE,">config");
	foreach(@temp_OWNER)
	{
		if (/\$owner=/) { print OWNER_WRITE "\$owner=\" $owner \";\n"; }
		else { print OWNER_WRITE "$_"; }
	}
	close OWNER_WRITE;
	print "PRIVMSG $debug :Modificado owner : $owner \n";