adding multi-show works now

1 files changed, 62 insertions, 2 deletions

diff --git a/utils/rhrd-show b/utils/rhrd-show
index 0c87c1e..950e898 100755
--- a/utils/rhrd-show
+++ b/utils/rhrd-show
@@ -38,7 +38,7 @@ sub print_usage
                "  multi show handling:\n" .
                "       rhrd-show multi-list\n" .
                "       rhrd-show (multi-show|multi-remove) <multi-show-id>\n" .
-               "       rhrd-show (multi-add) <title> <show-id> [ <show-id> [ .. ] ]\n" .
+               "       rhrd-show (multi-add) <title> <week>:<show-id> [ <week>:<show-id> [ .. ] ]\n" .
                "       rhrd-show (multi-add-id|multi-remove-id) <multi-show-id> <show-id> [ <show-id> [ .. ] ]\n";
 }
 
@@ -332,13 +332,73 @@ sub multi_list
 }
 
 
+sub multi_add__check_shows
+{
+  my $ctx = shift;
+  my @shows = @_;
+
+  my %weeks = ( 1 => 0, 2 => 0, 3 => 0, 4 => 0 );
+
+  foreach my $show (@shows) {
+    my ($week, $show_id) = split(':', $show, 2);
+    unless(defined $week && defined $show_id) {
+      print STDERR "'" . $show . "' is invalid, needs to have format <week>:<showid>\n";
+      return 1;
+    }
+
+    $week = int($week);
+    if($week < 1 || $week > 4) {
+      print STDERR "week '" . $week . "' is out of range (needs to be 1,2,3 or 4)\n";
+      return 1;
+    }
+    if($weeks{$week} != 0) {
+      print STDERR "week " . $week . " is already set to show-id $weeks{$week}\n";
+      return 1;
+    }
+
+    $show_id = int($show_id);
+    my ($show_id_min, $show_id_max, $errorstring) = RHRD::rddb::get_showid_range($ctx);
+    unless(defined $show_id_min) {
+      print STDERR $show_id_max . ": " . $errorstring . "\n";
+      return 1;
+    }
+    if ($show_id < $show_id_min || $show_id > $show_id_max) {
+      print STDERR "show-id '" . $show_id . "' is out of range (min: $show_id_min, max: $show_id_max)\n";
+      return 1;
+    }
+    (my $exists, my $status, $errorstring) = RHRD::rddb::check_show_exists($ctx, $show_id);
+    unless(defined $exists) {
+      print STDERR $status . ": " . $errorstring . "\n";
+      return 1;
+    }
+    if($exists != 1) {
+      print STDERR "show with id '" . $show_id . "' does not exist!\n";
+      return 1;
+    }
+
+    (my $title, undef, $status, $errorstring) = RHRD::rddb::get_show_title_and_log($ctx, $show_id);
+    unless(defined $title) {
+      print STDERR $status . ": " . $errorstring . "\n";
+      return 1;
+    }
+    $weeks{$week} = $show_id;
+
+    print "W$week: ($show_id) $title\n";
+  }
+
+  return 0;
+}
+
 sub multi_add
 {
   my $ctx = shift;
   my $title = shift;
   my @shows = @_;
 
-  ## TODO check shows: needs to have format <week>:<showid>
+  my $ret = multi_add__check_shows($ctx, @shows);
+  if($ret) {
+    return $ret;
+  }
 
   my ($result, $status, $errorstring) = RHRD::rddb::create_multi_show($ctx, $title, @shows);
   unless(defined $result) {