auto git commit

This commit is contained in:
bar 2011-04-25 23:17:20 +02:00
parent 4a535b7fee
commit ca5090dfb2
2 changed files with 9 additions and 1 deletions

View file

@ -123,6 +123,11 @@ sub now {
return strftime '%Y-%m-%d_%H:%M:%S', localtime;
}
sub git_commit {
system qw(git commit -q revbank.accounts .revbank.undo),
-m => "Transaction by $user";
}
sub parse_product {
my ($id) = @_;
my @products;
@ -380,6 +385,7 @@ sub undo {
} else {
print "Transaction ID '$tid' not found in undo log.\n";
}
git_commit();
return ['noop'];
}
@ -520,6 +526,7 @@ LINE: for (;;) {
my ($old, $new) = update_account($_, $delta);
}
close $ufh;
git_commit();
my $deposit = sum map $_->[1], grep { $_->[0] eq 'deposit' } @todo;
if ($deposit) {

View file

@ -1,4 +1,5 @@
649241869825 0.00 Free disgusting stuff
# Free stuff
649241869825 0.00 Free disgusting stuff (LS)
# Water
5400151013112 0.50 Carbonated mineral water