diff options
| author | damien <damien@mandriva.com> | 2001-04-08 03:39:55 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-04-08 03:39:55 +0000 |
| commit | 29b67cac16924355f2be70a136d7ff08a5cf5848 (patch) | |
| tree | 7c3462869b88988fc2761b81a32de8315aeda7bd /perl-install | |
| parent | 3cdee7cb91f1e6808b080560acf11dd9dff077c6 (diff) | |
| download | drakx-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-x | perl-install/standalone/draknet | 6 |
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'; |