1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
local M = { _NAME = "uri.ftp" }
local Util = require "uri._util"
local LoginURI = require "uri._login"
Util.subclass_of(M, LoginURI)
function M.default_port () return 21 end
function M.init (self)
self, err = M._SUPER.init_base(self)
if not self then return nil, err end
local host = self:host()
if not host or host == "" then
return nil, "FTP URIs must have a hostname"
end
-- I don't think there's any distinction in FTP URIs between empty path
-- and the root directory, so probably best to normalize as we do for HTTP.
if self:path() == "" then self:path("/") end
return self
end
function M.path (self, ...)
local old = M._SUPER.path(self)
if select("#", ...) > 0 then
local new = ...
if not new or new == "" then new = "/" end
M._SUPER.path(self, new)
end
return old
end
function M.ftp_typecode (self, ...)
local path = M._SUPER.path(self)
local _, _, withouttype, old = path:find("^(.*);type=(.*)$")
if not withouttype then withouttype = path end
if old == "" then old = nil end
if select("#", ...) > 0 then
local new = ...
if not new then new = "" end
if new ~= "" then new = ";type=" .. new end
M._SUPER.path(self, withouttype .. new)
end
return old
end
return M
-- vi:ts=4 sw=4 expandtab
|
