summaryrefslogtreecommitdiff
path: root/utils/rhrd-schedules
diff options
context:
space:
mode:
authorChristian Pointner <equinox@spreadspace.org>2016-04-14 16:50:52 (GMT)
committerChristian Pointner <equinox@spreadspace.org>2016-04-14 16:50:52 (GMT)
commit33c2c787f28bff04b22ea1f35386929d4db0651d (patch)
treee690f34622590d5c7cdc40e57b5e18a111b4efc2 /utils/rhrd-schedules
parent94e4a04528f0c9204fb0affc7d91ed568b4b90a7 (diff)
adapted schedule generator to changed PV export format
Diffstat (limited to 'utils/rhrd-schedules')
-rwxr-xr-xutils/rhrd-schedules11
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;
}