71513: Card tokenization [v3 test tweak]
[freeside.git] / 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;