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

openepaperlink: erase tag images on unlink

Browse source
This commit is contained in:
Juerd Waalboer 2025-01-17 01:17:43 +01:00
parent 0ce6eba77a
commit 19dd4c820e
2 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
contrib/openepaperlink.pl
View file

@ -230,8 +230,12 @@ $products->{_NOTFOUND_} = {
tag_price => "999.99", tag_price => "999.99",
}; };
my $fix = @ARGV && $ARGV[0] eq 'fix'; my $fix_mode = @ARGV && $ARGV[0] eq 'fix';
shift if $fix; shift if $fix_mode;
my $erase_mode = !$fix_mode && @ARGV && $ARGV[0] eq 'erase';
shift if $erase_mode;
die "Usage: $0 erase <mac>...\n" if $erase_mode and not @ARGV;
my %fns; my %fns;
@ -241,10 +245,12 @@ for my $line (@lines) {
$product_id or next; $product_id or next;
(grep { $_ eq $product_id or $_ eq $mac } @ARGV) or next if @ARGV; (grep { $_ eq $product_id or $_ eq $mac } @ARGV) or next if @ARGV;
my $product = $products->{$product_id} || $products->{_NOTFOUND_}; my $product = $erase_mode
? { id => "_ERASE_", description => $mac }
: $products->{$product_id} || $products->{_NOTFOUND_};
my $needs_fixing = 0; my $needs_fixing = 0;
if ($fix or not $hwtype) { if ($fix_mode or not $hwtype) {
my $dbitem = get_dbitem($mac); my $dbitem = get_dbitem($mac);
next if not %$dbitem; next if not %$dbitem;
$hwtype ||= $new_hwtype{$mac} = $dbitem->{hwType}; $hwtype ||= $new_hwtype{$mac} = $dbitem->{hwType};

4
plugins/openepaperlink
View file

@ -42,6 +42,8 @@ sub command :Tab(openepaperlink) ($self, $cart, $command, @) {
return "Tag MAC", sub ($self, $cart, $mac, @) { return "Tag MAC", sub ($self, $cart, $mac, @) {
$mac =~ $mac_regex or return REJECT, "Malformed MAC."; $mac =~ $mac_regex or return REJECT, "Malformed MAC.";
_run erase => $mac if $product_id eq 'unlink'; # while it's still in the .oepl
_create; _create;
my $found = 0; my $found = 0;
rewrite $fn, sub($line) { rewrite $fn, sub($line) {
@ -54,7 +56,7 @@ sub command :Tab(openepaperlink) ($self, $cart, $command, @) {
if (!$found and $product_id ne 'unlink') { if (!$found and $product_id ne 'unlink') {
append $fn, "$mac $product_id\n"; append $fn, "$mac $product_id\n";
} }
_run $mac; _run $mac unless $product_id eq 'unlink';
return ACCEPT; return ACCEPT;
}; };