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";
|