PNA.fi koodi

food.cgi 768B

1234567891011121314151617181920212223242526
  1. #!/usr/bin/env perl
  2. use strict;
  3. print "Content-Type: text/html; charset=iso-8859-1\n\n";
  4. print '<?xml version="1.0" encoding="iso-8859-1"?>
  5. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
  6. <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="fi" lang="fi">
  7. <head>
  8. <title>Ruokalistat</title>
  9. </head>
  10. <body>';
  11. my $min_refresh_secs = 60*5;
  12. my @st = stat("/var/www/rna/1.html");
  13. if ($st[9] > time-$min_refresh_secs) {
  14. print "<p>Ruokalistaa on jo päivitetty alle 5min sitten.</p>";
  15. } elsif (system("cd /var/www/rna && ./food.pl") == 0) {
  16. print "<p>Ruokalista päivitetty.</p>";
  17. } else {
  18. print "<p>Virhe päivittäessä ruokalistaa.</p>";
  19. }
  20. print "\n<p><a href=\"/\">Takaisin</a></p>\n</body></html>\n";