#!/usr/bin/env perl
use strict;
print "Content-Type: text/html; charset=iso-8859-1\n\n";
print '
Ruokalistat
';
my $min_refresh_secs = 60*5;
my @st = stat("/var/www/rna/1.html");
if ($st[9] > time-$min_refresh_secs) {
print "Ruokalistaa on jo päivitetty alle 5min sitten.
";
} elsif (system("cd /var/www/rna && ./food.pl") == 0) {
print "Ruokalista päivitetty.
";
} else {
print "Virhe päivittäessä ruokalistaa.
";
}
print "\nTakaisin
\n\n";