From b7cd9f3446c4b50c998de4d65b8dac98ae3257b9 Mon Sep 17 00:00:00 2001 From: Stefan Siegel Date: Sun, 17 Feb 2002 22:25:23 +0000 Subject: added check for missing xsltproc --- perl-install/share/po/help_xml2pm.pl | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'perl-install/share') 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); -- cgit v1.2.1