#!/usr/bin/env perl
use strict;
print "Content-Type: text/html; charset=iso-8859-1\n\n";
print '<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="fi" lang="fi">
<head>
<title>Ruokalistat</title>
</head>
<body>';
my $min_refresh_secs = 60*5;
my @st = stat("/var/www/pna/1.html");
if ($st[9] > time-$min_refresh_secs) {
print "<p>Ruokalistaa on jo p�ivitetty alle 5min sitten.</p>";
} elsif (system("cd /var/www/pna && ./food.py") == 0) {
print "<p>Ruokalista p�ivitetty.</p>";
} else {
print "<p>Virhe p�ivitt�ess� ruokalistaa.</p>";
}
print "\n<p><a href=\"/\">Takaisin</a></p>\n</body></html>\n";