diff options
author | Ivan Kohler <ivan@freeside.biz> | 2013-05-07 23:55:11 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2013-05-07 23:55:11 -0700 |
commit | 92a3df0360d3df6b6ace99fee3d4cc443e6154d0 (patch) | |
tree | 5c11c1c102f0d2f5deeb0d1aac2bb24aa4ed8327 /eg/Auth-my_external_auth.pm | |
parent | 9d35792778885932c09102bd011b518eb47c5131 (diff) |
NG auth: internal db auth, RT#21563
Diffstat (limited to 'eg/Auth-my_external_auth.pm')
-rw-r--r-- | eg/Auth-my_external_auth.pm | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/eg/Auth-my_external_auth.pm b/eg/Auth-my_external_auth.pm new file mode 100644 index 000000000..38f9d5bfb --- /dev/null +++ b/eg/Auth-my_external_auth.pm @@ -0,0 +1,27 @@ +package FS::Auth::my_external_auth; +use base qw( FS::Auth::external ); #need to inherit from ::external + +use strict; + +sub authenticate { + my($self, $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; |