#!/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";