minor refactoring

3 files changed, 13 insertions, 5 deletions

diff --git a/utils/rhrd-group b/utils/rhrd-group
index 246d450..0f82c33 100755
--- a/utils/rhrd-group
+++ b/utils/rhrd-group
@@ -150,7 +150,7 @@ sub get_carts
 {
   my ($ctx, $groupname) = @_;
 
-  my ($low, $high, $type, $enforce_range) = RHRD::rddb::get_group_carts($ctx, $groupname);
+  my ($low, $high, $type, $enforce_range) = RHRD::rddb::get_group_cart_range($ctx, $groupname);
   unless(defined $low) {
     print STDERR "$type\n";
     return 1;
@@ -163,7 +163,7 @@ sub set_carts
 {
   my ($ctx, $groupname, $low_cart, $high_cart, $cart_type, $enforce_cart_range) = @_;
 
-  my ($cnt, undef, $errorstring) = RHRD::rddb::set_group_carts($ctx, $groupname, $low_cart, $high_cart, $cart_type, $enforce_cart_range);
+  my ($cnt, undef, $errorstring) = RHRD::rddb::set_group_cart_range($ctx, $groupname, $low_cart, $high_cart, $cart_type, $enforce_cart_range);
   unless(defined $cnt) {
     print STDERR "$errorstring\n";
     return 1;
diff --git a/utils/rhrd-sanity-check b/utils/rhrd-sanity-check
index ced1d30..9a698d8 100755
--- a/utils/rhrd-sanity-check
+++ b/utils/rhrd-sanity-check
@@ -60,7 +60,15 @@ sub check_groups
     next if($group eq $ctx->{'config'}{'specialgroups'}{'allshows'});
     next if($group eq $ctx->{'config'}{'specialgroups'}{'allpools'});
     next if($group eq $ctx->{'config'}{'specialgroups'}{'alljingles'});
-    print " " . $group . "\n";
+
+    my @users = RHRD::rddb::get_group_members($ctx, $group);
+    if(!defined $users[0] && defined $users[1]) {
+      print STDERR "$users[2]\n";
+      return 1;
+    }
+    if(scalar @users == 0) {
+      print " group: '" . $group . "' has no members\n";
+    }
   }
   return 0;
 }
diff --git a/utils/rhrd-show b/utils/rhrd-show
index 0ad2426..276eaef 100755
--- a/utils/rhrd-show
+++ b/utils/rhrd-show
@@ -154,7 +154,7 @@ sub add__create_group
   }
   print "     using carts " . $low_cart . " - " . $high_cart . " for new group .. ";
 
-  ($cnt, $status, $errorstring) = RHRD::rddb::set_group_carts($ctx, $groupname, $low_cart, $high_cart, 1, 'Y');
+  ($cnt, $status, $errorstring) = RHRD::rddb::set_group_cart_range($ctx, $groupname, $low_cart, $high_cart, 1, 'Y');
   unless(defined $cnt) {
     print STDERR $status . ": " . $errorstring . "\n";
     return undef;
@@ -176,7 +176,7 @@ sub add__get_free_group_carts
 {
   my ($ctx, $groupname, $num_carts) = @_;
 
-  my ($low_cart, $high_cart, $type, undef) = RHRD::rddb::get_group_carts($ctx, $groupname);
+  my ($low_cart, $high_cart, $type, undef) = RHRD::rddb::get_group_cart_range($ctx, $groupname);
   unless(defined $low_cart) {
     print STDERR $high_cart . ": " . $type . "\n";
     return undef;