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.
39 lines
1.1 KiB
Perl
39 lines
1.1 KiB
Perl
#!perl
|
|
|
|
HELP "give <account> <amount> [<reason>]" => "Transfer money to user's account";
|
|
|
|
sub command :Tab(give) ($self, $cart, $command, @) {
|
|
return NEXT if $command ne 'give';
|
|
|
|
return "Beneficiary", \&beneficiary;
|
|
}
|
|
|
|
sub beneficiary :Tab(USERS) ($self, $cart, $input, @) {
|
|
$self->{beneficiary} = parse_user($input)
|
|
or return REJECT, "$input: No such user.";
|
|
|
|
return "Amount to give to $self->{beneficiary}", \&amount;
|
|
}
|
|
|
|
sub amount($self, $cart, $input, @) {
|
|
$self->{amount} = parse_amount($input)
|
|
or return REJECT, "$input: Invalid amount.";
|
|
|
|
return "Why are you giving $self->{amount} to $self->{beneficiary}, or enter your username to end", \&reason;
|
|
}
|
|
|
|
sub reason :Tab(whatevah) ($self, $cart, $input, @) {
|
|
my $beneficiary = $self->{beneficiary};
|
|
my $amount = $self->{amount};
|
|
|
|
my $user = parse_user($input);
|
|
my $reason = $user ? "" : " ($input)";
|
|
|
|
$cart
|
|
->add(-$amount, "Given to $beneficiary" . $reason)
|
|
->add_contra($beneficiary, +$amount, "Received from \$you" . $reason);
|
|
|
|
$cart->checkout($user) if $user;
|
|
|
|
return ACCEPT;
|
|
}
|