summaryrefslogtreecommitdiff
path: root/script/3rd/lua-uri/uri/ftp.lua
diff options
context:
space:
mode:
Diffstat (limited to 'script/3rd/lua-uri/uri/ftp.lua')
-rw-r--r--script/3rd/lua-uri/uri/ftp.lua53
1 files changed, 0 insertions, 53 deletions
diff --git a/script/3rd/lua-uri/uri/ftp.lua b/script/3rd/lua-uri/uri/ftp.lua
deleted file mode 100644
index 2d9e3f6c..00000000
--- a/script/3rd/lua-uri/uri/ftp.lua
+++ /dev/null
@@ -1,53 +0,0 @@
-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