better liveCD support
[os-autoinst:os-autoinst.git] / start.pl
1 #!/usr/bin/perl -w
2 use strict;
3 use bmwqemu;
4
5 my $init=1;
6
7 # init part
8 if($init) {
9         if(!qemualive) {
10                 do "inst/startqemu.pm" or die @$;
11         }
12 }
13 open_management_console;
14 do "inst/screenshot.pm" or die @$;
15 if($init) {
16         waitgoodimage 9; # wait for welcome animation to finish
17 }
18
19 do "inst/bootloader.pm" or die @$;
20 sleep 11; # time to load kernel+initrd
21 do "inst/viewbootmsg.pm" or die @$;
22 sleep 40; # minimum time needed to boot up (includes some idles)
23 waitgoodimage 450;
24 do "inst/yast1.pm" or die @$;
25 #do "inst/partitioning.pm" or die @$;
26 do "inst/yast2.pm" or die @$;
27 do "inst/livecdreboot.pm" or die @$;
28
29
30 for(1..6000) { # time to let install work
31         sleep 1;
32 }
33