#!/usr/bin/perl -w 

%user1 = ("Name" => "Anton", "Passwort" => "Alpha1");
%user2 = ("Name" => "Berta", "Passwort" => "Bravo2"); 
%user3 = ("Name" => "Charlie", "Passwort" => "Caesar3"); 
%user4 = ("Name" => "Dora", "Passwort" => "Delta4");
%user5 = ("Name" => "Emil", "Passwort" => "Echo5");

$einleitung = <<HERE_TEXT; 

*************
* L O G I N *
*************

Der Zugang zu diesen Inhalten ist nur den berechtigten Nutzern gestattet. 

HERE_TEXT

print $einleitung; 

sub eingabe 
{
	print "\nBenutzername:	";  
	chomp ($name_eingabe=<>); 
	print "\nPasswort:	";
	chomp ($passwort_eingabe=<>);
}

eingabe(); 

sub pruefung 
{
	if ($name_eingabe eq $user1{Name} && $passwort_eingabe eq $user1{Passwort} || 
		$name_eingabe eq $user2{Name} && $passwort_eingabe eq $user2{Passwort} || 
		$name_eingabe eq $user3{Name} && $passwort_eingabe eq $user3{Passwort} ||
		$name_eingabe eq $user4{Name} && $passwort_eingabe eq $user4{Passwort} ||
		$name_eingabe eq $user5{Name} && $passwort_eingabe eq $user5{Passwort})
	{
		$check = 1; 
	}
	else 
	{
		$check = 0; 
	}	
}

pruefung(); 

sub ausgabe 
{
	if ($check == 1) 
	{
		print "\nIhre Eingaben waren richtig. Sie koennen nun fortfahren.\n";
		print "\nCopyright: Margarita Miagkova\n";
	}
	else 
	{
		print "\nBitte ueberpruefen Sie nochmals Ihre Eingaben\n"; 
		eingabe(); 
		pruefung();
		ausgabe();  
	}
}

ausgabe();