aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/AdminPanel/Shared.pm39
1 files changed, 39 insertions, 0 deletions
diff --git a/lib/AdminPanel/Shared.pm b/lib/AdminPanel/Shared.pm
index a1df1149..ce8e4e35 100644
--- a/lib/AdminPanel/Shared.pm
+++ b/lib/AdminPanel/Shared.pm
@@ -232,5 +232,44 @@ sub pathList2hash {
return \%tree;
}
+#=============================================================
+
+=head2 disable_x_screensaver
+
+=head3 DESCRIPTION
+
+if exists /usr/bin/xset disable screensaver
+
+=cut
+
+#=============================================================
+sub disable_x_screensaver() {
+ if (-e '/usr/bin/xset') {
+ $ENV{PATH} = "/usr/bin:/usr/sbin";
+ system ("/usr/bin/xset s off");
+ system ("/usr/bin/xset -dpms");
+ }
+}
+
+#=============================================================
+
+=head2 enable_x_screensaver
+
+=head3 DESCRIPTION
+
+if exists /usr/bin/xset enables screensaver
+
+=cut
+
+#=============================================================
+sub enable_x_screensaver() {
+ if (-e '/usr/bin/xset') {
+ $ENV{PATH} = "/usr/bin:/usr/sbin";
+ system ("/usr/bin/xset +dpms");
+ system ("/usr/bin/xset s on");
+ system ("/usr/bin/xset s reset");
+ }
+}
+
1; # End of AdminPanel::Shared