diff options
Diffstat (limited to 'perl-install/network/adsl.pm')
| -rw-r--r-- | perl-install/network/adsl.pm | 200 |
1 files changed, 200 insertions, 0 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm new file mode 100644 index 000000000..a09f58823 --- /dev/null +++ b/perl-install/network/adsl.pm @@ -0,0 +1,200 @@ +package network::adsl; + +#use network::tools; + +use vars qw(@ISA @EXPORT); + +@ISA = qw(Exporter); +@EXPORT = qw(adsl_ask_info adsl_detect adsl_conf adsl_conf_backend); + +sub configure{ + $::isInstall and $in->set_help('configureNetworkADSL'); + conf_adsl_step1: + 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")]) or return; + $type =~ s/use //; + if ($type eq 'pppoe') { + $install->("rp-$type"); + $netcnx->{type} = "adsl_$type"; + $netcnx->{"adsl_$type"} = {}; + adsl_conf($netcnx->{"adsl_$type"}, $netc, $intf, $type) or goto conf_adsl_step1; + #-network::configureNetwork($prefix, $netc, $in, $intf, $first_time); + if ($::isStandalone and $netc->{NET_DEVICE}) { + $in->ask_yesorno(_("Network interface"), + _("I'm about to restart the network device %s. Do you agree?", $netc->{NET_DEVICE}), 1) + and system("$prefix/sbin/ifdown $netc->{NET_DEVICE}; $prefix/sbin/ifup $netc->{NET_DEVICE}"); + } + } + if ($type eq 'dhcp') { + $install->(qw(dhcpcd)); + go_ethernet($netc, $intf, 'dhcp', '', '', $first_time) or goto conf_adsl_step1; + } + if ($type eq 'pptp') { + $install->(qw(pptp-adsl-fr)); + $netcnx->{type} = "adsl_$type"; + $netcnx->{"adsl_$type"} = {}; + adsl_conf($netcnx->{"adsl_$type"}, $netc, $intf, $type) or goto conf_adsl_step1; + } + 1; +} + +sub adsl_ask_info { + my ($adsl, $netc, $intf) = @_; + add2hash($netc, { dnsServer2 => '', dnsServer3 => '', DOMAINNAME2 => '' }); + add2hash($adsl, { login => '', passwd => '', passwd2 => '' }); + ask_info2($adsl, $netc); +} + +#- adsl_detect : detect adsl modem on a given interface +#- input : +#- $interface : interface where the modem is supposed to be connected : should be "ethx" +#- output: +#- true/false : success|failed +sub adsl_detect { + return; + my ($interface) = @_; + run_program::rooted($prefix, "ifconfig $interface 10.0.0.10 netmask 255.255.255.0"); + my $ret=run_program::rooted($prefix, "/bin/ping -c 1 10.0.0.138 2> /dev/null"); + run_program::rooted($prefix, "ifconfig $interface 0.0.0.0 netmask 255.255.255.0"); + $ret; +} + +sub adsl_conf { + my ($adsl, $netc, $intf, $adsl_type) = @_; + + adsl_conf_step_1: + adsl_ask_info ($adsl, $netc, $intf) or return; + adsl_conf_step_2: + conf_network_card ($in, $netc, $intf, 'static' , '10.0.0.10' ) or goto adsl_conf_step_1; + adsl_conf_backend($adsl, $netc, $adsl_type); + + adsl_conf_step_3: + $adsl->{atboot} = $in->ask_yesorno(_("ADSL configuration"), + _("Do you want to start your connection at boot?") + ); + $::isStandalone and ask_connect_now($adsl, 'ppp0'); + 1; +} + +#- adsl_conf_backend : write adsl configuration +#- input : +#- $adsl +#- $netc +#- $adsl_type : type of cnx : string : "pptp" or "pppoe" +#- $adsl input: +#- $adsl->{login}, $adsl->{passwd}, $adsl->{atboot} +#- $netc input: +#- $netc->{NET_DEVICE} +#- $netc->{dnsServer2} +#- $netc->{dnsServer3} +#- $netc->{DOMAINNAME2} +#- $netc output: +#- $netc->{NET_INTERFACE} is set to "ppp0" +sub adsl_conf_backend { + my ($adsl, $netc, $adsl_type) = @_; + + output("$prefix/etc/ppp/options", + $adsl_type eq 'pptp' ? +"lock +noipdefault +noauth +usepeerdns +defaultroute +" : +"noipdefault +usepeerdns +hide-password +defaultroute +persist +lock +") if $adsl_type =~ /pptp|pppoe/; + + write_secret_backend($adsl->{login}, $adsl->{passwd}); + + if ($adsl_type eq 'pppoe') { + substInFile { + s/ETH=.*\n/ETH=$netc->{NET_DEVICE}\n/; + s/USER=.*\n/USER=$adsl->{login}\n/; + } "$prefix/etc/ppp/pppoe.conf"; + } + + output ("$prefix$connect_file", + $adsl_type eq 'pptp' ? +"#!/bin/bash +/sbin/route del default +/usr/bin/pptp 10.0.0.138 name $adsl->{login} +" +: +"#!/bin/bash +/sbin/route del default +LC_ALL=C LANG=C LANGUAGE=C LC_MESSAGES=C /usr/sbin/adsl-start $netc->{NET_DEVICE} $adsl->{login} +"); + output ("$prefix$disconnect_file", + $adsl_type eq 'pptp' ? + "#!/bin/bash +/usr/bin/killall pptp pppd +" +: +"#!/bin/bash +/usr/sbin/adsl-stop +/usr/bin/killall pppoe pppd +"); + chmod 0755, "$prefix$disconnect_file"; + chmod 0755, "$prefix$connect_file"; + + if ($adsl->{atboot}) { + output ("$prefix/etc/rc.d/init.d/adsl", + qq{ +#!/bin/bash +# +# adsl Bring up/down adsl connection +# +# chkconfig: 2345 11 89 +# description: Activates/Deactivates the adsl interfaces + case "$1" in + start) + echo -n "Starting adsl connection: " + $connect_file + touch /var/lock/subsys/adsl + echo -n adsl + echo + ;; + stop) + echo -n "Stopping adsl connection: " + $disconnect_file + echo -n adsl + echo + rm -f /var/lock/subsys/adsl + ;; + restart) + $0 stop + echo -n "Waiting 10 sec before restarting adsl." + sleep 10 + $0 start + ;; + status) + ;; + *) + echo "Usage: adsl {start|stop|status|restart}" + exit 1 +esac +exit 0 + }); + chmod 0755, "$prefix/etc/rc.d/init.d/adsl"; + $::isStandalone ? system("/sbin/chkconfig --add adsl") : do { + symlinkf ("../init.d/adsl", "$prefix/etc/rc.d/rc$_") foreach + '0.d/K11adsl', '1.d/K11adsl', '2.d/K11adsl', '3.d/S89adsl', '5.d/S89adsl', '6.d/K11adsl'; + }; + } + else { + -e "$prefix/etc/rc.d/init.d/adsl" and do{ + system("/sbin/chkconfig --del adsl"); + unlink "$prefix/etc/rc.d/init.d/adsl"; + }; + } + $netc->{NET_INTERFACE}="ppp0"; +} + +1; |