From f962f7d1c1240dbc4ca186b58df8341a0646d094 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 30 Mar 2005 13:38:16 +0000 Subject: eagle-usb: try to use the country specific CMV --- perl-install/network/adsl.pm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'perl-install/network/adsl.pm') diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index 28147b12b..9748e16d0 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -110,7 +110,12 @@ sub sagem_set_parameters { #- create CMV symlinks for both POTS and ISDN lines foreach my $type (qw(p i)) { my $cmv; + my ($country) = $netc->{provider_id} =~ /^([a-zA-Z]+)\d+$/; + #- try to find a CMV for this specific ISP $cmv = "$::prefix/etc/eagle-usb/CMVe${type}$netc->{provider_id}.txt" if $netc->{provider_id}; + #- if not found, try to found a CMV for the country + -f $cmv or $cmv = "$::prefix/etc/eagle-usb/CMVe${type}${country}.txt"; + #- fallback on the generic CMV if no other matched -f $cmv or $cmv = "$::prefix/etc/eagle-usb/CMVe${type}WO.txt"; symlinkf($cmv, "$::prefix/etc/eagle-usb/CMVe${type}.txt"); } -- cgit v1.2.1