summaryrefslogtreecommitdiffstats
path: root/perl-install/share/po
diff options
context:
space:
mode:
authorStefan Siegel <siegel@linux-mandrake.com>2002-02-17 22:25:23 +0000
committerStefan Siegel <siegel@linux-mandrake.com>2002-02-17 22:25:23 +0000
commitb7cd9f3446c4b50c998de4d65b8dac98ae3257b9 (patch)
tree886959c99ec3e6088bf05ca6693bbc85fcabb321 /perl-install/share/po
parent5eb8944f5d405ebd580700b834975e21ce290d70 (diff)
downloaddrakx-b7cd9f3446c4b50c998de4d65b8dac98ae3257b9.tar
drakx-b7cd9f3446c4b50c998de4d65b8dac98ae3257b9.tar.gz
drakx-b7cd9f3446c4b50c998de4d65b8dac98ae3257b9.tar.bz2
drakx-b7cd9f3446c4b50c998de4d65b8dac98ae3257b9.tar.xz
drakx-b7cd9f3446c4b50c998de4d65b8dac98ae3257b9.zip
added check for missing xsltproc
Diffstat (limited to 'perl-install/share/po')
-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);