Cookies && perl ? möglich?

[Uurtyp]

hmm
warum hast du php geschrieben? eigentlich is das perl - oda funzt das bei beiden gleich?

egal - habs probiert wie unten dann folgt.
nur es fetzt ihn immer mit der meldung:
Can't call method "value" on an undefined value at checkCookie.pm line 24.

das is genau dort, wo er nur reingehen sollte wenn das cookie existiert - nachdem ich nicht eingelogged bin, ist das nicht der fall -> crashed er.

hier mal meine funktion die das ganze handeln sollte:

sub checkCookie
{ $loggedin = 0;

$cgi = new CGI;

#pruefen ob ein Cookie mit dem Namen "schui" existiert
foreach $cookie (CGI::cookie())
{
if ($cookie == "schui")
{
$loggedin = 1;
}
}

if ($loggedin == 1)
{

# Cookie fetchen und Inhalte zuweisen
%cookies = CGI::Cookie->fetch;
line 24 -----> $user = $cookies{user}->value;
$pw = $cookies{pw}->value;
$admin = $cookies{level}->value;
$login = "1";
return ($login, $user, $pw, $admin);
}
}
return "true";

hoffentlich seht ihr den fehler
dank euch vielmals
mfg
Uurtyp