#!/usr/bin/perl
#####################################################################
# Function : #
# Load Webmail using the password provided #
# Use it : #
# webmail?username=myusername&password=mypassword&domain=mydomain #
######################################################################
my $username = param('username');
my $password = param('password');
my $domain = param('domain');
my $correct_usage = "Correct Usage: webmail.cgi\?username=YourUsername\&password=YourPassword\&domain=YourDomain";
if ($username eq ""){
print "No username given.\n $correct_usage"
}
elsif ($password eq ""){
print "No password given.\n $correct_usage"
}
elsif ($domain eq ""){
print "No domain given\n $correct_usage"
}
else{
print "
Logging In...
Logging into your webmail...please wait...
";
";
}