1 files changed, 52 insertions, 0 deletions
diff --git a/lib/network/adsl.pm b/lib/network/adsl.pm
new file mode 100644
index 0000000..e2ac90d
--- /dev/null
+++ b/lib/network/adsl.pm
@@ -0,0 +1,52 @@
+package network::adsl; # $Id: adsl.pm 219797 2007-05-25 15:39:46Z blino $
+
+use common;
+use run_program;
+use network::tools;
+use modules;
+
+sub adsl_probe_info {
+    my ($net) = @_;
+    my $pppoe_file = "$::prefix/etc/ppp/pppoe.conf";
+    my $login;
+    foreach (qw(/etc/ppp/peers/ppp0 /etc/ppp/options /etc/ppp/options.adsl)) {
+	($login) = map { if_(/^user\s+"([^"]+)"/, $1) } cat_("$::prefix/$_") if !$login && -r "$::prefix/$_";
+    }
+    my %pppoe_conf = -f $pppoe_file && getVarsFromSh($pppoe_file);
+    $login = $pppoe_conf{USER} if !$login || $net->{adsl}{method} eq 'pppoe';
+    my $passwd = network::tools::passwd_by_login($login);
+    if (!$net->{adsl}{vpi} && !$net->{adsl}{vci}) {
+        foreach (cat_("$::prefix/etc/ppp/peers/ppp0")) {
+            if (/^.*-vpi\s+(\d+)\s+-vci\s+(\d+)/ || /^plugin pppoatm.so (\d+)\.(\d+)$/) {
+                ($net->{adsl}{vpi}, $net->{adsl}{vci}) = ($1, $2);
+                last;
+            }
+        }
+    }
+    $pppoe_conf{DNS1} ||= '';
+    $pppoe_conf{DNS2} ||= '';
+    add2hash($net->{resolv}, { dnsServer2 => $pppoe_conf{DNS1}, dnsServer3 => $pppoe_conf{DNS2}, DOMAINNAME2 => '' });
+    add2hash($net->{adsl}, { login => $login, passwd => $passwd });
+}
+
+sub adsl_conf_backend {
+    my ($in, $net) = @_;
+
+    require network::connection::xdsl;
+    my $xdsl = network::connection::xdsl->new(
+        $net->{adsl}{method} eq "capi" ?
+          $net->{adsl}{capi_card} :
+          { driver => $net->{adsl}{driver}, ethernet_device => $net->{adsl}{ethernet_device} });
+    $xdsl->{protocol} = $net->{adsl}{method};
+    $xdsl->{access}{login} = $net->{adsl}{login};
+    $xdsl->{access}{password} = $net->{adsl}{passwd};
+    $xdsl->{access}{vpi} = $net->{adsl}{vpi};
+    $xdsl->{access}{vci} = $net->{adsl}{vci};
+
+    $xdsl->install_packages($in);
+    $xdsl->unload_connection;
+    $xdsl->write_settings($net);
+    $xdsl->prepare_connection;
+}
+
+1;