diff options
| -rwxr-xr-x | utils/rhrd-schedules | 73 |
1 files changed, 70 insertions, 3 deletions
diff --git a/utils/rhrd-schedules b/utils/rhrd-schedules index 4f07db5..fbd8227 100755 --- a/utils/rhrd-schedules +++ b/utils/rhrd-schedules @@ -22,8 +22,6 @@ use strict; -use lib '../lib'; - use RHRD::rddb; use RHRD::utils; use DateTime; @@ -33,7 +31,8 @@ use DateTime::Format::Strptime; sub print_usage { print STDERR "Usage: rhrd-schedules generate YYYY-MM-DD\n" . - " rhrd-schedules show (W1|W2|W3|W4|ALL) (MO|TU|WE|TH|FR|SA|SU|ALL)\n"; + " rhrd-schedules show (W1|W2|W3|W4|ALL) (MO|TU|WE|TH|FR|SA|SU|ALL)\n" . + " rhrd-schedules orphans\n"; } sub generate @@ -250,6 +249,67 @@ sub show return 0; } + +sub orphans +{ + my ($ctx) = @_; + + my @dates = gen_dates("ALL", "ALL"); + unless(@dates) { + return -1; + } + + my @showids = RHRD::rddb::list_showids($ctx); + if(!defined $showids[0] && defined $showids[1]) { + print STDERR "$showids[1]: $showids[2]"; + return -1; + } + + my %shows; + for my $showid (@showids) { + $shows{$showid} = 0; + } + + for my $date (@dates) { + my ($year, $month, $day) = @{$date}; + my ($ret, $data) = RHRD::utils::fetch_parse_json("https://pv.helsinki.at/export/day_schedule/$year/$month/$day/", "rhrd-schedules"); + if(!$ret) { + print STDERR "Error fetching export from PV: $data\n"; + return 1; + } + + for my $entry (@{$data}) { + my $start = DateTime::Format::Strptime::strptime("%Y-%m-%d_%H:%M:%S", ${$entry}{'start'}); + my $pvid = ${$entry}{'id'}; + my $showid = ${$entry}{'automation-id'}; + + next if $pvid == 1; # 'Unmoderiertes Musikprogramm' + # maybe only the end is on this day - we don't need this to include in the log since only + # start times matter here. + next if ($start->year != $year || $start->month != $month || $start->day != $day); + + if($showid < 0) { + next; + } + $shows{$showid}++; + } + } + + for my $showid (sort keys %shows) { + if($shows{$showid} == 0) { + + my ($show, $status, $errorstring) = RHRD::rddb::get_show_info($ctx, $showid); + if(!defined $show) { + print "$status: $errorstring\n"; + } else { + print "$showid: " . ${$show}{'TITLE'} . "\n"; + } + } + } + + return 0; +} + my $num_args = $#ARGV + 1; if($num_args < 1) { print_usage(); @@ -274,6 +334,13 @@ if(defined $ctx) { } else { $ret = show($ctx, $ARGV[1], $ARGV[2]); } + } elsif($cmd eq "orphans") { + if($num_args != 1) { + print_usage(); + $ret = 1; + } else { + $ret = orphans($ctx); + } } else { print_usage(); $ret = 1; |