#!/usr/bin/perl -w use POSIX; use CGI(); use XML::Twig; my $twig = new XML::Twig(keep_encoding => 1); $twig->parsefile('library.xml'); my @entries; foreach my $entry ($twig->root->children('entry')) { my $e; $e->{'id'} = $entry->{'att'}->{'id'}; $e->{'title'} = $entry->first_child('title')->xml_string; $e->{'fulltitle'} = $entry->first_child('fulltitle')->xml_string; $e->{'abstract'} = $entry->first_child('abstract')->xml_string; $e->{'pdf'} = $entry->first_child('pdf')->text; if ($entry->first_child('www')) { $e->{'www'} = $entry->first_child('www')->text; } my @authors; foreach my $a ($entry->first_child('authors')->children('author')) { push @authors, $a->text; } $e->{'authors'} = \@authors; push @entries,$e; } $contentHTML = '

Library

'; foreach my $e (@entries) { $contentHTML .= entry2html($e); } my $sidebarHTML = 'Blog'; print <<"EOF"; Content-type: text/html; charset=ISO-8859-1 Library
$sidebarHTML
$contentHTML
EOF sub entry2html { my $e = shift; my $id = $e->{'id'}; my $pdf = $e->{'pdf'}; my $www = $e->{'www'}; my $html = '
'; $html .= "".$e->{'title'}."
"; $html .= ''; foreach my $a (@{$e->{'authors'}}) { $html .= $a . ", "; } $html =~ s/, $//; $html .= ''; $html .= '
'; if ($e->{'keywords'}) { $html .= "Keywords: "; foreach my $a (@{$e->{'keywords'}}) { $html .= $a . ", "; } $html .= '
'; } $html .= qq| |; $html .= qq| | if $pdf; $html .= qq| | if $www; $html .= qq|'; $html .= '
'; return $html; }