Bonjour
Je rame avec un script ou je ne vois pas ou est le problème...

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();
Est ce que quelqu'un peut m'aider...

Merci
Patrick