From 2bebecbfe9d4d85e79e5be176bcaa83890c7984f Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 1 Nov 2006 04:49:28 +0000
Subject: Adding outline of an experimental CLI wrapper

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@445 4979c152-3d1c-0410-bac9-87ea11338e46
---
 utils/cli/ledgersmb_cli.pl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 utils/cli/ledgersmb_cli.pl

(limited to 'utils/cli')

diff --git a/utils/cli/ledgersmb_cli.pl b/utils/cli/ledgersmb_cli.pl
new file mode 100644
index 00000000..72e4e2f7
--- /dev/null
+++ b/utils/cli/ledgersmb_cli.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+# This is a simple wrapper that allows you to write simple scripts with LSMB
+# See sample for the file format.
+
+use LedgerSMB::User;
+use LedgerSMB::Form;
+use LedgerSMB::Sysconfig;
+
+$form = new Form;
+
+while ($line = <>){
+	if ($line =~ /^\s*CALL (.+) INTO (.+)/){
+		$form->{$2} = %${$1};
+	} elsif ($line =~ /^\s*MODULE (.+)/){
+	} elsif ($line =~ /^\s*ENV:(.+)\s*=\s*(.*)/){
+	} elsif ($line =~ /^\s*(.+)\s*=\s*(.+)/){
+	} else {
+		die "Parse error in script file: $line";
+	}
+}
-- 
cgit v1.2.3