X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=scripts%2Fspawn_oo.pl;h=d0e8f789cda8340c0d8a6880b6faa8f63af6df87;hb=061f4d6d32ed95055114582ede45e8387b302a53;hp=387961e2e67dca2f9e5b9302d4a224c5acb10106;hpb=ee736cda7e6e5ff820febb3ce4b66ad5fb71e32a;p=kivitendo-erp.git diff --git a/scripts/spawn_oo.pl b/scripts/spawn_oo.pl index 387961e2e..d0e8f789c 100755 --- a/scripts/spawn_oo.pl +++ b/scripts/spawn_oo.pl @@ -1,5 +1,10 @@ #!/usr/bin/perl +BEGIN { + 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 Data::Dumper; @@ -8,25 +13,18 @@ use SL::LXDebug; 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"; -$form->{"path"} = "bin/mozilla"; - $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 | " .