diff options
Diffstat (limited to 'utils/rhrd-schedules')
-rwxr-xr-x | utils/rhrd-schedules | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/utils/rhrd-schedules b/utils/rhrd-schedules index 8f1c2fe..39546b0 100755 --- a/utils/rhrd-schedules +++ b/utils/rhrd-schedules @@ -143,7 +143,7 @@ sub show__day_entry ## TODO: handle `$show{'TYPE'}` (regular, re-run, and special) my ($show, $status, $errorstring) = RHRD::rddb::get_show_info($ctx, $showid); - if(!defined $show) { + unless(defined $show) { print "$status: $errorstring\n"; return 1; } @@ -222,7 +222,7 @@ sub show__day $errcnt += show__day_entry($ctx, $week, $dow, $duration, $start_short, $pvid, $showid, $title); } elsif ($showid >= $mshowid_min && $showid <= $showid_max) { my ($show, $status, $errorstring) = RHRD::rddb::get_multi_show_info($ctx, $showid); - unless (defined $show) { + unless(defined $show) { print "($showid) -> $status: $errorstring\n"; $errcnt++; } else { @@ -261,7 +261,7 @@ sub parse_rdweek return (1, 2, 3, 4); } my ($w, undef, $hint) = RHRD::utils::cmdline_rdweek($week); - unless(defined($w)) { + unless(defined $w) { print "error parsing week: $week, " . $hint . " or ALL\n"; return (); } @@ -276,7 +276,7 @@ sub parse_dow return (1, 2, 3, 4, 5, 6, 7); } my ($d, undef, $hint) = RHRD::utils::cmdline_dow($dow); - unless(defined($d)) { + unless(defined $d) { print "error parsing day of week: $dow, " . $hint . " or ALL\n"; return (); } @@ -437,7 +437,7 @@ sub orphans if($shows{$showid} == 0) { my ($show, $status, $errorstring) = RHRD::rddb::get_show_info($ctx, $showid); - if(!defined $show) { + unless(defined $show) { print "$status: $errorstring\n"; } elsif(${$show}{'TYPE'} ne 's') { print "$showid: " . ${$show}{'TITLE'} . "\n"; |