#!/usr/bin/perl
BEGIN {
- unshift @INC, "modules/YAML"; # Use our own version of YAML.
- push @INC, "modules"; # Only use our own versions of modules if there's no system version.
+ unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML).
+ push @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version.
}
use DBI;
use SL::Form;
use SL::Template;
-$userspath = "users";
-$templates = "templates";
-$memberfile = "users/members";
$sendmail = "| /usr/sbin/sendmail -t";
$| = 1;
$lxdebug = LXDebug->new();
-require "lx-erp.conf";
-
$form = new Form;
$form->{"script"} = "oe.pl";
$ENV{'HOME'} = getcwd() . "/$userspath";
-my $template = OpenDocumentTemplate->new("", $form, \%myconfig, $userspath);
+my $template = SL::Template::create(type => 'OpenDocument', file_name => '', form => $form, myconfig => \%myconfig, userspath => $userspath);
if (@ARGV && ($ARGV[0] eq "-r")) {
system("ps auxww | " .