Initial project's source code check-in.

WebsitePanel/Sources/WebsitePanel.Providers.Mail.Merak10/Merak10.vb

@@ -0,0 +1,68 @@
+' Copyright (c) 2011, Outercurve Foundation.
+' All rights reserved.
+'
+' Redistribution and use in source and binary forms, with or without modification,
+' are permitted provided that the following conditions are met:
+'
+' - Redistributions of source code must  retain  the  above copyright notice, this
+'   list of conditions and the following disclaimer.
+'
+' - Redistributions in binary form  must  reproduce the  above  copyright  notice,
+'   this list of conditions  and  the  following  disclaimer in  the documentation
+'   and/or other materials provided with the distribution.
+'
+' - Neither  the  name  of  the  Outercurve Foundation  nor   the   names  of  its
+'   contributors may be used to endorse or  promote  products  derived  from  this
+'   software without specific prior written permission.
+'
+' THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
+' ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING,  BUT  NOT  LIMITED TO, THE IMPLIED
+' WARRANTIES  OF  MERCHANTABILITY   AND  FITNESS  FOR  A  PARTICULAR  PURPOSE  ARE
+' DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR
+' ANY DIRECT, INDIRECT, INCIDENTAL,  SPECIAL,  EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+' (INCLUDING, BUT NOT LIMITED TO,  PROCUREMENT  OF  SUBSTITUTE  GOODS OR SERVICES;
+' LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)  HOWEVER  CAUSED AND ON
+' ANY  THEORY  OF  LIABILITY,  WHETHER  IN  CONTRACT,  STRICT  LIABILITY,  OR TORT
+' (INCLUDING NEGLIGENCE OR OTHERWISE)  ARISING  IN  ANY WAY OUT OF THE USE OF THIS
+' SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+Imports System
+Imports System.Collections
+Imports System.Collections.Specialized
+Imports System.IO
+Imports System.Text
+Imports System.Diagnostics
+Imports Microsoft.Win32
+
+
+
+
+
+
+Public Class Merak10
+    Inherits Merak
+
+    Public Overrides Function IsInstalled() As Boolean
+        Dim version As String = ""
+        Dim key32bit As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\IceWarp\IceWarp Server")
+        If (key32bit IsNot Nothing) Then
+            version = CStr(key32bit.GetValue("Version"))
+        Else
+            Dim key64bit As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Wow6432Node\IceWarp\IceWarp Server")
+            If (key64bit IsNot Nothing) Then
+                version = CStr(key64bit.GetValue("Version"))
+            Else
+                Return False
+            End If
+        End If
+        'Checking version 10.x
+
+        If [String].IsNullOrEmpty(version) = False Then
+            Dim split As String() = version.Split(New [Char]() {"."c})
+            Return split(0).Equals("8") Or split(0).Equals("10")
+        Else
+            Return False
+        End If
+    End Function
+
+End Class