projects
/
freeside.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
start of auth plugin work
[freeside.git]
/
eg
/
access_user-external_auth.pm
1
package FS::access_user::external_auth;
2
use base qw( FS::access_user );
3
4
use strict;
5
6
sub authenticate {
7
my( $username, $check_password ) = @_;
8
9
#magic happens here
10
11
if ( $auth_good ) { #verbose for clarity
12
return 1;
13
} else {
14
return 0;
15
}
16
17
}
18
19
#omitting these subroutines will eliminate
20
21
#sub create_user {
22
#
23
24
#sub change_password {
25
#}
26
27
1;