summaryrefslogtreecommitdiff
path: root/utils/rhrd-schedules
diff options
context:
space:
mode:
authorChristian Pointner <equinox@spreadspace.org>2016-04-20 16:33:46 (GMT)
committerChristian Pointner <equinox@spreadspace.org>2016-04-20 16:33:46 (GMT)
commitac206e1a375e7dfcdf60cb657f2edcc16de4f188 (patch)
treea7f69afc134600ff562fe6069bdd13de8715a3d9 /utils/rhrd-schedules
parenteec0aa47e2d9ee49f57160b238a70cc81aa3f744 (diff)
added remaining sanity checks
Diffstat (limited to 'utils/rhrd-schedules')
-rwxr-xr-xutils/rhrd-schedules21
1 files changed, 15 insertions, 6 deletions
diff --git a/utils/rhrd-schedules b/utils/rhrd-schedules
index 6904154..a1e2d2f 100755
--- a/utils/rhrd-schedules
+++ b/utils/rhrd-schedules
@@ -24,11 +24,13 @@ use strict;
# TODO: remove me!!!
use lib "../lib/";
+use Data::Dumper::Simple;
use RHRD::rddb;
use RHRD::utils;
use DateTime;
use Date::Calc;
+use DateTime::Format::Strptime;
sub print_usage
{
@@ -47,7 +49,7 @@ sub generate
}
for my $entry (@{$data}) {
- my $start = ${$entry}{'start'};
+ my $start = DateTime::Format::Strptime::strptime("%Y-%m-%d_%H:%M:%S", ${$entry}{'start'});
my $title = ${$entry}{'title'};
my $showid = ${$entry}{'id'};
print "$start: ($showid) $title\n";
@@ -73,14 +75,17 @@ sub show__day
my $errcnt = 0;
for my $entry (@{$data}) {
- my $start = ${$entry}{'start'};
+ my $start = DateTime::Format::Strptime::strptime("%Y-%m-%d_%H:%M:%S", ${$entry}{'start'});
+ my $start_short = DateTime::Format::Strptime::strftime("%H:%M", $start);
+ my $end = DateTime::Format::Strptime::strptime("%Y-%m-%d_%H:%M:%S", ${$entry}{'end'});
+ my $duration = $start->delta_ms($end);
my $title = ${$entry}{'title'};
my $pvid = ${$entry}{'id'};
my $showid = ${$entry}{'automation-id'};
next if $pvid == 1; # 'Unmoderiertes Musikprogramm'
- print " $start: ($showid) -> ";
+ print " " . DateTime::Format::Strptime::strftime("%H:%M:%S", $start) . ": ($showid) -> ";
if($showid > 0) {
my ($show, $status, $errorstring) = RHRD::rddb::get_show_info($ctx, $showid);
if(!defined $show) {
@@ -95,11 +100,15 @@ sub show__day
print "WARNING: wrong day of week (PV: " . Date::Calc::Day_of_Week_to_Text($dow) . " != RD: " . Date::Calc::Day_of_Week_to_Text(${$show}{'DOW'}) . ")\n";
$errcnt++;
} elsif ($weeks[$week-1] != '1') {
- print "WARNING: this is week $week but show rhythm is: " . ${$show}{'RHYTHM'} . " -> show shouldn't air in this week!\n";
+ print "WARNING: this is week $week but show rhythm is: " . ${$show}{'RHYTHM'} . " -> show shouldn't air in this week.\n";
+ $errcnt++;
+ } elsif ($duration->{'minutes'} != ${$show}{'LEN'}) {
+ print "WARNING: wrong show length (PV: " . $duration->minutes . " != RD: " . ${$show}{'LEN'} . ")\n";
+ $errcnt++;
+ } elsif ($start_short ne ${$show}{'STARTTIME'}) {
+ print "WARNING: wrong show start-time (PV: " . $start_short . " != RD: " . ${$show}{'STARTTIME'} . ")\n";
$errcnt++;
} else {
- # TODO: check for STARTTIME
- # TODO: check for LEN (missing endtime in pv export...)
print "OK: $title\n";
}
}