7990c43371
When the transaction is still pending, the past tense is incorrect. This is not relevant for the contras, because those descriptions are only displayed in logs, after the fact.
64 lines
1.7 KiB
Perl
64 lines
1.7 KiB
Perl
#!perl
|
|
|
|
HELP "take <account>... <amount> <reason>" => "Transfer money from them to you";
|
|
|
|
sub command :Tab(take,steal) ($self, $cart, $command, @) {
|
|
$command eq 'take' or $command eq 'steal'
|
|
or return NEXT;
|
|
|
|
$self->{users} = [];
|
|
|
|
return "User to take from", \&arg;
|
|
}
|
|
|
|
sub arg :Tab(USERS) ($self, $cart, $arg, @) {
|
|
my @users = @{ $self->{users} };
|
|
my $amount = parse_amount($arg);
|
|
|
|
if (@users and $amount) {
|
|
my $each = RevBank::Amount->new_from_float($amount->float / @users);
|
|
my $total = $each * @users;
|
|
|
|
if ($total != $amount) {
|
|
print "Adjusted total amount to $total because of rounding.\n";
|
|
}
|
|
|
|
$self->{each} = $each;
|
|
$self->{total} = $total;
|
|
|
|
my $them = @users == 1 ? $users[0] : 'each';
|
|
|
|
return "Why are you taking $each from $them", \&reason;
|
|
}
|
|
|
|
my $user = parse_user($arg);
|
|
if ($user) {
|
|
push @{ $self->{users} }, $user;
|
|
} else {
|
|
return REJECT, "$arg: No such user" .
|
|
($amount || !@{ $self->{users} } ? "." : ", and not a valid amount.");
|
|
}
|
|
|
|
return "User to take from, or total amount to finish", \&arg;
|
|
}
|
|
|
|
# finish
|
|
sub reason :Tab(bbq) ($self, $cart, $reason, @) {
|
|
return REJECT, "'$reason' is a username, not a description :)."
|
|
if parse_user($reason);
|
|
return REJECT, "'$reason' is an amount, not a description :)."
|
|
if parse_amount($reason);
|
|
|
|
my @users = @{ $self->{users} };
|
|
my $each = $self->{each};
|
|
my $total = $self->{total};
|
|
|
|
my $users = join '/', @users;
|
|
my $entry = $cart->add($total, "Take from $users ($reason)", { is_take => 1 });
|
|
for my $user (@users) {
|
|
$entry->add_contra( $user, -$each, "Taken by \$you ($reason)" );
|
|
}
|
|
|
|
return ACCEPT;
|
|
}
|
|
|