diff options
| -rwxr-xr-x | utils/rd-show | 74 |
1 files changed, 69 insertions, 5 deletions
diff --git a/utils/rd-show b/utils/rd-show index ff5a169..7a2736c 100755 --- a/utils/rd-show +++ b/utils/rd-show @@ -34,7 +34,7 @@ sub print_usage { print STDERR "Usage: rd-show list\n" . " rd-show (show|remove) <show-id>\n" . - " rd-show add <shortname> <title> <num-carts> <rhythm> <dow> <starttime> <len>\n"; + " rd-show add <groupname> <name> <title> <num-carts> <rhythm> <dow> <starttime> <len>\n"; } sub list @@ -73,11 +73,75 @@ sub show return 0; } +sub add__get_group_carts +{ + my ($dbh, $groupname, $num_carts) = @_; + + my ($result, $status, $errorstring) = RHRD::rddb::check_group($dbh, $groupname); + unless(defined $result) { + print STDERR $status . ": " . $errorstring . "\n"; + return undef; + } + + my $low_cart = 0; + if($result) { + print " > using existing group '" . $groupname . "'\n"; + # TODO: + # find free range in group which is big enough for $num_carts carts + + } else { + print " > '" . $groupname . "' does not exist - creating it .. "; + (my $cnt, $status, $errorstring) = RHRD::rddb::add_group($dbh, $groupname); + unless(defined $cnt) { + print STDERR $status . ": " . $errorstring . "\n"; + return undef; + } + print int($cnt) . " rows affected\n"; + + ($low_cart, my $high_cart, $errorstring) = RHRD::rddb::get_shows_next_free_slot($dbh); + if(!$low_cart) { + print $high_cart . ": " . $errorstring . "\n"; + return undef; + } + print " using carts " . $low_cart . " - " . $high_cart . " for new group .. "; + + ($cnt, $status, $errorstring) = RHRD::rddb::set_group_carts($dbh, $groupname, $low_cart, $high_cart, 1, 'Y'); + unless(defined $cnt) { + print STDERR $status . ": " . $errorstring . "\n"; + return undef; + } + print int($cnt) . " rows affected\n"; + + print " enabling reports .. "; + ($cnt, $status, $errorstring) = RHRD::rddb::set_group_reports($dbh, $groupname, 'Y', 'Y', 'Y'); + unless(defined $cnt) { + print STDERR $status . ": " . $errorstring . "\n"; + return undef; + } + print int($cnt) . " rows affected\n"; + } + + return $low_cart; +} + sub add { - my ($dbh, $shortname, $title, $numcarts, $rhythm, $dow, $starttime, $len) = @_; + my ($dbh, $groupname, $name, $title, $num_carts, $rhythm, $dow, $starttime, $len) = @_; + + print " * creating show: " . $title . " (" . $name . ") for group '" . $groupname . "'\n"; + + my $low_cart = add__get_group_carts($dbh, $groupname, $num_carts); + return 1 unless defined($low_cart); + my $high_cart = $low_cart + $num_carts - 1; + print " * will be using carts: " . $low_cart . " - " . $high_cart . "\n"; + + # TODO: + # create log named <name> and fill with $low_cart - $high_cart + # create macro cart referencing log -> show-id + # create dropbox for: groupname, show-id, $rhythm, $dow, $starttime, $len + + print " * finished\n"; - print "add show $shortname, $title, $numcarts, $rhythm, $dow, $starttime, $len not yet implemented!\n"; return 0; } @@ -124,11 +188,11 @@ if(defined $dbh) { } } elsif($cmd eq "add") { - if($num_args != 8) { + if($num_args != 9) { print_usage(); $ret = 1; } else { - $ret = add($dbh, $ARGV[1], $ARGV[2], $ARGV[3], $ARGV[4], $ARGV[5], $ARGV[6], $ARGV[7]); + $ret = add($dbh, $ARGV[1], $ARGV[2], $ARGV[3], $ARGV[4], $ARGV[5], $ARGV[6], $ARGV[7], $ARGV[8]); } } else { |