'*************************************************************************
'
'      Author       : Esben Laursen (hyber@hyber.dk)
'      
'      Webpage      : http://www.hyber.dk or http://netsmsgw.sf.net
'
'      Notes        :
'
'      License      : This program is free software; you can redistribute
'                     it and/or modify it under the terms of the GNU
'                     General Public License as published by the Free
'                     Software Foundation version 2 of the License.
'
'*************************************************************************

<Serializable()> _
Public Class statsClientInfo


    Dim mstrOS As String
    Dim mstrCountry As String
    Dim mstrID As String
    Dim mstrMobMan As String
    Dim mstrMobModel As String
    Dim mstrMobVer As String
    Dim mbolHttpd As Boolean
    Dim mbolHttpdUsers As Boolean
    Dim mbolSmtpd As Boolean

    Public Property SMTPdEnabled() As Boolean
        Get
            Return mbolSmtpd
        End Get
        Set(ByVal value As Boolean)
            mbolSmtpd = value
        End Set
    End Property

    Public Property HTTPdEnabled() As Boolean
        Get
            Return mbolHttpd
        End Get
        Set(ByVal value As Boolean)
            mbolHttpd = value
        End Set
    End Property

    Public Property HTTPdUsersEnabled() As Boolean
        Get
            Return mbolHttpdUsers
        End Get
        Set(ByVal value As Boolean)
            mbolHttpdUsers = value
        End Set
    End Property

    Public Property PhoneManufacturer() As String
        Get
            Return mstrMobMan
        End Get
        Set(ByVal value As String)
            mstrMobMan = value
        End Set
    End Property

    Public Property PhoneModel() As String
        Get
            Return mstrMobModel
        End Get
        Set(ByVal value As String)
            mstrMobModel = value
        End Set
    End Property

    Public Property PhoneVersion() As String
        Get
            Return mstrMobVer
        End Get
        Set(ByVal value As String)
            mstrMobVer = value
        End Set
    End Property


    Public Property OS() As String
        Get
            Return mstrOS
        End Get
        Set(ByVal value As String)
            mstrOS = value
        End Set
    End Property

    Public Property Country() As String
        Get
            Return mstrCountry
        End Get
        Set(ByVal value As String)
            mstrCountry = value
        End Set
    End Property

    Public Property ID() As String
        Get
            Return mstrID
        End Get
        Set(ByVal value As String)
            mstrID = value
        End Set
    End Property

End Class