From 717035c00560891bbb41c9364ea6be10a64fbe12 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Mon, 6 Aug 2001 21:54:27 +0000
Subject: debugging, profile coding, isdn 128 debugging

---
 perl-install/network/isdn.pm | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'perl-install/network/isdn.pm')

diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index fd96f10c2..af5f90630 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -60,7 +60,8 @@ We recommand the light configuration.
     }
     run_program::rooted($prefix, "rpm", "-e", "$rmpackage");
     $install->($instpackage, if_($isdn->{speed} =~ /128/, 'ibod'), 'isdn4k-utils');
-    isdn_write_config_backend($isdn, $e =~ /light/, $netc);
+    my $light = $e =~ /light/ ? 1 : 0;
+    isdn_write_config_backend($isdn, $light, $netc);
     1;
 }
 
@@ -94,14 +95,15 @@ sub isdn_write_config_backend {
 	symlinkf("ioptions" . $bundle, "$prefix/etc/ppp/ioptions");
     } else {
 	my $f = "$prefix/etc/isdn/profile/link/myisp";
-	output $f,
+	output ($f,
 	  qq(
 I4L_USERNAME="$isdn->{login}"
 I4L_SYSNAME=""
 I4L_LOCALMSN="$isdn->{phone_in}"
 I4L_REMOTE_OUT="$isdn->{phone_out}"
 I4L_DIALMODE="$isdn->{dialing_mode}"
-);
+) . if_($isdn->{speed} =~ /128/, 'SLAVE="ippp1"
+'));
 	chmod 0600, $f;
 
 	output "$prefix/etc/isdn/profile/card/mycard",
@@ -134,11 +136,13 @@ defaultroute
 /sbin/route del default
 /sbin/ifup ippp0
 /sbin/isdnctrl dial ippp0
-",
+" . if_($isdn->{speed} =~ /128/, "service ibod restart
+"),
 "#!/bin/bash
 /sbin/isdnctrl hangup ippp0
 /sbin/ifdown ippp0
-");
+"  . if_($isdn->{speed} =~ /128/, "service ibod stop
+"));
     1;
 }
 
-- 
cgit v1.2.1