diff options
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; } |