diff options
author | Christian Pointner <equinox@spreadspace.org> | 2015-10-06 02:50:34 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@spreadspace.org> | 2015-10-06 02:50:34 (GMT) |
commit | 245fa7576b4a2d848435f4eee3d7f41cbf042e8a (patch) | |
tree | 68c056ceea6e1fd921a130762152773a0fa71ce3 /utils/rd-show | |
parent | 650ef4a8dec7e627a7767882086ca1a462b69785 (diff) |
removing show works now as well
Diffstat (limited to 'utils/rd-show')
-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; } |