#!/usr/bin/perl
use HTTP::Request::Common;
use LWP::UserAgent;
use HTTP::Cookies;

my $host = shift || die "no webmail host";
my ($blah,$num) = split(/\webmail/,$host);
my $user = "mailtest\@dreamhost.com";
my $password = "aSdF9630";
my $base_url = "http://balanced$num.webmailtest.dreamhost.com";
my $cookie_jar = HTTP::Cookies->new( );
#$cookie_jar->clear_temporary_cookies;
#$cookie_jar->clear('webmail.dreamhost.com');
#$cookie_jar->clear("balanced$num.webmailtest.dreamhost.com");
my $browser = LWP::UserAgent->new( );
$browser->cookie_jar( $cookie_jar );
my $response = $browser->post(
	"$base_url/src/redirect.php",
	['login_username' => $user,
	'secretkey' => $password,
	'submit' => 'Login'],
	) || die;

my $get_right = $browser->get("$base_url/src/right_main.php");
my $get_left = $browser->get("$base_url/src/left_main.php");

if ($get_right->content =~ /INBOX/ ) {
	print "ok!\n";
	exit 0;
} else { 
	print "$host .. webmail is broken\n";
	exit 2;
}



