No, I didnīt forget the "\n"s in the end of each header...
****************************************************************************
print "Set-Cookie: logged=0\n";
....
.... data base instructions to check the login data ....
....
if (LOGIN_FAILS)
{
print "Set-Cookie: logged=1\n";
print "Location: http://www.wherever1.com\n";;
}
else
{
print "Location: http://www.wherever2.com\n";;
}
****************************************************************************
-----Original Message-----
From: Lee Goddard [mailto:[EMAIL PROTECTED]]
Sent: Monday, September 24, 2001 5:37 PM
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: RE: Headers...
Are you sending "\n" at the end of each header line?
Have you seen the cookie funcitonality of CGI.pm?
Lee
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]On Behalf Of
> Christian Azambuja Pagot
> Sent: 24 September 2001 21:24
> To: [EMAIL PROTECTED]
> Subject: Headers...
>
>
> My problem doesnīt concern to Perl.. but much more with HTTP headers...
> I wrote a script (Perl, CGI) that ensures that the user is not logged,
until
> the submit data is checked, through:
>
> print "Set-Cookie: logged=0"; # 1
>
> After that, the same script checks if the loggin is correct, and if it is,
> it does the following:
>
> print "Set-Cookie: logged=1"; # 2
> print "Location: http://www.wherever.com";; # 3
>
> The first line (#1) is working properly, but I didnīt get the following
> lines executed (#2 and #3).... Can I send a lot of headers for the same
> page, in sequence, as I am doing?
>
> The actual source code of my script is:
>
>
****************************************************************************
> **********************
> print "Set-Cookie: logged=0";
> ....
> .... data base instructions to check the login data ....
> ....
> if (LOGIN_FAILS)
> {
> print "Set-Cookie: logged=1";
> print "Location: http://www.wherever.com";;
> }
> else
> {
> print "Location: http://www.wherever.com";; # 3
> }
>
****************************************************************************
> **********************
>
> Thanks!!!
> Christian
>
> _______________________________________________
> Perl-Win32-Web mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
>
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
