implemented show listing

1 files changed, 18 insertions, 3 deletions

diff --git a/rh-bin/showlist.json b/rh-bin/showlist.json
index ce59748..185a0a5 100755
--- a/rh-bin/showlist.json
+++ b/rh-bin/showlist.json
@@ -27,19 +27,34 @@ use JSON;
 my $status = 'ERROR';
 my $errorstring = 'unknown';
 my $responsecode = 500;
+my @showlist;
 
 (my $ctx, $status, $errorstring) = RHRD::rddb::init();
 if(defined $ctx) {
-  $status = 'ERROR';
-  $errorstring = 'not yet implemented';
-  $responsecode = 501;
 
+  my @shows = RHRD::rddb::list_shows($ctx);
+  if(!defined $shows[0] && defined $shows[1]) {
+    $responsecode = 500;
+    $status = $shows[1];
+    $errorstring = $shows[2];
+  } else {
+    for my $href (@shows) {
+      my %show;
+      $show{'id'} = $href->{'ID'};
+      $show{'title'} = $href->{'ID'} . " | " . $href->{'TITLE'};
+      push @showlist, %show;
+    }
+    $responsecode = 200;
+    $status = "OK";
+    $errorstring = "success";
+  }
   RHRD::rddb::destroy($ctx);
 }
 
 my %answer;
 $answer{'status'} = $status;
 $answer{'errorstring'} = $errorstring;
+$answer{'shows'} = \@showlist;
 
 print "Content-type: application/json; charset=UTF-8\n";
 print "Status: $responsecode\n\n";