package network::adsl;

use common qw(:common :file);
use run_program;
use network::tools;
use network::ethernet;

use vars qw(@ISA @EXPORT);
use globals "network", qw($in $prefix $install $connect_file $disconnect_file);

@ISA = qw(Exporter);
@EXPORT = qw(adsl_ask_info adsl_detect adsl_conf adsl_conf_backend);

sub configure{
    my ($netcnx, $netc, $intf, $first_time) = @_;
    $::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;