#!/usr/bin/perl
#
use strict;
use warnings;
use Time::Piece;
use Time::Seconds;
if ($#ARGV != 0) {
print "usage: imgtemplate daynumber\n";
exit;
}
my $day = $ARGV[0];
my $imgnumber = 97 + 24*$day;
my $timeval = -24 + 24*$day;
my $i=0;
my $datetime = Time::Piece->strptime("2013-03-24", "%Y-%m-%d");
$datetime += ONE_DAY*$day;
print "====Day $day, ", $datetime->fullday, ", ", $datetime->fullmonth, " ", $datetime->mday, ", ", $datetime->year, "====\n";
print "{| class=\"wikitable plainlinks table-padding mw-collapsible mw-collapsed\"\n";
print "|-\n";
print "!Image\n";
print "!Time\n";
print "!Original image hash\n";
print "|-\n";
for ($i=0; $i<=23; $i++)
{
if($i < 10)
{
print "|[[Media:time", $imgnumber, ".png|", $timeval, ":00]]||", $day, "/0", $i, ":00||\n";
}
else
{
print "|[[Media:time", $imgnumber, ".png|", $timeval, ":00]]||", $day, "/", $i, ":00||\n";
}
print "|-\n";
$imgnumber++;
$timeval++;
}
print "|}\n";