diff options
| -rw-r--r-- | lib/AdminPanel/Module/Services.pm | 9 |
1 files changed, 9 insertions, 0 deletions
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(); }; |