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

Vroeg case normaliseren voorkomt bugs. Losse accountnaam laat nu saldo zien.

Browse source
This commit is contained in:
Juerd Waalboer 2011-04-26 00:40:49 +02:00
parent c971bd1bb9
commit 61fa5ae4d0
1 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
revbank
View file

@ -147,7 +147,7 @@ sub read_users {
open my $fh, 'revbank.accounts' or die $!;
/\S/ and push @users, [split " "] while readline $fh;
close $fh;
return @users;
return map { lc($_->[0]) => $_ } @users;
}
sub create_account {
@ -188,11 +188,8 @@ sub update_account {
sub parse_user {
my ($id) = @_;
my @users = read_users;
for (@users) {
return [ 'user', 0, $id ] if lc $_->[0] eq lc $id;
}
return;
my %users = read_users;
return [ 'user', 0, $users{lc $id}->[0] ] if exists $users{lc $id};
}
sub parse_amount {
@ -509,7 +506,8 @@ LINE: for (;;) {
}
@todo = grep { $_->[0] ne 'noop' } @todo;
if (not @todo) {
print "Products/amounts/commands FIRST, username LAST. $at\n";
printf "Balance for %s is %+.2f\n", $user, { read_users() }->{$user};
print "NB: Products/amounts/commands FIRST, username LAST. $at\n";
next LINE;
}