X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=eg%2FAuth-my_external_auth.pm;fp=eg%2FAuth-my_external_auth.pm;h=38f9d5bfba6fad420cf2fda3eef875edd1d47928;hp=0000000000000000000000000000000000000000;hb=92a3df0360d3df6b6ace99fee3d4cc443e6154d0;hpb=9d35792778885932c09102bd011b518eb47c5131

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;