blob: bc6e23a2d1bf6470fe62ee28821bdcce3a5b24d8 (
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
28
|
package FS::access_user::external_auth;
use base qw( FS::access_user::external ); #inherit from ::external for
# autocreation
use strict;
sub authenticate {
my( $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;
|