summaryrefslogtreecommitdiffstats
path: root/perl-install/network/adsl.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-03-05 13:29:48 +0000
committerOlivier Blin <oblin@mandriva.org>2005-03-05 13:29:48 +0000
commit1ba0005a470572588977c39dc41c66a5785b44d8 (patch)
tree8091ed38022ed4aa06b396bc4c4d3486810875b3 /perl-install/network/adsl.pm
parentf14426992e13b6fe2e32814975ebbce864028b94 (diff)
downloaddrakx-backup-do-not-use-1ba0005a470572588977c39dc41c66a5785b44d8.tar
drakx-backup-do-not-use-1ba0005a470572588977c39dc41c66a5785b44d8.tar.gz
drakx-backup-do-not-use-1ba0005a470572588977c39dc41c66a5785b44d8.tar.bz2
drakx-backup-do-not-use-1ba0005a470572588977c39dc41c66a5785b44d8.tar.xz
drakx-backup-do-not-use-1ba0005a470572588977c39dc41c66a5785b44d8.zip
create CMV symlinks for both POTS and ISDN lines
Diffstat (limited to 'perl-install/network/adsl.pm')
-rw-r--r--perl-install/network/adsl.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index 7af9bef50..01259b66e 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -104,10 +104,13 @@ sub sagem_set_parameters {
s/STATIC_IP=.*\n//;
s!</eaglectrl>!STATIC_IP=$netc->{static_ip}\n</eaglectrl>! if $netc->{static_ip};
} "$::prefix$cfg_file";
+ }
+ #- create CMV symlinks for both POTS and ISDN lines
+ foreach my $type (qw(p i)) {
my $cmv;
- $cmv = "$::prefix/etc/eagle-usb/CMVep$netc->{provider_id}.txt" if $netc->{provider_id};
- -f $cmv or $cmv = "$::prefix/etc/eagle-usb/CMVepWO.txt";
- symlink("$::prefix/etc/eagle-usb/CMVep.txt", $cmv);
+ $cmv = "$::prefix/etc/eagle-usb/CMVe${type}$netc->{provider_id}.txt" if $netc->{provider_id};
+ -f $cmv or $cmv = "$::prefix/etc/eagle-usb/CMVe${type}WO.txt";
+ symlink("$::prefix/etc/eagle-usb/CMVe${type}.txt", $cmv);
}
}