Perl cookie help

[MagicChris]

Right, i've attempted to pass a password in a cookie around so it will be remembered, usual login script.

But it won't work, and i don't know why not.

Anyway, here's the script,

http://mm.zigwebdesign.co.uk/login.txt

Any help would be great, newbie kinda here.

 

[yauncin]

this is what you have:
if (lc $in{'pass'}) {
if (lc $in{'pass'} eq lc $password) {
&authp;
}
if (lc $in{'pass'} ne lc $password) {
&authpp;
}
}

try this:
if (lc $in{'pass'}) {
if (lc $in{'pass'} eq lc $cookie{password}) {
&authp;
}
if (lc $in{'pass'} ne lc $cookie{password}) {
&authpp;
}
}

 

[MagicChris]

That won't work coz the cookie is set after the password is entered for the first time.

I think there's something wrong with the actual writing of the cookie, but i don't know what...

 

[yauncin]

A couple of things: <<EOF; already interpolates so you don't have to put double quotes and you don't have to escape double quotes; I used CGI.pm but you can always change it back; I switched around some of your logic (the script only checks once for the password and I combined authp and authpp.); Your cookie was never written to the browser because its a part of the http header and you had content-type already declared (I had to move the content-type, header, and footer, to each individual display sub ); if you use my with more than one variable you need to place parenthesis around them, i.e. my( @this, $that, %theother ), and I used strict with my scoping and turned on the -w switch. I also have Carp displaying your errors to the browser for the convenience of bug tracking but you should remove it once your script is complete. I hope this helps and if you have any questions feel free to ask.

Johnny

The revised code can be viewed at:

http://www.thepicklepages.com/demos/program.txt

P.S. The code has been tested.

 

[MagicChris]

Hey,
Thanks a lot! works brilliantly,

Thanks for your time

Chris

 

[yauncin]

Any time s-)