summaryrefslogtreecommitdiff
path: root/utils/rhrd-schedules
diff options
context:
space:
mode:
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 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";