view release on metacpan or  search on metacpan

AuthCookieURL.pm  view on Meta::CPAN

40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
    # Normall this would convert credentials into a session key
     
 
    # A really silly session key.
    return time . $$ . int rand $$;
 
    # Or return a flag that authen_ses_key can look for
    return 'invalid:account_expired';
 
    # Or return a message that will be placed in a 'Reason' cookie
    return ('','User Blocked');
 
}    
 
sub authen_ses_key ($$$) {
    my ($self, $r, $session) = @_;
 
    # Validate the session and convert it into REMOTE_USER
     
 
    # This is using the session key as the REMOTE_USER