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

Sort shame

Browse source
This commit is contained in:
Juerd Waalboer 2022-11-01 04:45:59 +01:00
parent 900539af5a
commit a18ef9939a
1 changed files with 6 additions and 1 deletions

7
plugins/users
View file

@ -37,7 +37,12 @@ sub list($self) {
} }
sub shame($self) { sub shame($self) {
my $list = join "", sort grep / -/ && !/^[-+]/, slurp("revbank.accounts"); my $list = join "", sort {
(split " ", $a)[1] <=> (split " ", $b)[1]
} grep {
/ -/ && !/^[-+]/
} slurp("revbank.accounts");
$list =~ s/( -[\d.]+)/\e[31;1m$1\e[0m/g; $list =~ s/( -[\d.]+)/\e[31;1m$1\e[0m/g;
print $list; print $list;
return ACCEPT; return ACCEPT;