#!perl

HELP "dinnerbonus" => "Add fee for cooking supplies";

my $bonus = 1.00;

sub command :Tab(kookbonus,dinnerbonus) ($self, $cart, $command, @) {
    my @users = map $_->{user}, map $_->contras, $cart->entries('is_take');

    (@users and $command eq 'kookpotje')  # common mistake promoted to feature
        or $command eq 'kookbonus'
        or $command eq 'dinnerbonus'
        or return NEXT;

    @users or return REJECT, "$command requires a pending 'take'.";
    my $users = join '/', @users;

    my $target = parse_user("kookpotje")
        or return ABORT, "User 'kookpotje' does not exist";

    my $entry = $cart->add(0, "Kookbonus");

    $entry->add_contra(
        $target,
        scalar @users * $bonus,
        "Kookbonus from $users by \$you"
    );

    for my $user (@users) {
        $entry->add_contra( $user, -$bonus, "Kookbonus by \$you" );
    }

    return ACCEPT;
}