eg/access_user-external_auth.pm

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