diff options
author | Norbert Preining <preining@logic.at> | 2007-10-18 05:17:15 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-10-18 05:17:15 +0000 |
commit | fa80b1bc352f0e2c84257074f7e7f0317b4199ef (patch) | |
tree | be973c950bb9e3a9e5b347d59a612736c775a214 /Master | |
parent | 127889537b710d6ea2a4f2ab65584e61c1a444d6 (diff) |
delete temp file
git-svn-id: svn://tug.org/texlive/trunk@5223 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/TeXLive/new-texcatalogue-parsing.pl | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/Master/tlpkg/TeXLive/new-texcatalogue-parsing.pl b/Master/tlpkg/TeXLive/new-texcatalogue-parsing.pl deleted file mode 100644 index c5418cf8f5d..00000000000 --- a/Master/tlpkg/TeXLive/new-texcatalogue-parsing.pl +++ /dev/null @@ -1,41 +0,0 @@ -#!/usr/bin/perl -w - -use XML::XPath; -use XML::XPath::XMLParser; - -my $parser = new XML::XPath->new(filename => 'achemso.xml') || - die "Failed to parse achemso.xml"; - -my $name = $parser->findvalue("/entry/name"); -my $caption = $parser->findvalue("/entry/caption"); -my $version = $parser->findvalue('/entry/version/@number'); -my $license = $parser->findvalue('/entry/license/@type'); -my $description = $parser->findvalue("/entry/description"); -my $ctan = $parser->findvalue('/entry/ctan/@path'); -my $texlive = $parser->findvalue('/entry/texlive/@location'); -my $miktex = $parser->findvalue('/entry/miktex/@location'); - -my $docset = $parser->find('/entry/documentation'); -my @docs; -foreach my $node ($docset->get_nodelist) { - $det = $parser->find('./@details',$node); - $href = $parser->find('./@href',$node); - push @docs, [ $det, $href ]; -} -print "MISSING DOCUMENTATION STUFF!!\n"; - -print "name=$name\n"; -print "caption=$caption\n"; -print "version=$version\n"; -print "license=$license\n"; -print "description=$description\n"; -print "ctan=$ctan\n"; -print "texlive=$texlive\n"; -print "miktex=$miktex\n"; - -foreach $d (@docs) { - my @a = @$d; - print "doc href = ", $a[1], "\n"; - print "doc deta = ", $a[0], "\n"; -} - |