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.
27 lines
714 B
Perl
27 lines
714 B
Perl
#!perl
|
|
|
|
HELP "unlisted" => "Buy unlisted product (manual entry)";
|
|
|
|
sub command :Tab(unlisted,donate) ($self, $cart, $command, @) {
|
|
$command eq 'unlisted' or $command eq 'donate' or return NEXT;
|
|
$self->{command} = $command;
|
|
|
|
return "Amount to deduct from your account", \&amount;
|
|
}
|
|
|
|
sub amount($self, $cart, $arg, @) {
|
|
$self->{amount} = parse_amount($arg) or return REJECT, "Invalid amount.";
|
|
|
|
if ($self->{command} eq 'donate') {
|
|
$cart->add(-$self->{amount}, "Donation (THANK YOU!)");
|
|
return ACCEPT;
|
|
}
|
|
|
|
return "Please provide a short description", \&description;
|
|
}
|
|
|
|
sub description($self, $cart, $desc, @) {
|
|
$cart->add(-$self->{amount}, $desc);
|
|
return ACCEPT;
|
|
}
|
|
|