diff options
Diffstat (limited to 'utils/rhrd-sanity-check')
| -rwxr-xr-x | utils/rhrd-sanity-check | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/utils/rhrd-sanity-check b/utils/rhrd-sanity-check index 9507f6b..8faec2e 100755 --- a/utils/rhrd-sanity-check +++ b/utils/rhrd-sanity-check @@ -61,7 +61,7 @@ sub check_showids } my ($group, $status, $errorstring) = RHRD::rddb::get_show_group($ctx, $showid); - unless(defined($group)) { + unless(defined $group) { print " showid '" . $showid . "': has no dropbox assigned\n"; $errors++; } else { @@ -88,7 +88,7 @@ sub check_logs } for my $log (@logs) { my ($log_exists, $status, $errorstring) = RHRD::rddb::check_log_exists($ctx, $log); - if(!defined $log_exists) { + unless(defined $log_exists) { print STDERR "$status: $errorstring"; return -1; } @@ -98,7 +98,7 @@ sub check_logs } (my $log_tab_exists, $status, $errorstring) = RHRD::rddb::check_log_table_exists($ctx, $log); - if(!defined $log_tab_exists) { + unless(defined $log_tab_exists) { print STDERR "$status: $errorstring"; return -1; } @@ -247,19 +247,19 @@ sub check_groups print "groups:\n"; my ($shows_low_cart, $shows_high_cart, $shows_chunk_size) = RHRD::rddb::get_shows_cart_range($ctx); - if(!$shows_low_cart) { + unless(defined $shows_low_cart) { print "$shows_high_cart: $shows_chunk_size\n"; return -1; } my ($musicpools_low_cart, $musicpools_high_cart, $musicpools_chunk_size) = RHRD::rddb::get_musicpools_cart_range($ctx); - if(!$musicpools_low_cart) { + unless(defined $musicpools_low_cart) { print "$musicpools_high_cart: $musicpools_chunk_size\n"; return -1; } my ($jingles_low_cart, $jingles_high_cart, $jingles_chunk_size) = RHRD::rddb::get_jingles_cart_range($ctx); - if(!$jingles_low_cart) { + unless(defined $jingles_low_cart) { print "$jingles_high_cart: $jingles_chunk_size\n"; return -1; } |