Revision 5d23fb60
Von Sven Schöling vor mehr als 14 Jahren hinzugefügt
| SL/Auth.pm | ||
|---|---|---|
| 1 | 1 |
package SL::Auth; |
| 2 | 2 |
|
| 3 |
use constant OK => 0; |
|
| 4 |
use constant ERR_PASSWORD => 1; |
|
| 5 |
use constant ERR_BACKEND => 100; |
|
| 6 |
|
|
| 7 |
use constant SESSION_OK => 0; |
|
| 8 |
use constant SESSION_NONE => 1; |
|
| 9 |
use constant SESSION_EXPIRED => 2; |
|
| 3 |
use DBI; |
|
| 10 | 4 |
|
| 11 | 5 |
use Digest::MD5 qw(md5_hex); |
| 12 | 6 |
use IO::File; |
| 13 | 7 |
use Time::HiRes qw(gettimeofday); |
| 14 | 8 |
use List::MoreUtils qw(uniq); |
| 15 | 9 |
|
| 10 |
use SL::Auth::Constants qw(:all); |
|
| 16 | 11 |
use SL::Auth::DB; |
| 17 | 12 |
use SL::Auth::LDAP; |
| 18 | 13 |
|
Auch abrufbar als: Unified diff
Auth Konstanten ausgelagert in ein eigenes Package.
Dadurch keine Probleme mit zirkulären Includes mehr. Ausserdem DBI an der richtigen Stelle eingebunden.