1 files changed, 28 insertions, 0 deletions
diff --git a/eg/Auth-my_external_auth.pm b/eg/Auth-my_external_auth.pm
new file mode 100644
index 0000000..8eda462
--- /dev/null
+++ b/eg/Auth-my_external_auth.pm
@@ -0,0 +1,28 @@
+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, $info ) = @_;
+
+  #your magic happens here
+
+  if ( $auth_good ) {
+
+    #optionally return a real name
+    #$info->{'first'} = "Jean";
+    #$info->{'last'}  = "D'eau";
+
+    #optionally return a template username to copy access groups from that user
+    #$info->{'template_user'} = 'username';
+
+    return 1;
+
+  } else {
+    return 0;
+  }
+
+}
+
+1;