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 : Sélectionner tout - Visualiser dans une fenêtre à part
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;
        }
    }
 
}