web session 管理问题

guweichen

小弟是新手上路,请教如何管理session,当session timeout的时候由程序判断跳转致login界面, 大侠能否给段实现这一功能的代码?

Qiang

这个以前讨论过，看看精华帖子吧。具体实现时有问题再问

rorot

1. 
   
2. 
   
3. #!/usr/bin/perl -w
   
4. # Demonstration of CGI::Session
   
5. # session.pl
   
6. 
   
7. use strict;
   
8. use CGI::Session;
   
9. use CGI::Simple;
   
10. 
    
11. my $session_dir = "/tmp/session";
    
12. my $session_key = "master";
    
13. 
    
14. mkdir $session_dir || die $! unless (-d $session_dir);
    
15. 
    
16. my $cgi = new CGI::Simple;
    
17. my $sess_id = $cgi->;cookie('CGISESSID');
    
18. my $session = new CGI::Session(undef, $sess_id, {Directory =>; $session_dir});
    
19. 
    
20. unless ($session->;param($session_key))
    
21. {
    
22.         $cgi->;redirect('login.pl');   
    
23.         exit;
    
24. }
    
25. 
    
26. print $cgi->;header(-charset =>; 'GB2312'),
    
27.           "<h2>;<font color=green>;Normal HTML</font>;&timeout=10s</h2>;";
    

复制代码

1. 
   
2. 
   
3. #!/usr/bin/perl -w
   
4. # login.pl
   
5. 
   
6. use strict;
   
7. use CGI::Session;
   
8. use CGI::Simple;
   
9. 
   
10. my $session_dir = "/tmp/session";
    
11. my $session_key = "master";
    
12. my $session_timeout = "+10s";
    
13. 
    
14. mkdir $session_dir || die $! unless (-d $session_dir);
    
15. chmod 0777, $session_dir;
    
16. 
    
17. my $cgi = new CGI::Simple;
    
18. my $sess_id = $cgi->;cookie('CGISESSID');
    
19. my $session = new CGI::Session(undef, $sess_id, {Directory =>; $session_dir});
    
20. my $cookie  = $cgi->;cookie( -name =>; $session->;name, -value =>; $session->;id);
    
21. 
    
22. $session->;param($session_key, 'rorot');
    
23. $session->;expire($session_key, $session_timeout);
    
24. 
    
25. print $cgi->;header(-charset =>; 'GB2312', -cookie =>; $cookie),
    
26.           "<h2>;set cookie: $cookie</h2>;<br>;\n",
    
27.           "<a href=session.pl>;session.pl</a>;\n";
    

复制代码