#!/usr/bin/perl #=========================================================================== # # LedgerSMB Command-line script host # # # LedgerSMB # Small Medium Business Accounting software # http://www.ledgersmb.org/ # # # Copyright (C) 2006 # This work contains copyrighted information from a number of sources all used # with permission. It is released under the GNU General Public License # Version 2 or, at your option, any later version. See COPYRIGHT file for # details. # # This is a simple wrapper that allows you to write simple scripts with LSMB # See sample for the file format. # # THIS IS EXPERIMENTAL AND THE INTERFACE IS SUBJECT TO CHANGE use LedgerSMB::User; use LedgerSMB::Form; use LedgerSMB::Sysconfig; $form = new Form; while ($line = <>){ $line =~ s/#.*//; # strip out comments if ($line =~ /^\s*CALL\s+(.+)\s+INTO\s+(.+)/i){ $form->{$2} = &{$1}(\%$form); } elsif ($line =~ /^\s*MODULE (.+)/i){ $module = $1; $module =~ s/::/\//; eval { require $module; }; } elsif ($line =~ /^\s*ENV:(.+)\s*=\s*(.*)/i){ my ($key, $value) = ($1, $2); $key =~ s/\s?(.*)\s?/$1/; $value =~ s/\s?(.*)\s?/$1/; $ENV{$1} = $2; } elsif ($line =~ /^\s*(.+)\s*=\s*(.+)/){ $form->{$1} = $2; } elsif ($line =~ /^\s*CALL\s+(.+)/i){ {$1}; } elsif ($line =~ /^\s*LOGIN\s*/i){ $myconfig = new LedgerSMB::User "${LedgerSMB::Sysconfig::memberfile}", "$form->{login}"; } elsif ($line !~ /^\s*$/) { die "Parse error in script file: $line"; } } delete $form->{password}; for (keys %$form){ print "$_ = $form->{$_}\n"; } hi.debian.org/inbox?h=master'>commitdiff
path: root/tags/44/9e/E1kxN4w-0003KI-2k@respighi.debian.org/inbox
diff options
context:
space:
mode:
Diffstat (limited to 'tags/44/9e/E1kxN4w-0003KI-2k@respighi.debian.org/inbox')
-rw-r--r--tags/44/9e/E1kxN4w-0003KI-2k@respighi.debian.org/inbox0
1 files changed, 0 insertions, 0 deletions