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

Add hook_product_changed, hook_product_deleted

Browse source
This commit is contained in:
Juerd Waalboer 2024-12-29 02:43:28 +01:00
parent c3aef1e783
commit 55892c236b
2 changed files with 42 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/RevBank/Plugins.pod
View file

@ -189,6 +189,20 @@ Called when a new user account was created.
Called when a user account is updated.
=item hook_product_changed($class, $old, $new, $mtime, @)
Called when a product is changed. For new products, C<$old> will be undef.
Caveats: Only things that change during runtime cause this hook to be called. When multiple revbank instances are running, each process gets this hook. When the products file is modified externally, the new file is loaded only after user interaction. When a product's primary id changes, it is registerd as a deletion and addition, not a change.
The mtime is the mtime of the products file, not necessarily when the product was changed.
=item hook_product_deleted($class, $product, $mtime, @)
Called when a product is deleted.
The same caveats like for C<hook_product_changed> apply.
=back
Default messages can be silenced by overriding the hooks in

33
lib/RevBank/Products.pm
View file

@ -9,19 +9,20 @@ use RevBank::Global;
use Exporter qw(import);
our @EXPORT = qw(read_products);
# Note: the parameters are subject to change
sub read_products($filename = "revbank.products", $default_contra = "+sales/products") {
state %cache; # $filename => \%products
state %caches; # $filename => \%products
state %mtimes; # $filename => mtime
my $mtime = \$mtimes{$filename};
return $cache{$filename} if $$mtime and $$mtime == -M $filename;
my $cache = $caches{$filename} ||= {};
return $cache if $$mtime and (stat $filename)[9] == $$mtime;
my %products;
my $linenr = 0;
my $warnings = 0;
$$mtime = -M $filename;
$$mtime = (stat $filename)[9];
for my $line (slurp $filename) {
$linenr++;
@ -102,6 +103,8 @@ sub read_products($filename = "revbank.products", $default_contra = "+sales/prod
# HERE (see .pod)
$products{$id} = {
id => $ids[0],
aliases => [ @ids[1 .. $#ids] ],
is_alias => $id ne $ids[0],
description => $desc,
contra => $contra || $default_contra,
_addon_ids => \@addon_ids,
@ -179,7 +182,27 @@ sub read_products($filename = "revbank.products", $default_contra = "+sales/prod
$product->{total_price} = $tag_price + $hidden;
}
return $cache{$filename} = \%products;
if (%$cache) {
for my $new (values %products) {
next if $new->{is_alias};
my $id = $new->{id};
my $old = $cache->{$id};
call_hooks("product_changed", $old, $new, $$mtime)
if not defined $old or $new->{config} ne $old->{config};
delete $cache->{$id};
}
for my $p (values %$cache) {
next if $p->{is_alias};
call_hooks("product_deleted", $p, $$mtime);
}
}
%$cache = %products;
return \%products;
}
1;