# use XML::XPath;
# use XML::XPath::XMLParser;
my $ut = time;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime($ut);
my $ROOT = '/var/www/webcie/xml';
my @lang = qw/en es fr/;
sub hasmenu {
my $path = shift;
my $fn = '';
foreach my $lang (@lang) {
$fn = "$path/menu.xml.$lang";
return $fn if -r $fn;
}
$fn = "$path/menu.xml";
return $fn if -r $fn;
return 0;
}
WebCIE: site map
turbo@cie.unam.mx
) {
chomp;
next if m/CVS$/;
next unless my $fn=hasmenu($_);
s:/var/www/webcie::;
my $my_uri = "$_/";
my $tail = '';
{
my @foo = split '/', $my_uri; # Is there a better way to count slashes?
$indent = $#foo;
$tail = $foo[$indent];
};
# HACK! HACK! HACK! HACK! HACK!
# Direct Manipulation of the AxKit/XPath Node Set!
for (;$lastindent < $indent; ++$lastindent)
{ my $elem = XML::XPath::Node::Element->new(q(ul)); $parent->appendChild($elem); $parent=$elem; };
for (;$lastindent > $indent; --$lastindent)
{ $parent=$parent->getParentNode; };
# END OF HACK
my $text = "Missing menu file!";
if ($fn) {
my $xp = XML::XPath->new(filename => $fn);
$text = $xp->find('/menu/item/text()');
$text = $my_uri unless $text;
}
]]>
-
$my_uri
$text