switch to perl only

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;
 }