|
|
@@ -13,10 +13,10 @@ print '<?xml version="1.0" encoding="iso-8859-1"?>
|
|
13
|
13
|
<body>';
|
|
14
|
14
|
|
|
15
|
15
|
my $min_refresh_secs = 60*5;
|
|
16
|
|
-my @st = stat("/var/www/rna/1.html");
|
|
|
16
|
+my @st = stat("/var/www/pna/1.html");
|
|
17
|
17
|
if ($st[9] > time-$min_refresh_secs) {
|
|
18
|
18
|
print "<p>Ruokalistaa on jo päivitetty alle 5min sitten.</p>";
|
|
19
|
|
-} elsif (system("cd /var/www/rna && ./food.pl") == 0) {
|
|
|
19
|
+} elsif (system("cd /var/www/pna && ./food.py") == 0) {
|
|
20
|
20
|
print "<p>Ruokalista päivitetty.</p>";
|
|
21
|
21
|
} else {
|
|
22
|
22
|
print "<p>Virhe päivittäessä ruokalistaa.</p>";
|
