summaryrefslogtreecommitdiffstats
path: root/perl-install/modules/interactive.pm
blob: 956d98bd10f3ab20fd0cbedfaf7993a8753cbac4 (plain)
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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
package modules::interactive; # $Id: interactive.pm 253241 2009-02-25 09:28:44Z tv $

use modules;
use common;

sub config_window {
    my ($in, $data) = @_;
    require modules;
    my $modules_conf = modules::any_conf->read;
    my %conf = $modules_conf->get_parameters($data->{driver});
    require modules::parameters;
    my @l;
    foreach (modules::parameters::parameters($data->{driver})) {
	   my ($name, $description) = @$_;
	   push @l, { label => $name, help => $description,
		      val => \$conf{$name}, allow_empty_list => 1 };
    }
    if (!@l) {
        $in->ask_warn(N("Error"), N("This driver has no configuration parameter!"));
        return;
    }
    if ($in->ask_from(N("Module configuration"), N("You can configure each parameter of the module here."), \@l)) {
	   my $options = join(' ', map { if_($conf{$_}, "$_=$conf{$_}") } keys %conf);
	   my $old_options = $modules_conf->get_options($data->{driver});
	   if ($options ne $old_options) {
	       $modules_conf->set_options($data->{driver}, $options);
	       $modules_conf->write;
	   }
    }
}

sub load_category {
    my ($in, $modules_conf, $category, $b_auto, $b_at_least_one) = @_;

    my @l;
    {
	my $w;
	my $wait_message = sub { undef $w; $w = wait_load_module($in, $category, @_) };
	@l = modules::load_category($modules_conf, $category, $wait_message);
	undef $w; #- help perl_checker
    }
    if (my @err = grep { $_ } map { $_->{error} } @l) {
	my $return = $in->ask_warn('', join("\n", @err));
	$in->exit(1) if !defined($return);
    }
    return @l if $b_auto && (@l || !$b_at_least_one);

    @l = map { $_->{description} } @l;

    if ($b_at_least_one && !@l) {
	@l = load_category__prompt($in, $modules_conf, $category) or return;
    }

    load_category__prompt_for_more($in, $modules_conf, $category, @l);
}

sub load_category__prompt_for_more {
    my ($in, $modules_conf, $category, @l) = @_;

    (my $msg_type = $category) =~ s/\|.*//;

    while (1) {
	my $msg = @l ?
	  [ N("Found %s interfaces", join(", ", map { qq("$_") } @l)),
	    N("Do you have another one?") ] :
	  N("Do you have any %s interfaces?", $msg_type);

	my $r = 'No';
	$in->ask_from_({ messages => $msg,
			 if_($category =~ m!disk/.*(ide|sata|scsi|hardware_raid|usb|firewire)!, interactive_help_id => 'setupSCSI'),
		       }, 
		       [ { list => [ N_("Yes"), N_("No"), N_("See hardware info") ], val => \$r, type => 'list', format => \&translate } ]);
	if ($r eq "No") { return @l }
	if ($r eq "Yes") {
	    push @l, load_category__prompt($in, $modules_conf, $category) || next;
	} else {
	    $in->ask_warn('', join("\n", detect_devices::stringlist()));
	}
    }
}

my %category2text = (
    'bus/usb' => N_("Installing driver for USB controller"),
    'bus/firewire' => N_("Installing driver for firewire controller %s"),
    'disk/card_reader|ide|scsi|hardware_raid|sata|firewire|virtual' => N_("Installing driver for hard disk drive controller %s"),
    list_modules::ethernet_categories() => N_("Installing driver for ethernet controller %s"),
);

sub wait_load_module {
    my ($in, $category, $text, $_module) = @_;
    my $msg = do {
	if (my $t = $category2text{$category}) {
	    sprintf(translate($t), $text);
	} else {
	    #-PO: the first %s is the card type (scsi, network, sound,...)
	    #-PO: the second is the vendor+model name
	    N("Installing driver for %s card %s", $category, $text);
	}
    };
    $in->wait_message(N("Configuring Hardware"), $msg);
}

sub load_module__ask_options {
    my ($in, $module_descr, $parameters) = @_;

    #- deep copying
    my @parameters = map { [ @$_[0, 1] ] } @$parameters;

    if (@parameters) {
	$in->ask_from('', 
		      N("You may now provide options to module %s.\nNote that any address should be entered with the prefix 0x like '0x123'", $module_descr), 
		      [ map { { label => $_->[0], help => $_->[1], val => \$_->[2] } } @parameters ],
		     ) or return;
	join(' ', map { if_($_->[2], "$_->[0]=$_->[2]") } @parameters);
    } else {
	my $s = $in->ask_from_entry('',
N("You may now provide options to module %s.
Options are in format ``name=value name2=value2 ...''.
For instance, ``io=0x300 irq=7''", $module_descr), N("Module options:")) or return;
	$s;
    }
}

sub load_category__prompt {
    my ($in, $modules_conf, $category) = @_;

    (my $msg_type = $category) =~ s/\|.*//;

    my %available_modules = map_each { my $dsc = $::b; $dsc =~ s/\s+/ /g; $::a => $dsc ? "$::a ($dsc)" : $::a } modules::category2modules_and_description($category);
    my $module = $in->ask_from_listf('',
#-PO: the %s is the driver type (scsi, network, sound,...)
			       N("Which %s driver should I try?", $msg_type),
			       sub { $available_modules{$_[0]} },
			       [ keys %available_modules ]) or return;
    my $module_descr = $available_modules{$module};

    my $options;
    require modules::parameters;
    my @parameters = modules::parameters::parameters($module);
    if (@parameters && $in->ask_from_list_('',
formatAlaTeX(N("In some cases, the %s driver needs to have extra information to work
properly, although it normally works fine without them. Would you like to specify
extra options for it or allow the driver to probe your machine for the
information it needs? Occasionally, probing will hang a computer, but it should
not cause any damage.", $module_descr)), [ N_("Autoprobe"), N_("Specify options") ], 'Autoprobe') ne 'Autoprobe') {
	$options = load_module__ask_options($in, $module_descr, \@parameters) or return;
    }
    while (1) {
	eval {
	    my $_w = wait_load_module($in, $category, $module_descr, $module);
	    log::l("user asked for loading module $module (type $category, desc $module_descr)");
	    modules::load_and_configure($modules_conf, $module, $options);
	};
	return $module_descr if !$@;

	$in->ask_yesorno('',
N("Loading module %s failed.
Do you want to try again with other parameters?", $module_descr), 1) or return;

	$options = load_module__ask_options($in, $module_descr, \@parameters) or return;
    }
}

1;