send the file date for download file response.

This commit is contained in:
2013-04-22 21:06:29 +02:00
parent 06088866e0
commit e8d96b3521

View File

@@ -45,6 +45,7 @@ feature {NONE} -- Initialization
initialize initialize
local local
h: like header h: like header
d: HTTP_DATE
do do
create h.make create h.make
header := h header := h
@@ -52,6 +53,9 @@ feature {NONE} -- Initialization
h.put_transfer_encoding_binary h.put_transfer_encoding_binary
h.put_content_length (filesize (file_name)) h.put_content_length (filesize (file_name))
h.put_content_disposition ("attachment", "filename=%""+ base_name +"%"") h.put_content_disposition ("attachment", "filename=%""+ base_name +"%"")
if attached filedate (file_name) as dt then
h.put_last_modified (dt)
end
end end
feature -- Element change feature -- Element change
@@ -138,6 +142,19 @@ feature {NONE} -- Implementation: file system helper
end end
end end
filedate (fn: STRING): detachable DATE_TIME
-- Size of the file `fn'.
local
f: RAW_FILE
d: HTTP_DATE
do
create f.make (fn)
if f.exists then
create d.make_from_timestamp (f.date)
Result := d.date_time
end
end
file_extension (fn: STRING): STRING file_extension (fn: STRING): STRING
-- Extension of file `fn'. -- Extension of file `fn'.
local local