Namespace handler_mio

    Public Class Handler_download
        Implements IHttpHandler

#Region "IHttpHandler Members"

        Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
            Get
                Return True
            End Get
        End Property

        Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest

            Dim response As HttpResponse = context.Response
            Dim request As HttpRequest = context.Request

            'se l'utente non è autenticato rimando al login
            If Not request.IsAuthenticated Then
                response.StatusCode = 401
                response.End()
            End If

            'il contenuto arriva al browser
            response.Clear()
            response.ContentType = "application/x-zip-compressed"
            response.WriteFile(request.Path)
        End Sub

#End Region

    End Class


End Namespace