summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-20 11:55:20 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-20 11:55:20 +0000
commit7f3a501bb7bd3f656c2e76c16c7833fe6591c189 (patch)
tree56a1bf12d685c956a78d99caacfc269cb8d96b2d /perl-install
parent36df86b972831b25f1a5e773b1f856a50b182a46 (diff)
downloaddrakx-7f3a501bb7bd3f656c2e76c16c7833fe6591c189.tar
drakx-7f3a501bb7bd3f656c2e76c16c7833fe6591c189.tar.gz
drakx-7f3a501bb7bd3f656c2e76c16c7833fe6591c189.tar.bz2
drakx-7f3a501bb7bd3f656c2e76c16c7833fe6591c189.tar.xz
drakx-7f3a501bb7bd3f656c2e76c16c7833fe6591c189.zip
(get_subwizard) introduce the infrastructure that enable to load a
part of a wizard from another module
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/netconnect.pm11
1 files changed, 11 insertions, 0 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 9edea2c3c..0be1647eb 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -67,6 +67,17 @@ sub detect_timezone() {
\@country;
}
+# load sub category's wizard pages into main wizard data structure
+sub get_subwizard {
+ my ($wiz, $type) = @_;
+ my %net_conf_callbacks = (adsl => sub { require network::adsl; &network::adsl::get_wizard },
+ cable => sub { require network::ethernet; &network::ethernet::get_wizard },
+ isdn => sub { require network::isdn; &network::isdn::get_wizard },
+ lan => sub { require network::ethernet; &network::ethernet::get_wizard },
+ modem => sub { require network::modem; &network::modem::get_wizard },
+ );
+ $net_conf_callbacks{$type}->($wiz);
+}
# configuring all network devices
sub main {