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;