1 files changed, 85 insertions, 1 deletions

diff --git a/lib/RHRD/rddb.pm b/lib/RHRD/rddb.pm
index 7c5bae3..62f43bd 100755
--- a/lib/RHRD/rddb.pm
+++ b/lib/RHRD/rddb.pm
@@ -54,6 +54,7 @@ sub init
     or return (undef , 'ERROR', "RHRD Config File Error: " . join("\n", @Config::IniFiles::errors));
 
   $ctx{'config'}{'specialgroups'}{'system'} = $cfg->val('specialgroups', 'system', 'SYSTEM');
+  $ctx{'config'}{'specialgroups'}{'multishows'} = $cfg->val('specialgroups', 'multishows', 'MULTISHOWS');
   $ctx{'config'}{'specialgroups'}{'shows'} = $cfg->val('specialgroups', 'shows', 'SHOWS');
   $ctx{'config'}{'specialgroups'}{'allshows'} = $cfg->val('specialgroups', 'allshows', 'ALL_SHOWS');
   $ctx{'config'}{'specialgroups'}{'allpools'} = $cfg->val('specialgroups', 'allpools', 'ALL_POOLS');
@@ -1839,6 +1840,9 @@ sub create_show_macro_cart
   my $macro = 'LL 1 ' . $logname . ' 0!';
 
   my ($number, $status, $errorstring) = get_next_free_showid($ctx);
+  unless (defined $number) {
+    return (undef, $status, $errorstring);
+  }
 
   my $sql = qq{insert into CART (NUMBER, TYPE, GROUP_NAME, TITLE, MACROS, VALIDITY, METADATA_DATETIME) values (?, 2, ?, ?, ?, 3, NOW())};
 
@@ -1961,6 +1965,86 @@ sub remove_show
   return @actions;
 }
 
+sub list_multi_shows
+{
+  my ($ctx) = @_;
+
+  my $sql = qq{select NUMBER,TITLE,USER_DEFINED from CART where GROUP_NAME = ? order by NUMBER};
+
+  my $sth = $ctx->{'dbh'}->prepare($sql)
+    or return (undef, 'ERROR', "Database Error: " . $ctx->{'dbh'}->errstr);
+
+  $sth->execute($ctx->{'config'}{'specialgroups'}{'multishows'})
+    or return (undef, 'ERROR', "Database Error: " . $sth->errstr);
+
+  my @mshows;
+  while(my ($id, $title, $shows) = $sth->fetchrow_array()) {
+    my @showlist = split(';', $shows); # TODO split this further...
+
+    my $entry = {};
+    $entry->{'ID'} = $id;
+    $entry->{'TITLE'} = $title;
+    $entry->{'SHOWS'} = @showlist;
+
+    push @mshows, $entry;
+  }
+  $sth->finish();
+
+  return @mshows;
+}
+
+sub get_next_free_multi_showid
+{
+  my ($ctx) = @_;
+
+  my ($low, $high, $type, undef) = RHRD::rddb::get_group_cart_range($ctx, $ctx->{'config'}{'specialgroups'}{'multishows'});
+  unless(defined $low) {
+    return (undef, $high, $type);
+  }
+
+  my $sql = qq{select NUMBER from CART where GROUP_NAME = ? order by NUMBER};
+
+  my $sth = $ctx->{'dbh'}->prepare($sql)
+    or return (undef, 'ERROR', "Database Error: " . $ctx->{'dbh'}->errstr);
+
+  $sth->execute($ctx->{'config'}{'specialgroups'}{'multishows'})
+    or return (undef, 'ERROR', "Database Error: " . $sth->errstr);
+
+  my $showid = $low;
+  while(my ($cart) = $sth->fetchrow_array()) {
+    last if($showid < $cart);
+    $showid += 1;
+  }
+  $sth->finish();
+
+  return ($showid, 'OK', 'success');
+}
+
+sub create_multi_show
+{
+  my $ctx = shift;
+  my $title = shift;
+  my $shows = join(@_, ";");
+
+  my ($number, $status, $errorstring) = get_next_free_multi_showid($ctx);
+  unless (defined $number) {
+    return (undef, $status, $errorstring);
+  }
+
+  my $sql = qq{insert into CART (NUMBER, TYPE, GROUP_NAME, TITLE, USER_DEFINED, VALIDITY, METADATA_DATETIME) values (?, 2, ?, ?, ?, 3, NOW())};
+
+  my $sth = $ctx->{'dbh'}->prepare($sql)
+    or return (undef, 'ERROR', "Database Error: " . $ctx->{'dbh'}->errstr);
+
+  $sth->execute($number, $ctx->{'config'}{'specialgroups'}{'multishows'}, $title, $shows)
+    or return (undef, 'ERROR', "Database Error: " . $sth->errstr);
+
+  $sth->finish();
+
+  return ($number, 'OK', 'success');
+}
+
+
 ###########################  MUSICPOOL handling  ###########################
 
 sub get_musicpools_cart_range
@@ -2209,8 +2293,8 @@ sub create_musicpool_clock
     push @events, { NAME => $shortname, START_TIME => $t, LENGTH => 142500 };
     $t += 142500;
     if($i > 0 && ($i % 8) == 0) {
-      $t += 60000;
       # TODO: push jingle event
+      $t += 60000;
     }
   }