1 |
package install::interactive; # $Id: interactive.pm 215411 2007-04-25 12:26:16Z pixel $ |
2 |
|
3 |
use diagnostics; |
4 |
use strict; |
5 |
|
6 |
use common; |
7 |
use detect_devices; |
8 |
use install::steps; |
9 |
use log; |
10 |
|
11 |
|
12 |
sub tellAboutProprietaryModules { |
13 |
my ($o) = @_; |
14 |
my @l = detect_devices::probe_name('Bad') or return; |
15 |
$o->ask_warn('', formatAlaTeX( |
16 |
N("Some hardware on your computer needs ``proprietary'' drivers to work. |
17 |
You can find some information about them at: %s", join(", ", @l)))); |
18 |
} |
19 |
|
20 |
sub upNetwork { |
21 |
my ($o, $b_pppAvoided) = @_; |
22 |
my $_w = $o->wait_message('', N("Bringing up the network")); |
23 |
install::steps::upNetwork($o, $b_pppAvoided); |
24 |
} |
25 |
sub downNetwork { |
26 |
my ($o, $b_pppOnly) = @_; |
27 |
my $_w = $o->wait_message('', N("Bringing down the network")); |
28 |
install::steps::downNetwork($o, $b_pppOnly); |
29 |
} |
30 |
|
31 |
|
32 |
|
33 |
1; |