New script to list NUUGs future programs on Frikanalen.

2 files changed, 43 insertions, 1 deletions

diff --git a/frikanalen/bin/lsorgschedule b/frikanalen/bin/lsorgschedule
new file mode 100755
index 0000000..7d80b23
--- /dev/null
+++ b/frikanalen/bin/lsorgschedule
@@ -0,0 +1,41 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+use Frikanalen;
+use XML::Simple;
+use POSIX;
+use Date::Parse;
+use Data::Dumper;
+
+my $debug = 0;
+
+my $org = 'NUUG';
+
+my $listref = Frikanalen::getEpgUrls();
+for my $url (@{$listref}) {
+    print "Loading '$url'\n" if $debug;
+    my $ua = new LWP::UserAgent;
+    my $req = new HTTP::Request GET => $url;
+    my $res = $ua->request($req);
+    my $epgref = XMLin($res->content);
+    my $lastday = "";
+    for my $event (@{$epgref->{event}}) {
+        if (exists $event->{organisation}
+            && $org eq $event->{organisation}) {
+            print Dumper($event) if $debug;
+
+            my $title = $event->{title};
+            my $start = $event->{start};
+            my $starttime = str2time($start);
+            my $startstring = strftime("%H:%M", localtime($starttime));
+            my $daystring = strftime("%Y-%m-%d", localtime($starttime));
+            if ($lastday ne $daystring) {
+                print "$daystring\n";
+                $lastday = $daystring;
+            }
+            print "  $startstring $title\n";
+        }
+    }
+}
diff --git a/frikanalen/bin/scheduler b/frikanalen/bin/scheduler
index 5d6113a..37dce01 100755
--- a/frikanalen/bin/scheduler
+++ b/frikanalen/bin/scheduler
@@ -46,6 +46,7 @@ use GD;
 use POSIX;
 use Event;
 use File::Temp;
+use Frikanalen;
 
 # SOAP:Lite må modifiseres til å gjøre ting på MS måten :-/
 use SOAP::Lite on_action => sub {sprintf '%s/%s', @_}, ;
@@ -178,7 +179,7 @@ sub tidy {
 
 my @events = ();
 
-my $listref = get_epglist();
+my $listref = Frikanalen::getEpgUrls();
 for my $url (@{$listref}) {
 #    print "Loading '$url'\n";
   my $ua = new LWP::UserAgent;