From 1624ce382eb033c2cf3ef1fe6b9c41beb0b0a91b Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Mon, 27 Jan 2014 18:20:30 +0100 Subject: Project structure change --- AdminPanel/LogViewer/init.pm | 31 ------------------------------- 1 file changed, 31 deletions(-) delete mode 100644 AdminPanel/LogViewer/init.pm (limited to 'AdminPanel/LogViewer/init.pm') diff --git a/AdminPanel/LogViewer/init.pm b/AdminPanel/LogViewer/init.pm deleted file mode 100644 index 1c961712..00000000 --- a/AdminPanel/LogViewer/init.pm +++ /dev/null @@ -1,31 +0,0 @@ -package AdminPanel::LogViewer::init; - -use strict; -use warnings; -use diagnostics; -use English; -use lib qw(/usr/lib/libDrakX); -use common; -use AdminPanel::Shared; -use base qw(Exporter); - -our @EXPORT = qw(warn_about_user_mode - interactive_msg); - -sub interactive_msg { - my ($title, $contents) = @_; - return ask_YesOrNo($title, $contents); -} - -sub warn_about_user_mode() { - my $title = N("Running in user mode"); - my $msg = N("You are launching this program as a normal user.\n". - "You will not be able to read system logs which you do not have rights to,\n". - "but you may still browse all the others."); - if(($EUID != 0) and (!interactive_msg($title, $msg))) { - return 0; - } - return 1; -} - -1; -- cgit v1.2.1