move/tree/wait4x


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#!/usr/bin/perl

use MDK::Common;
use lib qw(/usr/lib/libDrakX);
use c;

my $nb = 0;
$| = 1;
print "waiting for X";
foreach (1..30) {
    print ".";
    sleep 1;
    print("no X server :(\n"), exit 1 if !fuzzy_pidofs(qr/\bX_move\b/);
    $nb++ if c::Xtest(':0');
    if ($nb > 2) { #- one succeeded test is not enough :-(
        print "found\n";
        exit 0;
    }
}
print "not found\n";
exit 1;