summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xperl-install/share/po/help_xml2pm.pl9
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);