Show debug info with second resolution.

1 files changed, 10 insertions, 4 deletions

diff --git a/frikanalen/bin/scheduler b/frikanalen/bin/scheduler
index a534b22..76df1ad 100755
--- a/frikanalen/bin/scheduler
+++ b/frikanalen/bin/scheduler
@@ -144,8 +144,13 @@ exit 0;
 
 sub short_time {
     my $timestring = shift;
+    my $showseconds = shift;
     my $timestamp = str2time($timestring);
-    return strftime("%H:%M", localtime($timestamp));
+    if ($showseconds) {
+        return strftime("%H:%M:%S", localtime($timestamp));
+    } else {
+        return strftime("%H:%M", localtime($timestamp));
+    }
 }
 
 sub schedule_video {
@@ -165,9 +170,10 @@ sub schedule_video {
                      my $ogvurl  = $eventref->{'ogvurl'};
                      my $vlc = $event->w->data()->{vlc};
 
-                     my $startstring = short_time($eventref->{'start'});
-                     my $stopstring = short_time($eventref->{'stop'});
-                     print "Playing '$title' $startstring-$stopstring\n";
+                     my $startstring = short_time($eventref->{'start'}, 1);
+                     my $stopstring = short_time($eventref->{'stop'}, 1);
+                     my $nowstring = strftime("%H:%M:%S", localtime(time()));
+                     print "Playing '$title' $startstring-$stopstring (now $nowstring)\n";
 
                      vlc_play($vlc, $ogvurl);