| Revision 2 (by moose, 2006/07/10 13:21:14) |
|---|
#!/usr/bin/perl use warnings; use strict; use SVNAdmin; if($session->key('loggedin')) { $session->expire('loggedin', '0s'); } print http_redirect(-referer => $ENV{HTTP_REFERER}, -uri => uri('login.pl'));
| Revision 2 (by moose, 2006/07/10 13:21:14) |
|---|
#!/usr/bin/perl use warnings; use strict; use SVNAdmin; if($session->key('loggedin')) { $session->expire('loggedin', '0s'); } print http_redirect(-referer => $ENV{HTTP_REFERER}, -uri => uri('login.pl'));