From 2a11617dfbbd9ce2fc711072e1a242fc11ddef9a Mon Sep 17 00:00:00 2001 From: damien Date: Fri, 14 Sep 2001 14:08:08 +0000 Subject: updated speedtouch handling. --- perl-install/network/adsl.pm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'perl-install/network') diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index f60deff05..3c6e7092d 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -137,10 +137,16 @@ user "$adsl->{login}" ['ppp-compress-24', 'ppp_deflate'], ['ppp-compress-26', 'ppp_deflate']); $::isStandalone and modules::write_conf($prefix); - $in->ask_warn('', _('You need the alcatel microcode. + my $mgmtrpm; + if($::isStandalone) { + $mgmtrpm = `grep speedtouch_mgmt /var/lib/urpmi/depslist.ordered` ? 1 : 0; + } else { + $mgmtrpm = pkgs::packageByName($in->{package}, "speedtouch_mgmt"); + } + $mgmtrpm ? $in->do_pkgs->install('speedtouch_mgmt') : $in->ask_warn('', _('You need the alcatel microcode. Download it at http://www.alcatel.com/consumer/dsl/dvrreg_lx.htm -and copy the mgmt.o in /usr/share/speedtouch')) +and copy the mgmt.o in /usr/share/speedtouch')); } if ($adsl_type eq 'pptp') { -- cgit v1.2.1