User-Login

[Holger]

Danke nochmals,

Es Funtioniert wie ich mir das so gedacht habe,
Nur Leider (für die anderen Leser hat sich ein Rechtschreibfehler
eingeschlichen). Hier jetzt das Funtionstüchtige Script.

my $login_ok;
for (@passwort) {
  chomp;     # nur zur Sicherheit
  my ($user, $passwd) = split //;
  $login_ok = 1 if ($user eq $user_jetzt and $pass_jetzt eq $passwd);
}
if (defined $login_ok)
    {
    &login;  # Login OK
    }
else
    {
    &falsch; # Login fehlgeschlagen
    }
exit;

Danke Peter und Cheatah

GRUSS Holger