From 2e0f9b70beecb7bdd27e74088368936cdb718c72 Mon Sep 17 00:00:00 2001
From: Matteo Pasotti <matteo@mageia.org>
Date: Wed, 9 Jan 2013 17:41:32 +0000
Subject: - added LogViewer namespace - added init module for logviewer -
 Rpmdragora/init.pm: fixed warn_about_user_mode message alignment -
 logviewer.pl: added call to LogViewer::warn_about_user_mode

---
 AdminPanel/LogViewer/init.pm | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 AdminPanel/LogViewer/init.pm

(limited to 'AdminPanel/LogViewer')

diff --git a/AdminPanel/LogViewer/init.pm b/AdminPanel/LogViewer/init.pm
new file mode 100644
index 0000000..1c96171
--- /dev/null
+++ b/AdminPanel/LogViewer/init.pm
@@ -0,0 +1,31 @@
+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