From 42a76317b5c58d028c113217a9e0460274c1bd69 Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Wed, 3 Sep 2014 22:04:21 +0200
Subject: Added a dialog to prevent not root user running

---
 lib/AdminPanel/Module/Services.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/lib/AdminPanel/Module/Services.pm b/lib/AdminPanel/Module/Services.pm
index e8c5fc29..006ca49d 100644
--- a/lib/AdminPanel/Module/Services.pm
+++ b/lib/AdminPanel/Module/Services.pm
@@ -58,6 +58,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
 
 use Moose;
 use strict;
+use English;
 
 use MDK::Common::String qw(formatAlaTeX);
 use MDK::Common::DataStructure qw(member);
@@ -228,6 +229,14 @@ sub BUILD {
 sub start {
     my $self = shift;
 
+    if ($EUID != 0) {
+        $self->sh_gui->warningMsgBox({
+            title => $self->name,
+            text  => $self->loc->N("root privileges required"),
+        });
+        return;
+    }
+
     $self->_servicePanel();
 };
 
-- 
cgit v1.2.1