Dirty hack: Test "Läuft OO?" erfolgreich, wenn Testscript "1" ausgibt

[mfinanz.git] / SL / Template.pm

diff --git a/SL/Template.pm b/SL/Template.pm
index 24285bf5b7226688e1321ad3379effeef5f26202..a21f9eae3ba43509cc4a339f1735e7c8a59f5b0d 100644 (file)
--- a/SL/Template.pm
+++ b/SL/Template.pm
@@ -1251,10 +1251,11 @@ sub spawn_xvfb {
 sub is_openoffice_running {
   $main::lxdebug->enter_sub();
 
-  system("./scripts/oo-uno-test-conn.py $main::openofficeorg_daemon_port " .
-         "> /dev/null 2> /dev/null");
-  my $res = $? == 0;
-  $main::lxdebug->message(LXDebug->DEBUG2(), "  is_openoffice_running(): $?\n");
+  my $output = `./scripts/oo-uno-test-conn.py $main::openofficeorg_daemon_port 2> /dev/null`;
+  chomp $output;
+
+  my $res = ($? == 0) || $output;
+  $main::lxdebug->message(LXDebug->DEBUG2(), "  is_openoffice_running(): res $res\n");
 
   $main::lxdebug->leave_sub();