blob: 38f9d5bfba6fad420cf2fda3eef875edd1d47928 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
package FS::Auth::my_external_auth;
use base qw( FS::Auth::external ); #need to inherit from ::external
use strict;
sub authenticate {
my($self, $username, $check_password ) = @_;
#magic happens here
if ( $auth_good ) { #verbose for clarity
return 1;
} else {
return 0;
}
}
#omitting these subroutines will eliminate those options from the UI
#sub create_user {
#
#sub change_password {
#}
1;
|