Passwortabfrage

[Enzo]

Hi zusammen,

bei meinem Script mach ich ne kleine PW-Abfrage (aber ohne crypt).

Hier der QT:
my %passwd = ("xxx","xxx");

my $u = $cgi->param('username');
my $p = $cgi->param('password');

if (($passwd{$u} eq $p) && ($u ne undef) && ($p ne undef))
{
print $cgi->header (-type  => 'text/html');
   print "Toll";
   exit 0;
}
else
{
print $cgi->header (-type  => 'text/html');
print "Shit";
}

Denn ich wollt/hab das mit nem Hash machen, aber hab dann gemerkt, dass wenn der User kein Passwort eingab er dennoch reingekommen ist, deshalb "($u ne undef) && ($p ne undef)". Aber irgendwie hab ich das Gefühl, dass das unsauber ist bzw. da dennoch ein Fehler drin ist. Naja und meine Frage ist jetzt ob man das etwas eleganter machen kann oder es da halt noch ein grobe Lücke gibt ?

cu
Enzo