probleme avec script traitement de formulaire CGI
ce script doit répondre à un formulaire en html, les paths et ma config easyphp fonctionne, mais le scrip cgi ci-présent ne répond pas... incompréhensible...
Code:
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;
}
}
} |
