diff options
| author | Stefan Siegel <siegel@linux-mandrake.com> | 2002-02-17 22:25:23 +0000 |
|---|---|---|
| committer | Stefan Siegel <siegel@linux-mandrake.com> | 2002-02-17 22:25:23 +0000 |
| commit | b7cd9f3446c4b50c998de4d65b8dac98ae3257b9 (patch) | |
| tree | 886959c99ec3e6088bf05ca6693bbc85fcabb321 /perl-install/share/po | |
| parent | 5eb8944f5d405ebd580700b834975e21ce290d70 (diff) | |
| download | drakx-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-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); |