forked from brmlab/brmbar-github
16 lines
1 KiB
Raku
16 lines
1 KiB
Raku
# text files containing credit amount
|
|
my @users = qw(abyssal alexka axtheb aym b00lean biiter chido czestmyr da3m0n22 denisakera jam jenda jerry joe johny kappi kiki kxt lenka lui lukash nephirus niekt0 pasky pborky prusajr rainbof ramus ruza sachy sargon shady specz stevko stick sysop timthelion tlapka tma tomsuch trip tutchek uiop urcher vtec wenza zombie zufik zviratko);
|
|
print "INSERT INTO transactions (description) VALUES ('Initial balance import');\n"; # assumed to be id 1
|
|
for my $name (@users) {
|
|
my $balance = `cat BRMBAR/DATA/$name.txt 2>/dev/null || echo -n 0`;
|
|
my $side = 'credit';
|
|
if ($balance < 0) {
|
|
$balance = -$balance;
|
|
$side = 'debit';
|
|
}
|
|
print <<EOT
|
|
INSERT INTO accounts (name, currency, acctype) VALUES ('$name', 1, 'debt');
|
|
INSERT INTO barcodes (barcode, account) VALUES ('$name', (SELECT id FROM accounts WHERE name = '$name'));
|
|
INSERT INTO transaction_splits (transaction, side, account, amount, memo) VALUES (1, '$side', (SELECT id FROM accounts WHERE name = '$name'), $balance, 'brmbar v1 balance');
|
|
EOT
|
|
}
|