From 5af00252696768876d95cee60a2c373fda80a26d Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Thu, 26 Jun 2014 21:44:11 +0200 Subject: Added disable/enable screen saver --- lib/AdminPanel/Shared.pm | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) (limited to 'lib/AdminPanel/Shared.pm') 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 -- cgit v1.2.1