diff options
Diffstat (limited to 'drakwizard.pl')
| -rwxr-xr-x | drakwizard.pl | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/drakwizard.pl b/drakwizard.pl index 866ea8a2..69846a2c 100755 --- a/drakwizard.pl +++ b/drakwizard.pl @@ -30,20 +30,21 @@ use common; #- I18N. push @::textdomains, 'drakwizard'; +$::isWizard = 1; my $in = 'interactive'->vnew('su', 'default'); $::direct = /-direct/; $::Wizard_no_previous = 1; $::Wizard_title = "Drakwizard"; my $standalone = 1; -! -r '/etc/sysconfig/network-scripts/drakconnect_conf' && - ( -r '/etc/sysconfig/network-scripts/draknet_conf' || - die "no drakconnect conf file found, install drakconnect and try again") && - MDK::Common::cp_af('/etc/sysconfig/network-scripts/draknet_conf', - '/etc/sysconfig/network-scripts/drakconnect_conf'); +# ! -r '/etc/sysconfig/network-scripts/drakconnect_conf' && +# ( -r '/etc/sysconfig/network-scripts/draknet_conf' || +# die "no drakconnect conf file found, install drakconnect and try again") && +# MDK::Common::cp_af('/etc/sysconfig/network-scripts/draknet_conf', +# '/etc/sysconfig/network-scripts/drakconnect_conf'); if (!defined($ARGV[0])) { - my $prefix = "/usr/share/wizards/"; + my $prefix = "__WIZ_HOME__/"; my %wiz = ( 1 => [$prefix."web_wizard/web.wiz", "Apache"], 2 => [$prefix."dhcp_wizard/dhcp.wiz", "Dhcp"], @@ -235,8 +236,8 @@ sub get_parameter { } elsif (ref($leaf) eq 'HASH') { my $common_freetext_chooser; my %actions = ( - Wizard => sub { - load_wizard(@{$leaf}{qw(wizardTitle libScript perlModule rpm defaultImage)}) },, + Wizard => sub { + load_wizard(@{$leaf}{qw(wizardTitle libScript perlModule rpm defaultImage)}) }, Variable => sub { $variable{$leaf->{name}} = $leaf->{shellVariable}; $ENV{$variable{$leaf->{name}}} = $leaf->{defaultValue}; @@ -405,6 +406,7 @@ sub is_disabled_summary { is_disabled_summary($widget, $page->{next_page}) if $page->{next_page}; } +# find in the page which widget to disable from "is" dependance key. sub is_disabled { my ($widget, $page) = @_; my $ret; |