sub StartLifeKeeper()

in scripts/InstallLicAndStartLK.pl [174:204]

• 24 lines of code
• 6 McCabe index (conditional complexity)

sub StartLifeKeeper {
    my @results;
    my $retCode;

    @results = `lkstart >/dev/null 2>&1`;
    sleep 5;

    # Test for LK running
    foreach (1..3) {
        if (CheckLKStatus()) {
            last;
        }
        sleep 5;
    }
    if (!CheckLKStatus()) {
        print "LifeKeeper start failed.\n";
        return 0;
    }

    # Test for LK init complete
    foreach (1..100) {
        if (-e "/opt/LifeKeeper/config/LK_INITDONE") {
            return 1;
        }
        sleep 2;
    }

    # LifeKeeper init process did not complete.
    print "LifeKeeper startup failed to complete.\n";
    return 0;
}