Dispatcher: Auch Controller ermöglichen, die Admin-Login benötigen

[kivitendo-erp.git] / SL / Dispatcher / AuthHandler / Admin.pm

diff --git a/SL/Dispatcher/AuthHandler/Admin.pm b/SL/Dispatcher/AuthHandler/Admin.pm
new file mode 100644 (file)
index 0000000..5a92015
--- /dev/null
+++ b/SL/Dispatcher/AuthHandler/Admin.pm
@@ -0,0 +1,16 @@
+package SL::Dispatcher::AuthHandler::Admin;
+
+use strict;
+
+use parent qw(Rose::Object);
+
+sub handle {
+  %::myconfig = ();
+
+  return if $::auth->authenticate_root($::auth->get_session_value('rpw')) == $::auth->OK();
+
+  $::auth->delete_session_value('rpw');
+  SL::Dispatcher::show_error('login/password_error', 'password', is_admin => 1);
+}
+
+1;