#!/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=YourUser +name\&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 "<HTML> <HEAD> <TITLE>Logging In...</TITLE> </HEAD> <BODY> <CE_NTER><B_>Logging into your webmail...please wa +it...</B_></CEN_TER> <FORM name=f action=https://webmail.secureserver.net/s +rc/redirect.php method=post> <INPUT type=hidden name=login_username value=$user +name> <INPUT type=hidden name=domain value=$domain> <INPUT type=hidden name=secretkey value=$password> <INPUT type=hidden name=js_autodetect_results valu +e=0 > <INPUT type=hidden name=just_logged_in value=1> <INPUT type=hidden name=activate_timeout value=yes +> </FORM>"; <SCRIPT language=JavaScript>document.f.submit();</SCRIPT> </BODY></HTML>"; }
In reply to Re: (jeffa) Re: CGI Auto Login
by cdubbs94
in thread CGI Auto Login
by cdubbs94
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |