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

Takaisin

\n\n";