diff options
| -rwxr-xr-x | utils/rhrd-sanity-check | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/utils/rhrd-sanity-check b/utils/rhrd-sanity-check index 9a698d8..a64a5b7 100755 --- a/utils/rhrd-sanity-check +++ b/utils/rhrd-sanity-check @@ -49,6 +49,12 @@ 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) { + print "$shows_high_cart: $shows_chunk_size\n"; + return 1; + } + my @groups = RHRD::rddb::list_groups($ctx); if(!defined $groups[0] && defined $groups[1]) { print STDERR "$groups[1]: $groups[2]"; @@ -69,6 +75,15 @@ sub check_groups if(scalar @users == 0) { print " group: '" . $group . "' has no members\n"; } + + my @carts = RHRD::rddb::get_show_group_carts_used($ctx, $group); + if(!defined $carts[0] && defined $carts[1]) { + print STDERR "$carts[2]\n"; + return 1; + } + if(scalar @carts == 0) { + print " group: '" . $group . "' no carts of range are used\n"; + } } return 0; } |