summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-04-08 03:39:55 +0000
committerdamien <damien@mandriva.com>2001-04-08 03:39:55 +0000
commit29b67cac16924355f2be70a136d7ff08a5cf5848 (patch)
tree7c3462869b88988fc2761b81a32de8315aeda7bd /perl-install
parent3cdee7cb91f1e6808b080560acf11dd9dff077c6 (diff)
downloaddrakx-backup-do-not-use-29b67cac16924355f2be70a136d7ff08a5cf5848.tar
drakx-backup-do-not-use-29b67cac16924355f2be70a136d7ff08a5cf5848.tar.gz
drakx-backup-do-not-use-29b67cac16924355f2be70a136d7ff08a5cf5848.tar.bz2
drakx-backup-do-not-use-29b67cac16924355f2be70a136d7ff08a5cf5848.tar.xz
drakx-backup-do-not-use-29b67cac16924355f2be70a136d7ff08a5cf5848.zip
corrected bad isdn field
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draknet6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet
index da59dce32..96574c04d 100755
--- a/perl-install/standalone/draknet
+++ b/perl-install/standalone/draknet
@@ -529,8 +529,10 @@ sub configure_net {
}
my @mask;
@mask=(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) if $netcnx->{type}eq'lan';
-@mask=(0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) if $netcnx->{type}eq'isdn_internal' && $cnx->{card_type} eq 'pci';
-@mask=(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) if $netcnx->{type}eq'isdn_internal' && $cnx->{card_type} ne 'pci';
+@mask=(0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) if $netcnx->{type}eq'isdn_internal'
+&& defined $cnx->{vendor} && defined $cnx->{id};
+@mask=(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) if $netcnx->{type}eq'isdn_internal'
+&& (!defined $cnx->{vendor} || !defined $cnx->{id});
@mask=(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0) if ($netcnx->{type}eq'modem'||$netcnx->{type} eq 'isdn_external');
@mask=(0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0) if $netcnx->{type} =~ 'adsl';
@mask=(0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1) if $netcnx->{type} eq 'cable';