#!/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');
if ($username eq ""){
print "No username given.\n";
print "Correct Usage: webmail.cgi\?username=YourUsername\&password=YourPassword\&domain=YourDomain";
}
elsif ($password eq ""){
print "No password given.\n";
print "Correct Usage: webmail.cgi\?username=YourUsername\&password=YourPassword\&domain=YourDomain";
}
elsif ($domain eq ""){
print "No domain given\n"
print "Correct Usage: webmail.cgi\?username=YourUsername\&password=YourPassword\&domain=YourDomain";
}
else
print "Logging In...";
print "Logging into your webmail...please wait...";
print "";
print "";
print "";
}