diff options
Diffstat (limited to 'test/get-range')
| -rwxr-xr-x | test/get-range | 29 |
1 files changed, 28 insertions, 1 deletions
diff --git a/test/get-range b/test/get-range index 13e5533..1d4e12e 100755 --- a/test/get-range +++ b/test/get-range @@ -34,14 +34,41 @@ if(defined $dbh) { } else { print "Range: " . $low_cart . " - " . $high_cart . ", chunk size: " . $chunk_size . "\n"; } + my ($slot_low_cart, $slot_high_cart, $err) = RHRD::rddb::get_shows_next_free_slot($dbh); + if(!$slot_low_cart) { + print "$slot_high_cart: $err\n"; + } else { + print " Next Free: " . $slot_low_cart . " - " . $slot_high_cart . "\n"; + } print "\nMusic Pools:\n"; - ($low_cart, $high_cart, $chunk_size) = RHRD::rddb::get_musicpool_cart_range($dbh); + ($low_cart, $high_cart, $chunk_size) = RHRD::rddb::get_musicpools_cart_range($dbh); if(!$low_cart) { print "$high_cart: $chunk_size\n"; } else { print "Range: " . $low_cart . " - " . $high_cart . ", chunk size: " . $chunk_size . "\n"; } + ($slot_low_cart, $slot_high_cart, $err) = RHRD::rddb::get_musicpools_next_free_slot($dbh); + if(!$slot_low_cart) { + print "$slot_high_cart: $err\n"; + } else { + print " Next Free: " . $slot_low_cart . " - " . $slot_high_cart . "\n"; + } + + print "\nJingles:\n"; + ($low_cart, $high_cart, $chunk_size) = RHRD::rddb::get_jingles_cart_range($dbh); + if(!$low_cart) { + print "$high_cart: $chunk_size\n"; + } else { + print "Range: " . $low_cart . " - " . $high_cart . ", chunk size: " . $chunk_size . "\n"; + } + ($slot_low_cart, $slot_high_cart, $err) = RHRD::rddb::get_jingles_next_free_slot($dbh); + if(!$slot_low_cart) { + print "$slot_high_cart: $err\n"; + } else { + print " Next Free: " . $slot_low_cart . " - " . $slot_high_cart . "\n"; + } + RHRD::rddb::closedb($dbh); } else { |