summaryrefslogtreecommitdiffstats
path: root/perl-install/network/isdn.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-08-06 21:54:27 +0000
committerdamien <damien@mandriva.com>2001-08-06 21:54:27 +0000
commit717035c00560891bbb41c9364ea6be10a64fbe12 (patch)
tree649d4662eb85967bd19434d0d8300ef807db60c9 /perl-install/network/isdn.pm
parentb684ed467490ecc1eda1fdc3048e9dc6ab4a390f (diff)
downloaddrakx-717035c00560891bbb41c9364ea6be10a64fbe12.tar
drakx-717035c00560891bbb41c9364ea6be10a64fbe12.tar.gz
drakx-717035c00560891bbb41c9364ea6be10a64fbe12.tar.bz2
drakx-717035c00560891bbb41c9364ea6be10a64fbe12.tar.xz
drakx-717035c00560891bbb41c9364ea6be10a64fbe12.zip
debugging, profile coding, isdn 128 debugging
Diffstat (limited to 'perl-install/network/isdn.pm')
-rw-r--r--perl-install/network/isdn.pm14
1 files changed, 9 insertions, 5 deletions
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;
}