summaryrefslogtreecommitdiffstats
path: root/perl-install/network/isdn.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-07-04 23:20:35 +0000
committerdamien <damien@mandriva.com>2001-07-04 23:20:35 +0000
commit578dc4f6c9e3f302ad839fa011bdf4bf85a5ef9b (patch)
tree1a6883675e2b92253ccaf1df468a97182a9e3408 /perl-install/network/isdn.pm
parent4eff584aa8d9fbe794e2d334824a052d4f69ccf4 (diff)
downloaddrakx-578dc4f6c9e3f302ad839fa011bdf4bf85a5ef9b.tar
drakx-578dc4f6c9e3f302ad839fa011bdf4bf85a5ef9b.tar.gz
drakx-578dc4f6c9e3f302ad839fa011bdf4bf85a5ef9b.tar.bz2
drakx-578dc4f6c9e3f302ad839fa011bdf4bf85a5ef9b.tar.xz
drakx-578dc4f6c9e3f302ad839fa011bdf4bf85a5ef9b.zip
modularized. It compiles, runs, and works for some stuff.
Diffstat (limited to 'perl-install/network/isdn.pm')
-rw-r--r--perl-install/network/isdn.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index 39a9ac820..f67c6aac1 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -6,7 +6,7 @@ use modules;
use log;
use network::tools;
use vars qw(@ISA @EXPORT);
-use globals "network", qw($in $prefix $install);
+use globals "network", qw($in $prefix $install; $connect_file $disconnect_file);
@ISA = qw(Exporter);
@EXPORT = qw(isdn_write_config isdn_write_config_backend get_info_providers_backend isdn_ask_info isdn_ask_protocol isdn_ask isdn_detect isdn_detect_backend isdn_get_list isdn_get_info);
@@ -191,7 +191,7 @@ If you have a PCMCIA card, you have to know the irq and io of your card.
$e = $in->ask_from_listf(_("ISDN Configuration"),
_("Which is your ISDN card ?"),
sub { $_[0]{description} },
- [ grep {$_->{card} eq $isdn->{card_type}; } @isdndata ] ) or goto isdn_ask_step_1;
+ [ grep {$_->{card} eq $isdn->{card_type}; } @network::netconnect::isdndata ] ) or goto isdn_ask_step_1;
$isdn->{driver}='hisax';
$e->{$_} and $isdn->{$_} = $e->{$_} foreach qw(type mem io io0 io1 irq);
@@ -236,7 +236,7 @@ sub isdn_detect_backend {
$isdn->{$_} = $c->{$_} foreach qw(description vendor id driver options);
$isdn->{$_} = sprintf("%0x", $isdn->{$_}) foreach ('vendor', 'id');
$isdn->{card_type} = 'pci';
- $isdn->{type} = $isdnid2type{$isdn->{vendor} . $isdn->{id}}; #If the card is not listed, type is void. You have to ask it then.
+ $isdn->{type} = $network::netconnect::isdnid2type{$isdn->{vendor} . $isdn->{id}}; #If the card is not listed, type is void. You have to ask it then.
}
}
@@ -244,7 +244,7 @@ sub isdn_detect_backend {
#- output : descriptions : list of strings
sub isdn_get_list {
- map { $_->{description} } @isdndata;
+ map { $_->{description} } @network::netconnect::isdndata;
}
#- isdn_get_info : return isdn card infos. This function is not use internally.
@@ -253,7 +253,7 @@ sub isdn_get_list {
sub isdn_get_info {
my ($desc) = @_;
- foreach (@isdndata) {
+ foreach (@network::netconnect::isdndata) {
return $_ if ($_->{description} eq $desc);
}
}