if ($password ne $upassword) {
print "Location: /pages/login.htm\n\n";
} else {
print "Location: /pages/yourpage.htm\n\n";
}
Something like that may work.
-----Original Message-----
From: "Scot Robnett"<[EMAIL PROTECTED]>
To: "Admin-Stress"<[EMAIL PROTECTED]>, "perl cgi"<[EMAIL PROTECTED]>
Date: Mon Dec 09 13:31:49 PST 2002
Subject: Re: html redirect using CGI.pm
>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> ";
> 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]
>
>
>--
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
>
___________________________________________________
GO.com Mail
Get Your Free, Private E-mail at http://mail.go.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
