blob: a9d1d53ce843225b363a7a4e4be98f2470720774 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#!/usr/bin/perl
use MDK::Common;
use lib qw(/usr/lib/libDrakX);
use c;
sub wait4x() {
my $nb = 0;
foreach (1..30) {
sleep 1;
print("no X server :("), exit 1 if !fuzzy_pidofs(qr/\bX_move\b/);
$nb++ if c::Xtest(':0');
if ($nb > 2) { #- one succeeded test is not enough :-(
return;
}
}
exit 1;
}
my ($kde_ok, $xwait);
while (1) {
wait4x();
if (!($xwait = fork())) {
exec 'xwait', '-permanent'; #- so that server doesn't blink when startkde finishes
}
my ($xdim) = `xdpyinfo` =~ /dimensions:\s*(\d+)/;
system("qiv --root /image/move/BOOT-$xdim-MOVE.jpg");
system('startkde');
system('sudo killall X');
waitpid $xwait, 0;
}
|