From 126777bc019a54afb4ec51299f2cf9d2841698aa Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 25 Apr 2007 12:26:16 +0000 Subject: re-sync after the big svn loss --- perl-install/install/interactive.pm | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 perl-install/install/interactive.pm (limited to 'perl-install/install/interactive.pm') diff --git a/perl-install/install/interactive.pm b/perl-install/install/interactive.pm new file mode 100644 index 000000000..3aa66a657 --- /dev/null +++ b/perl-install/install/interactive.pm @@ -0,0 +1,33 @@ +package install::interactive; # $Id$ + +use diagnostics; +use strict; + +use common; +use detect_devices; +use install::steps; +use log; + + +sub tellAboutProprietaryModules { + my ($o) = @_; + my @l = detect_devices::probe_name('Bad') or return; + $o->ask_warn('', formatAlaTeX( +N("Some hardware on your computer needs ``proprietary'' drivers to work. +You can find some information about them at: %s", join(", ", @l)))); +} + +sub upNetwork { + my ($o, $b_pppAvoided) = @_; + my $_w = $o->wait_message('', N("Bringing up the network")); + install::steps::upNetwork($o, $b_pppAvoided); +} +sub downNetwork { + my ($o, $b_pppOnly) = @_; + my $_w = $o->wait_message('', N("Bringing down the network")); + install::steps::downNetwork($o, $b_pppOnly); +} + + + +1; -- cgit v1.2.1