eg/access_user-external_auth.pm


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::access_user::external_auth;
use base qw( FS::access_user );

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;