summaryrefslogtreecommitdiffstats
path: root/drakwizard.pl
diff options
context:
space:
mode:
authorFlorent Villard <warly@mandriva.com>2003-08-22 19:59:48 +0000
committerFlorent Villard <warly@mandriva.com>2003-08-22 19:59:48 +0000
commit150bc87396011253a541ca0ad32250e926ab0ecc (patch)
tree1b90808250fc42a37248dfeb726b55f8203e8ba2 /drakwizard.pl
parent817bcd2c3a985552620cece5905d5b5982ae14c4 (diff)
downloaddrakwizard-150bc87396011253a541ca0ad32250e926ab0ecc.tar
drakwizard-150bc87396011253a541ca0ad32250e926ab0ecc.tar.gz
drakwizard-150bc87396011253a541ca0ad32250e926ab0ecc.tar.bz2
drakwizard-150bc87396011253a541ca0ad32250e926ab0ecc.tar.xz
drakwizard-150bc87396011253a541ca0ad32250e926ab0ecc.zip
switch to perl only
Diffstat (limited to 'drakwizard.pl')
-rwxr-xr-xdrakwizard.pl508
1 files changed, 67 insertions, 441 deletions
diff --git a/drakwizard.pl b/drakwizard.pl
index fc2f734e..7e184f29 100755
--- a/drakwizard.pl
+++ b/drakwizard.pl
@@ -2,7 +2,7 @@
# Drakwizard
-# Copyright (C) 2002 MandrakeSoft Mael Dodin (mdodin@mandrakesoft.com)
+# Copyright (C) 2003 Florent Villard <warly@mandrakesoft.com>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@@ -20,9 +20,8 @@
use lib qw(/usr/lib/libDrakX);
use strict;
-use vars qw($Wizard_title $Wizard_pix_up $lib_script $perl_module %variable $in $rpm %chooser_hash $welcome $perl_module_name $verbose %description $summary $summary_func %disabled $current_page %bool);
+our ($Wizard_title, $Wizard_pix_up, $lib_script, $perl_module, %variable, $in, $rpm, %chooser_hash, $welcome, $perl_module_name, $verbose, %description, $summary, $summary_func, %disabled, $current_page, %bool);
-use XML::Parser;
use standalone;
use interactive;
use common;
@@ -30,106 +29,92 @@ use common;
#- I18N.
push @::textdomains, 'drakwizard';
+$::DEBUG = 1;
$::isWizard = 1;
-my $in = 'interactive'->vnew('su', 'default');
-$::direct = /-direct/;
$::Wizard_no_previous = 1;
$::Wizard_title = "Drakwizard";
+$::Wiz_dir = '__WIZ_HOME__';
+my $in = 'interactive'->vnew('/bin/su', 'default');
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');
-
-if (!defined($ARGV[0])) {
- my $prefix = "__WIZ_HOME__";
- my %wiz = (
- 1 => [$prefix."web_wizard/web.wiz", "Apache"],
- 2 => [$prefix."dhcp_wizard/dhcp.wiz", "Dhcp"],
- 3 => [$prefix."dns_wizard/dns.wiz", "Dns (configuration)"],
- 4 => [$prefix."client_wizard/client.wiz", "Dns (add client)"],
- 5 => [$prefix."news_wizard/news.wiz", "News"],
- 6 => [$prefix."nfs_wizard/nfs.wiz", "NFS"],
- 7 => [$prefix."postfix_wizard/postfix.wiz", "Postfix"],
- 8 => [$prefix."ftp_wizard/ftp.wiz", "Proftpd"],
- 9 => [$prefix."samba_wizard/samba.wiz", "Samba"],
- 10 => [$prefix."proxy_wizard/proxy.wiz", "Squid"],
- 11 => [$prefix."time_wizard/time.wiz", "Time"],
- 12 => [$prefix."web_wizard/apache2.wiz", "Apache2"]
- );
+my %wiz = (
+ apache => ['Apache', "Apache web server"],
+ dhcp => ['Dhcp', "Dhcp server"],
+ bind => ['Bind', "Dns (configuration)"],
+ bind_client => ['Bind_client', "Dns (add client)"],
+ inn => ['Inn', "News server"],
+ nfs => ['Nfs', "NFS server"],
+ postfix => ['Postfix', "Mail server"],
+ proftpd => ['Proftpd', "Ftp server"],
+ samba => ['Samba', "Samba server"],
+ squid => ['Squid', "Proxy"],
+ ntp => ['Ntp', "Time server"],
+ apache2 => ['Apache', "Apache2 web server", { ver => 2 }]
+ );
+
+if (!defined($wiz{$ARGV[0]})) {
$in->ask_from(
N("Drakwizard wizard selection"),
N("Please select a wizard"),
- [{ val => \$ARGV[0], list => [sort { $wiz{$a}[2] cmp $wiz{$b}[2] } keys %wiz], format => sub { $wiz{$_[0]}[1] }}]
+ [{ val => \$ARGV[0], list => [sort { $wiz{$a}[1] cmp $wiz{$b}[1] } keys %wiz], format => sub { $wiz{$_[0]}[1] }}]
);
- $ARGV[0] = $wiz{$ARGV[0]}[0];
-}
-
-my $o = [];
-my $o2 = [];
-my $xmltree = XML::Parser->new(Style => 'Tree')->parsefile($ARGV[0]);
-
-local $_ = join '', @ARGV;
- if (/-debug/) {
- $::verbose = 1;
+ push @ARGV, @{$wiz{$ARGV[0]}}[0,2];
}
-$::isWizard = 1;
+require "MDK/Wizard/$wiz{$ARGV[0]}[0].pm";
-if (/-summary/) {
- $::isSummary = 1;
- get_parameter($o2, $xmltree);
+my ($wiz, $err) = $wiz{$ARGV[0]}[0]->new($wiz{$ARGV[0]}[2]);
+if ($err) {
$::Wizard_finished = 1;
- get_summary($o2, $xmltree);
- is_disabled_summary($_[0], $o2->[0]);
- my $data = map_freetext($summary->{freetext});
- # workaround to get get the scrollbar
- while ($::isSummary--) {
- push @$data, '';
- }
-
- if ($in->ask_from(translate("summary"), translate($summary->{info}), $data)) {
- foreach (@{$summary->{freetext}}) {
- if ($_->{main_order} eq 'bool') {
- $ENV{$variable{$_->{variableName}}} = $ENV{$variable{$_->{variableName}}} ? 1 : 0;
- $description{$ENV{$variable{$_->{variableName}}}} = $ENV{$variable{$_->{variableName}}} ? N("enabled") : N("disabled");
- }
- elsif ($_->{main_order} eq 'combo') {
- $ENV{$variable{$_->{variableName}}} = $chooser_hash{$ENV{$variable{$_->{variableName}}}};
- }
- }
- $::{$perl_module_name."::"}{"$summary_func"}->();
- }
-}
-else {
- get_parameter($o, $xmltree);
- if (!$::verbose) {
- no warnings;
- navigation($o, $o->[0]);
- }
- else { navigation($o, $o->[0]) };
+ $in->ask_okcancel("error", N($err));
+ $in->exit;
}
-$in->exit;
+wizard($wiz->{o});
-sub member { my $e = shift; foreach (@_) { $e eq $_ and return 1 } 0 }
+$in->exit;
-sub xml_text {
- $_[0] =~ s/\\\'/\'/g;
- $_[0] =~ s/\\q/\"/g;
- $_[0] =~ s/\\a/\&/g;
- $_[0] =~ s/\\n/\n/g;
- $_[0];
+sub wizard {
+ my ($o) = @_;
+ my $page = $o->{pages}{welcome};
+ $::Wizard_title = $o->{name};
+ my $next = 'welcome';
+ my @steps;
+ check_rpm($o->{needed_rpm}) if $o->{needed_rpm};
+ while (1) {
+ undef $::Wizard_no_previous;
+ undef $::Wizard_no_cancel;
+ $::Wizard_no_previous = $page->{no_back};
+ $::Wizard_finished = $page->{end};
+ $::Wizard_no_cancel = $page->{no_cancel} || $page->{end};
+ defined $page->{pre} and $page->{pre}();
+ # FIXME or the displaying fails
+ my $data = defined $page->{data} ? ref $page->{data} ? $page->{data} : [ { label => '' } ] : [ { label => '' } ];
+ my $data2;
+ foreach my $d (@$data) {
+ $d->{fixed_val} and $d->{val} = ${$d->{fixed_val}};
+ push @{$data2}, $d
+ }
+ my $a = $in->ask_from($o->{name}, $page->{name}, $data2);
+ if ($a) {
+ push @steps, $next;
+ $next = defined $page->{post} ? $page->{post}() : 0;
+ defined $o->{pages}{$next} or $next = $page->{next};
+ } else {
+ $next = pop @steps
+ }
+ $next or return;
+ $page = $o->{pages}{$next}
+ }
}
-sub load_wizard {
- ($Wizard_title, $lib_script, $perl_module, $rpm, $Wizard_pix_up, $summary_func) = @_;
- if ($rpm) {
+sub check_rpm {
+ my ($rpms) = @_;
+ foreach my $rpm (@$rpms) {
if (!$in->do_pkgs->is_installed($rpm)) {
if ($in->ask_okcancel("error", N("%s is not installed\nClick \"Next\" to install or \"Cancel\" to quit", c::from_utf8($rpm)))) {
- if (!$in->do_pkgs->install($rpm eq 'bind' ? 'bind-9' : $rpm)) {
+ $::DEBUG and next;
+ if (!$in->do_pkgs->install($rpm)) {
$::Wizard_finished = 1;
$in->ask_okcancel("error", N("installation failed"));
$in->exit;
@@ -138,363 +123,4 @@ sub load_wizard {
else { $in->exit }
}
}
- if ($perl_module) {
- ($::perl_module_name) = ($perl_module =~ /.*\/(.*)\.pm/);
- require $perl_module;
- }
-}
-
-sub map_freetext {
- my @liste;
- my $valeur;
-
- my @data = map {
- my $str = $_->{variableName};
- my $page = $_;
-
- if ($_->{fillScript}) {
- $ENV{$variable{$_->{variableName}}} = `. $lib_script && $_->{fillScript}`;
- }
- if ($_->{main_order} eq 'entry') {
- if (!$ENV{$variable{$_->{variableName}}} && $_->{fillfunc}) {
- $ENV{$variable{$_->{variableName}}} = $::{$perl_module_name."::"}{"$_->{fillfunc}"}->();
- }
- { label => N($_->{helpText}),
- val => \$ENV{$variable{$_->{variableName}}}, type => $_->{main_order},
- disabled => $disabled{$_->{variableName}},
- help => $_->{help}}
- }
- elsif ($_->{main_order} eq 'field' && $_->{fillfunc}) {
- { label => N($_->{helpText}),
- val => $::{$perl_module_name."::"}{"$_->{fillfunc}"}->(), type => $_->{main_order},
- disabled => $disabled{$_->{variableName}},
- help => $_->{help}}
- }
- elsif ($_->{main_order} eq 'bool') {
- if (!$ENV{$variable{$_->{variableName}}} && $_->{fillfunc}) {
- $ENV{$variable{$_->{variableName}}} = $::{$perl_module_name."::"}{"$_->{fillfunc}"}->();
- }
- if ($_->{listfunc}) {
- my @checklist = $::{$perl_module_name."::"}{"$_->{listfunc}"}->();
- my $i = 21 - scalar @checklist;
- # workaround to get get the scrollbar
- if (!$::isSummary) {
- while ($i--) {
- push @checklist, '';
- }
- }
- else {
- while ($i--) {
- $::isSummary++;
- }
- }
- #
- map {
- if (length($_)) {
- $disabled{$str} = sub { callback($str)};
- { val => \$bool{$_},
- label => "",
- type => 'bool',
- text => "$_",
- help => "",
- disabled => $disabled{$str}
- }
- }
- } @checklist;
- }
- else {
- { val => \$ENV{$variable{$_->{variableName}}},
- label => "",
- type => $_->{main_order},
- text => translate($_->{helpText}),
- disabled => $disabled{$_->{variableName}},
- help => $_->{help} }
- }
- }
- elsif ($_->{main_order} eq 'combo') {
- if($_->{fillScript}){
- @liste = ();
- $valeur = `. $lib_script && $_->{fillScript}`;
- while( $valeur =~ /(.+)\n/g){
- push @liste, $1;
- $chooser_hash{$1} = $1;
- }
- }
- elsif ($_->{fillfunc}){
- @liste = $::{$perl_module_name."::"}{"$_->{fillfunc}"}->();
- }
- else {
- @liste = @{$_->{Option}};
- }
- { label => N($_->{helpText}),
- val => \$ENV{$variable{$_->{variableName}}},
- list => [@liste], type => $_->{main_order},
- disabled => $disabled{$_->{variableName}} }}
- elsif ($_->{main_order} eq 'field') {
- { val => $description{$ENV{$variable{$_->{variableName}}}} ?
- $description{$ENV{$variable{$_->{variableName}}}} :
- $ENV{$variable{$_->{variableName}}},
- label => $_->{helpText},
- help => $_->{help}} }
- } @{$_[0]};
- \@data;
-}
-
-sub get_parameter {
- my ($o, $tree, $tag ,$page) = @_;
-
- foreach my $leaf (@$tree) {
- if (ref($leaf) eq 'ARRAY') {
- $page = get_parameter($o, $leaf, $tag, $page);
- } elsif (ref($leaf) eq 'HASH') {
- my $common_freetext_chooser;
- my %actions = (
- Wizard => sub {
- load_wizard(@{$leaf}{qw(wizardTitle libScript perlModule rpm defaultImage)}) },
- Variable => sub {
- $variable{$leaf->{name}} = $leaf->{shellVariable};
- $ENV{$variable{$leaf->{name}}} = $leaf->{defaultValue};
- $disabled{$leaf->{name}} = sub { callback($leaf->{name})};
- },
- Page => sub {
- !$welcome and $welcome = $page;
- my $old_page = $page;
- push @$o, $page = { %$leaf };
- $old_page->{next_page} = $page;
- if ($leaf->{canBack} =~ /.*false.*/) { $page->{no_prev} = 1}
- if ($leaf->{canCancel} =~ /.*false.*/) { $page->{no_cancel} = 1}
- if ($leaf->{nextFinish} =~ /.*true.*/) { $page->{finish} = 1}
- },
- Target => sub {
- $page->{Target}->{jumpIndex}->{$leaf->{jumpIndex}} = $leaf->{targetName};
- },
- Info => sub {
- # This is to avoid monospaced text to be interpolated
- $leaf->{helpText} = translate($leaf->{helpText});
- if ($leaf->{fontName} eq "Monospaced") {
- chomp($leaf->{helpText});
- $leaf->{helpText} = $leaf->{helpText} ?
- "$leaf->{helpText}\n$leaf->{helpText}" : "$leaf->{helpText}\n";
- }
- $page->{info} = xml_text($leaf->{helpText} ?
- "$page->{info}\n$leaf->{helpText}" : "$page->{info}\n");
- #$page->{info} = c::from_utf8($page->{info});
- $page->{info} .= translate(`source $lib_script; $leaf->{fillScript}`) if
- ($leaf->{fillScript})
- },
- Freetext => $common_freetext_chooser = sub {
- my $main_order = ($tag eq 'Chooser') ? 'combo'
- : ($tag eq 'Boolean') ? 'bool'
- : ($leaf->{editable} eq 'true') ? 'entry'
- : 'field';
- push @{$page->{freetext}},
- {%$leaf, main_order => $main_order,
- help => xml_text($leaf->{help})} if $main_order ne 'hidden';
- },
- Chooser => \&$common_freetext_chooser,
- Boolean => \&$common_freetext_chooser,
- Option => sub {
- push @{${$page->{freetext}}[-1]->{Option}}, $leaf->{description};
- $chooser_hash{$leaf->{description}} = $leaf->{value};
- $description{$leaf->{value}} = $leaf->{description};
- $disabled{$leaf->{description}} = sub { callback($leaf->{description})};
- });
- $actions{$tag} and &{$actions{$tag}};
- }
- elsif($leaf=~ /\w\D/) {
- $tag = $leaf;
- }
- }
- $page;
-}
-
-sub find_page {
- my ($o, $name) = @_;
- $_->{name} eq $name and return $_ foreach @$o;
-}
-
-sub display {
- my ($o, $page) = @_;
- my $data;
-
- if ($page->{no_prev} || $page->{name} eq $welcome->{name}) {
- $::Wizard_no_previous = 1;
- }
- if ($page->{finish}) {
- $::Wizard_finished = 1;
- $::Wizard_no_cancel = 1;
- }
- if ($page->{nextFinish} eq 'true') {
- $::Wizard_no_previous = 1;
- $in->ask_okcancel(translate($page->{name}),
- translate($page->{info})); # or quit_global($in, 0);
- exit;
- }
- elsif (!$page->{freetext}) {
- $in->ask_okcancel(translate($page->{name}),
- translate($page->{info})) or navigation($o, $page->{old_page});
- }
- else {
- my $valeur;
- my @liste;
- if ($page->{executionLevel} eq 'NORMAL') {
- $data = map_freetext($page->{freetext});
- $in->ask_from($page->{name}, translate($page->{info}),
- $data) or navigation($o, $page->{old_page});
- foreach (@{$page->{freetext}}) {
- if ($_->{main_order} eq 'bool') {
- $ENV{$variable{$_->{variableName}}} = $ENV{$variable{$_->{variableName}}} ? 1 : 0;
- $description{$ENV{$variable{$_->{variableName}}}} = $ENV{$variable{$_->{variableName}}} ? N("enabled") : N("disabled");
- }
- elsif ($_->{main_order} eq 'combo') {
- $ENV{$variable{$_->{variableName}}} = $chooser_hash{$ENV{$variable{$_->{variableName}}}};
- }
- }
- }
- }
- undef $::Wizard_no_previous;
-}
-
-sub navigation {
- my ($o, $page, $previous_page) = @_;
- $page->{old_page} ||= $previous_page;
-
- $current_page = $page;
- display($o, $page);
- my ($next, $prev) = do {
- if (defined $perl_module_name && $page->{func}) {
- my @func_arg = split(/\s/, $page->{func});
- my $modStatus = $::{$perl_module_name."::"}{"$func_arg[0]"}->();
- if ($page->{Target}->{jumpIndex}) {
- find_page($o, $page->{Target}->{jumpIndex}->{int($modStatus)}), $page;
- }
- else {
- $page->{next_page}, $page->{old_page};
- }
- }
- elsif ($page->{jumpScript}) {
- system("source $lib_script ; $page->{jumpScript}");
- if ($page->{Target}->{jumpIndex}) {
- $? = $? >> 8;
- find_page($o, $page->{Target}->{jumpIndex}->{$?}), $page;
- }
- else {
- $page->{next_page}, $page;
- }
- }
- elsif ($page->{subWizard}) {
- my $sub_o = [];
- my $sub_xmltree = XML::Parser->new(Style => 'Tree')->parsefile($page->{subWizard});
- get_parameter($sub_o, $sub_xmltree);
- eval {navigation($sub_o, $sub_o->[0]); };
- $in->exit if $@ =~ /^wizcancel/;
- $page->{old_page}->{no_prev} = 1;
- $o->[0], $page, undef;
- }
- elsif ($page->{jumpPage}) {
- find_page($o, $page->{jumpPage}), $page;
- }
- else {
- $page->{next_page}, $page;
- }
- };
- navigation($o, $next, $prev);
-}
-
-sub is_disabled_summary {
- my ($widget, $page) = @_;
-
- if ($page->{is}) {
- my ($page_val, $page_arg) = split(/\s*?=\s*/, $page->{is});
- if ($page_val eq $widget) {
- foreach (@{$page->{freetext}}) {
- my ($val, $arg) = split(/\s*?=\s*/, $_->{is}) if ($_->{is});
- $disabled{$_->{variableName}} = defined $page_arg ? ($ENV{$variable{$page_val}} != $page_arg) : !$ENV{$variable{$page_val}};
- if ($_->{is} && !$disabled{$_->{variableName}}) {
- $disabled{$_->{variableName}} = defined $arg ? $ENV{$variable{$val}} != $arg : !$ENV{$variable{$val}};
- }
- }
- }
- }
- 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;
-
- foreach (@{$page->{freetext}}) {
- if ($_->{is}) {
- my ($val, $arg) = split(/\s*?=\s*/, $_->{is});
- $ret = defined $arg ? $ENV{$variable{$val}} != $arg : !$ENV{$variable{$val}};
- }
- $disabled{$_->{variableName}} = $ret;
- }
-}
-
-sub callback_common {
- return 1 if ($disabled{$_[0]} == 1);
- foreach (keys %variable) {
- my $str = $ENV{$variable{$_}};
- my $str2 = $_;
- foreach (keys %chooser_hash) {
- if ($str eq $_) {
- $ENV{$variable{$str2}} = $chooser_hash{$_};
- }
- }
- }
- 0;
-}
-
-sub callback_summary {
- return 1 if callback_common($_[0]);
- is_disabled_summary($_[0], $o2->[0]);
-}
-
-sub callback {
- return 1 if callback_common($_[0]);
- is_disabled($_[0], $current_page);
-}
-
-sub get_summary {
- my ($o, $tree, $tag, $page) = @_;
-
- foreach my $leaf (@$tree) {
- if (ref($leaf) eq 'ARRAY') {
- $page = get_summary($o, $leaf, $tag, $page);
- } elsif (ref($leaf) eq 'HASH') {
- my $common_freetext_chooser;
- my %actions = (
- Wizard => sub {
- load_wizard(@{$leaf}{
- qw(wizardTitle libScript perlModule rpm defaultImage summaryFunc)}) },
- Variable => sub {
- $variable{$leaf->{name}} = $leaf->{shellVariable};
- $ENV{$variable{$leaf->{name}}} = $leaf->{defaultValue};
- $disabled{$leaf->{name}} = sub { callback_summary($leaf->{name})};
- },
- Freetext => $common_freetext_chooser = sub {
- my $main_order = ($tag eq 'Chooser') ? 'combo'
- : ($tag eq 'Boolean') ? 'bool'
- : ($leaf->{editable} eq 'true') ? 'entry'
- : 'hidden';
- push @{$summary->{freetext}},
- {%$leaf, main_order => $main_order,
- help => xml_text($leaf->{help})} if $main_order ne 'hidden';
- },
- Chooser => \&$common_freetext_chooser,
- Boolean => \&$common_freetext_chooser,
- Option => sub {
- push @{${$summary->{freetext}}[-1]->{Option}}, $leaf->{description};
- $chooser_hash{$leaf->{description}} = $leaf->{value};
- $description{$leaf->{value}} = $leaf->{description};
- $disabled{$leaf->{description}} = sub {callback_summary($leaf->{description})};
- });
- $actions{$tag} and &{$actions{$tag}};
- } elsif ($leaf=~ /\w\D/){
- $tag = $leaf;
- }
- }
- $page;
}