use strict;
use Date::Calc ();
use Book::Calendar ();
my $r = shift;
my %args = $r->args;
# extract the date or set it to be today
my($year, $month, $day) =
($args{date} and $args{date} =~ /(\d{4})(\d\d)(\d\d)/)
? ($1, $2, $3)
: Date::Calc::Today();
my $do = $args{do} || 'forums';
my $forum = $args{forum} || 'mod_perl';
my $mode = $args{mode} || 'index';
$r->send_http_header("text/html");
my $date_str = Date::Calc::Date_to_Text($year, $month, $day);
my $title = "$date_str :: $do :: $forum :: $mode";
print qq{
$title
$title
};