Output when we last synced.

[wloh] / www / rating.pl
diff --git a/www/rating.pl b/www/rating.pl

index 8c6026280a3de02ebfd0d8e02ed3d6e9f11f6f02..89c75b96e2ee89a6e64f862fd61bc8757ce5c096 100755 (executable)
--- a/www/rating.pl
+++ b/www/rating.pl
@@ -11,6 +11,7 @@ use HTML::Entities;
  use utf8;
  use locale;
  require '../config.pm';
+require '../common.pm';
  
  my $dbh = DBI->connect($config::local_connstr, $config::local_username, $config::local_password)
         or die "connect: " . $DBI::errstr;
@@ -32,7 +33,11 @@ print CGI->header(-type=>'text/html; charset=utf-8', -expires=>'+5m');
  POSIX::setlocale(&POSIX::LC_ALL, 'nb_NO.UTF-8');
  
  printf <<"EOF", $params{-3}, $match_stddev;
-<html>
+<?xml version="1.0" encoding="UTF-8" ?>
+<!DOCTYPE
+  html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
+  "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="no">
    <head>
      <title>WLoH-rating</title>
      <link rel="stylesheet" href="/style" type="text/css" />
@@ -132,9 +137,11 @@ while (my $ref = $q->fetchrow_hashref) {
         printf "      <td><a href=\"http://wordfeud.aasmul.net/serie-%d\">%s</a></td>\n", $ref->{'serie_id'}, $ref->{'serie_navn'};
         print "    </tr>\n";
  }
+print "    </table>\n";
+
+wloh_common::output_last_sync($dbh);
  
  print <<"EOF";
-    </table>
    </body>
  </html>
  EOF