#!/usr/bin/perl -w
use POSIX;
use CGI();
(undef,undef,undef,$todaymday,$todaymonth,$todayyear,undef,undef,undef) = localtime(time);
$todayyear += 1900;
$todaymonth++;
my $year = CGI::param('year') || $todayyear;
my $month = CGI::param('mon') || $todaymonth;
my $calHTML = makeCal($month,$year);
opendir(DIR,'entries');
my @entries = grep { !/^\./ } readdir(DIR);
closedir(DIR);
my $HTML;
my $i = 0;
foreach my $entry (sort {$b cmp $a} @entries) {
last if ++$i > 10;
my $date = $entry;
$date =~ s/\.html//;
my $entryHTML = getEntry($entry);
$HTML .= qq|| $date |
|
|;
$HTML .= qq|| $entryHTML |
|;
$HTML .= qq|| | |
|;
}
print <<"EOF";
Content-type: text/html
Blog
EOF
sub getEntry {
my $f = shift;
open FILE,"entries/$f";
my $data;
foreach () {
s///;
s/<\/h>/<\/span class="title">/;
s/---/—/g;
$data .= $_;
}
close FILE;
return $data;
}
sub makeCal {
my ($mon,$year) = @_;
my @months = qw( x Jan Feb Mar Apr Maj Jun Jul Aug Sep Okt Nov Dec);
my $month = $months[$mon];
my $html = '';
$html .= qq|| $month $year |
|;
$html .= qq|| Man | Tirs | Ons | Tors | Fre | Lør | Søn |
|---|
|;
$html .= qq| |
|;
my $time = POSIX::mktime(0, 0, 12, 1, $mon-1, $year-1900, 0, 0, 0);
$html .= '';
my ($sec,$min,$hour,$mday,$m,$y,$wday,$yday,$isdst) = localtime($time);
$html .= ' | 'x(($wday-1)%7);
while ($m < $mon) {
my $style='';
if ($mon == $todaymonth && $mday == $todaymday && $year == $todayyear) {
$style = 'style="background-color: #c0c0c0"';
}
if (dateHasEntry($year,$mon,$mday)) {
$mday = qq|$mday|;
}
$html .= "$mday | ";
$html .= '
' if ($wday-1)%7 == 6;
$time += 24*3600;
($sec,$min,$hour,$mday,$m,$y,$wday,$yday,$isdst) = localtime($time);
}
$html .= '
';
$html .= qq| |
|;
$html .= '
';
return $html;
}
sub dateHasEntry {
my ($year,$mon,$mday) = @_;
$mon = "0$mon" if $mon < 10;
$mday = "0$mday" if $mday < 10;
return -e "entries/$year-$mon-$mday.html";
}