Optimum Mac App InstallationCheck

#!/usr/bin/perl

use URI::Escape;

#Created/Modified by
#BT 9/24/11 Initial code for all inclusive msr check

#CPU type codes
my $CPU_PPC = 18;
my $CPU_INTEL = 7;

#bools
my $TRUE = 1;
my $FALSE = 0;

my $serialNumCmd = 'grep "Serial Number (system)"'; #not valid on 10.4

#determines if the OS is lion or higher
my $lion = $FALSE;

#vals
my %sysvals = ();

########################################
# Perl trim function to remove whitespace from the start and end of the string
#source: http://www.somacon.com/p114.php
sub trim($)
{
        my $string = shift;
        $string =~ s/^\s+//;
        $string =~ s/\s+$//;
        return $string;
}
########################################

#CPU Blacklist
#Designed so that future processors can be accommodated, regardless of speed
##############
#All Motorola (not going to check for this since likelihood of this actually coming up is nil, last processor was from '95)
#All PowerPC
#All Intel Core Solo
#Intel Core Duo if < 1.83 GHz
#pass otherwise
sub checkCPU
{
    #blacklisted cpu names
    my $bl_coreSolo  = "Intel Core Solo";
    my $bl_coreDuo = "Intel Core Duo";  #only blacklisting if under 1.83 GHz

    #required CPU Freq
    my $req_freqcoreduo = 1.83 * 1000 * 1000 * 1000;    #1.83 GHz converted to Hz

    #get cpu type
    my $cputype = trim(`sysctl -n hw.cputype`);

    #get cpu speed
    my $cpufreq = trim(`sysctl -n hw.cpufrequency_max`);
    $sysvals{'cpu_speed'} = int($cpufreq / (1000 * 1000));  #convert to MHz from Hz

    #get cpu name
    my $cpuname = trim(`system_profiler -detailLevel mini | grep "Processor Name:" | cut -d : -f 2-9`);
    $sysvals{'cpu_name'} = $cpuname;

    #other values we'd like to collect
    $sysvals{'cpu_cores'} = trim(`sysctl -n hw.activecpu`); #compatible with 10.3.9 mac mini

    #cpuResult
    my $cpuFail = $FALSE;

    #blacklist all PowerPCs
    if($cputype == $CPU_PPC)
    {
        $cpuFail = $TRUE;
    }
    elsif($cputype == $CPU_INTEL)
    {
        my $cmp = 999;
        #blacklist core solos
        if(($cmp = index($cpuname, $bl_coreSolo)) != -1)
        {
            print "Intel Core Solo failed: $cpuname, result=$cmp\n";
            $cpuFail = $TRUE;
        }
        elsif(($cmp = index($cpuname, $bl_coreDuo)) != -1)
        {
            #blacklist all core duos that are below the speed requirement
            if($cpufreq < $req_freqcoreduo)
            {
                print "Intel Core Duo: failed cpufreq < intel cpu : $cpuname, result=$cmp\n";
                $cpuFail = $TRUE;
            }
            else
            {
                print "Intel Core Duo passed: $cpuname, result=$cmp\n";
            }
        }
        else
        {
            print "CPU Passed: $cpuname\n";
        }
    }

    return $cpuFail;
}

sub checkMem
{
    my $memFail = $FALSE;

    #mem requirement
    my $req_mem = 1 * 1024 * 1024 * 1024;   #1 GB, convert to bytes

    #get memsize
    my $memsize = trim(`sysctl -n hw.memsize`); #in bytes
    $sysvals{'memory_amount'} = int($memsize / (1024 * 1024)); #convert to GB for easy reading in db

    #other values to retrieve
    #memory speed
    $sysvals{'memory_speed'}=trim(`system_profiler SPMemoryDataType | grep "Speed:" | grep "Hz" | tail -n 1 | tr -cd 0-9`);

    if($memsize < $req_mem)
    {
        print "memsize < req memsize : $memsize < $req_mem\n";
        $memFail = $TRUE;
    }
    else
    {
        print "memsize passed : $memsize >= $req_mem\n";
    }

    return $memFail;
}

sub setLionFlag
{
    my $major = $_[0];
    my $minor = $_[1];

    #lion flag is FALSE by default, so only need to check for true
    if($major == 10)
    {
        if($minor >= 7)
        {
            $lion = $TRUE;
        }
    }
    else
    {
        #default to silverlight 5 in other cases
        $lion = $TRUE;
    }
}

#need to see how OS X 10.0 is reported...might need to use looks_like_number
sub checkOSX
{
    #required min OSX version
    my $req_major = 10;
    my $req_minor = 5;
    my $req_bugfix = 0;

    #get OSX version
    my $major = trim(`sw_vers -productVersion | cut -d . -f 1`);
    my $minor = trim(`sw_vers -productVersion | cut -d . -f 2`);
    my $bugfix = trim(`sw_vers -productVersion | cut -d . -f 3`);

    #get data for storage
    $sysvals{'os'} = trim(`sw_vers -productName`);
    $sysvals{'os_version'} = trim(`sw_vers -productVersion`);

    #set the lion flag
    setLionFlag($major, $minor);

    my $osxFail = $FALSE;

    if($major < $req_major)
    {
        $osxFail = $TRUE;
        print "OSX Failed: Major $major.$minor.$bugfix < $req_major.$req_minor.$req_bugfix\n";
    }
    elsif ($major == $req_major)    #skip if major > req_major
    {
        if($minor < $req_minor)
        {
            $osxFail = $TRUE;
            print "OSX Failed: Minor $major.$minor.$bugfix < $req_major.$req_minor.$req_bugfix\n";
        }
        elsif ($minor == $req_minor)    #skip if minor > req_minor
        {
            if($bugfix < $req_bugfix)
            {
                $osxFail = $TRUE;
                print "OSX Failed: Bugfix $major.$minor.$bugfix < $req_major.$req_minor.$req_bugfix\n";
            }
            else    #else bugfix >= req_bugfix
            {
                print "OSX Passed: $major.$minor.$bugfix >= $req_major.$req_minor.$req_bugfix\n";
            }
        }
    }

    return $osxFail;
}

#need to see how OS X 10.0 is reported...might need to use looks_like_number
sub checkSilverlight
{
    print "Checking Silverlight...\n";

    #required min Silverlight version
    my $req_major = 4;
    my $req_minor = 0;
    my $req_bugfix = 60310;

    if($lion)
    {
        $req_major = 5;
        $req_minor = 0;
        $req_bugfix = 0;
    }

    #get silverlight version
    #read file located at /Library/Internet Plug-Ins/Silverlight.plugin/Contents/Info.plist
    open FILE, "/Library/Application Support/Microsoft/Silverlight/version.txt" or return $TRUE;
    my @filelines = <FILE>;
    close FILE;

    my @verparts = split(/\./, $filelines[0]);
    #not sure if that produces a permission denied error
    my $major = $verparts[0];
    my $minor = $verparts[1];
    my $bugfix = $verparts[2];

    #get data for storage
    $sysvals{'silverlight_version'} = trim($filelines[0]);

    my $slFail = $FALSE;

    if($major < $req_major)
    {
        $slFail = $TRUE;
        print "Silverlight Failed: Major $major.$minor.$bugfix < $req_major.$req_minor.$req_bugfix\n";
    }
    elsif ($major == $req_major)    #skip if major > req_major
    {
        if($minor < $req_minor)
        {
            $slFail = $TRUE;
            print "Silverlight Failed: Minor $major.$minor.$bugfix < $req_major.$req_minor.$req_bugfix\n";
        }
        elsif ($minor == $req_minor)    #skip if minor > req_minor
        {
            if($bugfix < $req_bugfix)
            {
                $slFail = $TRUE;
                print "Silverlight Failed: Bugfix $major.$minor.$bugfix < $req_major.$req_minor.$req_bugfix\n";
            }
            #else   #else bugfix >= req_bugfix
            #{
            #   print "Silverlight Passed: $major.$minor.$bugfix >= $req_major.$req_minor.$req_bugfix\n";
            #}
        }
    }

    if($slFail == $FALSE){
        print "Silverlight Passed: $major.$minor.$bugfix >= $req_major.$req_minor.$req_bugfix\n";
    }

    return $slFail;
}

sub checkFreeDisk
{
    #recommended free disk
    my $req_disk = 30 * 1024 * 1024;    #25 Megabytes, in bytes

    #get free disk
    my $freedisk = `df -b / | tail -n 1 | tr -s "[:space:]" | cut -d ' ' -f 4` * 512;   #mult by 512 bc the shell command returns number of 512-byte blocks
    $sysvals{'hard_drive_free'} = int($freedisk / (1024 * 1024));   #convert to megabytes from bytes

    #other info to store
    $sysvals{'hard_drive_total'} = (`df -b / | tail -n 1 | tr -s "[:space:]" | cut -d ' ' -f 3` * 512) + $freedisk;
    $sysvals{'hard_drive_total'} = int($sysvals{'hard_drive_total'} / (1024 * 1024));   #convert to megabytes from bytes

    my $diskFail = $FALSE;
    if($freedisk < $req_disk)
    {
        print "Free Disk fail: $freedisk < $req_disk\n";
        $diskFail = $TRUE;
    }
    else
    {
        print "Free Disk pass: $freedisk >= $req_disk\n";
    }

    return $diskFail;
}

sub checkWiFi
{
    my $wifiFail = $FALSE;

    $sysvals{'network_secure'}="U"; #Unknown

    #wifi fail conditions
    my @fail = ("link auth: none", "Security: none", "link auth: unknown");

    #need to merge fail with bypass
    #where airport does not exist, invoking the airport command returns:
    #WirelessAttach: getInterfaceWithName failed
    #tested on mac mini, OS X 10.3.9
    my @bypassfail = ("failed", "linkStatus: Disabled", "BSSID: 0:0:0:0:0:0");

    #get airport status
    #using --getinfo instead of -I for legacy support
    my $airportdata = `/System/Library/PrivateFrameworks/Apple80211.framework/Versions/Current/Resources/airport --getinfo`;

    #check wifi authentication enabled
    my $stage1fail = $FALSE;
    for($i = 0; $i < scalar(@fail); $i++)
    {
        my $cmp = 999;
        if(($cmp = index($airportdata, $fail[$i])) != -1)
        {
            $stage1fail = $TRUE;
            print "WiFi Stage 1 Fail: $fail[$i] : index=$cmp\n$airportdata\n";
        }
    }

    #this accounts for the case where airport is off (returns "AirPort: Off")
    #also should allow it to pass if it returns unrecognized text.
    if($stage1fail)
    {
        my $stage2bypass = $FALSE;
        for($i = 0; $i < scalar(@bypassfail); $i++)
        {
            my $cmp = 999;
            if(($cmp = index($airportdata, $bypassfail[$i])) != -1)
            {
                $stage2bypass = $TRUE;
                print "WiFi Stage 2 BypassFail: $bypassfail[$i] : index=$cmp\n$airportdata\n";
            }
        }

        if(!$stage2bypass)
        {
            $wifiFail = $TRUE;
            $sysvals{'network_secure'}="N";
        }
        else
        {
            print "WiFi passed\n";
            $sysvals{'network_secure'}="Y";
        }
    }
    else
    {
        print "WiFi passed\n";
    }

    return $wifiFail;
}

sub checkWiFiTwo
{
    # conditions where wifi isn't valid include:
    #   airport doesn't exist
    #   airport is off
    #   airport is on but not connected
    my $wifiFail = $FALSE;

    $sysvals{'network_secure'}="U"; #Unknown

    #wifi fail conditions
    my @fail = ("link auth: none", "Security: none", "link auth: unknown");

    #need to merge fail with bypass
    #where airport does not exist, invoking the airport command returns:
    #WirelessAttach: getInterfaceWithName failed
    #tested on mac mini, OS X 10.3.9
    my @bypass = ("failed", "linkStatus: Disabled", "BSSID: 0:0:0:0:0:0", "AirPort: Off");

    #get airport status
    #using --getinfo instead of -I for legacy support
    my $airportdata = trim(`/System/Library/PrivateFrameworks/Apple80211.framework/Versions/Current/Resources/airport --getinfo`);

    #check wifi authentication enabled
    my $stage1bypass = $FALSE;
    for($i = 0; $i < scalar(@bypass); $i++)
    {
        my $cmp = 999;
        if(($cmp = index($airportdata, $bypass[$i])) != -1)
        {
            $stage1bypass = $TRUE;
            print "WiFi Stage 1 Bypass: $bypass[$i] : index=$cmp\n$airportdata\n";
            last;
        }
    }

    #if it didn't bypass then we are alive and connected
    #also should allow it to pass if we have unrecognized text.
    if(!$stage1bypass)
    {
        my $stage2fail = $FALSE;
        for($i = 0; $i < scalar(@fail); $i++)
        {
            my $cmp = 999;
            if(($cmp = index($airportdata, $fail[$i])) != -1)
            {
                $stage2fail = $TRUE;
                print "WiFi Stage 2 Fail: $fail[$i] : index=$cmp\n$airportdata\n";
                last;
            }
        }

        if($stage2fail)
        {
            $wifiFail = $TRUE;
            $sysvals{'network_secure'}="N";
        }
        else
        {
            print "WiFi passed\n";
            $sysvals{'network_secure'}="Y";
        }
    }
    else
    {
        print "WiFi passed\n";
    }

    return $wifiFail;
}

#source: http://stackoverflow.com/questions/1743406/user-properties-privileges-in-applescript
sub checkAdmin
{
    my $ADMIN = 80;
    my $permTxt = `id -G`;
    my @perms = split(/ /, $permTxt);
    print @perms;

    my $adminFail = $TRUE;
    for($i = 0; $i < scalar(@perms); $i++)
    {
        if($perms[$i] == $ADMIN)
        {
            print "User is Admin\n";
            $adminFail = $FALSE;
            $sysvals{'admin'}="Y";
        }
    }

    if($adminFail)
    {
        print "User Not Admin\n";
        $sysvals{'admin'}="N";
    }
    return $adminFail;
}
#checkExternal
sub checkExternal
{
    print "FUNC: checking external\n";
    my $extFail = $FALSE;
    $numDisplays = trim(`system_profiler SPDisplaysDataType | grep -c "Resolution"`);
    if($numDisplays >1 )
    {
        $extFail = $TRUE;
        print "FUNC: external detected\n";

    }
    return $extFail;
}
sub checkLaptop
{
    print "FUNC: checking laptop\n";
    my $laptopFail = $FALSE;
    $numLaptop = trim(`system_profiler SPDisplaysDataType | grep -c "LCD:"`);
    $numIMac = trim(`system_profiler SPDisplaysDataType | grep -c "iMac:"`);
    if(($numLaptop == 0) && ($numIMac == 0))
    {
        $laptopFail = $TRUE;
        print "FUNC: not laptop or iMac\n";
    }
    return $laptopFail;
}

#send to db
sub dbstore
{
    $url = "http://optimumapp.iptv.optimum.net/iotvlogger.jsp?type=msr_mac";
    $i = 0;
    while ( my ($key, $value) = each(%sysvals) ) {
        $url .= "&$key=".uri_escape($value);
    }

    print "$url\n";
    $result = `curl -Sv "$url"`;
    print $result;
}

sub getOtherInfo
{
    #get additional info that was not already retrieved and used for the msr

    #mac addresses

    #osx serial
    $cmd = 'system_profiler SPHardwareDataType | '.$serialNumCmd.' | cut -d : -f 2';
    $sysvals{'osx_serial'}= trim(`$cmd`);

    #gpu
    $sysvals{'gpu_name'}= trim(`system_profiler SPDisplaysDataType | grep "Chipset Model:" | cut -d : -f 2`);

    #gpu_ram
    $sysvals{'gpu_ram'}=trim(`system_profiler SPDisplaysDataType | grep "VRAM" | cut -d : -f 2 | tr -cd 0-9`);

}

sub exitWarn
{
    $sysvals{'result'}="W";
    my $warnOffset = 32;
    $sysvals{'resultCode'}=$_[0];
    dbstore();
    exit ($_[0] + $warnOffset);
}

sub exitFail
{
    $sysvals{'result'}="F";
    my $failOffset = 96;#for utest 32;
    $sysvals{'resultCode'}=$_[0];
    #print"exitfail $_[0] offsetresult is ($_[0]+$failOffset)\n";
    dbstore();
    exit ($_[0] + $failOffset);
}

sub exitSuccess
{
    $sysvals{'result'}="P";
    dbstore();
    exit 0;
}

#retrieve info
$sysvals{'app_version'} = "1.56";

#high priority checks
$cpu = checkCPU();
$mem = checkMem();
$osx = checkOSX();

#ensure that silverlight check is done AFTER OSX check due to Lion check
$slversion = checkSilverlight();

#misc check warnings
$disk = checkFreeDisk();
$wifi = checkWiFiTwo();
$admin = checkAdmin();
$laptop = checkLaptop();
$external = checkExternal();
getOtherInfo();

#return custom error codes for each class of failure
#order is important here

#no longer returning all of these error codes
if($cpu && $mem && $osx){
    print "RESULT: CPU, Mem and OSX Fail\n";
    exitFail(16);
}

if($cpu && $mem){
    print "RESULT: CPU and Mem Fail\n";
    exitFail(17);
}

if($cpu && $osx){
    print "RESULT: CPU and OSX Fail\n";
    exitFail(18);
}

if($mem && $osx){
    print "RESULT: Mem and OSX Fail\n";
    exitFail(19);
}

if($cpu){
    print "RESULT: CPU Fail\n";
    exitFail(20);
}

if($mem){
    print "RESULT: Mem Fail\n";
    exitFail(21);
}

if($osx){
    print "RESULT: OSX Fail\n";
    exitFail(22);
}

if($laptop)
{
    print "RESULT: not laptop\n";
    exitFail(28);
}

if($external)
{
    print "RESULT: external detected\n";
    exitFail(27);
}

#if($disk && $wifi){
#   print "RESULT: Disk and Wifi Fail\n";
#   exitWarn(23);   #warning only
#}

#if($disk){
#   print "RESULT: Disk Fail\n";
#   exitWarn(24);   #warning only
#}

#if($wifi){
#   print "RESULT: Wifi Fail\n";
#   exitWarn(25); #warning only
#}

if($slversion){
    print "RESULT: Silverlight Version Fail\n";
    my $sldl = $ARGV[0]."/Contents/Resources/sldl.sh";
    my $response = `"$sldl"`; #need to place quotes to account for spaces in path
    if(index($response, "Yes") != -1)
    {
        `open http://go2.microsoft.com/fwlink/?LinkID=149156`;
    }
    exitFail(29); #warning only
}

if($admin){
    print "RESULT: Admin Fail\n";
    exitWarn(26);   #warning only
}


#otherwise successful
exitSuccess();