summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/NEWS2
-rw-r--r--perl-install/any.pm11
-rwxr-xr-xperl-install/standalone/drakclock2
-rw-r--r--perl-install/timezone.pm2
4 files changed, 17 insertions, 0 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index c3ce25dd8..b7a38e8ff 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,4 +1,6 @@
- fix buttons order under KDE when using compiz (by detecting kde-window-decorator)
+- drakclock/finish-install: disable DPMS and screensaver when setting time,
+ not to blank monitor (#17031)
Version 10.5.0 - 15 October 2007, by Thierry Vignaud
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;
diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock
index e34980807..d9d046a66 100755
--- a/perl-install/standalone/drakclock
+++ b/perl-install/standalone/drakclock
@@ -103,6 +103,7 @@ $my_win->{window}->add(gtknew('VBox', border_width => $::isEmbedded ? 0 : 5, chi
cancel_clicked => sub { ugtk2->exit(0) },
ok_clicked => sub {
my $need_date = 1;
+ any::disable_x_screensaver();
if ($check_ntp->get_active) {
my $choosed_serv = $combo_ntpserver->entry->get_text;
$choosed_serv =~ s/^[^:]+: (.+)/$1/;
@@ -141,6 +142,7 @@ $my_win->{window}->add(gtknew('VBox', border_width => $::isEmbedded ? 0 : 5, chi
join('', map { print_it0($_) } ($month, $day, $hour, $min, $year)) . '.' . print_it0($sec));
}
-e '/sbin/hwclock' and system('/sbin/hwclock --systohc');
+ any::enable_x_screensaver();
system("dcop kicker Panel restart") if $ENV{DESKTOP} eq 'kde';
ugtk2->exit(0);
},
diff --git a/perl-install/timezone.pm b/perl-install/timezone.pm
index 4fbc36862..e5750fd6e 100644
--- a/perl-install/timezone.pm
+++ b/perl-install/timezone.pm
@@ -64,7 +64,9 @@ sub write {
sub reload_sys_clock {
my ($t) = @_;
require run_program;
+ any::disable_x_screensaver();
run_program::run('hwclock', '--hctosys', ($t->{UTC} ? '--utc' : '--localtime'));
+ any::enable_x_screensaver();
}
#- best guesses for a given country