#!/bin/awk -f
+function dbg( text ) { print text >>"/dev/stderr"; }
+
function STRING( inp ) {
gsub(/\\/, "\\\\", inp);
gsub(/\n/, "\\n", inp);
fn = n = uid = iban = tmp = ""; split("", ibans);
}
-strftime("%Y-%m-%d", $1, "UTC") == $2 && strftime("%Y-%m-%d", $3, "UTC") == $4 { ledger = 1; }
+/^BEGIN:LEDGERS$/ { ledger = 1; }
ledger && strftime("%Y-%m-%d", $2, "UTC") == $1 {
if ($3 in iban_uid) {
}
END {
- for (iban in sure) {
- line = "sure " iban;
- split(sure[iban], uids, / /);
- for (k in uids) line = line " " STRING(uids[k] "/" uid_fn[uids[k]]);
- print line;
- }
for (iban in unsure) {
line = "guess " iban " " STRING(unsure_rec[iban]);
split(unsure[iban], uids, / /);
line = "unknown " iban " " unknown[iban];
print line;
}
+ for (iban in sure) {
+ line = "sure " iban;
+ split(sure[iban], uids, / /);
+ for (k in uids) line = line " " STRING(uids[k] "/" uid_fn[uids[k]]);
+ print line;
+ }
}