'Handler class
Sub Class_Globals
Dim ABM As ABMaterial
End Sub
Public Sub Initialize
End Sub
Sub Handle(req As ServletRequest, resp As ServletResponse)
'get the callback page from the session (multiple modules can use this handler)
Dim callback As Object = req.GetSession.GetAttribute("abmcallback")
Dim downloadfolder As String = File.Combine(File.DirApp, req.GetSession.GetAttribute("abmdownloadfolder"))
Dim MaxSize As Int
Try
MaxSize = req.GetSession.GetAttribute("abmmaxsize")
Catch
resp.SendError(500, LastException.Message)
Return
End Try
Dim data As Map
Dim fileName As String
Dim tmpFileName As String
Try
data = req.GetMultipartData(downloadfolder, MaxSize)
Dim filePart As Part = data.Get("upl")
fileName = filePart.SubmittedFilename
tmpFileName = filePart.TempFile
If ABM.HandleUpload(downloadfolder, tmpFileName, fileName) Then
Log("success")
CallSubDelayed3(callback, "Page_FileUploaded", fileName, True)
Else
Log("fail")
CallSubDelayed3(callback, "Page_FileUploaded", fileName, False)
End If
Catch
resp.SendError(500, LastException.Message)
CallSubDelayed3(callback, "Page_FileUploaded", LastException.Message , False)
fileName = "LastException.Message"
End Try
End Sub