diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/adsl.pm | 5 | ||||
| -rw-r--r-- | perl-install/network/tools.pm | 4 |
2 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index 376683a25..94698996b 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -109,7 +109,7 @@ defaultroute } if ($adsl_type eq 'speedtouch') { - $netc->{vpivci} =~ /(\d+)\.(\d+)/; + $netc->{vpivci} =~ /(\d+)_(\d+)/; output("$prefix/etc/ppp/peers/adsl", qq{noauth noipdefault @@ -124,7 +124,6 @@ holdoff 4 maxfail 25 persist usepeerdns -$USERLINE defaultroute user "$adsl->{login}" }); @@ -137,7 +136,7 @@ user "$adsl->{login}" ['ppp-compress-26', 'ppp_deflate']); $::isStandalone and modules::write_conf($prefix); $in->ask_warn('', _('You need the alcatel microcode. -Downlaod it at +Download it at http://www.alcatel.com/consumer/dsl/dvrreg_lx.htm and copy the mgmt.o in /usr/share/speedtouch')) } diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm index efb7f1bed..9fede9a88 100644 --- a/perl-install/network/tools.pm +++ b/perl-install/network/tools.pm @@ -90,8 +90,8 @@ sub ask_info2 { ] ) or return; if ($netc->{vpivci}) { - foreach (['Netherlands', 8.48], ['France', 8.35], ['Belgium', 8.35], ['Italy', 8.35], ['UK', 0.38]) { - $netc->{vpivci} eq $_->[0] and $netc->{vpivci} = $_->[1] ; + foreach (['Netherlands', '8_48'], ['France', '8_35'], ['Belgium', '8_35'], ['Italy', '8_35'], ['UK', '0_38']) { + $netc->{vpivci} eq $_->[0] and $netc->{vpivci} = $_->[1]; } } 1; |