summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2007-10-23 17:21:55 +0000
committerOlivier Blin <oblin@mandriva.com>2007-10-23 17:21:55 +0000
commite66787e8ef47e098c04ea5595ad745304955d34d (patch)
treecc9de3b7f03883d07ac6d4ecaef7609c3501a98f /perl-install/any.pm
parentbbeea810431fd1e3c97d2b31d4148b1224de4bdc (diff)
downloaddrakx-e66787e8ef47e098c04ea5595ad745304955d34d.tar
drakx-e66787e8ef47e098c04ea5595ad745304955d34d.tar.gz
drakx-e66787e8ef47e098c04ea5595ad745304955d34d.tar.bz2
drakx-e66787e8ef47e098c04ea5595ad745304955d34d.tar.xz
drakx-e66787e8ef47e098c04ea5595ad745304955d34d.zip
drakclock/finish-install: disable DPMS and screensaver when setting time not to blank monitor (#17031)
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm11
1 files changed, 11 insertions, 0 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 241cb0a0e..efdc1b615 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -1363,4 +1363,15 @@ sub configure_timezone {
1;
}
+sub disable_x_screensaver() {
+ run_program::run("xset", "s", "off");
+ run_program::run("xset", "-dpms");
+}
+
+sub enable_x_screensaver() {
+ run_program::run("xset", "+dpms");
+ run_program::run("xset", "s", "on");
+ run_program::run("xset", "s", "reset");
+}
+
1;