From bdc428ff981a0b715b97f5ceb72b9cbfa07fc8bc Mon Sep 17 00:00:00 2001
From: bar <bar@regulator.space.revspace.nl>
Date: Wed, 18 May 2011 02:52:05 +0200
Subject: [PATCH] Hall of Shame

---
 revbank | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/revbank b/revbank
index ee58dbd..37d1c62 100755
--- a/revbank
+++ b/revbank
@@ -87,6 +87,7 @@ Valid commands:
     give [<account>] [<amount>]     Transfer money to user's account
     take [<accounts>] [<amount>]    Take money from users (equal parts)
     list                            List accounts and balances
+    shame                           Display Hall of Shame (negative balances)
     undo [<id>]                     Undo a certain transaction
     help                            The stuff you're looking at right now :)
     examples                        Show some usage examples
@@ -232,6 +233,8 @@ sub parse_command {
         return undo($line);
     } elsif ($command =~ /^(?:ls|list)$/) {
         return list();
+    } elsif ($command =~ /^(?:shame)$/) {
+        return shame();
     } elsif ($command =~ /^(?:edit)$/) {
         return edit();
     }
@@ -391,6 +394,11 @@ sub list {
     return ['noop'];
 }
 
+sub shame {
+    system "sort -f revbank.accounts | grep -v ^# | grep -- ' -' | more";
+    return ['noop'];
+}
+
 sub edit {
     system "vim revbank.products";
     return ['noop'];