aboutsummaryrefslogtreecommitdiffstats
path: root/lib/AdminPanel/LogViewer/init.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/AdminPanel/LogViewer/init.pm')
-rw-r--r--lib/AdminPanel/LogViewer/init.pm31
1 files changed, 31 insertions, 0 deletions
diff --git a/lib/AdminPanel/LogViewer/init.pm b/lib/AdminPanel/LogViewer/init.pm
new file mode 100644
index 00000000..1c961712
--- /dev/null
+++ b/lib/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;