Changeset 30534 for gs3-extensions/solr
- Timestamp:
- 2016-05-13T18:18:56+12:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs3-extensions/solr/trunk/src/perllib/solrserver.pm
r29711 r30534 415 415 while (defined($line=<STARTIN>)) { 416 416 417 #if ($line =~ m/^(BUILD FAILED /) {417 #if ($line =~ m/^(BUILD FAILED)/) { 418 418 print "Tomcat startup: $line"; 419 419 #} 420 } 420 if ($line =~ m/^BUILD SUCCESSFUL/) { 421 last; 422 } 423 } 424 425 close(STARTIN); 426 421 427 if ($self->server_running()) { 422 428 $server_status = "explicitly-started"; … … 456 462 print " $server_host:$server_port\n"; 457 463 458 # now we know the server is ready to accept connections, fork a 459 # child process that continues to listen to the output and 460 # prints out any lines that are not INFO lines 461 462 if (fork()==0) { 463 # child process 464 465 my $line; 466 while (defined ($line = <STARTIN>)) { 467 468 # if here, then some non-trival message has been logged 469 print "Tomcat/Solr processing: $line"; 470 } 471 close(STARTIN); 472 473 # And now stop nicely 474 exit 0; 475 } 476 # otherwise let the parent continue on 464 # now we know the server is ready to accept connections 477 465 } 478 466 elsif ($server_status eq "already-running") {
Note:
See TracChangeset
for help on using the changeset viewer.