mirror of
https://github.com/SWG-Source/swg-main.git
synced 2026-01-16 20:04:18 -05:00
12 lines
394 B
Perl
12 lines
394 B
Perl
use FindBin '$Bin';
|
|
require "$Bin/passfail.pl";
|
|
require "$Bin/background_process.pl";
|
|
|
|
sub planetServerRunning
|
|
{
|
|
my($prefix, $planetName) = @_;
|
|
my $passFailMessage = "PlanetServer $planetName reports a true run state";
|
|
my $result = runCommandUntil($prefix, "planet $planetName runState", "running", 10);
|
|
failOnFalse($result eq "running", $passFailMessage, $passFailMessage);
|
|
}
|