summaryrefslogtreecommitdiff
path: root/utils/rhrd-schedules
diff options
context:
space:
mode:
authorChristian Pointner <equinox@spreadspace.org>2016-04-28 16:40:47 (GMT)
committerChristian Pointner <equinox@spreadspace.org>2016-04-28 16:40:47 (GMT)
commita9a7408950d797115245ee4293285ce2bba1a2c5 (patch)
treed78f4c78b965aa4433f8e3d360cfff243d8f6330 /utils/rhrd-schedules
parentddf6f5933f554e463b0195e6cb90da9b7f90f8e1 (diff)
also print PV id for warnings
Diffstat (limited to 'utils/rhrd-schedules')
-rwxr-xr-xutils/rhrd-schedules10
1 files changed, 5 insertions, 5 deletions
diff --git a/utils/rhrd-schedules b/utils/rhrd-schedules
index 7346ac4..30021f8 100755
--- a/utils/rhrd-schedules
+++ b/utils/rhrd-schedules
@@ -113,19 +113,19 @@ sub show__day
} else {
my @weeks = split('', ${$show}{'RHYTHM'});
if ($title ne ${$show}{'TITLE'} && ($title . " (Wiederholung)") ne ${$show}{'TITLE'}) {
- print "WARNING: title mismatch (PV: '$title' != RD: '" . ${$show}{'TITLE'} . "')\n";
+ print "WARNING: title mismatch (PV: '$title' != RD: '" . ${$show}{'TITLE'} . "') -- PV-id: $pvid\n";
$errcnt++;
} elsif ($dow != ${$show}{'DOW'}) {
- 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";
+ 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'}) . ") -- PV-id: $pvid\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. -- PV-id: $pvid\n";
$errcnt++;
} elsif ($duration->{'minutes'} != ${$show}{'LEN'}) {
- print "WARNING: wrong show length (PV: " . $duration->minutes . " != RD: " . ${$show}{'LEN'} . ")\n";
+ print "WARNING: wrong show length (PV: " . $duration->minutes . " != RD: " . ${$show}{'LEN'} . ") -- PV-id: $pvid\n";
$errcnt++;
} elsif ($start_short ne ${$show}{'STARTTIME'}) {
- print "WARNING: wrong show start-time (PV: " . $start_short . " != RD: " . ${$show}{'STARTTIME'} . ")\n";
+ print "WARNING: wrong show start-time (PV: " . $start_short . " != RD: " . ${$show}{'STARTTIME'} . ") -- PV-id: $pvid\n";
$errcnt++;
} else {
print "OK: $title\n";