IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Web Perl Discussion :

Vérifier l'existence d'un login


Sujet :

Web Perl

  1. #1
    BnA
    BnA est déconnecté
    Membre éclairé Avatar de BnA
    Inscrit en
    Mars 2006
    Messages
    559
    Détails du profil
    Informations personnelles :
    Âge : 41

    Informations forums :
    Inscription : Mars 2006
    Messages : 559
    Par défaut Vérifier l'existence d'un login
    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!

  2. #2
    Mr6
    Mr6 est déconnecté
    Membre émérite

    Homme Profil pro
    Inscrit en
    Septembre 2004
    Messages
    608
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Service public

    Informations forums :
    Inscription : Septembre 2004
    Messages : 608
    Par défaut
    c'est un fetchrow_hashref, pas un fetchrow_hash
    $data->{'can_login'} passera mieux je pense

  3. #3
    BnA
    BnA est déconnecté
    Membre éclairé Avatar de BnA
    Inscrit en
    Mars 2006
    Messages
    559
    Détails du profil
    Informations personnelles :
    Âge : 41

    Informations forums :
    Inscription : Mars 2006
    Messages : 559
    Par défaut
    Non ça ne change rien...

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

  4. #4
    Mr6
    Mr6 est déconnecté
    Membre émérite

    Homme Profil pro
    Inscrit en
    Septembre 2004
    Messages
    608
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Service public

    Informations forums :
    Inscription : Septembre 2004
    Messages : 608
    Par défaut
    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...

  5. #5
    BnA
    BnA est déconnecté
    Membre éclairé Avatar de BnA
    Inscrit en
    Mars 2006
    Messages
    559
    Détails du profil
    Informations personnelles :
    Âge : 41

    Informations forums :
    Inscription : Mars 2006
    Messages : 559
    Par défaut
    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...

  6. #6
    Mr6
    Mr6 est déconnecté
    Membre émérite

    Homme Profil pro
    Inscrit en
    Septembre 2004
    Messages
    608
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Service public

    Informations forums :
    Inscription : Septembre 2004
    Messages : 608
    Par défaut
    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

  7. #7
    BnA
    BnA est déconnecté
    Membre éclairé Avatar de BnA
    Inscrit en
    Mars 2006
    Messages
    559
    Détails du profil
    Informations personnelles :
    Âge : 41

    Informations forums :
    Inscription : Mars 2006
    Messages : 559
    Par défaut
    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...

  8. #8
    Mr6
    Mr6 est déconnecté
    Membre émérite

    Homme Profil pro
    Inscrit en
    Septembre 2004
    Messages
    608
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Service public

    Informations forums :
    Inscription : Septembre 2004
    Messages : 608
    Par défaut
    à 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.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Vérifier l'existence d'un cookie chez le client...
    Par HNT dans le forum Général JavaScript
    Réponses: 6
    Dernier message: 30/08/2005, 21h09
  2. Comment vérifier l'existence d'un répertoire ?
    Par Sydaze dans le forum Débuter
    Réponses: 2
    Dernier message: 30/06/2005, 11h34
  3. Réponses: 3
    Dernier message: 05/04/2005, 14h36
  4. Réponses: 3
    Dernier message: 24/06/2004, 11h23
  5. Vérifier l'existence d'un répertoire
    Par Crazyblinkgirl dans le forum ASP
    Réponses: 4
    Dernier message: 24/06/2004, 11h13

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo