mirror of https://github.com/dirtbags/moth.git
trying to get wopr to work
This commit is contained in:
parent
e1b225ab8b
commit
aafabfab9b
|
|
@ -6,81 +6,81 @@ POST_MAX = 512
|
||||||
|
|
||||||
method = os.getenv("REQUEST_METHOD")
|
method = os.getenv("REQUEST_METHOD")
|
||||||
if (method == "POST") then
|
if (method == "POST") then
|
||||||
local CL = tonumber(os.getenv("CONTENT_LENGTH")) or 0
|
local CL = tonumber(os.getenv("CONTENT_LENGTH")) or 0
|
||||||
if (CL > POST_MAX) then
|
if (CL > POST_MAX) then
|
||||||
CL = POST_MAX
|
CL = POST_MAX
|
||||||
end
|
end
|
||||||
function getc()
|
function getc()
|
||||||
if (CL > 0) then
|
if (CL > 0) then
|
||||||
CL = CL - 1
|
CL = CL - 1
|
||||||
return io.read(1)
|
return io.read(1)
|
||||||
else
|
else
|
||||||
return nil
|
return nil
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
elseif (method == "GET") then
|
elseif (method == "GET") then
|
||||||
local query = os.getenv("QUERY_STRING") or ""
|
local query = os.getenv("QUERY_STRING") or ""
|
||||||
local query_pos = 0
|
local query_pos = 0
|
||||||
local query_len = string.len(query)
|
local query_len = string.len(query)
|
||||||
if (query_len > POST_MAX) then
|
if (query_len > POST_MAX) then
|
||||||
query_len = POST_MAX
|
query_len = POST_MAX
|
||||||
end
|
end
|
||||||
function getc()
|
function getc()
|
||||||
if (query_pos < query_len) then
|
if (query_pos < query_len) then
|
||||||
query_pos = query_pos + 1
|
query_pos = query_pos + 1
|
||||||
return string.sub(query, query_pos, query_pos)
|
return string.sub(query, query_pos, query_pos)
|
||||||
else
|
else
|
||||||
return nil
|
return nil
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
print("405 Method not allowed")
|
print("405 Method not allowed")
|
||||||
print("Allow: GET POST")
|
print("Allow: GET POST")
|
||||||
print("Content-Type: text/plain")
|
print("Content-Type: text/plain")
|
||||||
print()
|
print()
|
||||||
print("I only do GET and POST.")
|
print("I only do GET and POST.")
|
||||||
os.exit(0)
|
os.exit(0)
|
||||||
end
|
end
|
||||||
|
|
||||||
function read_hex()
|
function read_hex()
|
||||||
local a = getc() or 0
|
local a = getc() or 0
|
||||||
local b = getc() or 0
|
local b = getc() or 0
|
||||||
|
|
||||||
return string.char(tonumber(a, 16)*16 + tonumber(b, 16))
|
return string.char(tonumber(a, 16)*16 + tonumber(b, 16))
|
||||||
end
|
end
|
||||||
|
|
||||||
function cgi_item()
|
function cgi_item()
|
||||||
local val = ""
|
local val = ""
|
||||||
|
|
||||||
while (true) do
|
while (true) do
|
||||||
local c = getc()
|
local c = getc()
|
||||||
if ((c == nil) or (c == "=") or (c == "&")) then
|
if ((c == nil) or (c == "=") or (c == "&")) then
|
||||||
return val
|
return val
|
||||||
elseif (c == "%") then
|
elseif (c == "%") then
|
||||||
c = read_hex()
|
c = read_hex()
|
||||||
elseif (c == "+") then
|
elseif (c == "+") then
|
||||||
c = " "
|
c = " "
|
||||||
end
|
end
|
||||||
val = val .. c
|
val = val .. c
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
function escape(s)
|
function escape(s)
|
||||||
s = string.gsub(s, "&", "&")
|
s = string.gsub(s, "&", "&")
|
||||||
s = string.gsub(s, "<", "<")
|
s = string.gsub(s, "<", "<")
|
||||||
s = string.gsub(s, ">", ">")
|
s = string.gsub(s, ">", ">")
|
||||||
return s
|
return s
|
||||||
end
|
end
|
||||||
|
|
||||||
f = {}
|
f = {}
|
||||||
while (true) do
|
while (true) do
|
||||||
local key = cgi_item()
|
local key = cgi_item()
|
||||||
local val = cgi_item()
|
local val = cgi_item()
|
||||||
|
|
||||||
if (key == "") then
|
if (key == "") then
|
||||||
break
|
break
|
||||||
end
|
end
|
||||||
f[key] = val
|
f[key] = val
|
||||||
end
|
end
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -88,35 +88,35 @@ end
|
||||||
-- lua doesn't seed its PRNG and provides nothing other than
|
-- lua doesn't seed its PRNG and provides nothing other than
|
||||||
-- time in seconds. If you're on Windows, go fish.
|
-- time in seconds. If you're on Windows, go fish.
|
||||||
do
|
do
|
||||||
local seed = 0
|
local seed = 0
|
||||||
r = io.open("/dev/urandom") or io.open("/dev/random")
|
r = io.open("/dev/urandom") or io.open("/dev/random")
|
||||||
for i = 1, 4 do
|
for i = 1, 4 do
|
||||||
seed = seed*256 + string.byte(r:read(1))
|
seed = seed*256 + string.byte(r:read(1))
|
||||||
end
|
end
|
||||||
io.close(r)
|
io.close(r)
|
||||||
math.randomseed(seed)
|
math.randomseed(seed)
|
||||||
end
|
end
|
||||||
|
|
||||||
-- Get or create Session ID
|
-- Get or create Session ID
|
||||||
sid = f["s"] or ""
|
sid = f["s"] or ""
|
||||||
if (sid == "") then
|
if (sid == "") then
|
||||||
sid = string.format("%08x.%04x", os.time(), math.random(65535))
|
sid = string.format("%08x.%04x", os.time(), math.random(65535))
|
||||||
end
|
end
|
||||||
dirname = BASEDIR .. "/" .. sid
|
dirname = BASEDIR .. "/" .. sid
|
||||||
|
|
||||||
-- Send back a page
|
-- Send back a page
|
||||||
function reply(text, prompt, ...)
|
function reply(text, prompt, ...)
|
||||||
print("Content-type: text/xml")
|
print("Content-type: text/xml")
|
||||||
print()
|
print()
|
||||||
print("<document>")
|
print("<document>")
|
||||||
print(" <sessionid>" .. sid .. "</sessionid>")
|
print(" <sessionid>" .. sid .. "</sessionid>")
|
||||||
print(" <response>" .. escape(text or "") .. "</response>")
|
print(" <response>" .. escape(text or "") .. "</response>")
|
||||||
print(" <prompt>" .. escape(prompt or ">") .. "</prompt>")
|
print(" <prompt>" .. escape(prompt or ">") .. "</prompt>")
|
||||||
if (arg[1]) then
|
if (arg[1]) then
|
||||||
print(" <error>" .. escape(arg[1]) .. "</error>")
|
print(" <error>" .. escape(arg[1]) .. "</error>")
|
||||||
end
|
end
|
||||||
print("</document>")
|
print("</document>")
|
||||||
os.exit(0)
|
os.exit(0)
|
||||||
end
|
end
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -127,32 +127,32 @@ end
|
||||||
--
|
--
|
||||||
|
|
||||||
function get(key, ...)
|
function get(key, ...)
|
||||||
local fn = string.format("%s.%s", dirname, key)
|
local fn = string.format("%s.%s", dirname, key)
|
||||||
local f = io.open(fn)
|
local f = io.open(fn)
|
||||||
if (not f) then
|
if (not f) then
|
||||||
return arg[1]
|
return arg[1]
|
||||||
else
|
else
|
||||||
local ret = f:read(4000) or ""
|
local ret = f:read(4000) or ""
|
||||||
f:close()
|
f:close()
|
||||||
return ret
|
return ret
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
function set(key, ...)
|
function set(key, ...)
|
||||||
local fn = string.format("%s.%s", dirname, key)
|
local fn = string.format("%s.%s", dirname, key)
|
||||||
local f
|
local f
|
||||||
|
|
||||||
f = io.open(fn, "w")
|
f = io.open(fn, "w")
|
||||||
if not f then
|
if not f then
|
||||||
error("Unable to write " .. fn)
|
error("Unable to write " .. fn)
|
||||||
end
|
end
|
||||||
f:write(arg[1] or "")
|
f:write(arg[1] or "")
|
||||||
f:close()
|
f:close()
|
||||||
end
|
end
|
||||||
|
|
||||||
function del(key)
|
function del(key)
|
||||||
local fn = string.format("%s.%s", dirname, key)
|
local fn = string.format("%s.%s", dirname, key)
|
||||||
os.remove(fn)
|
os.remove(fn)
|
||||||
end
|
end
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -160,21 +160,21 @@ end
|
||||||
-- A string splitter
|
-- A string splitter
|
||||||
--
|
--
|
||||||
function string:split(...)
|
function string:split(...)
|
||||||
local sep = arg[1] or " "
|
local sep = arg[1] or " "
|
||||||
local ret = {}
|
local ret = {}
|
||||||
local start = 1
|
local start = 1
|
||||||
|
|
||||||
while true do
|
while true do
|
||||||
local first, last = self:find(sep, start)
|
local first, last = self:find(sep, start)
|
||||||
if not first then
|
if not first then
|
||||||
break
|
break
|
||||||
end
|
end
|
||||||
table.insert(ret, self:sub(start, first - 1))
|
table.insert(ret, self:sub(start, first - 1))
|
||||||
start = last + 1
|
start = last + 1
|
||||||
end
|
end
|
||||||
table.insert(ret, self:sub(start))
|
table.insert(ret, self:sub(start))
|
||||||
|
|
||||||
return ret
|
return ret
|
||||||
end
|
end
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -190,124 +190,124 @@ hosts_by_name = {}
|
||||||
Host = {}
|
Host = {}
|
||||||
|
|
||||||
function Host:new(name, ...)
|
function Host:new(name, ...)
|
||||||
local o = {}
|
local o = {}
|
||||||
setmetatable(o, self)
|
setmetatable(o, self)
|
||||||
self.__index = self
|
self.__index = self
|
||||||
o.name = name
|
o.name = name
|
||||||
o.prompt = (arg[1] or ">")
|
o.prompt = (arg[1] or ">")
|
||||||
o.obuf = {}
|
o.obuf = {}
|
||||||
o.history = {}
|
o.history = {}
|
||||||
|
|
||||||
hosts_by_name[name] = o
|
hosts_by_name[name] = o
|
||||||
return o
|
return o
|
||||||
end
|
end
|
||||||
|
|
||||||
function Host:add_commands(t)
|
function Host:add_commands(t)
|
||||||
local cmds = {}
|
local cmds = {}
|
||||||
local k, v
|
local k, v
|
||||||
|
|
||||||
for k,v in pairs(self.commands) do
|
for k,v in pairs(self.commands) do
|
||||||
cmds[k] = v
|
cmds[k] = v
|
||||||
end
|
end
|
||||||
for k,v in pairs(t) do
|
for k,v in pairs(t) do
|
||||||
cmds[k] = v
|
cmds[k] = v
|
||||||
end
|
end
|
||||||
self.commands = cmds
|
self.commands = cmds
|
||||||
end
|
end
|
||||||
|
|
||||||
function Host:get(key, ...)
|
function Host:get(key, ...)
|
||||||
return get(self.name .. "." .. key, arg[1])
|
return get(self.name .. "." .. key, arg[1])
|
||||||
end
|
end
|
||||||
|
|
||||||
function Host:set(key, ...)
|
function Host:set(key, ...)
|
||||||
return set(self.name .. "." .. key, arg[1])
|
return set(self.name .. "." .. key, arg[1])
|
||||||
end
|
end
|
||||||
|
|
||||||
function Host:del(key)
|
function Host:del(key)
|
||||||
return del(self.name .. "." .. key)
|
return del(self.name .. "." .. key)
|
||||||
end
|
end
|
||||||
|
|
||||||
function Host:writeln(...)
|
function Host:writeln(...)
|
||||||
table.insert(self.obuf, (arg[1] or ""))
|
table.insert(self.obuf, (arg[1] or ""))
|
||||||
end
|
end
|
||||||
|
|
||||||
function Host:login(...)
|
function Host:login(...)
|
||||||
set("host", self.name)
|
set("host", self.name)
|
||||||
reply(arg[1] or self.motd, self.prompt)
|
reply(arg[1] or self.motd, self.prompt)
|
||||||
end
|
end
|
||||||
|
|
||||||
function Host:cmd_help()
|
function Host:cmd_help()
|
||||||
local k, v
|
local k, v
|
||||||
self:writeln("Available commands:")
|
self:writeln("Available commands:")
|
||||||
for k,v in pairs(self.commands) do
|
for k,v in pairs(self.commands) do
|
||||||
if (v[1]) then
|
if (v[1]) then
|
||||||
local s = string.format("%-15s %s", k, v[1])
|
local s = string.format("%-15s %s", k, v[1])
|
||||||
self:writeln(s)
|
self:writeln(s)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
function Host:cmd_history()
|
function Host:cmd_history()
|
||||||
local k, v
|
local k, v
|
||||||
for k,v in ipairs(self.history) do
|
for k,v in ipairs(self.history) do
|
||||||
self:writeln(string.format("%5d %s", k, v))
|
self:writeln(string.format("%5d %s", k, v))
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
-- Call self:handle(req) and return what to send back
|
-- Call self:handle(req) and return what to send back
|
||||||
function Host:handle_request(req)
|
function Host:handle_request(req)
|
||||||
local t = ""
|
local t = ""
|
||||||
local k, v
|
local k, v
|
||||||
|
|
||||||
self:handle(req)
|
self:handle(req)
|
||||||
|
|
||||||
for k,v in ipairs(self.obuf) do
|
for k,v in ipairs(self.obuf) do
|
||||||
t = t .. v .. "\n";
|
t = t .. v .. "\n";
|
||||||
end
|
end
|
||||||
reply(t, self.prompt)
|
reply(t, self.prompt)
|
||||||
end
|
end
|
||||||
|
|
||||||
-- Handle a request
|
-- Handle a request
|
||||||
function Host:handle(req)
|
function Host:handle(req)
|
||||||
self:do_cmd(req)
|
self:do_cmd(req)
|
||||||
end
|
end
|
||||||
|
|
||||||
-- Run a command or return an error
|
-- Run a command or return an error
|
||||||
function Host:do_cmd(req)
|
function Host:do_cmd(req)
|
||||||
local argv = req:split()
|
local argv = req:split()
|
||||||
local cmd = self.commands[argv[1]:lower()]
|
local cmd = self.commands[argv[1]:lower()]
|
||||||
|
|
||||||
if (argv[1] == "") then
|
if (argv[1] == "") then
|
||||||
return
|
return
|
||||||
end
|
end
|
||||||
|
|
||||||
-- First, update history
|
-- First, update history
|
||||||
if self.history then
|
if self.history then
|
||||||
local h = self:get("history")
|
local h = self:get("history")
|
||||||
if h then
|
if h then
|
||||||
self.history = h:split("\n")
|
self.history = h:split("\n")
|
||||||
end
|
end
|
||||||
table.insert(self.history, req)
|
table.insert(self.history, req)
|
||||||
self:set("history", table.concat(self.history, "\n"))
|
self:set("history", table.concat(self.history, "\n"))
|
||||||
end
|
end
|
||||||
|
|
||||||
-- Now run the command
|
-- Now run the command
|
||||||
if cmd then
|
if cmd then
|
||||||
if cmd[2] then
|
if cmd[2] then
|
||||||
cmd[2](self, argv)
|
cmd[2](self, argv)
|
||||||
else
|
else
|
||||||
self:writeln("ERROR: no function defined")
|
self:writeln("ERROR: no function defined")
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
self:writeln("Unknown command")
|
self:writeln("Unknown command")
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
-- List of commands, with help string (nil hides from help)
|
-- List of commands, with help string (nil hides from help)
|
||||||
Host.commands = {
|
Host.commands = {
|
||||||
["?"] = {nil, Host.cmd_help},
|
["?"] = {nil, Host.cmd_help},
|
||||||
["help"] = {"List available commands", Host.cmd_help},
|
["help"] = {"List available commands", Host.cmd_help},
|
||||||
["history"] = {"Display command history", Host.cmd_history},
|
["history"] = {"Display command history", Host.cmd_history},
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -344,27 +344,28 @@ warning.
|
||||||
]]
|
]]
|
||||||
|
|
||||||
function Login:handle(req)
|
function Login:handle(req)
|
||||||
if (string.len(req) > 20) then
|
if (string.len(req) > 20) then
|
||||||
-- Log them in to wopr
|
-- Log them in to wopr
|
||||||
Wopr:login([[
|
Wopr:login([[
|
||||||
FLAGRANT SYSTEM ERROR: Memory segmentation violation
|
FLAGRANT SYSTEM ERROR: Memory segmentation violation
|
||||||
Returning to command subsystem [wopr:xipir-cavud-libux]
|
Returning to command subsystem [wopr:xipir-cavud-libux]
|
||||||
]])
|
]])
|
||||||
else
|
else
|
||||||
if (req == "joshua") then
|
if (req == "joshua") then
|
||||||
self:writeln("wopr:xirak-zoses-gefox")
|
self:writeln("wopr:xirak-zoses-gefox")
|
||||||
elseif (req ~= "") then
|
elseif (req ~= "") then
|
||||||
self:writeln("Incorrect code")
|
print("hi")
|
||||||
end
|
self:writeln("Incorrect code")
|
||||||
end
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
function Login:login(...)
|
function Login:login(...)
|
||||||
-- Since login is the default, we can *unset* host.
|
-- Since login is the default, we can *unset* host.
|
||||||
-- This has the nice property of not allocating any
|
-- This has the nice property of not allocating any
|
||||||
-- storage for people who never make it past the front door.
|
-- storage for people who never make it past the front door.
|
||||||
del("host")
|
del("host")
|
||||||
reply(arg[1] or self.motd, self.prompt)
|
reply(arg[1] or self.motd, self.prompt)
|
||||||
end
|
end
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -498,7 +499,7 @@ FLD-1327 extends target date for full WOPR integration until June 22,
|
||||||
[-4] = "<85><D2>^?׃<C4>^T1<C0>[]Ít&^@<B8>^A^@^@^@븋C^D<89>",
|
[-4] = "<85><D2>^?׃<C4>^T1<C0>[]Ít&^@<B8>^A^@^@^@븋C^D<89>",
|
||||||
[-5] = [[
|
[-5] = [[
|
||||||
^@^@^@^@^@^@on", n] => set attcon = n
|
^@^@^@^@^@^@on", n] => set attcon = n
|
||||||
msg "attcon set to" n
|
msg "attcon set to" n
|
||||||
["attcon enid"] => set_launch_trigger(1)
|
["attcon enid"] => set_launch_trigger(1)
|
||||||
["attcon dennis"] => set_launch_trigger(0)
|
["attcon dennis"] => set_launch_trigger(0)
|
||||||
["bb"] => call_subsys bb
|
["bb"] => call_subsys bb
|
||||||
|
|
@ -510,60 +511,60 @@ FLD-1327 extends target date for full WOPR integration until June 22,
|
||||||
}
|
}
|
||||||
|
|
||||||
Bb.motd = [[
|
Bb.motd = [[
|
||||||
WOPR Message Board
|
WOPR Message Board
|
||||||
====================================================
|
====================================================
|
||||||
[N]ext message
|
[N]ext message
|
||||||
(P)revious message
|
(P)revious message
|
||||||
(Q)uit
|
(Q)uit
|
||||||
Enter message number to jump to that message
|
Enter message number to jump to that message
|
||||||
]]
|
]]
|
||||||
|
|
||||||
function Bb:read(inc)
|
function Bb:read(inc)
|
||||||
local msgid = tonumber(self:get("msgid")) or 0
|
local msgid = tonumber(self:get("msgid")) or 0
|
||||||
msgid = msgid + inc
|
msgid = msgid + inc
|
||||||
self:jump(msgid)
|
self:jump(msgid)
|
||||||
end
|
end
|
||||||
|
|
||||||
function Bb:jump(msgid)
|
function Bb:jump(msgid)
|
||||||
self:set("msgid", msgid)
|
self:set("msgid", msgid)
|
||||||
|
|
||||||
self:writeln("::::::::::::::::::::::::: Message #" .. tostring(msgid))
|
self:writeln("::::::::::::::::::::::::: Message #" .. tostring(msgid))
|
||||||
self:writeln()
|
self:writeln()
|
||||||
self:writeln(self.posts[msgid])
|
self:writeln(self.posts[msgid])
|
||||||
end
|
end
|
||||||
|
|
||||||
function Bb:do_cmd(req)
|
function Bb:do_cmd(req)
|
||||||
local n = tonumber(req)
|
local n = tonumber(req)
|
||||||
if (req == "") then
|
if (req == "") then
|
||||||
self:cmd_next()
|
self:cmd_next()
|
||||||
elseif n then
|
elseif n then
|
||||||
self:jump(n)
|
self:jump(n)
|
||||||
else
|
else
|
||||||
Host.do_cmd(self, req)
|
Host.do_cmd(self, req)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
function Bb:cmd_next(argv)
|
function Bb:cmd_next(argv)
|
||||||
self:read(1)
|
self:read(1)
|
||||||
end
|
end
|
||||||
|
|
||||||
function Bb:cmd_prev(argv)
|
function Bb:cmd_prev(argv)
|
||||||
self:read(-1)
|
self:read(-1)
|
||||||
end
|
end
|
||||||
|
|
||||||
function Bb:cmd_help(argv)
|
function Bb:cmd_help(argv)
|
||||||
self:writeln(self.motd)
|
self:writeln(self.motd)
|
||||||
end
|
end
|
||||||
|
|
||||||
function Bb:cmd_quit(argv)
|
function Bb:cmd_quit(argv)
|
||||||
Wopr:login()
|
Wopr:login()
|
||||||
end
|
end
|
||||||
|
|
||||||
Bb.commands = {
|
Bb.commands = {
|
||||||
["?"] = {nil, Bb.cmd_help},
|
["?"] = {nil, Bb.cmd_help},
|
||||||
["n"] = {nil, Bb.cmd_next},
|
["n"] = {nil, Bb.cmd_next},
|
||||||
["p"] = {nil, Bb.cmd_prev},
|
["p"] = {nil, Bb.cmd_prev},
|
||||||
["q"] = {nil, Bb.cmd_quit},
|
["q"] = {nil, Bb.cmd_quit},
|
||||||
}
|
}
|
||||||
|
|
||||||
--
|
--
|
||||||
|
|
@ -571,87 +572,87 @@ Bb.commands = {
|
||||||
--
|
--
|
||||||
Wopr = Host:new("wopr", "WOPR%")
|
Wopr = Host:new("wopr", "WOPR%")
|
||||||
Wopr.history = {
|
Wopr.history = {
|
||||||
'subsys comm',
|
'subsys comm',
|
||||||
'wopr:xopev-zihuk-hubyx',
|
'wopr:xopev-zihuk-hubyx',
|
||||||
'exit',
|
'exit',
|
||||||
'subsys comm',
|
'subsys comm',
|
||||||
'bb',
|
'bb',
|
||||||
'subsys comm',
|
'subsys comm',
|
||||||
'exit',
|
'exit',
|
||||||
'bb',
|
'bb',
|
||||||
'subsys comm',
|
'subsys comm',
|
||||||
'exit',
|
'exit',
|
||||||
'hlep',
|
'hlep',
|
||||||
'help',
|
'help',
|
||||||
'bb',
|
'bb',
|
||||||
'help',
|
'help',
|
||||||
'subsys comm',
|
'subsys comm',
|
||||||
'exit',
|
'exit',
|
||||||
}
|
}
|
||||||
|
|
||||||
Wopr.motd = ""
|
Wopr.motd = ""
|
||||||
|
|
||||||
function Wopr:cmd_subsys(argv)
|
function Wopr:cmd_subsys(argv)
|
||||||
local sys = argv[2]
|
local sys = argv[2]
|
||||||
|
|
||||||
if not sys then
|
if not sys then
|
||||||
self:writeln("Usage: subsys SYSTEM")
|
self:writeln("Usage: subsys SYSTEM")
|
||||||
elseif sys == "?" then
|
elseif sys == "?" then
|
||||||
local k, v
|
local k, v
|
||||||
for k,v in pairs(hosts_by_name) do
|
for k,v in pairs(hosts_by_name) do
|
||||||
self:writeln(k)
|
self:writeln(k)
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
h = hosts_by_name[sys]
|
h = hosts_by_name[sys]
|
||||||
if not h then
|
if not h then
|
||||||
self:writeln("No such subsystem (? to list)")
|
self:writeln("No such subsystem (? to list)")
|
||||||
else
|
else
|
||||||
h:login()
|
h:login()
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
function Wopr:cmd_bb(argv)
|
function Wopr:cmd_bb(argv)
|
||||||
Bb:login()
|
Bb:login()
|
||||||
end
|
end
|
||||||
|
|
||||||
function Wopr:attcon()
|
function Wopr:attcon()
|
||||||
return tonumber(self:get("attcon") or 5)
|
return tonumber(self:get("attcon") or 5)
|
||||||
end
|
end
|
||||||
|
|
||||||
-- This command should feel really shoddy: it was written
|
-- This command should feel really shoddy: it was written
|
||||||
-- in-house by the New Khavistan Ministry of Technology.
|
-- in-house by the New Khavistan Ministry of Technology.
|
||||||
function Wopr:cmd_attcon(argv)
|
function Wopr:cmd_attcon(argv)
|
||||||
if argv[2] == "enid" then
|
if argv[2] == "enid" then
|
||||||
self:writeln("[[[ LAUNCH TRIGGER ENABLED ]]]")
|
self:writeln("[[[ LAUNCH TRIGGER ENABLED ]]]")
|
||||||
self:writeln("wopr:xelev-lepur-pozyx")
|
self:writeln("wopr:xelev-lepur-pozyx")
|
||||||
self:set("launch")
|
self:set("launch")
|
||||||
elseif argv[2] == "dennis" then
|
elseif argv[2] == "dennis" then
|
||||||
self:writeln("[[[ LAUNCH TRIGGER DISABLED ]]]")
|
self:writeln("[[[ LAUNCH TRIGGER DISABLED ]]]")
|
||||||
self:del("launch")
|
self:del("launch")
|
||||||
elseif argv[2] then
|
elseif argv[2] then
|
||||||
local v = tonumber(argv[2]) or 5
|
local v = tonumber(argv[2]) or 5
|
||||||
self:set("attcon", v)
|
self:set("attcon", v)
|
||||||
self:writeln("attcon set to " .. tostring(v))
|
self:writeln("attcon set to " .. tostring(v))
|
||||||
else
|
else
|
||||||
self:writeln(tostring(self:attcon()))
|
self:writeln(tostring(self:attcon()))
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
-- Some test code they didn't remove
|
-- Some test code they didn't remove
|
||||||
function Wopr:cmd_test(argv)
|
function Wopr:cmd_test(argv)
|
||||||
self:writeln("test output:")
|
self:writeln("test output:")
|
||||||
self:writeln(" EIGEN58")
|
self:writeln(" EIGEN58")
|
||||||
self:writeln(" sub_malarkey reached")
|
self:writeln(" sub_malarkey reached")
|
||||||
self:writeln(" DEBUG:453:wopr:xocom-bysik-mapix")
|
self:writeln(" DEBUG:453:wopr:xocom-bysik-mapix")
|
||||||
self:writeln("$$END")
|
self:writeln("$$END")
|
||||||
end
|
end
|
||||||
|
|
||||||
Wopr:add_commands{
|
Wopr:add_commands{
|
||||||
["subsys"] = {"Connect to subsystem", Wopr.cmd_subsys},
|
["subsys"] = {"Connect to subsystem", Wopr.cmd_subsys},
|
||||||
["bb"] = {"Read bulletin board", Wopr.cmd_bb},
|
["bb"] = {"Read bulletin board", Wopr.cmd_bb},
|
||||||
["attcon"] = {"[Place command description here]", Wopr.cmd_attcon},
|
["attcon"] = {"[Place command description here]", Wopr.cmd_attcon},
|
||||||
["test"] = {nil, Wopr.cmd_test},
|
["test"] = {nil, Wopr.cmd_test},
|
||||||
}
|
}
|
||||||
|
|
||||||
--hosts["wopr"] = Wopr
|
--hosts["wopr"] = Wopr
|
||||||
|
|
@ -670,17 +671,17 @@ patching trunks to switch!
|
||||||
]]
|
]]
|
||||||
|
|
||||||
function Comm:cmd_exit(argv)
|
function Comm:cmd_exit(argv)
|
||||||
Wopr:login()
|
Wopr:login()
|
||||||
end
|
end
|
||||||
|
|
||||||
function Comm:cmd_status(argv)
|
function Comm:cmd_status(argv)
|
||||||
self:writeln("[Not yet implemented]")
|
self:writeln("[Not yet implemented]")
|
||||||
self:writeln("wopr:xoroc-hunaz-vyhux")
|
self:writeln("wopr:xoroc-hunaz-vyhux")
|
||||||
end
|
end
|
||||||
|
|
||||||
Comm:add_commands{
|
Comm:add_commands{
|
||||||
["status"] = {"Display phone system status", Comm.cmd_status},
|
["status"] = {"Display phone system status", Comm.cmd_status},
|
||||||
["exit"] = {"Exit this subsystem", Comm.cmd_exit},
|
["exit"] = {"Exit this subsystem", Comm.cmd_exit},
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -696,126 +697,126 @@ Ministry of Weapons replacing all peanut brittle warheads with bubble
|
||||||
gum, as mandated by FLD-1492 "Fearless Grandson Peanut Allergy". Launch
|
gum, as mandated by FLD-1492 "Fearless Grandson Peanut Allergy". Launch
|
||||||
capacity will be reduced until conversions are complete.
|
capacity will be reduced until conversions are complete.
|
||||||
|
|
||||||
::: FLD-711 Restricted Distribution ::: wopr:xigeh-lydut-vinax
|
::: FLD-711 Restricted Distribution ::: wopr:xigeh-lydut-vinax
|
||||||
]]
|
]]
|
||||||
Smoc.authcode = "CPE-1704-TKS"
|
Smoc.authcode = "CPE-1704-TKS"
|
||||||
Smoc.inventory = {
|
Smoc.inventory = {
|
||||||
"ready", "offline", "offline", "ready",
|
"ready", "offline", "offline", "ready",
|
||||||
"offline", "offline", "offline", "offline",
|
"offline", "offline", "offline", "offline",
|
||||||
"offline", "offline", "FileNotFound", "ready",
|
"offline", "offline", "FileNotFound", "ready",
|
||||||
[-1] = "program_invocation_short_name^@realm^@",
|
[-1] = "program_invocation_short_name^@realm^@",
|
||||||
[-2] = "^@^@^@^@^@^@^@^@^@^R^@^@^@3",
|
[-2] = "^@^@^@^@^@^@^@^@^@^R^@^@^@3",
|
||||||
[-3] = "<FF><FF><FF><FF>%L<C9>^D^Hhx^@^@^@",
|
[-3] = "<FF><FF><FF><FF>%L<C9>^D^Hhx^@^@^@",
|
||||||
[-4] = "^D^H^G^P^@^@P",
|
[-4] = "^D^H^G^P^@^@P",
|
||||||
[-5] = "<EC>^P<8B>=<EC><C9>^D^H<C7>",
|
[-5] = "<EC>^P<8B>=<EC><C9>^D^H<C7>",
|
||||||
[-6] = "WVS<83><EC>\\<8B>E^L<8B><8B>U^P",
|
[-6] = "WVS<83><EC>\\<8B>E^L<8B><8B>U^P",
|
||||||
[-7] = "Y^@^@" .. Smoc.authcode .. "^@get_launch_trigger^@",
|
[-7] = "Y^@^@" .. Smoc.authcode .. "^@get_launch_trigger^@",
|
||||||
[-8] = "^@",
|
[-8] = "^@",
|
||||||
[-9] = "^@",
|
[-9] = "^@",
|
||||||
[-10] = "^@",
|
[-10] = "^@",
|
||||||
[-11] = "^@wopr:xipar-canit-zimyx^@",
|
[-11] = "^@wopr:xipar-canit-zimyx^@",
|
||||||
[-12] = "^@",
|
[-12] = "^@",
|
||||||
[-13] = "^@",
|
[-13] = "^@",
|
||||||
[-14] = "^@",
|
[-14] = "^@",
|
||||||
[-15] = "^@",
|
[-15] = "^@",
|
||||||
[-16] = "^@",
|
[-16] = "^@",
|
||||||
}
|
}
|
||||||
|
|
||||||
function Smoc:login()
|
function Smoc:login()
|
||||||
if self:get("nuked") then
|
if self:get("nuked") then
|
||||||
Wopr:login("*** LINK DOWN\n*** CONNECTION REFUSED")
|
Wopr:login("*** LINK DOWN\n*** CONNECTION REFUSED")
|
||||||
else
|
else
|
||||||
Host.login(self)
|
Host.login(self)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
function Smoc:cmd_exit(argv)
|
function Smoc:cmd_exit(argv)
|
||||||
Wopr:login()
|
Wopr:login()
|
||||||
end
|
end
|
||||||
|
|
||||||
function Smoc:cmd_status(argv)
|
function Smoc:cmd_status(argv)
|
||||||
local n = tonumber(argv[2])
|
local n = tonumber(argv[2])
|
||||||
if not n then
|
if not n then
|
||||||
local k, v, max
|
local k, v, max
|
||||||
local ready = 0
|
local ready = 0
|
||||||
for k,v in ipairs(self.inventory) do
|
for k,v in ipairs(self.inventory) do
|
||||||
if (v == "ready") then
|
if (v == "ready") then
|
||||||
ready = ready + 1
|
ready = ready + 1
|
||||||
end
|
end
|
||||||
max = k
|
max = k
|
||||||
end
|
end
|
||||||
self:writeln(("%d total, %d ready"):format(max, ready))
|
self:writeln(("%d total, %d ready"):format(max, ready))
|
||||||
self:writeln("Use \"status #\" to check status of individual missiles")
|
self:writeln("Use \"status #\" to check status of individual missiles")
|
||||||
else
|
else
|
||||||
self:writeln(("---- Missile #%d Summary ----"):format(n))
|
self:writeln(("---- Missile #%d Summary ----"):format(n))
|
||||||
self:writeln("Type: SS-256 SCUMM")
|
self:writeln("Type: SS-256 SCUMM")
|
||||||
self:writeln("Location: Fearless Missile Silo #1 (-44.76,-120.66)")
|
self:writeln("Location: Fearless Missile Silo #1 (-44.76,-120.66)")
|
||||||
self:writeln("Status: " .. (self.inventory[n] or "(null)"))
|
self:writeln("Status: " .. (self.inventory[n] or "(null)"))
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
function Smoc:cmd_authorize(argv)
|
function Smoc:cmd_authorize(argv)
|
||||||
if not Wopr:get("launch") then
|
if not Wopr:get("launch") then
|
||||||
self:writeln("ERROR: Launch trigger disabled.")
|
self:writeln("ERROR: Launch trigger disabled.")
|
||||||
elseif (argv[2] ~= self.authcode) then
|
elseif (argv[2] ~= self.authcode) then
|
||||||
self:writeln("Invalid authorization code.")
|
self:writeln("Invalid authorization code.")
|
||||||
else
|
else
|
||||||
self:writeln("Authorization code accepted.")
|
self:writeln("Authorization code accepted.")
|
||||||
self:writeln("wopr:xocec-lifoz-gasyx")
|
self:writeln("wopr:xocec-lifoz-gasyx")
|
||||||
self:set("auth")
|
self:set("auth")
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
function Smoc:cmd_launch(argv)
|
function Smoc:cmd_launch(argv)
|
||||||
local n = tonumber(argv[2])
|
local n = tonumber(argv[2])
|
||||||
local lat = tonumber(argv[3])
|
local lat = tonumber(argv[3])
|
||||||
local lon = tonumber(argv[4])
|
local lon = tonumber(argv[4])
|
||||||
|
|
||||||
if Wopr:attcon() > 1 then
|
if Wopr:attcon() > 1 then
|
||||||
self:writeln("ERROR: Missiles may only be launched during times of war.")
|
self:writeln("ERROR: Missiles may only be launched during times of war.")
|
||||||
elseif not self:get("auth") then
|
elseif not self:get("auth") then
|
||||||
self:writeln("ERROR: Not authorized")
|
self:writeln("ERROR: Not authorized")
|
||||||
elseif (not n) then
|
elseif (not n) then
|
||||||
self:writeln("Usage: launch # LAT LONG")
|
self:writeln("Usage: launch # LAT LONG")
|
||||||
elseif (not lat) or (not lon) then
|
elseif (not lat) or (not lon) then
|
||||||
self:writeln("ERROR: Invalid coordinates supplied")
|
self:writeln("ERROR: Invalid coordinates supplied")
|
||||||
elseif (self.inventory[n] == "offline") then
|
elseif (self.inventory[n] == "offline") then
|
||||||
self:writeln("ERROR: Missile currently off-line")
|
self:writeln("ERROR: Missile currently off-line")
|
||||||
elseif (n < 1) then
|
elseif (n < 1) then
|
||||||
self:writeln("ERROR: No such missile")
|
self:writeln("ERROR: No such missile")
|
||||||
else
|
else
|
||||||
self:writeln(("Launching to (%f,%f)..."):format(lat, lon))
|
self:writeln(("Launching to (%f,%f)..."):format(lat, lon))
|
||||||
self:writeln("wopr:xubif-hikig-mocox")
|
self:writeln("wopr:xubif-hikig-mocox")
|
||||||
if (lat ~= -44.76) or (lon ~= -120.66) then
|
if (lat ~= -44.76) or (lon ~= -120.66) then
|
||||||
self:writeln("ERROR: No propulsion system attached")
|
self:writeln("ERROR: No propulsion system attached")
|
||||||
elseif (self.inventory[n] ~= "FileNotFound") then
|
elseif (self.inventory[n] ~= "FileNotFound") then
|
||||||
self:writeln("ERROR: Triggering device not installed")
|
self:writeln("ERROR: Triggering device not installed")
|
||||||
else
|
else
|
||||||
self:set("nuked")
|
self:set("nuked")
|
||||||
Wopr:login("Detonating warhead...\nwopr:xoroz-hymaz-fivex wopr:xufov-sugig-zecox wopr:xocem-dabal-fisux wopr:xufez-dofas-tyvyx\n*** CONNECTION TERMINATED")
|
Wopr:login("Detonating warhead...\nwopr:xoroz-hymaz-fivex wopr:xufov-sugig-zecox wopr:xocem-dabal-fisux wopr:xufez-dofas-tyvyx\n*** CONNECTION TERMINATED")
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
Smoc:add_commands{
|
Smoc:add_commands{
|
||||||
["status"] = {"Check missile status", Smoc.cmd_status},
|
["status"] = {"Check missile status", Smoc.cmd_status},
|
||||||
["launch"] = {"Launch missile", Smoc.cmd_launch},
|
["launch"] = {"Launch missile", Smoc.cmd_launch},
|
||||||
["authorize"] = {"Set authorization code", Smoc.cmd_authorize},
|
["authorize"] = {"Set authorization code", Smoc.cmd_authorize},
|
||||||
["exit"] = {"Exit to WOPR", Smoc.cmd_exit},
|
["exit"] = {"Exit to WOPR", Smoc.cmd_exit},
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
function main()
|
function main()
|
||||||
if (not f["s"]) or (f["s"] == "") then
|
if (not f["s"]) or (f["s"] == "") then
|
||||||
Login:login()
|
Login:login()
|
||||||
else
|
else
|
||||||
local h = hosts_by_name[get("host")] or Login
|
local h = hosts_by_name[get("host")] or Login
|
||||||
txt, prompt = h:handle_request(f["v"] or "")
|
txt, prompt = h:handle_request(f["v"] or "")
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
function err(msg)
|
function err(msg)
|
||||||
reply("", "A>", msg .. " wopr:xosov-tenoh-nebox\n\n" .. debug.traceback())
|
reply("", "A>", msg .. " wopr:xosov-tenoh-nebox\n\n" .. debug.traceback())
|
||||||
end
|
end
|
||||||
|
|
||||||
xpcall(main, err)
|
xpcall(main, err)
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue