Session en perl/Tk

**cyberps2** · 07/04/2010, 22h28

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

**djibril** · 08/04/2010, 00h19

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 ?

**cyberps2** · 08/04/2010, 11h16

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

**djibril** · 08/04/2010, 12h51

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.

**cyberps2** · 08/04/2010, 14h19

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.

**djibril** · 08/04/2010, 15h32

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.

Session en perl/Tk

Interfaces Graphiques Perl

Vue hybride

Discussions similaires

Partager

Partager