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 30 31 32 33 34 35 36
| #!c:/perl/bin/perl.exe -w
use CGI;
my $cgi = CGI::new();
print $cgi->header(),
$cgi->start_html();
my $login = $cgi->param("login");
my $pass = $cgi->param("pass");
my $part = 'www/projet_cnam/part.txt' ;
open my $login_file, '<', $part
or die "Can't open $part : $!\n";
while( my $line = <$login_file>) {
chomp($line);
my ($real_login,$real_pass)= split /,/, $line;
if($real_login eq $login) {
if($real_pass eq $pass) {
print $cgi->p('identification réussie');
last;
}
else {
print $cgi->p('mauvais mot de passe!');
last;
}
}
} |
Partager