better liveCD support
[os-autoinst:os-autoinst.git] / inst / yast1.pm
1 #!/usr/bin/perl -w
2 use strict;
3 use bmwqemu;
4
5 if($ENV{BETA}) {
6         # ack beta message
7         sendkey "ret";
8         #sendkey $cmd{acceptlicense};
9 }
10
11 # animated cursor wastes disk space, so it is moved to bottom right corner
12 qemusend "mouse_move 1000 1000"; 
13 # license+lang
14 sendkey $cmd{"next"};
15 # autoconf phase
16 # includes downloads, so waitidle is bad.
17 sleep 25;
18 waitidle 15;
19 if(!$ENV{LIVECD}) {
20         # new inst
21         sendkey $cmd{"next"};
22 }
23 # timezone
24 waitidle;
25 sendkey $cmd{"next"};
26 if(!$ENV{LIVECD}) {
27         # KDE
28         waitidle;
29         sendkey $cmd{"next"};
30 }
31 waitidle;
32 # ending at partition layout screen
33
34 1;