mirror of
https://github.com/ShadowKatStudios/OC-Minitel.git
synced 2024-11-27 12:28:06 +11:00
33 lines
640 B
Lua
33 lines
640 B
Lua
local net = require "net"
|
|
local event = require "event"
|
|
|
|
local tArgs = {...}
|
|
local host, path = tArgs[1], tArgs[2]
|
|
local port = 70
|
|
|
|
local sep = host:find(":")
|
|
if sep then
|
|
port=tonumber(host:sub(sep+1)) or port
|
|
host=host:sub(1,sep-1)
|
|
end
|
|
|
|
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 == ""
|