FS/FS/Auth.pm

   1 package FS::Auth;
   2
   3 use strict;
   4 use FS::Conf;
   5
   6 sub authenticate {
   7   my $class = shift;
   8
   9   $class->auth_class->authenticate(@_);
  10 }
  11
  12 sub auth_class {
  13   #my($class) = @_;
  14
  15   my $conf = new FS::Conf;
  16   my $module = lc($conf->config('authentication_module') || 'internal');
  17
  18   my $auth_class = 'FS::Auth::'.$module;
  19   eval "use $auth_class;";
  20   die $@ if $@;
  21
  22   $auth_class;
  23 }
  24
  25 1;