Hi,
Could someone check my code below? I need to redirect to a html using CGI.pm perl
module. But when
I executed, I got blank page. If I commented out $cgi->start_html ... it's working
fine, but no
redirection.
$cgi = new CGI;
sub Error {
my ($msg) = @_;
print "<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>";
print "<TABLE border='0' width=500 align=center bgcolor=#C7D7F3>";
print "<TR><TH align=center bgcolor=#FF0000><font color=#FFFFFF> Error </font>";
print "<TR><TH> ";
print "<TR><TH align=center>$msg";
print "<TR><TH> ";
}
$upassword = $cgi->param('password');
if ($password ne $upassword) {
print $cgi->header;
print $cgi->start_html(-head=>meta({-http_equiv => 'Refresh',
-content => '5',
-url =>
'http://mydomain.homelinux.net/login.html'}));
Error "Wrong password.";
exit(0);
}
__________________________________________________
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]