'

' DotNetNuke® - http://www.dotnetnuke.com

' Copyright (c) 2002-2007

' by DotNetNuke Corporation

'

' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated 

' documentation files (the "Software"), to deal in the Software without restriction, including without limitation 

' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and 

' to permit persons to whom the Software is furnished to do so, subject to the following conditions:

'

' The above copyright notice and this permission notice shall be included in all copies or substantial portions 

' of the Software.

'

' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED 

' TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL 

' THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF 

' CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 

' DEALINGS IN THE SOFTWARE.

'

Imports System.Web

Imports System.Web.Services

Imports System.Xml

Imports System.Web.Services.Protocols

Imports System.Web.Script.Services

Namespace DotNetNuke.Modules.IWebXAML

    <WebService(Namespace:="http://tempuri.org/")> _

    <WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _

    <ScriptService()> _

    Public Class WebService

        Inherits System.Web.Services.WebService

        <WebMethod(Description:="GetSilverlightUser")> _

               <ScriptMethod()> _

               Public Function GetUser(ByVal PortalID As Integer, ByVal ModuleId As String, _

               ByVal UserID As Integer, ByVal Password As String) As String

            Dim objIWebXAMLAuthendicationHeader As New IWebXAMLAuthendicationHeader()

            objIWebXAMLAuthendicationHeader.PortalID = PortalID

            objIWebXAMLAuthendicationHeader.UserID = UserID

            objIWebXAMLAuthendicationHeader.Password = Password

            objIWebXAMLAuthendicationHeader.ModuleId = ModuleId

            Dim objIWebXAMLAuthendication As New IWebXAMLAuthendication(objIWebXAMLAuthendicationHeader)

            If Not objIWebXAMLAuthendication.IsUserValid() Then

                Return "Hello World!"

            Else

                Dim objUser As UserInfo = objIWebXAMLAuthendication.GetUserInfo()

                Return "Hello " & objUser.DisplayName & "!"

            End If

        End Function

    End Class

End Namespace