59 lines
1.7 KiB
Plaintext
59 lines
1.7 KiB
Plaintext
note
|
|
description : "Basic Service that show how to Upload a file"
|
|
date : "$Date$"
|
|
revision : "$Revision$"
|
|
|
|
class
|
|
APPLICATION_EXECUTION
|
|
|
|
inherit
|
|
WSF_EXECUTION
|
|
|
|
create
|
|
make
|
|
|
|
feature -- Basic operations
|
|
|
|
execute
|
|
-- Execute the incomming request
|
|
local
|
|
file: WSF_FILE_RESPONSE
|
|
l_answer: STRING
|
|
do
|
|
if request.is_get_request_method then
|
|
if request.path_info.same_string ("/") then
|
|
create file.make_html ("upload.html")
|
|
response.send (file)
|
|
else
|
|
-- Here we should handle unexpected errors.
|
|
end
|
|
elseif request.is_post_request_method then
|
|
if request.path_info.same_string ("/upload") then
|
|
-- Check if we have an uploaded file
|
|
if request.has_uploaded_file then
|
|
-- iterate over all the uploaded files
|
|
create l_answer.make_from_string ("<h1>Uploaded File/s</h1><br>")
|
|
across request.uploaded_files as ic loop
|
|
l_answer.append ("<strong>FileName:</strong>")
|
|
l_answer.append (ic.item.filename)
|
|
l_answer.append ("<br><strong>Size:</strong>")
|
|
l_answer.append (ic.item.size.out)
|
|
l_answer.append ("<br>")
|
|
end
|
|
response.put_header ({HTTP_STATUS_CODE}.ok, <<["Content-type","text/html"],["Content-lenght", l_answer.count.out]>>)
|
|
response.put_string (l_answer)
|
|
else
|
|
-- Here we should handle unexpected errors.
|
|
create l_answer.make_from_string ("<strong>No uploaded files</strong><br>")
|
|
l_answer.append ("Back to <a href='/'>Home</a>")
|
|
response.put_header ({HTTP_STATUS_CODE}.bad_request, <<["Content-type","text/html"],["Content-lenght", l_answer.count.out]>>)
|
|
response.put_string (l_answer)
|
|
end
|
|
else
|
|
-- Handle error
|
|
end
|
|
end
|
|
end
|
|
|
|
end
|