Oliver Antosch: Perl und Cookies

Beitrag lesen

Hallo,

um einen Autologin zu realisieren, verwende ich cookies. Um gleich zu testen ob das
Cookie erfolgreich gesetzt worden ist, überprüfe ich dies gleich. Allerdings meldet
Perl fälschlicherweise das es nicht gesetzt worden ist. Desweiteren würde mich interessieren
wie man nicht ein absolutes Verfallsdatum setzt, sondern eher im Stile ab-jetzt-noch-6-monate-gültig.

print "Set-Cookie: $rec{ID}=$encrypted_PW; path=/; expires=Wednesday, 31-Dec-99 23:59:59 GMT\n";

if ($ENV{'HTTP_COOKIE'}) {

&html_set_autologin_success;
&auth_logging('set autologin succeeds',$rec{Spitzname}) if ($auth_logging);

}  

else  {

&html_set_autologin_failure;
&auth_logging('set autologin fails',$rec{Spitzname}) if ($auth_logging);

}