diff options
Diffstat (limited to 'utils')
-rwxr-xr-x | utils/rd-show | 9 |
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; } |