X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d629acd82a27e980899a044ca8b0f4becc8e94bb..53593baa211863fbf66540cf1bcc36c8fb37257f:/scripts/spawn_oo.pl diff --git a/scripts/spawn_oo.pl b/scripts/spawn_oo.pl deleted file mode 100755 index 9e2f80739..000000000 --- a/scripts/spawn_oo.pl +++ /dev/null @@ -1,43 +0,0 @@ -#!/usr/bin/perl - -BEGIN { - push(@INC, "modules"); -} - -use DBI; -use Data::Dumper; - -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"; - -$ENV{'HOME'} = getcwd() . "/$userspath"; - -my $template = OpenDocumentTemplate->new("", $form, \%myconfig, $userspath); - -if (@ARGV && ($ARGV[0] eq "-r")) { - system("ps auxww | " . - "grep -v awk | " . - "awk '/^www-data.*(soffice|Xvfb)/ { print \$2 }' | " . - "xargs -r kill"); - sleep(10); -} - -exit(1) unless ($template->spawn_xvfb()); -exit(2) unless ($template->spawn_openoffice()); -exit(0);