diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-01 05:07:33 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-01 05:07:33 +0000 |
| commit | 2818b492e282c29331d9186dd83d3241ad8662b4 (patch) | |
| tree | 14bc42d7d909eec97292d6d4d69c1142e4efd67f /utils | |
| parent | 987e2a6ea588c1aa1bb48ca562742f42c7e9fe27 (diff) | |
Adding simple, stupid cli script sample to illustrate file syntax
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@447 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/cli/ledgersmb_cli.pl | 2 | ||||
| -rw-r--r-- | utils/cli/sample.lsmb | 6 |
2 files changed, 7 insertions, 1 deletions
diff --git a/utils/cli/ledgersmb_cli.pl b/utils/cli/ledgersmb_cli.pl index 1dbbf2fa..faf77abd 100644 --- a/utils/cli/ledgersmb_cli.pl +++ b/utils/cli/ledgersmb_cli.pl @@ -22,7 +22,7 @@ while ($line = <>){ } elsif ($line =~ /^\s*(.+)\s*=\s*(.+)/){ $form->{$1} = $2; } elsif ($line =~ /^\s*CALL (.+)/){ - &{$1}(\%$form); + {$1}(\%$form); } elsif ($line !~ /^\s*$/) { die "Parse error in script file: $line"; } diff --git a/utils/cli/sample.lsmb b/utils/cli/sample.lsmb new file mode 100644 index 00000000..05650f97 --- /dev/null +++ b/utils/cli/sample.lsmb @@ -0,0 +1,6 @@ +# THe below line shows how to set the PGUSER environment variable +ENV:PGUSER = postgres +user = demo # set username +password = demo # set password +MODULE AR # load AR +CALL AR::transactions |