#!/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 = <>){
	$line =~ s/#.*//; # strip out comments
	if ($line =~ /^\s*CALL (.+) INTO (.+)/){
		$form->{$2} = &{$1}(\%$form);
	} elsif ($line =~ /^\s*MODULE (.+)/){
		$module = $1;
		$module =~ s/::/\//;
		eval { require $module; };
	} elsif ($line =~ /^\s*ENV:(.+)\s*=\s*(.*)/){
		$ENV{$1} = $2;
	} elsif ($line =~ /^\s*(.+)\s*=\s*(.+)/){
		$form->{$1} = $2;
	} elsif ($line =~ /^\s*CALL (.+)/){
		&{$1}(\%$form);
	} elsif ($line !~ /^\s*$/) {
		die "Parse error in script file: $line";
	}
}

for (keys %$form){
	print "$_ = $form->{$_}\n";
}