start of auth plugin work

[freeside.git] / eg / access_user-external_auth.pm

diff --git a/eg/access_user-external_auth.pm b/eg/access_user-external_auth.pm
new file mode 100644 (file)
index 0000000..2cea1d3
--- /dev/null
+++ b/eg/access_user-external_auth.pm
@@ -0,0 +1,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 
+
+#sub create_user {
+#
+
+#sub change_password {
+#}
+
+1;