adapted schedule generator to changed PV export format

1 files changed, 8 insertions, 3 deletions

diff --git a/utils/rhrd-schedules b/utils/rhrd-schedules
index 76d4946..b82bbee 100755
--- a/utils/rhrd-schedules
+++ b/utils/rhrd-schedules
@@ -23,14 +23,13 @@
 use strict;
 
 # TODO: remove me!!!
-use Data::Dumper::Simple;
 use lib "../lib/";
 
-
 use RHRD::rddb;
 use RHRD::utils;
 use String::MkPasswd qw(mkpasswd);
 
+binmode(STDOUT, ":utf8");
 
 sub print_usage
 {
@@ -47,7 +46,13 @@ sub generate
     return 1;
   }
 
-  print Dumper($data);
+  for my $entry (@{$data}) {
+    my $start = ${$entry}{'start'};
+    my $title = ${$entry}{'title'};
+    my $showid = ${$entry}{'id'};
+
+    print "$start: ($showid) $title\n";
+  }
 
   return 0;
 }