Fixed response building for /upload/
Added /upload/{filename} .
Added CMS_FILE_UPLOAD_API.
The storage/database part is untouched (and thus not implemented).
71 lines
1.4 KiB
Plaintext
71 lines
1.4 KiB
Plaintext
note
|
|
description: "Summary description for {CMS_FILE_UPLOAD_FILE}."
|
|
author: ""
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
CMS_FILE_UPLOAD_FILE
|
|
|
|
inherit
|
|
WSF_UPLOADED_FILE
|
|
rename
|
|
make as make_uploaded_file,
|
|
name as uploaded_file_name,
|
|
change_name as change_uploaded_file_name,
|
|
is_empty as is_empty_uploaded_file,
|
|
exists as uploaded_file_exists
|
|
end
|
|
|
|
RAW_FILE
|
|
rename
|
|
make as make_file
|
|
end
|
|
-- undefine
|
|
-- make, change_name, is_empty, exists
|
|
-- end
|
|
|
|
create
|
|
make
|
|
|
|
feature -- Initialization
|
|
|
|
make (a_name: READABLE_STRING_GENERAL; a_filename: READABLE_STRING_GENERAL; a_content_type: like content_type; a_size: like size; a_user: CMS_USER)
|
|
local
|
|
time: DATE_TIME
|
|
do
|
|
make_uploaded_file (a_name, a_filename, a_content_type, a_size)
|
|
make_with_name (a_filename)
|
|
|
|
uploaded_file_name := a_name.as_string_32
|
|
url_encoded_name := url_encoded_string (a_name)
|
|
filename := a_filename.as_string_32
|
|
content_type := a_content_type
|
|
size := a_size
|
|
|
|
create time.make_now_utc
|
|
set_uploaded_time (time)
|
|
set_uploaded_by (a_user)
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
uploaded_by: CMS_USER
|
|
-- user who has uploaded the file
|
|
|
|
uploaded_time: DATE_TIME
|
|
-- time and date when file was uploaded
|
|
|
|
feature -- Setter functions
|
|
|
|
set_uploaded_by (a_user: CMS_USER)
|
|
do
|
|
uploaded_by := a_user
|
|
end
|
|
|
|
set_uploaded_time (a_time: DATE_TIME)
|
|
do
|
|
uploaded_time := a_time
|
|
end
|
|
end
|