summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2002-08-01 17:29:53 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2002-08-01 17:29:53 +0000
commitef5777d10dfe5c23f47876c8c638777ae14ac40b (patch)
treeae8c6d0c46ff2d1f7d1b67a4120d7a9a07485355 /perl-install
parentcc523b844a28655be6f6b41cde9950e7dd6d04d8 (diff)
downloaddrakx-backup-do-not-use-ef5777d10dfe5c23f47876c8c638777ae14ac40b.tar
drakx-backup-do-not-use-ef5777d10dfe5c23f47876c8c638777ae14ac40b.tar.gz
drakx-backup-do-not-use-ef5777d10dfe5c23f47876c8c638777ae14ac40b.tar.bz2
drakx-backup-do-not-use-ef5777d10dfe5c23f47876c8c638777ae14ac40b.tar.xz
drakx-backup-do-not-use-ef5777d10dfe5c23f47876c8c638777ae14ac40b.zip
- First ECI adsl support step
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/adsl.pm52
-rw-r--r--perl-install/network/netconnect.pm2
2 files changed, 49 insertions, 5 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index 8df96aa00..223fe2bd9 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -19,7 +19,7 @@ sub configure {
my $type = $in->ask_from_list_(_("Connect to the Internet"),
_("The most common way to connect with adsl is pppoe.
Some connections use pptp, a few ones use dhcp.
-If you don't know, choose 'use pppoe'"), [__("use pppoe"), __("use pptp"), __("use dhcp"), __("Alcatel speedtouch usb")]) or return;
+If you don't know, choose 'use pppoe'"), [__("use pppoe"), __("use pptp"), __("use dhcp"), __("Alcatel speedtouch usb"), __("ECI Hi-Focus")]) or return;
$type =~ s/use //;
if ($type eq 'pppoe') {
$in->do_pkgs->install("rp-$type");
@@ -51,7 +51,15 @@ If you don't know, choose 'use pppoe'"), [__("use pppoe"), __("use pptp"), __("u
$netcnx->{"adsl_$type"}{vpivci} = '';
adsl_conf($netcnx->{"adsl_$type"}, $netc, $intf, $type) or goto conf_adsl_step1;
}
- $type =~ /speedtouch/ or $netconnect::need_restart_network = 1;
+ if ($type =~ /ECI/) {
+ $type = 'eci';
+ $in->do_pkgs->install(qw(eciadsl));
+ $netcnx->{type} = "adsl_$type";
+ $netcnx->{"adsl_$type"} = {};
+ $netcnx->{"adsl_$type"}{vpivci} = '';
+ adsl_conf($netcnx->{"adsl_$type"}, $netc, $intf, $type) or goto conf_adsl_step1;
+ }
+ $type =~ /speedtouch|eci/ or $netconnect::need_restart_network = 1;
1;
}
@@ -83,7 +91,7 @@ sub adsl_conf {
adsl_conf_step_1:
adsl_ask_info ($adsl, $netc, $intf) or return;
adsl_conf_step_2:
- $adsl_type eq 'speedtouch' or conf_network_card($netc, $intf, 'static' , '10.0.0.10') or goto adsl_conf_step_1;
+ $adsl_type =~ /speedtouch|eci/ or conf_network_card($netc, $intf, 'static' , '10.0.0.10') or goto adsl_conf_step_1;
adsl_conf_backend($adsl, $netc, $adsl_type);
1;
}
@@ -100,7 +108,7 @@ persist
noauth
usepeerdns
defaultroute
-') if $adsl_type =~ /pptp|pppoe|speedtouch/;
+') if $adsl_type =~ /pptp|pppoe|speedtouch|eci/;
write_secret_backend($adsl->{login}, $adsl->{passwd});
@@ -145,6 +153,33 @@ http://www.alcatel.com/consumer/dsl/dvrreg_lx.htm
and copy the mgmt.o in /usr/share/speedtouch'));
}
+if ($adsl_type eq 'eci') {
+ $netc->{vpivci} =~ /(\d+)_(\d+)/;
+ output("$prefix/etc/ppp/peers/adsl",
+qq{debug
+kdebug 1
+noipdefault
+defaultroute
+pty "/usr/local/bin/pppoeci -v 1 -vpi 8 -vci 35"
+sync
+noaccomp
+nopcomp
+noccp
+novj
+holdoff 10
+user "$adsl->{login}"
+linkname eciadsl
+maxfail 10
+usepeerdns
+noauth
+lcp-echo-interval 0
+});
+ modules::add_alias($_->[0], $_->[1]) foreach (['char-major-108', 'ppp_generic'],
+ ['tty-ldisc-14', 'ppp_synctty'],
+ ['tty-ldisc-13', 'n_hdlc']);
+ $::isStandalone and modules::write_conf($prefix);
+}
+
if ($adsl_type eq 'pptp') {
write_cnx_script($netc, "adsl",
"/sbin/route del default
@@ -164,7 +199,14 @@ LC_ALL=C LANG=C LANGUAGE=C LC_MESSAGES=C /usr/sbin/adsl-start $netc->{NET_DEVICE
/usr/share/speedtouch/speedtouch.sh start
',
'/usr/share/speedtouch/speedtouch.sh stop
-', $netc->{adsltype}) }
+', $netc->{adsltype}) } elsif ($adsl_type eq 'eci') {
+ write_cnx_script($netc, 'adsl',
+'/sbin/route del default
+/usr/bin/startmodem
+',
+"# et pour le stop on se touche c'est du beta...
+echo 'not yet implemented, still beta software'
+", $netc->{adsltype}) }
$netc->{NET_INTERFACE}='ppp0';
}
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 3bfc02768..61eefd299 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -451,6 +451,7 @@ DOMAINNAME2=$netc->{DOMAINNAME2}"
["$prefix/etc/isdn/isdn2B.conf", "isdn2B"],
["$prefix/etc/resolv.conf", "resolv"],
["$prefix/etc/ppp/peers/adsl", "speedtouch"],
+ ["$prefix/etc/ppp/peers/adsl", "eci"],
) {
my $file = "$prefix/etc/sysconfig/network-scripts/net_" . $_->[1] . "." . $a;
-e ($_->[0]) and cp_af($_->[0], $file) and chmod 0755, $file;
@@ -474,6 +475,7 @@ sub set_profile {
["$prefix/etc/isdn/isdn2B.conf", "isdn2B"],
["$prefix/etc/resolv.conf", "resolv"],
["$prefix/etc/ppp/peers/adsl", "speedtouch"],
+ ["$prefix/etc/ppp/peers/adsl", "eci"],
) {
my $c = "$prefix/etc/sysconfig/network-scripts/net_" . $_->[1] . "." . $profile;
-e ($c) and cp_af($c, $_->[0]);