From 08559bff349b8266331389c9a0c579798ce94b4c Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Mon, 23 Feb 2009 14:04:50 -0400
Subject: Moved scripts from contrib/scripts/ into contrib/

---
 contrib/bal-huquq | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 contrib/bal-huquq

(limited to 'contrib/bal-huquq')

diff --git a/contrib/bal-huquq b/contrib/bal-huquq
new file mode 100755
index 00000000..fad2854a
--- /dev/null
+++ b/contrib/bal-huquq
@@ -0,0 +1,21 @@
+#!/bin/sh
+
+switch="-c"
+limit="-t (/Liabilities/?(/Huquq/?a/P{2.22AU}<={-1.0}:a<0):Ua>100)&a"
+
+if [ "$1" = "-C" -o "$1" = "-U" ]; then
+  switch="$1"
+  shift
+elif [ "$1" = "-b" -o "$1" = "-e" -o "$1" = "-p" ]; then
+  switch="$1 $2"
+  shift 2
+fi
+
+accts="$@"
+if [ -z "$accts" ]; then
+  accts="-Equity -Income -Expenses"
+else
+  limit=""
+fi
+
+ledger -VQ $switch $limit -s -S "-UT" balance $accts
-- 
cgit v1.2.3