diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-20 11:55:20 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-20 11:55:20 +0000 |
| commit | 7f3a501bb7bd3f656c2e76c16c7833fe6591c189 (patch) | |
| tree | 56a1bf12d685c956a78d99caacfc269cb8d96b2d /perl-install | |
| parent | 36df86b972831b25f1a5e773b1f856a50b182a46 (diff) | |
| download | drakx-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.pm | 11 |
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 { |