Session en perl/Tk

Version imprimable

07/04/2010, 22h28
cyberps2

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
08/04/2010, 00h19
djibril

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 ?

Je veux faire un petit client mail
Alors dans un premier temps j'ai la saisie du login

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
#!/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:

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à..

08/04/2010, 12h51
djibril

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.
08/04/2010, 14h19
cyberps2

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.

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:

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.

08/04/2010, 17h12
cyberps2

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..
08/04/2010, 22h32
cyberps2

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é.

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:

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 :

Citation:

Tk::Error: Failed to AUTOLOAD 'Tk::Label::get
Code:

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/04/2010, 10h06
djibril

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/04/2010, 15h29
cyberps2

Ah oui effectivement ce n'était pas très logique mon label...

Bon maintenant ça fonctionne merci !