Discussion :

[BnA]

Salut!

Voilà, j'ai donc mon formulaire d'inscription, et lors du choix du login, j'aimerais que les gens puisse vérifier si le login est déjà utilisé ou pas.

Bien évidemment mon script ne marche pas, ça serait trop beau.

Voilà déjà ce que j'ai...

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
#!D:/Perl/bin
use DBI;
use CGI;
my $cgi = CGI::new();
use strict;
 
    my $path="dbi:mysql:dbname=form_competence";
    my $user='root';
    my $pswd='*****';
 
    my $connexion=DBI->connect($path,$user,$pswd) or die ('Erreur de connexion...');
 
    my %data=();
    %data=("can_login"=>$cgi->param('login'));
 
    my $query= "SELECT can_login FROM candidats  WHERE can_login LIKE '$data{can_login}'";
    my $req = $connexion->prepare($query);
    $req->execute();
    my $result = $req->fetchrow_hashref();
    if (($data{can_login} ne "")){
        print "Le login désiré est déjà utilisé";
    }

Je suppose que c'est au niveau du 'if' qu'il y a un problème, mais je ne sais pas comment je pourrais traduire ça autrement...

Merci d'avance de votre aide!

[Mr6]

c'est un fetchrow_hashref, pas un fetchrow_hash
$data->{'can_login'} passera mieux je pense

[BnA]

Non ça ne change rien...

Au fait, j'ai une page blanche de chez blanche comme résultat

[Mr6]

et tu as un else après ton if au cas où ?
j'avais pas fait gaffe, mais je dis une connerie... c'est bien $data{'can_login'} qu'il te faut, mais ton if là, il vérifie juste que le login n'est pas vide, il ne compare pas avec les résultats de ta requête sql...

[BnA]

Oui je m'en suis rendu compte, j'ai réglé le problème...

Voici ce que j'ai (et qui marche!):

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
 
#!D:/Perl/bin
use DBI;
use CGI;
my $cgi = CGI::new();
use strict;
 
    my $path="dbi:mysql:dbname=form_competence";
    my $user='root';
    my $pswd='*****';
 
    my $connexion=DBI->connect($path,$user,$pswd) or die ('Erreur de connexion...');
 
    my %data=();
    %data=("can_login"=>$cgi->param('login'));
 
    my $query= "SELECT can_login FROM candidats  WHERE can_login LIKE '$data{can_login}'";
    my $req = $connexion->prepare($query);
    $req->execute();
    my $result = $req->fetchrow_hashref();
    if (($result->{'can_login'} ne "")){
            print "content-type:text/html\n\n";
        print "Le login désiré est déjà utilisé";
    }
    else{
        print "location:/rst406/labo1/inscription.html\n\n";
    }

Voilà, tu avais raison, je ne comparais pas les bonnes valeurs...

[Mr6]

pour ton if/else, tu peux aussi utiliser le module cgi

ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
if ($result->{'can_login'} ne "") {
    print $cgi->header;
    print $cgi->start_html('titre');
    print "Le login désiré est déjà utilisé";
}
else {
    print $cgi->redirect("http://www.tonsite.com/rst406/labo1/inscription.html");
}

Si ca peut te donner des idées pour plus tard

[BnA]

Ca en change rien de particulier... En plus j'ai un problème au niveau des redirections...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Genre je suis à l'adresse:
<a href="http://vbstefi76.fapse.ulg.ac.be/rst406/labo1/inscription.html" target="_blank">http://vbstefi76.fapse.ulg.ac.be/rst...scription.html</a>
 
je clique sur 'Tester le login', je retombe à:
<a href="http://vbstefi76.fapse.ulg.ac.be/rst406/labo1/scripts/lib/login.pl" target="_blank">http://vbstefi76.fapse.ulg.ac.be/rst...s/lib/login.pl</a>
 
et si je reclique à nouveau sur 'Tester login', je me retrouve à:
<a href="http://vbstefi76.fapse.ulg.ac.be/rst406/labo1/scripts/lib/scripts/liblogin.pl" target="_blank">http://vbstefi76.fapse.ulg.ac.be/rst406/labo1/scripts/lib/scripts/lib/login.pl</a>

et là j'ai une erreur, puisque cet endroit n'existe pas...

[Mr6]

à ta place j'oublierai la page html. mets-la plutôt dans ton script cgi. genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
.....traitements divers....
if (){
print $cgi->header;
print $cgi->start_html....
}
else {
print $cgi->redirect...
}
 
print "<form action="" method=post>";
print "<input type=text name=can_login>";
......
reste de la page de login ;)

tu vois ce que je veux dire ? ca te permet de faire des tests, de voir ce que tu veux afficher en cas d'erreur, et d'avoir toujours un affichage par défaut.