support German install keyboard shortcuts
[os-autoinst:os-autoinst.git] / distri / opensuse / inst.d / 070_yast2.pm
1 #!/usr/bin/perl -w
2 use strict;
3 use base "basenoupdate";
4 use bmwqemu;
5
6 sub run()
7 {
8 # partition based
9 waitinststage "disk";
10 sleep 2;
11 sendkey $cmd{"next"};
12
13 # user setup
14 waitinststage "usersettings";
15 waitidle 18;
16 sendautotype($realname);
17 sendkey "tab";
18 #sleep 1;
19 sendkey "tab";
20 for(1..2) {
21         sendautotype("$password\t");
22         #sleep 1;
23 }
24 if($ENV{DOCRUN}) {
25         sendkey $cmd{"otherrootpw"};
26 }
27 # done user setup
28 sendkey $cmd{"next"};
29 # loading cracklib
30 waitidle 6;
31 # PW too easy (cracklib)
32 sendkey "ret";
33 #sleep 1;
34 # PW too easy (only chars)
35 #sendkey "ret";
36 if($ENV{DOCRUN}) { # root user
37         waitidle;
38         for(1..2) {
39                 sendautotype("$password\t");
40                 sleep 1;
41         }
42         sendkey $cmd{"next"};
43         # loading cracklib
44         waitidle 6;
45         # PW too easy (cracklib)
46         sendkey "ret";
47         waitidle;
48 }
49
50 # overview-generation
51 waitinststage "installationoverview";
52 sleep 5;
53 waitidle 10;
54
55 if($ENV{DOCRUN}) {
56         sendkey $cmd{change};   # Change
57         sendkey $cmd{software}; # Software
58         waitidle;
59         for(1..3) {
60                 sendkey "down";
61         }
62         sleep 4;
63         sendkey $cmd{accept}; # Accept
64         sleep 2;
65         sendkey "alt-o"; # cOntinue
66         waitidle;
67 }
68
69 # start install
70 sendkey $cmd{install};
71 sleep 2;
72 waitidle 5;
73 # confirm
74 sendkey $cmd{install};
75 waitinststage "performinstallation";
76 if(!$ENV{LIVECD} && !$ENV{NICEVIDEO}) {
77         sleep 5; # view installation details
78         sendkey $cmd{instdetails};
79 }
80 }
81
82 1;