Auth Konstanten ausgelagert in ein eigenes Package.

Dadurch keine Probleme mit zirkulären Includes mehr. Ausserdem DBI an der richtigen Stelle eingebunden.

diff --git a/SL/Auth.pm b/SL/Auth.pm
index 4b6f2fa2046171bc1b4cea6cb91b8467e3991cd6..10855e25b60fde0975fc444731dd8545b0d1ff72 100644 (file)
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -1,18 +1,13 @@
 package SL::Auth;
 
 package SL::Auth;
 

-use constant OK              =>   0;
-use constant ERR_PASSWORD    =>   1;
-use constant ERR_BACKEND     => 100;
-
-use constant SESSION_OK      =>   0;
-use constant SESSION_NONE    =>   1;
-use constant SESSION_EXPIRED =>   2;
+use DBI;

 
 use Digest::MD5 qw(md5_hex);
 use IO::File;
 use Time::HiRes qw(gettimeofday);
 use List::MoreUtils qw(uniq);
 
 
 use Digest::MD5 qw(md5_hex);
 use IO::File;
 use Time::HiRes qw(gettimeofday);
 use List::MoreUtils qw(uniq);
 

+use SL::Auth::Constants qw(:all);

 use SL::Auth::DB;
 use SL::Auth::LDAP;
 
 use SL::Auth::DB;
 use SL::Auth::LDAP;
 

diff --git a/SL/Auth/Constants.pm b/SL/Auth/Constants.pm
new file mode 100644 (file)
index 0000000..4fe520a
--- /dev/null
+++ b/SL/Auth/Constants.pm
@@ -0,0 +1,63 @@
+package SL::Auth::Constants;
+
+use strict;
+
+use Exporter qw(import);
+
+our %EXPORT_TAGS   = (
+  OK => [ qw(
+    OK
+  ) ],
+  ERR => [ qw(
+    ERR_PASSWORD
+    ERR_BACKEND
+  ) ],
+  SESSION => [ qw(
+    SESSION_OK
+    SESSION_NONE
+    SESSION_EXPIRED
+  ) ],
+);
+
+# add all the other ":class" tags to the ":all" class,
+# deleting duplicates
+{
+ my %seen;
+ push @{$EXPORT_TAGS{all}}, grep {!$seen{$_}++} @$_ for values %EXPORT_TAGS;
+}
+
+Exporter::export_ok_tags('all');
+
+use constant OK              =>   0;
+use constant ERR_PASSWORD    =>   1;
+use constant ERR_BACKEND     => 100;
+
+use constant SESSION_OK      =>   0;
+use constant SESSION_NONE    =>   1;
+use constant SESSION_EXPIRED =>   2;
+
+1;
+
+__END__
+
+=head1 NAME
+
+SL::Auth::Constants - COnstants for Auth module
+
+=head1 SYNOPSIS
+
+  use SL::Auth::Constants qw(:all);
+
+  OK == $auth->authenticate($user, $pass) or die;
+
+=head1 DESCRIPTION
+
+This module provides status constants for authentication handling
+
+=head1 FUNCTIONS
+
+=head1 BUGS
+
+=head1 AUTHOR
+
+=cut

diff --git a/SL/Auth/DB.pm b/SL/Auth/DB.pm
index d4e4d48ccad1a83a099a9fef7314b8664d13c85d..2ad131a8dc1b58d25a9ae31a5c346c985cab2412 100644 (file)
--- a/SL/Auth/DB.pm
+++ b/SL/Auth/DB.pm
@@ -1,8 +1,6 @@
 package SL::Auth::DB;
 
 package SL::Auth::DB;
 

-use DBI;
-
-#use SL::Auth;
+use SL::Auth::Constants qw(:all);

 use SL::DBUtils;
 
 use strict;
 use SL::DBUtils;
 
 use strict;


@@ -34,7 +32,7 @@ sub authenticate {
 
   if (!$dbh) {
     $main::lxdebug->leave_sub();
 
   if (!$dbh) {
     $main::lxdebug->leave_sub();

-    return SL::Auth->ERR_BACKEND();
+    return ERR_BACKEND;

   }
 
   my $query             = qq|SELECT password FROM auth."user" WHERE login = ?|;
   }
 
   my $query             = qq|SELECT password FROM auth."user" WHERE login = ?|;


@@ -45,7 +43,7 @@ sub authenticate {
 
   $main::lxdebug->leave_sub();
 
 
   $main::lxdebug->leave_sub();
 

-  return $password eq $stored_password ? SL::Auth->OK() : SL::Auth->ERR_PASSWORD();
+  return $password eq $stored_password ? OK : ERR_PASSWORD;

 }
 
 sub can_change_password {
 }
 
 sub can_change_password {


@@ -64,7 +62,7 @@ sub change_password {
 
   if (!$dbh) {
     $main::lxdebug->leave_sub();
 
   if (!$dbh) {
     $main::lxdebug->leave_sub();

-    return SL::Auth->ERR_BACKEND()
+    return ERR_BACKEND;

   }
 
   $password = crypt $password, substr($login, 0, 2) if (!$is_crypted);
   }
 
   $password = crypt $password, substr($login, 0, 2) if (!$is_crypted);

diff --git a/SL/Auth/LDAP.pm b/SL/Auth/LDAP.pm
index 10d15c0b8ce481ac2ba549ae3beea02e0158468b..1b33de36a18635bb7f1b4b6494b2ee0f2acb52e9 100644 (file)
--- a/SL/Auth/LDAP.pm
+++ b/SL/Auth/LDAP.pm
@@ -2,7 +2,7 @@ package SL::Auth::LDAP;
 
 use English '-no_match_vars';
 
 
 use English '-no_match_vars';
 

-#use SL::Auth;
+use SL::Auth::Constants qw(:all);

 
 use strict;
 
 
 use strict;
 


@@ -146,14 +146,14 @@ sub authenticate {
 
   if ($is_crypted) {
     $main::lxdebug->leave_sub();
 
   if ($is_crypted) {
     $main::lxdebug->leave_sub();

-    return SL::Auth->ERR_BACKEND();
+    return ERR_BACKEND;

   }
 
   my $ldap = $self->_connect();
 
   if (!$ldap) {
     $main::lxdebug->leave_sub();
   }
 
   my $ldap = $self->_connect();
 
   if (!$ldap) {
     $main::lxdebug->leave_sub();

-    return SL::Auth->ERR_BACKEND();
+    return ERR_BACKEND;

   }
 
   my $dn = $self->_get_user_dn($ldap, $login);
   }
 
   my $dn = $self->_get_user_dn($ldap, $login);


@@ -162,7 +162,7 @@ sub authenticate {
 
   if (!$dn) {
     $main::lxdebug->leave_sub();
 
   if (!$dn) {
     $main::lxdebug->leave_sub();

-    return SL::Auth->ERR_BACKEND();
+    return ERR_BACKEND;

   }
 
   my $mesg = $ldap->bind($dn, 'password' => $password);
   }
 
   my $mesg = $ldap->bind($dn, 'password' => $password);


@@ -171,7 +171,7 @@ sub authenticate {
 
   $main::lxdebug->leave_sub();
 
 
   $main::lxdebug->leave_sub();
 

-  return $mesg->is_error() ? SL::Auth->ERR_PASSWORD() : SL::Auth->OK();
+  return $mesg->is_error() ? ERR_PASSWORD : OK;

 }
 
 sub can_change_password {
 }
 
 sub can_change_password {


@@ -179,7 +179,7 @@ sub can_change_password {
 }
 
 sub change_password {
 }
 
 sub change_password {

-  return SL::Auth->ERR_BACKEND();
+  return ERR_BACKEND;

 }
 
 sub verify_config {
 }
 
 sub verify_config {