summaryrefslogtreecommitdiffstats
path: root/drakwizard.pl
diff options
context:
space:
mode:
authorArnaud Desmons <adesmons@mandriva.com>2002-12-18 09:33:29 +0000
committerArnaud Desmons <adesmons@mandriva.com>2002-12-18 09:33:29 +0000
commitc8daa729ba2a4f79b010f9bb19334e85fcb00a24 (patch)
tree70d86ceb843bd2564ff0a7d4e75b91e0f77fc1a9 /drakwizard.pl
parent608db6562a3bbbf1e270bebc5fb3a0383fe967c0 (diff)
downloaddrakwizard-c8daa729ba2a4f79b010f9bb19334e85fcb00a24.tar
drakwizard-c8daa729ba2a4f79b010f9bb19334e85fcb00a24.tar.gz
drakwizard-c8daa729ba2a4f79b010f9bb19334e85fcb00a24.tar.bz2
drakwizard-c8daa729ba2a4f79b010f9bb19334e85fcb00a24.tar.xz
drakwizard-c8daa729ba2a4f79b010f9bb19334e85fcb00a24.zip
some gtk2 bug fix
Diffstat (limited to 'drakwizard.pl')
-rwxr-xr-xdrakwizard.pl18
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;