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 output_last_sync {
   8         my $dbh = shift;
   9         my $ref = $dbh->selectrow_hashref('SELECT EXTRACT(EPOCH FROM last_sync) AS last_sync FROM last_sync');
  10         if (!defined($ref)) {
  11                 print "    <p class=\"lastsync\">Databasen ble sist synkronisert (ukjent).</p>\n";
  12         } else {
  13                 my $ts = POSIX::strftime("%Y-%m-%d %H:%M %Z", localtime($ref->{'last_sync'}));
  14                 print "    <p class=\"lastsync\">Databasen ble sist synkronisert $ts.</p>\n";
  15         }
  16 }
  17
  18 1;