diff options
| -rwxr-xr-x | perl-install/share/po/help_xml2pm.pl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/perl-install/share/po/help_xml2pm.pl b/perl-install/share/po/help_xml2pm.pl index 7318f4a7b..e9aefa5c6 100755 --- a/perl-install/share/po/help_xml2pm.pl +++ b/perl-install/share/po/help_xml2pm.pl @@ -5,12 +5,19 @@ use MDK::Common; my $help; my $dir = "doc/manual/literal/drakx"; +my $xsltproc = "/usr/bin/xsltproc"; + +if ( ! -x "$xsltproc" ){ + print "You need to have \"$xsltproc\" - "; + print "so type \"urpmi libxslt-proc\" please.\n"; + exit 1; +} my @langs = grep { /^..$/ && -e "$dir/$_/drakx-help.xml" } all($dir) or die "no XML help found in $dir\n"; my %helps = map { my $lang = $_; my $p = new XML::Parser(Style => 'Tree'); - open F, "xsltproc id.xsl $dir/$lang/drakx-help.xml|"; + open F, "$xsltproc id.xsl $dir/$lang/drakx-help.xml|"; my $tree = $p->parse(*F); $lang => rewrite2(rewrite1(@$tree), $lang); |