Cookie setzen und auslesen

[Christian Bliß]

Hallo,

habe folgende 2 Programme geschrieben:

1.

cookie_setzen.pl

#!/usr/bin/perl
use CGI;

$q = new CGI;
$id = int(rand(time()));
$exp='+1d';

$cook1 = $q -> cookie(-name => 'cookie123',
                      -value => $id,
                      -expires => $exp);
print $q -> header(-cookie=>$cook1);

2.

cookie_lesen.pl

#!/usr/bin/perl
use CGI;

$q = new CGI;

if ($kennung = $q -> cookie(-name=>"cookie123")) {
  print "Cookie vorhanden - Inhalt: $kennung";
}

Bei Aufruf des 2. Scriptes 'cookie_lesen.pl kommt der HTTP 500-Fehler. Mache ich den Fehler beim schreiben oder beim lesen des Cookies?

MfG Christian Bliß

[rolfrost]

hi,

cookie_lesen.pl

#!/usr/bin/perl
use CGI;

$q = new CGI;

if ($kennung = $q -> cookie(-name=>"cookie123")) {
  print "Cookie vorhanden - Inhalt: $kennung";
}

Bei Aufruf des 2. Scriptes 'cookie_lesen.pl kommt der HTTP 500-Fehler. Mache ich den Fehler beim schreiben oder beim lesen des Cookies?

noi. Es fehlt nur der header, deswegen der 500er.

Viele Grüße, rolf