eed0db7897
The signatures feature has been "experimental" since Perl 5.20 (May 2014), but expected to stay. After 8 years I'm ready to take the risk :) Have added Perl v5.28 (June 2018) as the minimum requirement, even though the current revbank should work with 5.20, to see if this bothers any users. Perl v5.28 is in Debian "buster", which is now oldstable.
35 lines
902 B
Perl
35 lines
902 B
Perl
#!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;
|
|
}
|
|
|