diff options
author | Christian Pointner <equinox@spreadspace.org> | 2016-04-14 16:50:52 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@spreadspace.org> | 2016-04-14 16:50:52 (GMT) |
commit | 33c2c787f28bff04b22ea1f35386929d4db0651d (patch) | |
tree | e690f34622590d5c7cdc40e57b5e18a111b4efc2 /utils | |
parent | 94e4a04528f0c9204fb0affc7d91ed568b4b90a7 (diff) |
adapted schedule generator to changed PV export format
Diffstat (limited to 'utils')
-rwxr-xr-x | utils/rhrd-schedules | 11 |
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; } |