git.sesse.net Git - wloh/blob - common.pm

   1 use strict;
   2 use warnings;
   3 use POSIX;
   4
   5 package wloh_common;
   6
   7 sub get_max_season {
   8         my $dbh = shift;
   9         my $ref = $dbh->selectrow_hashref('SELECT MAX(sesong) AS max_sesong FROM fotballserier');
  10         return $ref->{'max_sesong'};
  11 }
  12
  13 sub output_last_sync {
  14         my $dbh = shift;
  15         my $ref = $dbh->selectrow_hashref('SELECT EXTRACT(EPOCH FROM last_sync) AS last_sync FROM last_sync');
  16         if (!defined($ref)) {
  17                 print "    <p class=\"lastsync\">Databasen ble sist synkronisert (ukjent).</p>\n";
  18         } else {
  19                 my $ts = POSIX::strftime("%Y-%m-%d %H:%M %Z", localtime($ref->{'last_sync'}));
  20                 print "    <p class=\"lastsync\">Databasen ble sist synkronisert $ts.</p>\n";
  21         }
  22 }
  23
  24 1;