Bonjour
Je rameavec un script ou je ne vois pas ou est le problème...
Est ce que quelqu'un peut m'aider...
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 #!/usr/bin/perl use CGI; use CGI qw(:standard); use CGI::Session; $html = new CGI; # Si on a le paramètre login et mdp passé en paramètre, alors... if (defined(param('login')) && defined(param('mdp'))){ # on crée une session $session = new CGI::Session() or die CGI::Session->errstr; # on y stock les données login et mdp $session->param('login', param('login')); $session->param('mdp', param('mdp')); $session->save_param(); #on crée le cookie de session print $session->header(); } # si l'utilisateur à demandé de se déconnecter if (defined(param('action')) && (param('action')=='deco')){ # on détruit sa session $session->delete(); } print $html->start_html(); # si on a un session existante ... if (defined(cookie("CGISESSID"))){ # on récupère l'id de la session $id = cookie("CGISESSID"); #on récupère la session $session = CGI::Session->load($id); # on affiche le menu du compte print "Bienvenue sur votre page de compte ",$session->param("login"),"<br />"; print "<a href='session.cgi?action=deco'>Se déconnecter</a>"; } else { # sinon on affiche le formulaire de saisie print "<form action='session.cgi' method='post'> Login <input type='text' size=20 name='login'><br /> mdp <input type='password' size=20 name='mdp'><br /> <input type='submit' value='Connecter'> </form>"; } print $html->end_html();
Merci
Patrick
Partager