Jocelyn Fiat
53181f901d
Fixed response building for /upload/
Added /upload/{filename} .
Added CMS_FILE_UPLOAD_API.
The storage/database part is untouched (and thus not implemented).
63 lines
1.0 KiB
Plaintext
63 lines
1.0 KiB
Plaintext
note
|
|
description: "Summary description for {CMS_UPLOADED_FILE}."
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
CMS_UPLOADED_FILE
|
|
|
|
create
|
|
make_with_uploaded_file
|
|
|
|
feature {NONE} -- Initializaion
|
|
|
|
make_with_uploaded_file (a_uploads_location: PATH; uf: WSF_UPLOADED_FILE)
|
|
do
|
|
uploads_location := a_uploads_location
|
|
uploaded_file := uf
|
|
location := a_uploads_location.extended (uf.safe_filename)
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
uploaded_file: WSF_UPLOADED_FILE
|
|
|
|
uploads_location: PATH
|
|
|
|
filename: STRING_32
|
|
-- File name of Current file.
|
|
local
|
|
p: PATH
|
|
do
|
|
p := location
|
|
if attached p.entry as e then
|
|
Result := e.name
|
|
else
|
|
Result := p.name
|
|
end
|
|
end
|
|
|
|
|
|
location: PATH
|
|
-- Absolute path, or relative path to the `CMS_API.files_location'.
|
|
|
|
owner: detachable CMS_USER
|
|
-- Optional owner.
|
|
|
|
feature -- Element change
|
|
|
|
set_owner (u: detachable CMS_USER)
|
|
-- Set `owner' to `u'.
|
|
do
|
|
owner := u
|
|
end
|
|
|
|
feature -- Basic operation
|
|
|
|
move_to (p: PATH): BOOLEAN
|
|
do
|
|
Result := uploaded_file.move_to (p.name)
|
|
end
|
|
|
|
end
|