diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-08 09:01:31 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-08 09:01:31 +0000 |
| commit | c9697225243e8bf4013ba049f4265b70a9377388 (patch) | |
| tree | 9655587faac89c718e686f3f398554c748ac8b71 /perl-install/network | |
| parent | cd8df4c1243b1573bb7561c3d3daf27387c5a1a4 (diff) | |
| download | drakx-c9697225243e8bf4013ba049f4265b70a9377388.tar drakx-c9697225243e8bf4013ba049f4265b70a9377388.tar.gz drakx-c9697225243e8bf4013ba049f4265b70a9377388.tar.bz2 drakx-c9697225243e8bf4013ba049f4265b70a9377388.tar.xz drakx-c9697225243e8bf4013ba049f4265b70a9377388.zip | |
(isdn_get_cards) introduce it to build a tree bus|card for isdn wizard
Diffstat (limited to 'perl-install/network')
| -rw-r--r-- | perl-install/network/isdn.pm | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm index 6ff389207..a0ef5dc46 100644 --- a/perl-install/network/isdn.pm +++ b/perl-install/network/isdn.pm @@ -14,7 +14,7 @@ use MDK::Common::File; @ISA = qw(Exporter); -@EXPORT = qw(get_info_providers_backend isdn_detect_backend isdn_get_info isdn_get_list isdn_read_config isdn_write_config isdn_write_config_backend read_providers_backend); +@EXPORT = qw(get_info_providers_backend isdn_detect_backend isdn_get_cards isdn_get_info isdn_get_list isdn_read_config isdn_write_config isdn_write_config_backend read_providers_backend); sub isdn_write_config { @@ -161,4 +161,17 @@ sub isdn_get_cards_by_type { } +sub isdn_get_cards() { + my %buses = ( + isa => N("ISA / PCMCIA") . "/" . N("I don't know"), + pci => N("PCI"), + usb => N("USB"), + ); + # pmcia alias (we should really split up pcmcia from isa in isdn db): + $buses{pcmcia} = $buses{isa}; + + map { $buses{$_->{card}} . "|" . $_->{description} => $_ } @isdndata; +} + + 1; |