#! /usr/bin/perl use strict; use XML::DOM; use dutil; &main(@ARGV); sub main { my $in_file = shift; my $parser = new XML::DOM::Parser; &parse_one_month($parser, $in_file); } sub parse_one_month { my ($parser, $file) = @_; my $doc = $parser->parsefile ($file); my $root = $doc->getDocumentElement(); my $year = $root->getAttribute("year"); my $month = $root->getAttribute("month"); my $nav_anchor = ''; $nav_anchor .= &create_navbar($year, $month-1, "前月"); $nav_anchor .= &create_navbar($year, $month+1, "翌月"); my $title = sprintf "日誌 - %04d/%02d", $year, $month; &print_header($title, $nav_anchor); printf "

%s

\n", $title; foreach my $day (sort bymday $root->getElementsByTagName("day")) { my $mday = $day->getAttribute("mday"); if ($day->getAttribute("from") > 0) { printf("%d/%d - %d\n", &getclass($year, $month, $mday, $day->getAttribute("class")), $mday, $month, $day->getAttribute("from"), $day->getAttribute("to")); } else { printf("%d/%d\n", &getclass($year, $month, $mday, $day->getAttribute("class")), $mday, $month, $mday); } print " \n"; } &print_footer($nav_anchor); } sub print_header { my ($title, $nav_anchor) = @_; print <<"HEAD"; $title

[現在][過去]${nav_anchor}

HEAD } sub print_footer { my $nav_anchor = shift; print <<"FOOT";

[現在][過去]${nav_anchor}

FOOT } sub create_navbar { my ($year, $month, $val) = @_; if ($month < 1) { $year--; $month = 12; } elsif ($month > 12) { $year++; $month = 1; } my $file = sprintf "%04d%02d", $year, $month; return (-e "${file}.xml") ? "[$val]" : ''; } sub bymday { return $a->getAttribute("mday") <=> $b->getAttribute("mday"); } # end of script # Local Variables: # mode:perl-mode # coding:utf-8 # End: