X-Git-Url: http://wagnertech.de/git?p=kivitendo-erp.git;a=blobdiff_plain;f=scripts%2Fspawn_oo.pl;fp=scripts%2Fspawn_oo.pl;h=0000000000000000000000000000000000000000;hp=d0e8f789cda8340c0d8a6880b6faa8f63af6df87;hb=53593baa211863fbf66540cf1bcc36c8fb37257f;hpb=deb4d2dbb676d7d6f69dfe7815d6e0cb09bd4a44 diff --git a/scripts/spawn_oo.pl b/scripts/spawn_oo.pl deleted file mode 100755 index d0e8f789c..000000000 --- a/scripts/spawn_oo.pl +++ /dev/null @@ -1,39 +0,0 @@ -#!/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; - -use SL::LXDebug; - -use SL::Form; -use SL::Template; - -$sendmail = "| /usr/sbin/sendmail -t"; - -$| = 1; - -$lxdebug = LXDebug->new(); - -$form = new Form; -$form->{"script"} = "oe.pl"; - -$ENV{'HOME'} = getcwd() . "/$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 | " . - "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);