Revision 4b6fd7d0
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
| SL/Template.pm | ||
|---|---|---|
| 1251 | 1251 |
sub is_openoffice_running {
|
| 1252 | 1252 |
$main::lxdebug->enter_sub(); |
| 1253 | 1253 |
|
| 1254 |
system("./scripts/oo-uno-test-conn.py $main::openofficeorg_daemon_port " .
|
|
| 1255 |
"> /dev/null 2> /dev/null"); |
|
| 1256 |
my $res = $? == 0; |
|
| 1257 |
$main::lxdebug->message(LXDebug->DEBUG2(), " is_openoffice_running(): $?\n"); |
|
| 1254 |
my $output = `./scripts/oo-uno-test-conn.py $main::openofficeorg_daemon_port 2> /dev/null`; |
|
| 1255 |
chomp $output; |
|
| 1256 |
|
|
| 1257 |
my $res = ($? == 0) || $output; |
|
| 1258 |
$main::lxdebug->message(LXDebug->DEBUG2(), " is_openoffice_running(): res $res\n"); |
|
| 1258 | 1259 |
|
| 1259 | 1260 |
$main::lxdebug->leave_sub(); |
| 1260 | 1261 |
|
| scripts/oo-uno-test-conn.py | ||
|---|---|---|
| 26 | 26 |
try: |
| 27 | 27 |
desktop = establish_connection(sys.argv[1]) |
| 28 | 28 |
except: |
| 29 |
print "0" |
|
| 29 | 30 |
sys.exit(2) |
| 31 |
|
|
| 32 |
print "1" |
|
| 30 | 33 |
sys.exit(0) |
| 31 | 34 |
|
| 32 | 35 |
main() |
Auch abrufbar als: Unified diff
Dirty hack: Test "Läuft OO?" erfolgreich, wenn Testscript "1" ausgibt
Grund: OpenOffice bzw. der UNO-Connector stürzt gerne beim Beenden mit
einem segmentation fault ab, auch wenn die Verbindung selber in
Ordnung war. Also zusätzlich zum Exit code eine Statusausgabe des
Scripts benutzen.