|
|
1 | ################################################################################ |
|
|
2 | # WeBWorK mod_perl (c) 1995-2002 WeBWorK Team, Univeristy of Rochester |
|
|
3 | # $Id$ |
|
|
4 | ################################################################################ |
|
|
5 | |
| 1 | package WeBWorK::Authen; |
6 | package WeBWorK::Authen; |
| 2 | |
7 | |
| 3 | use WeBWorK::DB::Auth; |
8 | =head1 NAME |
|
|
9 | |
|
|
10 | WeBWorK::Authen - Check user identity, manage session keys. |
|
|
11 | |
|
|
12 | =cut |
|
|
13 | |
| 4 | use strict; |
14 | use strict; |
| 5 | use warnings; |
15 | use warnings; |
|
|
16 | use WeBWorK::DB::Auth; |
| 6 | |
17 | |
| 7 | sub new($$$) { |
18 | sub new($$$) { |
| 8 | my $invocant = shift; |
19 | my $invocant = shift; |
| 9 | my $class = ref($invocant) || $invocant; |
20 | my $class = ref($invocant) || $invocant; |
| 10 | my $self = {}; |
21 | my $self = {}; |
Parent Directory
| 
Revision Log
| 
Patch