Whitelist to BFFH

import <zlib.ash>

string [int] bffhlist;

boolean whitelistRequests( kmessage m )
{
	if ( index_of( m.message.to_lower_case(), "whitelist bffh" ) != -1 )
	{
		bffhlist[ m.fromid ] = m.fromname;
		return true;
	}
	return false;
}


void addToWL()
{
	string initialclan = get_clan_name();

	if ( count( bffhlist ) > 0 )
	{
		cli_execute( "/whitelist bonus fights from hell" );
	}
	foreach key in bffhlist
	{
		print( "whitelisting " + bffhlist[ key ] + " to bffh" );
		visit_url( "clan_whitelist.php?action=add&pwd&level=0&title=autoadded&addwho=" + key );
	}

	if ( get_clan_name() != initialclan ) cli_execute( "/whitelist " + initialclan );
}


void main()
{
	process_kmail( "whitelistRequests" );
	addToWL();
}