##! /s/std/bin/perl

use POSIX qw(mktime);

# First date to print
my($year, $month, $day) = (2007,  12, 03);

my $start = mktime(0, 0, 12, $day, $month - 1, $year - 1900);
my $week_in_seconds = 60 * 60 * 24 * 7;

# Last date to print
my $end = $start + $week_in_seconds * 52;

my @MONTH_NAMES =  qw( invalid
	January February March April May June
	July August September October November December
);

my $last_month = 0;
for( ; $start < $end; $start += $week_in_seconds) {
	my($sec,$min,$hour,$mday,$mon,$year) = localtime($start);
	$year += 1900;
	$mon += 1;
	if($mon != $last_month) {
		printf "\n# %s %04d\n", $MONTH_NAMES[$mon], $year;
		$last_month = $mon;
	}
	printf "%04d-%02d-%02d:UNASSIGNED\n", $year, $mon, $mday;
}

