From 92a3df0360d3df6b6ace99fee3d4cc443e6154d0 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Tue, 7 May 2013 23:55:11 -0700
Subject: NG auth: internal db auth, RT#21563

---
 eg/Auth-my_external_auth.pm     | 27 +++++++++++++++++++++++++++
 eg/access_user-external_auth.pm | 28 ----------------------------
 2 files changed, 27 insertions(+), 28 deletions(-)
 create mode 100644 eg/Auth-my_external_auth.pm
 delete mode 100644 eg/access_user-external_auth.pm

(limited to 'eg')

diff --git a/eg/Auth-my_external_auth.pm b/eg/Auth-my_external_auth.pm
new file mode 100644
index 0000000..38f9d5b
--- /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;
diff --git a/eg/access_user-external_auth.pm b/eg/access_user-external_auth.pm
deleted file mode 100644
index bc6e23a..0000000
--- a/eg/access_user-external_auth.pm
+++ /dev/null
@@ -1,28 +0,0 @@
-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;
-- 
cgit v1.1