'***********************************
'PROFITMASTER CANADA UPDATE ADVISOR
'KEN ATANACIO
'JULY 27, 2010
'***********************************

function getMCMVersion(NewMCMVer,SrvIP)
 'Function will display the MCM Version and if an update is required
 'Parm 1 = New MCM Version
 'Parm 2 = Server IP

 Dim FilePath
 Dim fso
 Dim CurMCMVer
 Dim CurMCMVerTmp
 Dim NewMCMVerTmp

 On Error Resume Next
 
 'Default path of Multi.exe
 FilePath = "C:\MerchantConnectMulti\Multi.exe"

 Set fso = CreateObject("scripting.filesystemobject")

 NewMCMVerTmp = FixVersion(NewMCMVer)
 'document.write("NEW MCM VER: " & NewMCMVerTmp & "<br />")

 CurMCMVer = fso.GetFileVersion(FilePath)

 CurMCMVerTmp = FixVersion(CurMCMVer)
 'document.write("CUR MCM VER: " & CurMCMVerTmp & "<br />")
 
 If CurMCMVer = "" Then
  getMCMVersion = "<strong><font color=red>MCM Not Installed or Can't Get MCM Version</strong><br />- Make sure C:\MerchantConnectMulti\Multi.exe exists<br />- Add http://" & SrvIP & " to Trusted Sites in Internet Explorer<br />- Set Trusted Sites Security Level to Low<br />- Select 'Yes' on any ActiveX Prompts</font>"
 Else
  If CurMCMVerTmp < NewMCMVerTmp Then
   getMCMVersion = "<span style='float:left;'><strong>Installed MCM Version: </strong>" & CurMCMVer & "</span><span style='float:right;text-align:right;'><strong><font color=red>Newer version of MCM Available (" & NewMCMVer & ")<br /><a href='guide/mcm.php?oldver=" & CurMCMVer & "&newver=" & NewMCMVer & "'>Click here</a> to Update</font></strong></span>"
  else
   getMCMVersion = "<span style='float:left;'><strong>Installed MCM Version: </strong>" & CurMCMVer & "</span><span style='float:right;'><strong><font color=green>You have the latest version of MCM</font></strong></span>"
  End If
 End If

end function

function getPMDVersion(NewPMDVer,SrvIP)
 'Function will display the MCM Version and if an update is required
 'Parm 1 = New MCM Version
 'Parm 2 = Server IP
 Dim CurPMDVer
 Dim CurPMDVerTmp
 Dim NewPMDVerTmp

 On Error Resume Next

 Set objWSHShell = CreateObject("WScript.Shell")

 NewPMDVerTmp = FixVersion(NewPMDVer)
 'document.write("NEW PMD VER: " & NewPMDVerTmp & "<br />")

 'Obtain PMDaemon Version from Windows Registry
 CurPMDVer = objWSHShell.RegRead _
       ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{91A00863-0ADB-4A00-99E0-DA12662A591D}_is1\DisplayVersion")

 '2.0.1 BETA was a special release, consider it 2.0.0
 Select Case CurPMDVer
  Case "2.0.1 BETA"
   CurPMDVerTmp = FixVersion("2.0.0")
  Case Else
   CurPMDVerTmp = FixVersion(CurPMDVer)
 End Select

 'document.write("CUR PMD VER: " & CurPMDVerTmp & "<br />")
       
 If CurPMDVer = "" Then
  getPMDVersion = "<strong><font color=red>PM Payment Daemon Not Installed or Can't Get PM Payment Daemon Version</strong><br />- Make sure PM Payment Daemon is installed<br />- Add http://" & SrvIP & " to Trusted Sites in Internet Explorer<br />- Set Trusted Sites Security Level to Low<br />- Select 'Yes' on any ActiveX Prompts</font>"
 Else
  If CurPMDVerTmp < NewPMDVerTmp Then
   getPMDVersion = "<span style='float:left;'><strong>Installed PM Payment Daemon Version: </strong>" & CurPMDVer & "</span><span style='float:right;text-align:right;'><strong><font color=red>Newer version of PM Payment Daemon Available (" & NewPMDVer & ")<br /><a href='guide/pmdaemon.php?oldver=" & CurPMDVer & "&newver=" & NewPMDVer & "'>Click here</a> to Update</font></strong></span>"
  else
   getPMDVersion = "<span style='float:left;'><strong>Installed PM Payment Daemon Version: </strong>" & CurPMDVer & "</span><span style='float:right;'><strong><font color=green>You have the latest version of PM Payment Daemon</font></strong></span>"
  End If
 End If

end function

function FixVersion(PMDVer)
 'Function will change version numbers to standard format
 'for version comparison
 'Parm 1 = Version Number

 Dim subver
 Dim fixver
 Dim versize

 subver = split(PMDVer, ".")

 versize = ubound(subver) + 1

 Select Case versize
   Case 2
    'If 2 subversions then we are dealing with PMDaemon. IE 2.00
    'Change to 02.00.00 and strip decimals (020000)
    if subver(0) <> "" Then
     if len(subver(0)) = 1 Then
      subver(0) = "0" & subver(0)
     end if
    end if
    if subver(1) <> "" Then
     if len(subver(1)) = 1 Then
      subver(1) = "0" & subver(1)
     end if
    end if
    FixVersion = subver(0) & subver(1) & "00"
   Case 3
    'If 3 subversions then we are dealing PMDaemon. IE 2.0.1
    'Change to 02.00.01 and strip decimals (020001)
    if subver(0) <> "" Then
     if len(subver(0)) = 1 Then
      subver(0) = "0" & subver(0)
     end if
    end if
    if subver(1) <> "" Then
     if len(subver(1)) = 1 Then
      subver(1) = "0" & subver(1)
     end if
    end if
    if subver(2) <> "" Then
     if len(subver(2)) = 1 Then
      subver(2) = "0" & subver(2)
     end if
    end if
    FixVersion = subver(0) & subver(1) & subver(2)
   Case 4
    'If 4 subversions then we are dealing with MCM. IE 3.2.15.6
    'Change to 03.02.15.06 and strip decimals (03021506)
    if subver(0) <> "" Then
     if len(subver(0)) = 1 Then
      subver(0) = "0" & subver(0)
     end if
    end if
    if subver(1) <> "" Then
     if len(subver(1)) = 1 Then
      subver(1) = "0" & subver(1)
     end if
    end if
    if subver(2) <> "" Then
     if len(subver(2)) = 1 Then
      subver(2) = "0" & subver(2)
     end if
    end if
    if subver(3) <> "" Then
     if len(subver(3)) = 1 Then
      subver(3) = "0" & subver(3)
     end if
    end if
    FixVersion = subver(0) & subver(1) & subver(2) & subver(3)
   Case Else
    'document.write("Invalid Version Format Detected<br />")
    FixVersion = 99999999
 End Select

end function