Leser: 1
![]() |
|< 1 2 >| | ![]() |
17 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
sub login{
my($name, $pwd)= @_;
open(DATI, '<', 'iuser.dat');
flock(DATI, 2);
my @daten = <DATI>;
close(DATI);
my $out;
my $dat = @daten;
$i=1;
while($i<=$dat){
@ud = split(/\*\*/, $daten[$i]);
if($ud[1] eq $name){
if($pwd eq $ud[19]){ $out='User als '.$ud[1].' identifiziert!'; }else{ $out='Falsches Passwort'; }
}else{
$out='User nicht identifiziert!';
}
$i++;
}
print "Content-type: text/html\n\n";
print <<"EOF";
<html><head>
<title>Output Tester</title>
</head><body>
Hier ist die Ausgabe:<br><br>
EOF
print $out.'<br><br>';
print $_.'<br>' for @ud;
print '</body></html>';
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
sub login
{
my($name, $pwd) = @_;
my $dati; # so muss ein filehandle aussehen :)
my $out = "";
if(open($dati, '<', 'iuser.dat'))
{
flock($dati, 2);
my @daten = <$dati>;
close($dati);
$out = "User nicht identifiziert oder falsches Passwort!";
foreach (@daten)
{
my @ud = split(/\*\*/, $_);
if($ud[1] eq $name and $pwd eq $ud[19])
{
$out = "User als $name identifiziert!";
last;
}
}
}
return $out;
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
sub login
{
my($name, $pwd) = @_;
my $dati; # so muss ein filehandle aussehen :)
my $out = "";
if(open($dati, '<', 'iuser.dat'))
{
flock($dati, 2);
$out = "User nicht identifiziert oder falsches Passwort!";
while(<$dati>)
{
my @ud = split(/\*\*/, $_);
if($ud[1] eq $name and $pwd eq $ud[19])
{
$out = "User als $name identifiziert!";
last;
}
}
close($dati);
}
return $out;
}
1
2
3
4
5
6
7
8
9
10
11
12
13
my $out = "Nicht gefunden";
foreach my $datum (@daten) {
chomp $datum;
my @ud = split /\*\*/, $datum;
if ($ud[1] eq $name) {
if ($ud[19] eq $pwd) {
$out = "Authentifiziert";
} else {
$out = "Verweigert";
}
last;
}
}
![]() |
|< 1 2 >| | ![]() |
17 Einträge, 2 Seiten |