sub InstallLicense()

in scripts/InstallLicAndStartLK.pl [130:148]

• 17 lines of code
• 3 McCabe index (conditional complexity)

sub InstallLicense {
    my $licenseFile = shift;
    my $cmd = "lkkeyins $licenseFile";
    my @results;
    my $retCode;

    @results = `$cmd 2>&1`;
    $retCode = $? >> 8;
    if ($retCode != 0) {
        print "Failed to install the LifeKeeper license\n";
        foreach (@results) {
            print "$_";
        }
        return 0;
    }

    unlink $licenseFile;
    return 1;
}