mirror of
https://github.com/ShadowKatStudios/OC-Minitel.git
synced 2024-11-30 13:58:07 +11:00
34 lines
736 B
Lua
34 lines
736 B
Lua
local net = require "net"
|
|
local event = require "event"
|
|
|
|
local function parseURL(url)
|
|
local hp, path = url:match("(.-)(/.+)")
|
|
hp, path = hp or url, path or "/"
|
|
local host, port = hp:match("(.+):(.+)")
|
|
host, port = host or hp, port or 70
|
|
return host, port, path
|
|
end
|
|
|
|
local tArgs = {...}
|
|
local host, port, path = parseURL(tArgs[1])
|
|
|
|
local socket = net.open(host,port)
|
|
socket:write("t"..path.."\n")
|
|
local c = socket:read(1)
|
|
repeat
|
|
c = socket:read(1)
|
|
os.sleep(0.5)
|
|
until c ~= ""
|
|
if c == "n" then
|
|
print(path..": Not found.")
|
|
elseif c == "f" then
|
|
print("Failure: ")
|
|
elseif c == "d" then
|
|
print("Directory listing for "..path)
|
|
end
|
|
repeat
|
|
l = socket:read(1024)
|
|
io.write(l)
|
|
os.sleep(0.5)
|
|
until socket.state == "closed" and l == ""
|