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
991 B
Perl
35 lines
991 B
Perl
#!perl
|
|
|
|
HELP "cash" => "Checkout without a user account";
|
|
|
|
sub command :Tab(cash) ($self, $cart, $command, @) {
|
|
return NEXT if $command ne 'cash';
|
|
|
|
call_hooks("checkout", $cart, 'cash', 0); # Fake checkout
|
|
$cart->empty;
|
|
|
|
return ACCEPT;
|
|
}
|
|
|
|
sub hook_checkout($class, $cart, $user, $transaction_id, @) {
|
|
# Hack42 for some reason used the dutch word in their revbank1 hack.
|
|
my $filename = -e("revbank.voorraad")
|
|
? "revbank.voorraad"
|
|
: "revbank.stock";
|
|
|
|
my @entries = $cart->entries('product_id') or return;
|
|
|
|
my %stock = do {
|
|
my $in;
|
|
open($in, '<', $filename)
|
|
? map { split " ", $_, 2 } readline $in
|
|
: ()
|
|
};
|
|
|
|
$stock{ $_->attribute('product_id') } -= $_->quantity for @entries;
|
|
|
|
open my $out, '>', "$filename.$$" or warn "$filename.$$: $!";
|
|
printf {$out} "%-16s %+9d\n", $_, $stock{$_} for sort keys %stock;
|
|
close $out or die "$filename.$$: $!";
|
|
rename "$filename.$$", $filename or die $!;
|
|
}
|