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

Interfaces Graphiques Perl Discussion :

Session en perl/Tk


Sujet :

Interfaces Graphiques Perl

  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Juin 2008
    Messages
    49
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2008
    Messages : 49
    Par défaut Session en perl/Tk
    Bonjour à tous,

    je me demandais si comme en php, le principe des sessions existe en perl ?

    j'ai un petit programme en perl/tk qui demande la saisie d'un login / password puis une fois validé, exécute un second script perl/tk qui est le programme en lui même.

    J'aimerais donc garder en mémoire des informations tels que le login par exemple.


    Avez-vous une idée ?

    Merci

  2. #2
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    Pourquoi ne pas avoir un seul programme pour les deux. Ton programme 1 peut être facilement intégré au 2.
    Peux tu nous montrer un peu ton code ?

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Juin 2008
    Messages
    49
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2008
    Messages : 49
    Par défaut
    Je veux faire un petit client mail
    Alors dans un premier temps j'ai la saisie du login

    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
    #!/usr/bin/perl -w
    use strict;
    use Tk;    # Appel du module Tk
     
    # Programme principal
    # Création de la fenêtre
    my $fenetre = new MainWindow(
      -title      => "Authentification",
    ); 
     
    # Taille minimale de la fenêtre   
    $fenetre->minsize(300,100);
     
    my $login = $fenetre->Entry( 
      -text       => "user\@sample.org",
    )->pack()->focus;
     
    my $pass = $fenetre->Entry(
      -text       => "password",
      -show      => '*',
    )->pack();
     
    my $button1 = $fenetre->Button(-text=>"Se connecter",-command=>exec("/usr/bin/perl /home/perl.pl"))->pack();
    my $button2 = $fenetre->Button(-text=>"Quitter",-command=>sub {exit(0)})->pack();
     
    MainLoop();
    Dans un premier temps j'ai un soucis pour exécuter le script perl.pl, il m'affiche pas la fenêtre lorsque je clic sur se connecter. Bref...
    Ensuite, moi je voudrais récupérer la valeur de $login par exemple ici :

    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
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    #!/usr/bin/perl -w
    use Tk;	
    use strict;
    use Net::POP3;
    use Tk::NoteBook;
     
    # Declaration des fonctions et variables
    sub Quitter 
    {
        exit(0);
    }
     
    #########################
    Actuellement je saisie à la main mes infos de login
    #########################
    my $host='****';
    my $user='****';
    my $pass='****';
    my $pop = Net::POP3->new($host) or die("ERROR: Unable to connect.\n");
    # login
    my $numMsg = $pop->login($user, $pass) or die("ERROR: Unable to login.\n");
     
    #########################
    # Fin declaration fonctions et variables
     
    my $fen = MainWindow->new(); #Création de la fenêtre principale
    $fen->title("Client Mail"); #Définition du title de la fenêtre
    $fen->minsize('500','400');
    #Création de la barre de menu
    my $barre_menu = $fen->Frame(-relief => 'groove' , -borderwidth => 2);	
    #Création de la barre du menu général
    my $menu_app = $barre_menu->Menubutton(
                                         -text => 'Fichier', #Définition du libellé du bouton
                                         -font => '{Garamond} 10', #Définition de la police
                                         -tearoff => 0 ,
                                         -menuitems => [ #Ajout des items au menu
                                                         [ 'command' => 'Quitter' ,
                                                           -font => '{Garamond} 10', 
    							-command => \&Quitter ,#Cette définition appelle Quitter
                                                         ]
                                                       ]
                                        );	
     
    #Affichage du menu général à gauche
    $menu_app->pack(-side => 'left');
    #Affichage de la barre de menu en haut et sur toute la largeur de la fenêtre
    $barre_menu->pack(-side => 'top', -anchor => 'n', -fill => 'x');				
    #Creation des boutons notebook
    my $book = $fen->NoteBook()->pack( -fill=>'both', -expand=>1 );
    my $tab1 = $book->add( "Sheet 1", -label=>"LOGIN");
    my $tab2 = $book->add( "Sheet 2", -label=>"INBOX");
    my $tab3 = $book->add( "Sheet 3", -label=>"Informations");
     
    ## j'ai voulu ajouter le login dans un "slide" mais je ne sais pas stocker en session les infos ###
    # Création de deux lignes de "dialogue"
    my $w_entry1 = $tab1->Entry (-text => 'user@sample.org');
    $w_entry1->pack(-padx => 10, -pady => 10)->focus;
    my $w_entry2 = $tab1->Entry (-text => 'password', -show => '*');
    $w_entry2->pack(-padx => 10, -pady => 10);
    my $sessionUser;
    my $sessionPass;
    $tab1->Button( -text=> "Se connecter", -command => sub {
    		my $sessionUser = $w_entry1->get;
    		$tab1->Label(-text=> "Connecte en tant que ".$sessionUser )->pack(-expand=>1 );
    		my $sessionPass = $w_entry2->get;
    		 },
    		)->pack(-padx => 10, -pady => 10);
     
     
    $tab2->Label( -text=> "Bienvenue" )->pack(-expand=>1 );
    my $output_frame = $tab2->Frame()->pack(-side => "bottom");
    my $output_scroll = $output_frame->Scrollbar();
    my $output_text = $output_frame->Text(-yscrollcommand => ['set', $output_scroll]);
     
     
    $output_scroll->configure(-command => ['yview', $output_text]);
     
    $output_scroll->pack(-side => "right", -expand => "no", -fill => "y");
    $output_text->pack();
     
     
    my $sizeBox = $pop->list($numMsg);
    $tab3->Label( -text=>"Il y a actuellement ".$numMsg." messages dans votre boite. \n\n La taille de votre boite est de ".$sizeBox." octets." )->pack(-expand=>1 );
    # close connection
    $pop->quit();
     
    MainLoop;
    Mon code est pas très très jolie mais il fonctionne comme je le souhaite jusque là..

  4. #4
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    Tu pourrais intégrer ton programme 1 dans ton programme 2, ce serait déjà beaucoup plus simple. Si tu veux de l'aide, on peut t'aider à le faire.

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Juin 2008
    Messages
    49
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2008
    Messages : 49
    Par défaut
    oui ça m'intéresse.

    J'ai déjà essayé d'intégrer mais j'ai toujours le même soucis.

    Lorsque je veux me logguer, je ne sais pas comment garder les infos pour les réutiliser dans le même script.

    Donc s'il y a des suggestions je suis preneur.


    Merci.

  6. #6
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    Je n'ai pas eu assez de temps pour mieux paufiner ton code, mais je pense que tu peux déjà faire quelque chose avec celui ci :

    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
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    #!/usr/bin/perl
    use Tk;
    use strict;
    use warnings;
    use Net::POP3;
    use Tk::NoteBook;
     
    my $fenetre = new MainWindow( -title => "Authentification", );
     
    # Taille minimale de la fenêtre
    $fenetre->minsize( 300, 100 );
     
    my $host = $fenetre->Entry( -text => "host", )->pack();
    $host->focus;
     
    my $login = $fenetre->Entry( -text => "user\@sample.org", )->pack();
     
    my $pass = $fenetre->Entry(
      -text => "password",
      -show => '*',
    )->pack();
     
    my $button1 = $fenetre->Button(
      -text    => "Se connecter",
      -command => [ \&ClientMail, $fenetre, $host, $login, $pass ],
    )->pack();
    my $button2 = $fenetre->Button(
      -text    => "Quitter",
      -command => \&Quitter,
    )->pack();
     
    MainLoop();
     
    sub ClientMail {
      my ( $fenetre, $EntryHost, $EntryLogin, $EntryPass ) = @_;
     
      my $host = $EntryHost->get;
      my $user = $EntryLogin->get;
      my $pass = $EntryPass->get;
     
    #########################
      # Fin declaration fonctions et variables
     
      my $fen = MainWindow->new();    #Création de la fenêtre principale
      $fen->title("Client Mail");     #Définition du title de la fenêtre
      $fen->minsize( '500', '400' );
     
      # destruction de la fenetre principale
      $fenetre->destroy;
     
      my $pop = Net::POP3->new($host) or die("ERROR: Unable to connect.\n");
     
      # login
      my $numMsg = $pop->login( $user, $pass ) or die("ERROR: Unable to login.\n");
     
      #Création de la barre de menu
      my $barre_menu = $fen->Frame( -relief => 'groove', -borderwidth => 2 );
     
      #Création de la barre du menu général
      my $menu_app = $barre_menu->Menubutton(
        -text      => 'Fichier',          #Définition du libellé du bouton
        -font      => '{Garamond} 10',    #Définition de la police
        -tearoff   => 0,
        -menuitems => [                   #Ajout des items au menu
          [ 'command' => 'Quitter',
            -font     => '{Garamond} 10',
            -command  => \&Quitter,         #Cette définition appelle Quitter
          ]
        ]
      );
     
      #Affichage du menu général à gauche
      $menu_app->pack( -side => 'left' );
     
      #Affichage de la barre de menu en haut et sur toute la largeur de la fenêtre
      $barre_menu->pack( -side => 'top', -anchor => 'n', -fill => 'x' );
     
      #Creation des boutons notebook
      my $book = $fen->NoteBook()->pack( -fill => 'both', -expand => 1 );
      my $tab1 = $book->add( "Sheet 1", -label => "LOGIN" );
      my $tab2 = $book->add( "Sheet 2", -label => "INBOX" );
      my $tab3 = $book->add( "Sheet 3", -label => "Informations" );
     
    ## j'ai voulu ajouter le login dans un "slide" mais je ne sais pas stocker en session les infos ###
      # Création de deux lignes de "dialogue"
      my $w_entry1 = $tab1->Entry( -text => 'user@sample.org' );
      $w_entry1->pack( -padx => 10, -pady => 10 )->focus;
      my $w_entry2 = $tab1->Entry( -text => 'password', -show => '*' );
      $w_entry2->pack( -padx => 10, -pady => 10 );
      my $sessionUser;
      my $sessionPass;
      $tab1->Button(
        -text    => "Se connecter",
        -command => sub {
          my $sessionUser = $w_entry1->get;
          $tab1->Label( -text => "Connecte en tant que " . $sessionUser )->pack( -expand => 1 );
          my $sessionPass = $w_entry2->get;
        },
      )->pack( -padx => 10, -pady => 10 );
     
      $tab2->Label( -text => "Bienvenue" )->pack( -expand => 1 );
      my $output_frame  = $tab2->Frame()->pack( -side => "bottom" );
      my $output_scroll = $output_frame->Scrollbar();
      my $output_text   = $output_frame->Text( -yscrollcommand => [ 'set', $output_scroll ] );
     
      $output_scroll->configure( -command => [ 'yview', $output_text ] );
     
      $output_scroll->pack( -side => "right", -expand => "no", -fill => "y" );
      $output_text->pack();
     
      my $sizeBox = $pop->list($numMsg);
      $tab3->Label( -text => "Il y a actuellement " 
          . $numMsg
          . " messages dans votre boite. \n\n La taille de votre boite est de "
          . $sizeBox
          . " octets." )->pack( -expand => 1 );
     
      # close connection
      $pop->quit();
     
      return;
    }
     
    sub Quitter {
      exit(0);
    }
    Tout est regroupé en un seul programme.
    Il suffit d'utiliser la méthode get sur les widget entry pour récupérer les valeurs des champs.
    Sinon, j'ai vu que tu faisais des onglets, et que sur le premier, tu avais un champ de connexion. Donc tu pourrais l'utiliser sans avoir besoin d'une première fenêtre.

  7. #7
    Membre averti
    Profil pro
    Inscrit en
    Juin 2008
    Messages
    49
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2008
    Messages : 49
    Par défaut
    Merci beaucoup, je test ça ce soir !

    Oui j'avais commencé avec l'idée des onglets mais je n'arrivais pas justement à stocker les infos en mémoire donc je me suis dis avec un premier script et des "sessions" peut-être que ça fonctionnerait mieux..

  8. #8
    Membre averti
    Profil pro
    Inscrit en
    Juin 2008
    Messages
    49
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2008
    Messages : 49
    Par défaut
    super ça fonctionne.

    Au final, tu as mis en fonction une partie du script principal ?

    Et tu exécutes la fonction lorsque l'on se connecte avec en paramètres login, passwords etc ...


    Pour les onglets, je pense que je vais rester avec un écran de login séparé c'est plus clair.

    Je vais maintenant pouvoir lister mon inbox.


    Merci encore c'est sympa de ta part de m'avoir aidé.

  9. #9
    Membre averti
    Profil pro
    Inscrit en
    Juin 2008
    Messages
    49
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2008
    Messages : 49
    Par défaut
    Bonjour djibril,

    j'ai un petit soucis quand je veux ajouter une fonction.
    Dans mon 2e onglet, j'ajoute un bouton "send" et j'essaye de récupérer les valeurs des champs remplis dans cet onglet.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    ### 2e onglet ###
      my $FromTab2 = $tab2->Label(-text => $user)->pack();
      my $ToTab2 = $tab2->Entry(-text => "user\@sample.org")->pack();
      my $SubjectTab2 = $tab2->Entry(-text => "Sujet du mail")->pack();
      my $ButtonTab2 = $tab2->Button(-text => "Envoyer", -command => [ \&Send, $FromTab2, $ToTab2, $SubjectTab2 ],)
    ->pack();
    Mais lorsque je fais un get j'ai une erreur :

    Tk::Error: Failed to AUTOLOAD 'Tk::Label::get
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    sub Send {
      my ( $EntryFrom, $EntryTo, $EntrySubject ) = @_;
      my $from = $EntryFrom->get;
      my $to = $EntryTo->get;
      my $subject = $EntrySubject->get;
    }
    As-tu une idée ?

  10. #10
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    C'est normal, $FromTab2 n'est pas un Widget de type Entry mais un label. Donc il n'existe pas de méthode get. Tu as dû te tromper car tu ne passes pas à ta procédure Send le bon Widget.

  11. #11
    Membre averti
    Profil pro
    Inscrit en
    Juin 2008
    Messages
    49
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2008
    Messages : 49
    Par défaut
    Ah oui effectivement ce n'était pas très logique mon label...

    Bon maintenant ça fonctionne merci !

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

Discussions similaires

  1. Session entre perl vers php5
    Par fripette dans le forum Web
    Réponses: 11
    Dernier message: 29/10/2012, 14h03
  2. [PERL]Problème sur la gestion des sessions
    Par LostRailler dans le forum Web
    Réponses: 5
    Dernier message: 03/02/2010, 10h57
  3. Session Perl/CGI avec MySQL
    Par LiNuXaDDiKt dans le forum Web
    Réponses: 3
    Dernier message: 18/02/2008, 06h24
  4. Perl script to lauch a SAS session
    Par flykev dans le forum Modules
    Réponses: 6
    Dernier message: 06/06/2006, 09h30
  5. Réponses: 7
    Dernier message: 23/04/2006, 01h38

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