diff options
| author | Arnaud Desmons <adesmons@mandriva.com> | 2002-08-21 15:45:15 +0000 |
|---|---|---|
| committer | Arnaud Desmons <adesmons@mandriva.com> | 2002-08-21 15:45:15 +0000 |
| commit | e00efc0daf09e2c3078da363d9e25ee358c4357a (patch) | |
| tree | cc029094478a5167e546f91b128d95ad6cfa2511 /drakwizard.pl | |
| parent | e748dceb1898f65ddcce9e8f16ccf16b689fabad (diff) | |
| download | drakwizard-e00efc0daf09e2c3078da363d9e25ee358c4357a.tar drakwizard-e00efc0daf09e2c3078da363d9e25ee358c4357a.tar.gz drakwizard-e00efc0daf09e2c3078da363d9e25ee358c4357a.tar.bz2 drakwizard-e00efc0daf09e2c3078da363d9e25ee358c4357a.tar.xz drakwizard-e00efc0daf09e2c3078da363d9e25ee358c4357a.zip | |
fillfunc added
Diffstat (limited to 'drakwizard.pl')
| -rwxr-xr-x | drakwizard.pl | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/drakwizard.pl b/drakwizard.pl index 3fb49513..330c1904 100755 --- a/drakwizard.pl +++ b/drakwizard.pl @@ -67,7 +67,7 @@ my $o = []; $xmltree = XML::Parser->new(Style => 'Tree')->parsefile($ARGV[0]); get_parameter($o, $xmltree); -eval {navigation($o, $o->[0])}; +navigation($o, $o->[0]); $in->exit; @@ -143,6 +143,7 @@ sub get_parameter { : ($tag eq 'Boolean') ? 'bool' : ($leaf->{editable} eq 'true') ? 'entry' : 'field')}; + $leaf->{fillScript} =~ s/\\q/\"/g; }, Chooser => \&$common_freetext_chooser, Boolean => \&$common_freetext_chooser, @@ -201,6 +202,14 @@ sub display { @liste = @{$_->{Option}}; } } + if ($_->{main_order} eq 'entry' and $_->{fillScript}) { + $ENV{$variable{$_->{variableName}}} = `$_->{fillScript}`; + chomp($ENV{$variable{$_->{variableName}}}); + } + elsif (!$ENV{$variable{$_->{variableName}}} && $_->{main_order} eq 'entry' && $_->{fillfunc}) { + $ENV{$variable{$_->{variableName}}} = $::{$perl_module_name."::"}{"$_->{fillfunc}"}->(); + chomp($ENV{$variable{$_->{variableName}}}); + } ($_->{main_order} eq 'entry') ? { label => translate($_->{helpText}), val => \$ENV{$variable{$_->{variableName}}}, type => $_->{main_order} } : ($_->{main_order} eq 'bool') ? { val => \$ENV{$variable{$_->{variableName}}}, type => $_->{main_order}, |