4 unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML).
5 push @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version.
17 $sendmail = "| /usr/sbin/sendmail -t";
21 $lxdebug = LXDebug->new();
23 require "lx-erp.conf";
26 $form->{"script"} = "oe.pl";
28 $ENV{'HOME'} = getcwd() . "/$userspath";
30 my $template = SL::Template::create(type => 'OpenDocument', file_name => '', form => $form, myconfig => \%myconfig, userspath => $userspath);
32 if (@ARGV && ($ARGV[0] eq "-r")) {
33 system("ps auxww | " .
35 "awk '/^www-data.*(soffice|Xvfb)/ { print \$2 }' | " .
40 exit(1) unless ($template->spawn_xvfb());
41 exit(2) unless ($template->spawn_openoffice());