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 those options from the UI
  20
  21 #sub create_user {
  22 #
  23
  24 #sub change_password {
  25 #}
  26
  27 1;