97 lines
2.0 KiB
Lua
97 lines
2.0 KiB
Lua
local data
|
|
local file = "./p2p.tbl"
|
|
|
|
local function save()
|
|
local f = fs.open(file, "w")
|
|
f.write(textutils.serialise(data))
|
|
f.close()
|
|
end
|
|
|
|
local function load()
|
|
if fs.exists(file) then
|
|
local f = fs.open(file, "r")
|
|
local x = textutils.unserialise(f.readAll())
|
|
f.close()
|
|
return x
|
|
end
|
|
end
|
|
|
|
local function split(str)
|
|
local t = {}
|
|
for w in str:gmatch("%S+") do table.insert(t, w) end
|
|
return t
|
|
end
|
|
|
|
data = load() or {}
|
|
|
|
local case_insensitive = {
|
|
__index = function( table, key )
|
|
local value = rawget( table, key )
|
|
if value ~= nil then
|
|
return value
|
|
end
|
|
if type(key) == "string" then
|
|
local value = rawget( table, string.lower(key) )
|
|
if value ~= nil then
|
|
return value
|
|
end
|
|
end
|
|
return nil
|
|
end
|
|
}
|
|
|
|
setmetatable(data, case_insensitive)
|
|
|
|
local function tunnel_info(name)
|
|
local d = data[name]
|
|
return ("%s: %d %s"):format(name, d.channels, d.description)
|
|
end
|
|
|
|
local commands = {
|
|
list = function()
|
|
for t in pairs(data) do print(tunnel_info(t)) end
|
|
end,
|
|
info = function(name)
|
|
print(tunnel_info(name))
|
|
end,
|
|
describe = function(name)
|
|
local t = data[name]
|
|
print("Description:", t.description)
|
|
write "New description: "
|
|
t.description = read()
|
|
end,
|
|
add = function(name)
|
|
data[name] = {
|
|
channels = 0,
|
|
description = "None set."
|
|
}
|
|
end,
|
|
channels = function(name, by)
|
|
local by = tonumber(by)
|
|
if not by then error "Invalid number!" end
|
|
local t = data[name]
|
|
print("Channels:", t.channels)
|
|
print("Increasing by:", by)
|
|
t.channels = t.channels + by
|
|
print("New channels:", t.channels)
|
|
end,
|
|
delete = function(name)
|
|
data[name] = nil
|
|
end
|
|
}
|
|
|
|
setmetatable(commands, case_insensitive)
|
|
|
|
local hist = {}
|
|
|
|
while true do
|
|
write "> "
|
|
local text = read(nil, hist)
|
|
table.insert(hist, text)
|
|
local tokens = split(text)
|
|
local command = table.remove(tokens, 1)
|
|
|
|
local ok, err = pcall(commands[command], unpack(tokens))
|
|
save()
|
|
if not ok then printError(err) end
|
|
end |