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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
package wizards;
# $Id$
use strict;
use c;
use common;
=head1 NAME
wizards - a layer on top of interactive that ensure proper stepping
=head1 SYNOPSIS
use wizards
# global wizard options:
use wizards;
use interactive;
my $wiz = {
allow_user => "", # do we need root
defaultimage => "", # wizard icon
init => sub { }, # code run on wizard startup
name => "logdrake", # wizard title
needed_rpm => "packages list", # packages to install before running the wizard
pages => {
{
name => "welcome", # first step
next => "step1", # which step should be displayed after the current one
pre => sub { }, # code executing when stepping backward
post => sub { }, # code executing when stepping forward;
# returned value is next step name (but is overriden by "next" field)
end => , # is it the last step ?
no_cancel => , # do not display the cancel button (eg for first step)
no_back => , # do not display the back button (eg for first step)
ignore => , # do not stack this step for back stepping (eg for warnings and the like steps)
data => [], # the actual data passed to interactive
},
{
name => "step1",
data => [
{
# usual interactive fields:
label => N("Banner:"),
val => \$o->{var}{wiz_banner}
list => [] ,
# wizard layer variables:
boolean_list => "", # provide default status for booleans list
},
],
},
},
};
my $w => wizards->new
$w->process($wiz, $in);
=head1 DESCRIPTION
wizards is a layer built on top of the interactive layer that do proper
backward/forward stepping for us.
=cut
sub new { bless {}, $_[0] }
sub check_rpm {
my ($in, $rpms) = @_;
foreach my $rpm (@$rpms) {
next if !$in->do_pkgs->is_installed($rpm);
if ($in->ask_okcancel(N("Error"), N("%s is not installed\nClick \"Next\" to install or \"Cancel\" to quit", c::from_utf8($rpm)))) {
$::testing and next;
if (!$in->do_pkgs->install($rpm)) {
local $::Wizard_finished = 1;
$in->ask_okcancel(N("Error"), N("Installation failed"));
$in->exit;
}
} else { $in->exit }
}
}
sub process {
my ($w, $o, $in) = @_;
my $page = $o->{pages}{welcome};
local $::isWizard = 1;
local $::Wizard_title = $o->{name} || $::Wizard_title;
local $::Wizard_pix_up = $o->{defaultimage} || $::Wizard_pix_up;
#require_root_capability() if $> && !$o->{allow_user} && !$::testing;
check_rpm($in, $o->{needed_rpm}) if $o->{needed_rpm};
if (defined $o->{init}) {
my ($res, $msg) = &{$o->{init}};
if (!$res) {
$in->ask_okcancel(N("Error"), $msg);
die "wizard failled" if !$::testing
}
}
my $next = 'welcome'; # initial step
my @steps; # steps stack
while ($next) {
local $::Wizard_no_previous = $page->{no_back};
local $::Wizard_no_cancel = $page->{no_cancel} || $page->{end};
local $::Wizard_finished = $page->{end};
defined $page->{pre} and $page->{pre}();
# FIXME or the displaying fails
my $data = defined $page->{data} ? ref $page->{data} ? $page->{data} : [ { label => '' } ] : [ { label => '' } ];
my $data2;
foreach my $d (@$data) {
$d->{val} = ${$d->{val_ref}} if $d->{val_ref};
$d->{list} = $d->{list_ref} if $d->{list_ref};
if ($d->{boolean_list}) {
my $i;
foreach (@{$d->{boolean_list}}) {
push @$data2, { text => $_, type => 'bool', val => \${$d->{val}}->[$i], disabled => $d->{disabled} };
$i++
}
} else {
push @$data2, $d
}
}
my $a = $in->ask_from($o->{name}, $page->{name}, $data2, complete => $page->{complete} || sub { 0 });
if ($a) {
# step forward:
push @steps, $next if !$page->{ignore} && $steps[-1] ne $next;
$next = defined $page->{post} ? $page->{post}() : 0;
defined $o->{pages}{$next} or $next = $page->{next};
} else {
# step back:
$next = pop @steps
}
$next or return;
$page = $o->{pages}{$next}
}
}
1;
|
