Imports System.Web
Imports Microsoft.VisualBasic

Public Class PartnerHandler
    Implements IHttpHandler


    Public ReadOnly Property IsReusable() As Boolean Implements System.Web.IHttpHandler.IsReusable
        Get

        End Get
    End Property

    Public Sub ProcessRequest(ByVal context As System.Web.HttpContext) Implements System.Web.IHttpHandler.ProcessRequest
        Dim request As HttpRequest = context.Request
        Dim response As HttpResponse = context.Response
        Dim sUrl As String = request.Url.AbsoluteUri
        Dim sUrlNew As String = sUrl.Replace("www.goprint2.com", "login.racadtech.com")

        'Dim sNameArr As String[] = sUrl.Split("/")
        If (Not sUrlNew.Equals(sUrl)) Then
            response.Redirect(sUrlNew)
        Else
            ' DODO: error handler, meaning this is not a www.goprint2.com request
        End If

    End Sub
End Class