#!/usr/bin/perl

        if ($ENV{'HTTP_HOST'} =~ /pokemonrebirth.com/i)
        {
                $accountUsername = "pokemonrebirth";
        }
        if ($ENV{'HTTP_HOST'} =~ /africangreyparrot.info/i)
        {
                $accountUsername = "vdnent";
        }

sub getDomainName
{
	if ($ENV{'HTTP_HOST'} =~ /pokemonrebirth.com/i)
	{
		return "pokemonrebirth";
	}
        if ($ENV{'HTTP_HOST'} =~ /africangreyparrot.info/i)
        {
                return "vdnent";
        }
}

1;