mirrors/EWF
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed WSF_FILE_RESPONSE

Browse Source 
and added WSF_FORCE_DOWNLOAD_RESPONSE
This commit is contained in:
Jocelyn Fiat
2011-12-12 16:20:06 +01:00
parent f6b293d4ae
commit 68e4ac9a8f
3 changed files with 217 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
library/server/wsf/src/response/wsf_file_response.e
View File

@@ -20,7 +20,6 @@ feature {NONE} -- Initialization
make (a_file_name: READABLE_STRING_8)
do
file_name := a_file_name
base_name := basename (a_file_name)
get_content_type
initialize
end
@@ -29,7 +28,6 @@ feature {NONE} -- Initialization
-- Initialize `Current'.
do
file_name := a_filename
base_name := basename (a_filename)
content_type := a_content_type
initialize
end
@@ -47,9 +45,7 @@ feature {NONE} -- Initialization
create h.make
header := h
h.put_content_type (content_type)
h.put_transfer_encoding_binary
h.put_content_length (filesize (file_name))
h.put_content_disposition ("attachment", "filename=%""+ base_name +"%"")
end
feature -- Element change
@@ -77,8 +73,6 @@ feature -- Access
file_name: READABLE_STRING_8
base_name: READABLE_STRING_8
content_type: READABLE_STRING_8
feature -- Settings
@@ -141,32 +135,6 @@ feature {NONE} -- Implementation: file system helper
end
end
basename (fn: STRING): STRING
-- Basename of `fn'.
local
p: INTEGER
do
p := fn.last_index_of ((create {OPERATING_ENVIRONMENT}).Directory_separator, fn.count)
if p > 0 then
Result := fn.substring (p + 1, fn.count)
else
Result := fn
end
end
dirname (fn: STRING): STRING
-- Dirname of `fn'.
local
p: INTEGER
do
p := fn.last_index_of ((create {OPERATING_ENVIRONMENT}).Directory_separator, fn.count)
if p > 0 then
Result := fn.substring (1, p - 1)
else
create Result.make_empty
end
end
feature -- Content-type related
get_content_type