RecentChangesに月毎の見出しを表示します。
%page_commandへの追加
my %page_command = ( $IndexPage => 'index', $SearchPage => 'searchform', $CreatePage => 'create', $RssPage => 'rss', $AdminChangePassword => 'adminchangepasswordform', $FrontPage => 'FrontPage', $RecentChanges => 'recent', # yakty add [modify recentpage] );
%command_doへの追加
my %command_do = ( read => \&do_read, edit => \&do_edit, adminedit => \&do_adminedit, adminchangepasswordform => \&do_adminchangepasswordform, adminchangepassword => \&do_adminchangepassword, write => \&do_write, index => \&do_index, searchform => \&do_searchform, search => \&do_search, create => \&do_create, createresult => \&do_createresult, FrontPage => \&do_FrontPage, comment => \&do_comment, rss => \&do_rss, diff => \&do_diff, interwikibox => \&do_interwiki_box, # Walrus add [InterWikiBox] recent => \&do_recent, # yakty add [modify recentpage] );
do_recent()追加
# yakty add [modify recentpage] start sub do_recent { &print_header($RecentChanges); my $content = $database{$RecentChanges}; my %check; $content =~ s/^- (\d\d\d\d-\d\d)/($check{$1}++ ? $& : qq(*$1\n$&))/gme; &print_content($content); &print_footer($RecentChanges); } # yakty add [modify recentpage] end