removing show works now as well

1 files changed, 8 insertions, 1 deletions

diff --git a/utils/rd-show b/utils/rd-show
index 3d54630..0ad2426 100755
--- a/utils/rd-show
+++ b/utils/rd-show
@@ -260,7 +260,14 @@ sub remove
 {
   my ($ctx, $show_id) = @_;
 
-  print "removing show " . $show_id . ", not yet implemented!\n";
+  my @results = RHRD::rddb::remove_show($ctx, $show_id);
+  if(!defined $results[0] && defined $results[2]) {
+    print STDERR "$results[2]\n";
+    return 1;
+  }
+  for my $href (@results) {
+    print int($href->{cnt}) . " " . $href->{name} . " deleted\n";
+  }
   return 0;
 }