lamperi
/
pna


			
				
					
						
						
							1234567891011121314151617181920212223242526
							#!/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/rna/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/rna && ./food.pl") == 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";