You might want to just use redirect(), check perldoc CGI

-----
Scot Robnett
inSite Internet Solutions
[EMAIL PROTECTED]



-----Original Message-----
From: Admin-Stress [mailto:[EMAIL PROTECTED]]
Sent: Monday, December 09, 2002 2:42 PM
To: perl cgi
Subject: html redirect using CGI.pm


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>&nbsp";
  print "<TR><TH align=center>$msg";
  print "<TR><TH>&nbsp";
}

$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]


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to