generating schedule logs works now

1 files changed, 17 insertions, 3 deletions

diff --git a/utils/rhrd-schedules b/utils/rhrd-schedules
index 1021b76..f6d60ae 100755
--- a/utils/rhrd-schedules
+++ b/utils/rhrd-schedules
@@ -24,7 +24,6 @@ use strict;
 
 # TODO: remove me!!!
 use lib "../lib/";
-use Data::Dumper::Simple;
 
 use RHRD::rddb;
 use RHRD::utils;
@@ -48,22 +47,37 @@ sub generate
     return 1;
   }
 
+  my @shows = ();
   for my $entry (@{$data}) {
     my $start = DateTime::Format::Strptime::strptime("%Y-%m-%d_%H:%M:%S", ${$entry}{'start'});
     my $title = ${$entry}{'title'};
     my $pvid = ${$entry}{'id'};
     my $showid = ${$entry}{'automation-id'};
+    next if $pvid == 1; # 'Unmoderiertes Musikprogramm'
+
     if($start->year != $year || $start->month != $month || $start->day != $day) {
       print "WARNING: skipping entry whith invalid start -> $start: $title ($pvid)\n";
       next;
     }
+    if($showid < 0) {
+      print "WARNING: skipping entry whith invalid/unset automation id -> $start: $title ($pvid)\n";
+      next;
+    }
+
     # Rivendell has problems with events starting at midnight
     if($start->hour == 0 && $start->minute == 0 && $start->second == 0) {
       $start->set_second(1);
     }
-    print "$start: $showid\n";
+    my $show = {};
+    $show->{'ID'} = $showid;
+    $show->{'START_TIME'} = ($start->hour * 3600) + ($start->minute * 60) + $start->second;
+    push @shows, $show;
+  }
+  my ($result, $status, $errorstring) = RHRD::rddb::create_schedule_log($ctx, $year, $month, $day, @shows);
+  unless(defined $result) {
+    print "$status: $errorstring\n";
+    return 1;
   }
-  # TODO: create day log in rddb
   return 0;
 }