bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add "donate" command

Browse source
This commit is contained in:
Juerd Waalboer 2019-01-02 17:36:22 +01:00
parent 9ef84285a4
commit 3e49346bc5
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
plugins/unlisted
View file

@ -2,15 +2,23 @@
HELP "unlisted" => "Buy unlisted product (manual entry)"; HELP "unlisted" => "Buy unlisted product (manual entry)";
sub command :Tab(unlisted) { sub command :Tab(unlisted,donate) {
my ($self, $cart, $command) = @_; my ($self, $cart, $command) = @_;
$command eq 'unlisted' or return NEXT; $command eq 'unlisted' or $command eq 'donate' or return NEXT;
$self->{command} = $command;
return "Amount to deduct from your account", \&amount; return "Amount to deduct from your account", \&amount;
} }
sub amount { sub amount {
my ($self, $cart, $arg) = @_; my ($self, $cart, $arg) = @_;
$self->{amount} = parse_amount($arg) or return REJECT, "Invalid amount."; $self->{amount} = parse_amount($arg) or return REJECT, "Invalid amount.";
if ($self->{command} eq 'donate') {
$cart->add(undef, -$self->{amount}, "Donation (THANK YOU!)");
return ACCEPT;
}
return "Please provide a short description", \&description; return "Please provide a short description", \&description;
} }