Compare commits
18 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
| c5375b8a77 | |||
| e05438f0e3 | |||
| 9707f7ae93 | |||
| 9e53b23b11 | |||
| 7e62f71931 | |||
| 55ead8041f | |||
| 2ac502e50f | |||
| deb73d129e | |||
| b81b021b5b | |||
| 17af91a99b | |||
| b29a2716d1 | |||
| 555beb9fd9 | |||
| 490e688cc1 | |||
| c5884d6a97 | |||
| 2f2c1f3036 | |||
| b00b8ef63c | |||
| c6efc8f685 | |||
| 6bf0f450dc |
+13
@@ -0,0 +1,13 @@
|
|||||||
|
# Generated by windows/sync.sh — see windows/README.md
|
||||||
|
windows/pkg/lmcp.lua
|
||||||
|
windows/pkg/server.lua
|
||||||
|
windows/pkg/json.lua
|
||||||
|
|
||||||
|
# Bundled Lua + LuaSocket runtime for the Windows MSI; downloaded
|
||||||
|
# separately, not in git.
|
||||||
|
windows/pkg/lua/
|
||||||
|
|
||||||
|
# Editor / OS noise
|
||||||
|
*.swp
|
||||||
|
*.swo
|
||||||
|
.DS_Store
|
||||||
@@ -1,109 +1,33 @@
|
|||||||
# lmcp — Lightweight MCP Server in Lua
|
# lmcp — Lua MCP server
|
||||||
|
|
||||||
A minimal [Model Context Protocol](https://modelcontextprotocol.io/) server in pure Lua. ~350 lines, 2.4MB RSS, zero compiled dependencies beyond Lua + LuaSocket.
|
Lightweight Model Context Protocol (MCP) server in pure Lua.
|
||||||
|
|
||||||
## Features
|
## Runtime dependencies
|
||||||
|
|
||||||
- MCP 2025-03-26 protocol (JSON-RPC over HTTP)
|
- Lua 5.1+
|
||||||
- Tool registration with JSON Schema validation
|
- [luasocket](https://github.com/lunarmodules/luasocket) — needed for the TCP
|
||||||
- Optional Bearer token authentication (config file or explicit)
|
listener. Packaged as `lua-socket` on Arch/ALARM, `lua-socket` on Debian.
|
||||||
- SSE and plain JSON response modes
|
|
||||||
- Non-blocking shell execution with timeout
|
|
||||||
- Runs on any Linux with Lua 5.4 + LuaSocket
|
|
||||||
|
|
||||||
## Quick Start
|
|
||||||
|
|
||||||
```sh
|
|
||||||
# Install dependencies (Debian/Ubuntu)
|
|
||||||
apt install lua5.4 lua-socket
|
|
||||||
|
|
||||||
# Or use a self-contained archive (see releases)
|
|
||||||
tar xzf lmcp-linux-amd64.tar.gz
|
|
||||||
export PATH=$PWD/lmcp-linux-amd64/bin:$PATH
|
|
||||||
|
|
||||||
# Run
|
|
||||||
lua5.4 example_server.lua
|
|
||||||
# lmcp: my-tools v0.1.0 listening on 0.0.0.0:8080/mcp
|
|
||||||
```
|
|
||||||
|
|
||||||
## Files
|
## Files
|
||||||
|
|
||||||
| File | Description |
|
| File | Role |
|
||||||
|------|-------------|
|
|------|------|
|
||||||
| `lmcp.lua` | Core library — HTTP server, JSON-RPC, MCP protocol, auth |
|
| `lmcp.lua` | library: protocol handling, tool registration |
|
||||||
| `json.lua` | Minimal JSON encoder/decoder (bundled, no external dep) |
|
| `server.lua` | HTTP server loop |
|
||||||
| `example_server.lua` | Example server with shell, read/write file, list/search tools |
|
| `json.lua` | vendored JSON encoder/decoder |
|
||||||
|
| `example_server.lua` | sample server with a couple of tools |
|
||||||
|
|
||||||
## Authentication
|
## Install
|
||||||
|
|
||||||
To require a Bearer token, create an `lmcp.conf` next to your server:
|
Packaged as `lmcp` in the marfrit overlay repo:
|
||||||
|
|
||||||
```
|
```
|
||||||
.godparticle = your-secret-token-here
|
# Arch / ALARM
|
||||||
|
sudo pacman -S lmcp
|
||||||
|
|
||||||
|
# Debian
|
||||||
|
sudo apt install lmcp
|
||||||
```
|
```
|
||||||
|
|
||||||
Then reference it when creating the server:
|
Files land under `/usr/share/lua/5.4/` (Lua LUA_PATH).
|
||||||
|
The example server installs as `/usr/bin/lmcp-example`.
|
||||||
```lua
|
|
||||||
local server = lmcp.new("my-tools", {
|
|
||||||
port = 8080,
|
|
||||||
conf = dir .. "lmcp.conf",
|
|
||||||
})
|
|
||||||
```
|
|
||||||
|
|
||||||
Clients must send `Authorization: Bearer <token>` on every request. OPTIONS (CORS preflight) is exempt.
|
|
||||||
|
|
||||||
You can also set the token directly:
|
|
||||||
|
|
||||||
```lua
|
|
||||||
local server = lmcp.new("my-tools", {
|
|
||||||
auth_token = "my-secret-token",
|
|
||||||
})
|
|
||||||
```
|
|
||||||
|
|
||||||
## Claude Code Integration
|
|
||||||
|
|
||||||
Add to `~/.claude/settings.json`:
|
|
||||||
|
|
||||||
```json
|
|
||||||
{
|
|
||||||
"mcpServers": {
|
|
||||||
"my-host": {
|
|
||||||
"type": "url",
|
|
||||||
"url": "http://my-host:8080/mcp",
|
|
||||||
"headers": {
|
|
||||||
"Authorization": "Bearer your-token-here"
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
```
|
|
||||||
|
|
||||||
## Adding Tools
|
|
||||||
|
|
||||||
```lua
|
|
||||||
server:tool("greet", "Say hello to someone.", {
|
|
||||||
type = "object",
|
|
||||||
properties = {
|
|
||||||
name = { type = "string", description = "Who to greet" },
|
|
||||||
},
|
|
||||||
required = { "name" },
|
|
||||||
}, function(args)
|
|
||||||
return "Hello, " .. args.name .. "!"
|
|
||||||
end)
|
|
||||||
```
|
|
||||||
|
|
||||||
Tool handlers return a string (wrapped as text content) or a table (encoded as JSON). Errors thrown via `error()` are caught and returned as MCP error responses.
|
|
||||||
|
|
||||||
## Self-Contained Archives
|
|
||||||
|
|
||||||
Pre-built archives with Lua 5.4 + LuaSocket for Linux:
|
|
||||||
|
|
||||||
- `lmcp-linux-amd64.tar.gz` — x86_64
|
|
||||||
- `lmcp-linux-aarch64.tar.gz` — ARM64 (Pi 5, RK3588, etc.)
|
|
||||||
|
|
||||||
These include the Lua interpreter and LuaSocket shared library so no system packages are needed.
|
|
||||||
|
|
||||||
## License
|
|
||||||
|
|
||||||
MIT
|
|
||||||
|
|||||||
+164
-85
@@ -1,100 +1,179 @@
|
|||||||
#!/usr/bin/env lua
|
#!/usr/bin/env lua
|
||||||
-- Example lmcp server — customize tools for your host
|
-- Example lmcp server — shell tools
|
||||||
local dir = arg[0]:match("(.*/)") or "./"
|
-- Usage: lua example_server.lua [port]
|
||||||
package.path = package.path .. ";" .. dir .. "?.lua"
|
|
||||||
local lmcp = require("lmcp")
|
|
||||||
|
|
||||||
local server = lmcp.new("my-tools", {
|
local dir = arg[0]:match('(.*/)') or './'
|
||||||
port = tonumber(os.getenv("LMCP_PORT")) or 8080,
|
package.path = package.path .. ';' .. dir .. '?.lua'
|
||||||
-- Optional: Bearer token auth from config file
|
|
||||||
-- conf = dir .. "lmcp.conf",
|
local lmcp = require('lmcp')
|
||||||
-- Or set directly:
|
|
||||||
-- auth_token = "my-secret-token",
|
local server = lmcp.new("example-tools", {
|
||||||
|
port = tonumber(arg[1]) or 8080,
|
||||||
})
|
})
|
||||||
|
|
||||||
-- Non-blocking shell execution with timeout
|
-- The optional 5th `opts` arg to server:tool carries MCP annotations.
|
||||||
local function run(cmd, timeout_sec)
|
-- Omit it and clients assume the worst (destructive, openWorld) — fine
|
||||||
timeout_sec = timeout_sec or 120
|
-- for prototypes; declare annotations once you know each tool's stance.
|
||||||
local base = os.tmpname()
|
|
||||||
local out_file = base .. ".out"
|
|
||||||
local done_file = base .. ".done"
|
|
||||||
local sh_cmd = string.format("(%s) > '%s' 2>&1; echo $? > '%s'", cmd, out_file, done_file)
|
|
||||||
os.execute("sh -c ' " .. sh_cmd .. " ' &")
|
|
||||||
local elapsed = 0
|
|
||||||
local interval = 50
|
|
||||||
while elapsed < timeout_sec * 1000 do
|
|
||||||
local f = io.open(done_file, "r")
|
|
||||||
if f then f:close(); break end
|
|
||||||
if interval < 1000 then
|
|
||||||
os.execute("sleep 0." .. string.format("%03d", interval))
|
|
||||||
else
|
|
||||||
os.execute("sleep " .. math.ceil(interval / 1000))
|
|
||||||
end
|
|
||||||
elapsed = elapsed + interval
|
|
||||||
if interval < 2000 then interval = math.floor(interval * 1.5) end
|
|
||||||
end
|
|
||||||
local f = io.open(out_file, "r")
|
|
||||||
local output = f and f:read("*a") or ""
|
|
||||||
if f then f:close() end
|
|
||||||
os.remove(out_file); os.remove(done_file); os.remove(base)
|
|
||||||
if elapsed >= timeout_sec * 1000 then return "Error: timed out after " .. timeout_sec .. "s" end
|
|
||||||
return output ~= "" and output or "(no output)"
|
|
||||||
end
|
|
||||||
|
|
||||||
-- Register tools
|
server:tool("shell", "Execute a shell command", {
|
||||||
server:tool("shell", "Execute a shell command.", {
|
|
||||||
type = "object",
|
type = "object",
|
||||||
properties = {
|
properties = {
|
||||||
command = { type = "string" },
|
command = { type = "string", description = "Shell command to execute" },
|
||||||
cwd = { type = "string" },
|
timeout = { type = "integer", description = "Timeout in seconds", default = 30 },
|
||||||
timeout = { type = "integer", default = 120 },
|
|
||||||
},
|
},
|
||||||
required = { "command" },
|
required = { "command" },
|
||||||
}, function(a)
|
}, function(args)
|
||||||
local c = a.command
|
local handle = io.popen(args.command .. ' 2>&1', 'r')
|
||||||
if a.cwd then c = "cd \"" .. a.cwd .. "\" && " .. c end
|
if not handle then return "Error: could not execute command" end
|
||||||
return run(c, a.timeout or 120)
|
local result = handle:read('*a')
|
||||||
end)
|
handle:close()
|
||||||
|
return result ~= '' and result or '(no output)'
|
||||||
|
end, {
|
||||||
|
annotations = {
|
||||||
|
title = "Run shell",
|
||||||
|
readOnlyHint = false,
|
||||||
|
destructiveHint = true,
|
||||||
|
idempotentHint = false,
|
||||||
|
openWorldHint = true,
|
||||||
|
},
|
||||||
|
})
|
||||||
|
|
||||||
server:tool("read_file", "Read a file.", {
|
server:tool("read_file", "Read a file", {
|
||||||
type = "object",
|
|
||||||
properties = { path = { type = "string" } },
|
|
||||||
required = { "path" },
|
|
||||||
}, function(a)
|
|
||||||
local f = io.open(a.path, "r")
|
|
||||||
if not f then return "Error: could not read " .. a.path end
|
|
||||||
local c = f:read("*a"); f:close(); return c
|
|
||||||
end)
|
|
||||||
|
|
||||||
server:tool("write_file", "Write content to a file.", {
|
|
||||||
type = "object",
|
|
||||||
properties = { path = { type = "string" }, content = { type = "string" } },
|
|
||||||
required = { "path", "content" },
|
|
||||||
}, function(a)
|
|
||||||
local f = io.open(a.path, "w")
|
|
||||||
if not f then return "Error: could not write " .. a.path end
|
|
||||||
f:write(a.content); f:close()
|
|
||||||
return string.format("Written %d bytes to %s", #a.content, a.path)
|
|
||||||
end)
|
|
||||||
|
|
||||||
server:tool("list_dir", "List directory contents.", {
|
|
||||||
type = "object",
|
|
||||||
properties = { path = { type = "string", default = "." } },
|
|
||||||
}, function(a)
|
|
||||||
return run("ls -la '" .. (a.path or ".") .. "'", 10)
|
|
||||||
end)
|
|
||||||
|
|
||||||
server:tool("search_files", "Search for files by name.", {
|
|
||||||
type = "object",
|
type = "object",
|
||||||
properties = {
|
properties = {
|
||||||
pattern = { type = "string" },
|
path = { type = "string", description = "File path to read" },
|
||||||
path = { type = "string", default = "/" },
|
|
||||||
max_depth = { type = "integer", default = 4 },
|
|
||||||
},
|
},
|
||||||
required = { "pattern" },
|
required = { "path" },
|
||||||
}, function(a)
|
}, function(args)
|
||||||
return run(string.format("find '%s' -maxdepth %d -name '%s' 2>/dev/null",
|
local f = io.open(args.path, 'r')
|
||||||
a.path or "/", a.max_depth or 4, a.pattern), 30)
|
if not f then return "Error: could not open " .. args.path end
|
||||||
|
local content = f:read('*a')
|
||||||
|
f:close()
|
||||||
|
return content
|
||||||
|
end, {
|
||||||
|
annotations = {
|
||||||
|
title = "Read file",
|
||||||
|
readOnlyHint = true,
|
||||||
|
destructiveHint = false,
|
||||||
|
idempotentHint = true,
|
||||||
|
openWorldHint = false,
|
||||||
|
},
|
||||||
|
})
|
||||||
|
|
||||||
|
server:tool("write_file", "Write content to a file", {
|
||||||
|
type = "object",
|
||||||
|
properties = {
|
||||||
|
path = { type = "string", description = "File path to write" },
|
||||||
|
content = { type = "string", description = "Content to write" },
|
||||||
|
},
|
||||||
|
required = { "path", "content" },
|
||||||
|
}, function(args)
|
||||||
|
local f = io.open(args.path, 'w')
|
||||||
|
if not f then return "Error: could not open " .. args.path .. " for writing" end
|
||||||
|
f:write(args.content)
|
||||||
|
f:close()
|
||||||
|
return string.format("Written %d bytes to %s", #args.content, args.path)
|
||||||
|
end, {
|
||||||
|
annotations = {
|
||||||
|
title = "Write file",
|
||||||
|
readOnlyHint = false,
|
||||||
|
destructiveHint = true,
|
||||||
|
idempotentHint = true,
|
||||||
|
openWorldHint = false,
|
||||||
|
},
|
||||||
|
})
|
||||||
|
|
||||||
|
server:tool("list_dir", "List directory contents", {
|
||||||
|
type = "object",
|
||||||
|
properties = {
|
||||||
|
path = { type = "string", description = "Directory path", default = "." },
|
||||||
|
},
|
||||||
|
}, function(args)
|
||||||
|
local path = args.path or '.'
|
||||||
|
local handle = io.popen('ls -1 ' .. path:gsub("'", "'\\''") .. ' 2>&1')
|
||||||
|
if not handle then return "Error: could not list " .. path end
|
||||||
|
local result = handle:read('*a')
|
||||||
|
handle:close()
|
||||||
|
return result
|
||||||
|
end, {
|
||||||
|
annotations = {
|
||||||
|
title = "List directory",
|
||||||
|
readOnlyHint = true,
|
||||||
|
destructiveHint = false,
|
||||||
|
idempotentHint = true,
|
||||||
|
openWorldHint = false,
|
||||||
|
},
|
||||||
|
})
|
||||||
|
|
||||||
|
-- ---- Resources (MCP primitive — see issue #5) ----
|
||||||
|
-- Tools-only servers force the client to spend a tools/call round-trip
|
||||||
|
-- for every read. Resources let the client list and read by URI, with a
|
||||||
|
-- stable identity it can cache and reference in prompts.
|
||||||
|
|
||||||
|
server:resource("text://greeting", {
|
||||||
|
name = "Greeting",
|
||||||
|
mimeType = "text/plain",
|
||||||
|
}, function() return "Hello from lmcp!" end)
|
||||||
|
|
||||||
|
-- Tiny binary resource: 8-byte PNG signature, demonstrates blob handling.
|
||||||
|
server:resource("data://lmcp.png", {
|
||||||
|
name = "PNG signature",
|
||||||
|
mimeType = "image/png",
|
||||||
|
}, function()
|
||||||
|
return { blob_bytes = "\x89PNG\r\n\x1a\n", mimeType = "image/png" }
|
||||||
end)
|
end)
|
||||||
|
|
||||||
server:run()
|
-- Template: any local file. `args.path` is captured greedily (no leading
|
||||||
|
-- slash because the template literal already includes ///).
|
||||||
|
server:resource_template("file:///{path}", {
|
||||||
|
name = "Local file",
|
||||||
|
mimeType = "text/plain",
|
||||||
|
}, function(args)
|
||||||
|
local f = io.open("/" .. args.path, "r")
|
||||||
|
if not f then error("file not found: /" .. args.path) end
|
||||||
|
local content = f:read("*a"); f:close()
|
||||||
|
return content
|
||||||
|
end)
|
||||||
|
|
||||||
|
-- ---- Prompts (MCP primitive — see issue #6) ----
|
||||||
|
-- Parameterised prompt templates the client surfaces as a menu
|
||||||
|
-- (slash-commands, snippets). Handler returns either a plain string (one
|
||||||
|
-- user-role text message) or a full { description?, messages = {...} }
|
||||||
|
-- shape for finer control.
|
||||||
|
|
||||||
|
server:prompt("release_note", {
|
||||||
|
description = "Draft a release note for a given version",
|
||||||
|
arguments = {
|
||||||
|
{ name = "version", description = "Tag, e.g. v0.7.1", required = true },
|
||||||
|
{ name = "since", description = "Previous tag", required = false },
|
||||||
|
},
|
||||||
|
}, function(args)
|
||||||
|
return "Write concise release notes for version " .. (args.version or "?")
|
||||||
|
.. " since " .. (args.since or "the previous tag")
|
||||||
|
.. ". Group by category (features / fixes / docs)."
|
||||||
|
end)
|
||||||
|
|
||||||
|
-- Completion for the release_note prompt's `version` argument. Returned
|
||||||
|
-- list is filtered against `value` (prefix match) by the server's spec
|
||||||
|
-- contract is "candidates"; clients may further filter.
|
||||||
|
server:complete("ref/prompt", "release_note", "version", function(value, ctx)
|
||||||
|
local all = { "v0.5.0", "v0.5.1", "v0.5.2", "v0.5.3", "v0.5.4",
|
||||||
|
"v0.6.0", "v0.7.0", "v0.7.1", "v1.0.0-rc1" }
|
||||||
|
if value == "" then return all end
|
||||||
|
local out = {}
|
||||||
|
for _, v in ipairs(all) do
|
||||||
|
if v:sub(1, #value) == value then out[#out + 1] = v end
|
||||||
|
end
|
||||||
|
return out
|
||||||
|
end)
|
||||||
|
|
||||||
|
local transport = os.getenv("LMCP_TRANSPORT") or "http"
|
||||||
|
if transport == "stdio" then
|
||||||
|
if os.getenv("LMCP_PORT") then
|
||||||
|
io.stderr:write("lmcp: LMCP_PORT ignored in stdio mode\n")
|
||||||
|
end
|
||||||
|
server:run_stdio()
|
||||||
|
else
|
||||||
|
io.stderr:write("Starting lmcp example server...\n")
|
||||||
|
server:run()
|
||||||
|
end
|
||||||
|
|||||||
@@ -0,0 +1,22 @@
|
|||||||
|
# lmcp hub backend registry.
|
||||||
|
#
|
||||||
|
# Format: whitespace-separated "name ssh_host lmcp_url token"
|
||||||
|
# Use "-" for not-applicable fields.
|
||||||
|
# - Missing ssh_host (col 2 = -): no ssh fallback available for this backend
|
||||||
|
# - Missing lmcp_url (col 3 = -): this backend is ssh-only
|
||||||
|
# - Missing token (col 4 = -): backend accepts unauth lmcp (LAN-only hosts)
|
||||||
|
#
|
||||||
|
# Lines starting with # are comments. Blank lines ignored.
|
||||||
|
#
|
||||||
|
# LXD-container caveat: if your hub lives on the LXD host and the backend is
|
||||||
|
# a sibling LXD container, Fritz DNS often caches a stale DHCP lease for the
|
||||||
|
# container's hostname. Hardcode the container IP here and update when it
|
||||||
|
# rotates, or wire the .lxd stub zone into systemd-resolved.
|
||||||
|
|
||||||
|
# name ssh_host lmcp_url token
|
||||||
|
# --- --- --- ---
|
||||||
|
# boltzmann boltzmann.fritz.box http://boltzmann.fritz.box:8080/mcp <64hex>
|
||||||
|
# tesla 192.168.88.67 http://192.168.88.67:8080/mcp -
|
||||||
|
# nc nc.reauktion.de http://nc.reauktion.de:8080/mcp <opaque>
|
||||||
|
# pve1 pve1.fritz.box http://pve1.fritz.box:8080/mcp <opaque>
|
||||||
|
# hertz - http://hertz.fritz.box:8080/mcp <opaque>
|
||||||
@@ -0,0 +1,25 @@
|
|||||||
|
[Unit]
|
||||||
|
Description=lmcp hub — fleet MCP broker
|
||||||
|
After=network.target
|
||||||
|
Wants=network.target
|
||||||
|
|
||||||
|
[Service]
|
||||||
|
Type=simple
|
||||||
|
User=mfritsche
|
||||||
|
Group=mfritsche
|
||||||
|
# When deploying, copy hub.lua to /opt/lmcp/ or adjust the path below.
|
||||||
|
ExecStart=/usr/bin/lua5.4 /usr/share/lua/5.4/hub.lua
|
||||||
|
Environment=LMCP_NAME=hub-tools
|
||||||
|
Environment=LMCP_PORT=8090
|
||||||
|
# Backend registry: space-separated "name ssh_host lmcp_url token" per line.
|
||||||
|
# See hub-backends.conf.example in this examples/ dir.
|
||||||
|
Environment=LMCP_HUB_BACKENDS=/opt/herding/etc/hub-backends.conf
|
||||||
|
# Bearer token file (key `.godparticle=<hex>`).
|
||||||
|
Environment=LMCP_HUB_CONF=/opt/herding/etc/lmcp-hub.conf
|
||||||
|
Restart=on-failure
|
||||||
|
RestartSec=5
|
||||||
|
StandardOutput=journal
|
||||||
|
StandardError=journal
|
||||||
|
|
||||||
|
[Install]
|
||||||
|
WantedBy=multi-user.target
|
||||||
@@ -0,0 +1,22 @@
|
|||||||
|
[Unit]
|
||||||
|
Description=lmcp MCP Server
|
||||||
|
After=network.target
|
||||||
|
|
||||||
|
[Service]
|
||||||
|
Type=simple
|
||||||
|
User=root
|
||||||
|
# Arch ships the Lua 5.4 binary as /usr/bin/lua; Debian ships /usr/bin/lua5.4.
|
||||||
|
# Override ExecStart if your distro differs.
|
||||||
|
ExecStart=/usr/bin/lua /usr/share/lua/5.4/server.lua
|
||||||
|
# Distinct name per host: foo-tools appears in /mcp listings and logs.
|
||||||
|
Environment=LMCP_NAME=CHANGEME-tools
|
||||||
|
Environment=LMCP_PORT=8080
|
||||||
|
# Bearer token. Generate with: openssl rand -hex 24
|
||||||
|
# For untrusted networks, bind to LAN-only via firewall; the server itself
|
||||||
|
# listens on 0.0.0.0 by default.
|
||||||
|
Environment=LMCP_TOKEN=CHANGEME
|
||||||
|
Restart=on-failure
|
||||||
|
RestartSec=5
|
||||||
|
|
||||||
|
[Install]
|
||||||
|
WantedBy=multi-user.target
|
||||||
@@ -0,0 +1,636 @@
|
|||||||
|
#!/usr/bin/env lua
|
||||||
|
-- lmcp hub — fleet-wide MCP broker.
|
||||||
|
--
|
||||||
|
-- One MCP endpoint that fans out to every lmcp-backed host, with an SSH
|
||||||
|
-- fallback for hosts whose lmcp is temporarily down (or not installed).
|
||||||
|
-- Exposes a small set of "remote_*" tools that all take a `host` arg
|
||||||
|
-- naming the target in the backend registry.
|
||||||
|
--
|
||||||
|
-- Registry file (default /opt/herding/etc/hub-backends.conf):
|
||||||
|
-- # name ssh_host lmcp_url token
|
||||||
|
-- boltzmann boltzmann.fritz.box http://boltzmann.fritz.box:8080/mcp <bearer>
|
||||||
|
-- tesla tesla http://tesla.fritz.box:8080/mcp -
|
||||||
|
-- broglie - http://broglie.fritz.box:8080/mcp -
|
||||||
|
-- Use `-` for "not applicable". Lines starting with # are comments.
|
||||||
|
-- Missing `ssh_host`: no ssh fallback available. Missing `lmcp_url`: ssh-only.
|
||||||
|
--
|
||||||
|
-- SPDX-License-Identifier: MIT
|
||||||
|
|
||||||
|
local dir = arg[0]:match('(.*/)') or './'
|
||||||
|
package.path = package.path .. ';' .. dir .. '?.lua'
|
||||||
|
local lmcp = require('lmcp')
|
||||||
|
local json = require('json')
|
||||||
|
local socket = require('socket')
|
||||||
|
|
||||||
|
-- ---- Backend registry ---------------------------------------------------
|
||||||
|
|
||||||
|
local CONF_PATH = os.getenv("LMCP_HUB_BACKENDS") or "/opt/herding/etc/hub-backends.conf"
|
||||||
|
local PROBE_TTL_UP = tonumber(os.getenv("LMCP_HUB_PROBE_TTL_UP") or "30")
|
||||||
|
local PROBE_TTL_DOWN_MIN = tonumber(os.getenv("LMCP_HUB_PROBE_TTL_DOWN_MIN") or "60")
|
||||||
|
local PROBE_TTL_DOWN_MAX = tonumber(os.getenv("LMCP_HUB_PROBE_TTL_DOWN_MAX") or "900")
|
||||||
|
local PROBE_BUDGET = tonumber(os.getenv("LMCP_HUB_PROBE_BUDGET") or "3")
|
||||||
|
local LMCP_TIMEOUT = tonumber(os.getenv("LMCP_HUB_LMCP_TIMEOUT") or "6")
|
||||||
|
local SSH_TIMEOUT = tonumber(os.getenv("LMCP_HUB_SSH_TIMEOUT") or "10")
|
||||||
|
local SSH_HARD_TIMEOUT = tonumber(os.getenv("LMCP_HUB_SSH_HARD_TIMEOUT") or "30")
|
||||||
|
local LOG_REQUESTS = (os.getenv("LMCP_HUB_LOG") or "1") ~= "0"
|
||||||
|
|
||||||
|
local function logreq(fmt, ...)
|
||||||
|
if not LOG_REQUESTS then return end
|
||||||
|
io.stderr:write(string.format("[hub %s] " .. fmt .. "\n",
|
||||||
|
os.date("%H:%M:%S"), ...))
|
||||||
|
io.stderr:flush()
|
||||||
|
end
|
||||||
|
|
||||||
|
local function monotonic()
|
||||||
|
local ok, s = pcall(socket.gettime)
|
||||||
|
return ok and s or os.time()
|
||||||
|
end
|
||||||
|
|
||||||
|
local backends = {} -- name -> { name, ssh_host, lmcp_url, token }
|
||||||
|
local status = {} -- name -> { up=bool, via="lmcp"|"ssh"|nil, checked=t, err=... }
|
||||||
|
|
||||||
|
local function load_registry()
|
||||||
|
local f = io.open(CONF_PATH, "r")
|
||||||
|
if not f then
|
||||||
|
io.stderr:write("hub: no backend registry at " .. CONF_PATH .. "\n")
|
||||||
|
return
|
||||||
|
end
|
||||||
|
backends = {}
|
||||||
|
for line in f:lines() do
|
||||||
|
line = line:gsub("^%s+", ""):gsub("%s+$", "")
|
||||||
|
if line ~= "" and not line:match("^#") then
|
||||||
|
local parts = {}
|
||||||
|
for p in line:gmatch("%S+") do parts[#parts+1] = p end
|
||||||
|
if #parts >= 2 then
|
||||||
|
local name = parts[1]
|
||||||
|
local ssh_host = (parts[2] ~= "-" and parts[2]) or nil
|
||||||
|
local lmcp_url = (parts[3] ~= "-" and parts[3]) or nil
|
||||||
|
local token = (parts[4] ~= "-" and parts[4]) or nil
|
||||||
|
backends[name] = {
|
||||||
|
name = name,
|
||||||
|
ssh_host = ssh_host,
|
||||||
|
lmcp_url = lmcp_url,
|
||||||
|
token = token,
|
||||||
|
}
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
f:close()
|
||||||
|
end
|
||||||
|
|
||||||
|
-- ---- Outbound HTTP client (plain, no TLS) ------------------------------
|
||||||
|
|
||||||
|
local function parse_url(url)
|
||||||
|
local scheme, host, port, path = url:match("^(%w+)://([^:/]+):?(%d*)(/?.*)$")
|
||||||
|
if not scheme then return nil, "bad url" end
|
||||||
|
port = tonumber(port) or (scheme == "https" and 443 or 80)
|
||||||
|
if path == "" then path = "/" end
|
||||||
|
return { scheme = scheme, host = host, port = port, path = path }
|
||||||
|
end
|
||||||
|
|
||||||
|
local function http_post_json(url, body, token, timeout)
|
||||||
|
local u, err = parse_url(url)
|
||||||
|
if not u then return nil, err end
|
||||||
|
if u.scheme ~= "http" then return nil, "hub only speaks http to backends" end
|
||||||
|
|
||||||
|
local sock = socket.tcp()
|
||||||
|
sock:settimeout(timeout or 6)
|
||||||
|
local ok, e = sock:connect(u.host, u.port)
|
||||||
|
if not ok then sock:close(); return nil, "connect: " .. e end
|
||||||
|
|
||||||
|
local headers = {
|
||||||
|
"POST " .. u.path .. " HTTP/1.1",
|
||||||
|
"Host: " .. u.host .. ":" .. u.port,
|
||||||
|
"Content-Type: application/json",
|
||||||
|
"Content-Length: " .. tostring(#body),
|
||||||
|
"Connection: close",
|
||||||
|
}
|
||||||
|
if token then
|
||||||
|
headers[#headers+1] = "Authorization: Bearer " .. token
|
||||||
|
end
|
||||||
|
local req = table.concat(headers, "\r\n") .. "\r\n\r\n" .. body
|
||||||
|
local _, se = sock:send(req)
|
||||||
|
if se then sock:close(); return nil, "send: " .. se end
|
||||||
|
|
||||||
|
local chunks = {}
|
||||||
|
while true do
|
||||||
|
local data, rerr, partial = sock:receive(4096)
|
||||||
|
if data then chunks[#chunks+1] = data
|
||||||
|
elseif partial and #partial > 0 then chunks[#chunks+1] = partial
|
||||||
|
end
|
||||||
|
if not data then
|
||||||
|
if rerr == "timeout" then sock:close(); return nil, "timeout" end
|
||||||
|
break
|
||||||
|
end
|
||||||
|
end
|
||||||
|
sock:close()
|
||||||
|
|
||||||
|
local resp = table.concat(chunks)
|
||||||
|
local hend = resp:find("\r\n\r\n", 1, true)
|
||||||
|
if not hend then return nil, "no body separator" end
|
||||||
|
local status_line = resp:sub(1, resp:find("\r\n", 1, true) - 1)
|
||||||
|
local status_code = tonumber(status_line:match("HTTP/[%d%.]+%s+(%d+)"))
|
||||||
|
local body_str = resp:sub(hend + 4)
|
||||||
|
if status_code ~= 200 then
|
||||||
|
return nil, "http " .. tostring(status_code) .. ": " .. body_str:sub(1, 200)
|
||||||
|
end
|
||||||
|
local ok2, parsed = pcall(json.decode, body_str)
|
||||||
|
if not ok2 then return nil, "bad json: " .. body_str:sub(1, 200) end
|
||||||
|
return parsed
|
||||||
|
end
|
||||||
|
|
||||||
|
local function jsonrpc_call(url, token, method, params)
|
||||||
|
local body = json.encode({
|
||||||
|
jsonrpc = "2.0",
|
||||||
|
id = os.time() * 1000 + math.random(1000, 9999),
|
||||||
|
method = method,
|
||||||
|
params = params or {},
|
||||||
|
})
|
||||||
|
local resp, err = http_post_json(url, body, token, LMCP_TIMEOUT)
|
||||||
|
if not resp then return nil, err end
|
||||||
|
if resp.error then
|
||||||
|
return nil, "rpc: " .. (resp.error.message or "unknown")
|
||||||
|
end
|
||||||
|
return resp.result
|
||||||
|
end
|
||||||
|
|
||||||
|
-- ---- SSH exec (shell-escape-free via bash -s on stdin) -----------------
|
||||||
|
|
||||||
|
local function shell_quote(s)
|
||||||
|
-- Single-quote wrap, replace embedded single quotes with '\''
|
||||||
|
return "'" .. tostring(s):gsub("'", "'\\''") .. "'"
|
||||||
|
end
|
||||||
|
|
||||||
|
local function tmpwrite(content)
|
||||||
|
local path = os.tmpname()
|
||||||
|
local f = io.open(path, "w")
|
||||||
|
if not f then return nil, "tmpfile create failed" end
|
||||||
|
f:write(content)
|
||||||
|
f:close()
|
||||||
|
return path
|
||||||
|
end
|
||||||
|
|
||||||
|
local function ssh_run_script(ssh_host, script)
|
||||||
|
-- Write the script body locally, then ssh with stdin redirected from it.
|
||||||
|
-- bash -s reads the script from stdin. Nothing inside `script` is subject
|
||||||
|
-- to another shell round of expansion — this is the escape-free path.
|
||||||
|
local spath, perr = tmpwrite(script)
|
||||||
|
if not spath then return nil, perr, -1 end
|
||||||
|
local outpath = spath .. ".out"
|
||||||
|
-- Hard-cap wall time with GNU `timeout` — ssh's ConnectTimeout only
|
||||||
|
-- bounds TCP connect, not the session. Without this, a half-dead sshd
|
||||||
|
-- (auth stall, remote bash-s hang) locks the hub event loop indefinitely.
|
||||||
|
local cmd = string.format(
|
||||||
|
"timeout --kill-after=2 %d ssh -o ConnectTimeout=%d -o ServerAliveInterval=5 -o ServerAliveCountMax=2 -o BatchMode=yes -o StrictHostKeyChecking=accept-new %s 'bash -s' < %s > %s 2>&1; echo $? > %s.rc",
|
||||||
|
SSH_HARD_TIMEOUT, SSH_TIMEOUT, shell_quote(ssh_host), shell_quote(spath),
|
||||||
|
shell_quote(outpath), shell_quote(spath)
|
||||||
|
)
|
||||||
|
local t0 = monotonic()
|
||||||
|
os.execute(cmd)
|
||||||
|
local dt = monotonic() - t0
|
||||||
|
local rc_f = io.open(spath .. ".rc", "r")
|
||||||
|
local rc = -1
|
||||||
|
if rc_f then
|
||||||
|
local s = rc_f:read("*a") or ""
|
||||||
|
s = s:match("^(%S+)") or ""
|
||||||
|
rc = tonumber(s) or -1
|
||||||
|
rc_f:close()
|
||||||
|
end
|
||||||
|
local out_f = io.open(outpath, "r")
|
||||||
|
local output = out_f and out_f:read("*a") or ""
|
||||||
|
if out_f then out_f:close() end
|
||||||
|
os.remove(spath); os.remove(outpath); os.remove(spath .. ".rc")
|
||||||
|
-- timeout(1) exits 124 on wall-clock expiry, 137 on SIGKILL. Surface it.
|
||||||
|
if rc == 124 or rc == 137 then
|
||||||
|
logreq("ssh HARD-TIMEOUT host=%s after=%.2fs rc=%d", ssh_host, dt, rc)
|
||||||
|
return nil, string.format("ssh hard-timeout after %ds", SSH_HARD_TIMEOUT), rc
|
||||||
|
end
|
||||||
|
logreq("ssh host=%s elapsed=%.2fs rc=%d bytes=%d", ssh_host, dt, rc, #output)
|
||||||
|
return output, nil, rc
|
||||||
|
end
|
||||||
|
|
||||||
|
-- ---- Health probe ------------------------------------------------------
|
||||||
|
--
|
||||||
|
-- Design notes:
|
||||||
|
-- - Probe is lmcp-only. SSH is NOT checked here: it's expensive (3-6s per
|
||||||
|
-- offline host) and the hub exists specifically to absorb lots of
|
||||||
|
-- offline hosts. Hosts with lmcp down but ssh up show as DOWN in the
|
||||||
|
-- health list, but actual remote_* calls still fall through to ssh
|
||||||
|
-- fallback correctly.
|
||||||
|
-- - Sticky DOWN cache with exponential backoff: a DOWN host is re-probed
|
||||||
|
-- at intervals that grow from PROBE_TTL_DOWN_MIN (default 60s) up to
|
||||||
|
-- PROBE_TTL_DOWN_MAX (default 900s). Prevents a sleeping fleet from
|
||||||
|
-- burning probe budget every health check.
|
||||||
|
-- - `remote_list_hosts` uses a parallel curl fan-out for all hosts at
|
||||||
|
-- once so wall-clock is bounded by PROBE_BUDGET (default 3s), not the
|
||||||
|
-- sum of per-host timeouts.
|
||||||
|
|
||||||
|
local function cache_fresh(s, now)
|
||||||
|
if not s then return false end
|
||||||
|
local ttl
|
||||||
|
if s.up then
|
||||||
|
ttl = PROBE_TTL_UP
|
||||||
|
else
|
||||||
|
ttl = math.min(PROBE_TTL_DOWN_MAX, PROBE_TTL_DOWN_MIN * (2 ^ (s.down_streak or 0)))
|
||||||
|
end
|
||||||
|
return (now - s.checked) < ttl
|
||||||
|
end
|
||||||
|
|
||||||
|
local function apply_probe_result(name, up, err, via, tool_count)
|
||||||
|
local prev = status[name]
|
||||||
|
local new_s = {
|
||||||
|
checked = os.time(),
|
||||||
|
up = up,
|
||||||
|
via = up and (via or "lmcp") or nil,
|
||||||
|
err = err,
|
||||||
|
tool_count = tool_count,
|
||||||
|
down_streak = up and 0 or ((prev and prev.down_streak or 0) + 1),
|
||||||
|
}
|
||||||
|
status[name] = new_s
|
||||||
|
return new_s
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Fallback single-host probe used only when a caller explicitly needs a
|
||||||
|
-- status refresh outside the parallel path (currently only
|
||||||
|
-- remote_list_hosts when a single host is looked up). lmcp-only.
|
||||||
|
local function probe(name, force)
|
||||||
|
local b = backends[name]
|
||||||
|
if not b then return { up = false, err = "unknown host" } end
|
||||||
|
local s = status[name]
|
||||||
|
if not force and cache_fresh(s, os.time()) then return s end
|
||||||
|
if not b.lmcp_url then
|
||||||
|
return apply_probe_result(name, false, "no lmcp url", nil, nil)
|
||||||
|
end
|
||||||
|
local result, err = jsonrpc_call(b.lmcp_url, b.token, "tools/list", {})
|
||||||
|
if result and result.tools then
|
||||||
|
return apply_probe_result(name, true, nil, "lmcp", #result.tools)
|
||||||
|
end
|
||||||
|
return apply_probe_result(name, false, "lmcp: " .. tostring(err), nil, nil)
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Parallel lmcp probe for every backend with an lmcp_url, via a single
|
||||||
|
-- bash fan-out of curl calls. Total wall clock ≈ PROBE_BUDGET.
|
||||||
|
local function probe_all_parallel(force)
|
||||||
|
local now = os.time()
|
||||||
|
local need = {}
|
||||||
|
for name, b in pairs(backends) do
|
||||||
|
if b.lmcp_url and (force or not cache_fresh(status[name], now)) then
|
||||||
|
need[#need+1] = b
|
||||||
|
end
|
||||||
|
end
|
||||||
|
if #need == 0 then return end
|
||||||
|
|
||||||
|
local script_parts = {}
|
||||||
|
for _, b in ipairs(need) do
|
||||||
|
local auth = b.token and (" -H 'Authorization: Bearer " .. b.token .. "'") or ""
|
||||||
|
local url = b.lmcp_url:gsub("'", "'\\''")
|
||||||
|
script_parts[#script_parts+1] = string.format(
|
||||||
|
"(curl --max-time %d -s -o /dev/null -w '%s %%{http_code} %%{time_total}\\n' -X POST%s -H 'Content-Type: application/json' -d '{\"jsonrpc\":\"2.0\",\"id\":1,\"method\":\"tools/list\",\"params\":{}}' '%s' || echo '%s ERR 0') &",
|
||||||
|
PROBE_BUDGET, b.name, auth, url, b.name
|
||||||
|
)
|
||||||
|
end
|
||||||
|
script_parts[#script_parts+1] = "wait"
|
||||||
|
|
||||||
|
local t0 = monotonic()
|
||||||
|
local p = io.popen(table.concat(script_parts, "\n"))
|
||||||
|
local out = p and p:read("*a") or ""
|
||||||
|
if p then p:close() end
|
||||||
|
local dt = monotonic() - t0
|
||||||
|
|
||||||
|
local seen = {}
|
||||||
|
for line in out:gmatch("[^\n]+") do
|
||||||
|
local name, code, t = line:match("^(%S+)%s+(%S+)%s+([%d%.]+)")
|
||||||
|
if name then
|
||||||
|
seen[name] = true
|
||||||
|
local is_up = (code == "200")
|
||||||
|
if is_up then
|
||||||
|
apply_probe_result(name, true, nil, "lmcp", nil)
|
||||||
|
else
|
||||||
|
apply_probe_result(name, false, "lmcp code=" .. code, nil, nil)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
-- Hosts with no output (fan-out error): mark DOWN
|
||||||
|
for _, b in ipairs(need) do
|
||||||
|
if not seen[b.name] then
|
||||||
|
apply_probe_result(b.name, false, "probe fan-out missing", nil, nil)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
logreq("probe_all_parallel n=%d elapsed=%.2fs", #need, dt)
|
||||||
|
end
|
||||||
|
|
||||||
|
-- ---- Call-tool dispatcher ----------------------------------------------
|
||||||
|
|
||||||
|
-- `allow_ssh`: whether the tool has an SSH fallback path
|
||||||
|
-- `ssh_impl`: function(backend, args) -> output string, or nil + error
|
||||||
|
local function call_remote(tool, args, allow_ssh, ssh_impl)
|
||||||
|
local t_start = monotonic()
|
||||||
|
local host = args.host
|
||||||
|
if type(host) ~= "string" or host == "" then
|
||||||
|
logreq("tool=%s ERR missing-host", tool)
|
||||||
|
return "Error: missing `host` parameter"
|
||||||
|
end
|
||||||
|
local b = backends[host]
|
||||||
|
if not b then
|
||||||
|
logreq("tool=%s host=%s ERR unknown-host", tool, host)
|
||||||
|
return string.format("Error: unknown host %q (registry: %s)", host, CONF_PATH)
|
||||||
|
end
|
||||||
|
|
||||||
|
local errs = {}
|
||||||
|
local via = nil
|
||||||
|
|
||||||
|
-- Try lmcp first
|
||||||
|
if b.lmcp_url then
|
||||||
|
local args_pass = {}
|
||||||
|
for k, v in pairs(args) do if k ~= "host" then args_pass[k] = v end end
|
||||||
|
local result, err = jsonrpc_call(b.lmcp_url, b.token, "tools/call",
|
||||||
|
{ name = tool, arguments = args_pass })
|
||||||
|
if result then
|
||||||
|
via = "lmcp"
|
||||||
|
logreq("tool=%s host=%s via=lmcp elapsed=%.2fs", tool, host, monotonic() - t_start)
|
||||||
|
-- Propagate backend's content, extract first text block
|
||||||
|
if type(result.content) == "table" and result.content[1] and result.content[1].text then
|
||||||
|
local prefix = result.isError and "[lmcp isError] " or ""
|
||||||
|
return prefix .. result.content[1].text
|
||||||
|
end
|
||||||
|
return json.encode(result)
|
||||||
|
end
|
||||||
|
errs[#errs+1] = "lmcp: " .. tostring(err)
|
||||||
|
else
|
||||||
|
errs[#errs+1] = "lmcp: no url configured"
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Fallback to ssh
|
||||||
|
if allow_ssh and ssh_impl and b.ssh_host then
|
||||||
|
local out, serr = ssh_impl(b, args)
|
||||||
|
if out ~= nil then
|
||||||
|
logreq("tool=%s host=%s via=ssh elapsed=%.2fs", tool, host, monotonic() - t_start)
|
||||||
|
return "[via ssh fallback]\n" .. out
|
||||||
|
end
|
||||||
|
errs[#errs+1] = "ssh: " .. tostring(serr)
|
||||||
|
elseif allow_ssh and not b.ssh_host then
|
||||||
|
errs[#errs+1] = "ssh: no host configured"
|
||||||
|
end
|
||||||
|
|
||||||
|
logreq("tool=%s host=%s FAIL elapsed=%.2fs err=%s", tool, host, monotonic() - t_start, table.concat(errs, " | "):sub(1, 200))
|
||||||
|
return "Error: " .. table.concat(errs, " | ")
|
||||||
|
end
|
||||||
|
|
||||||
|
-- ---- SSH implementations for each fallback-capable tool ----------------
|
||||||
|
|
||||||
|
local function ssh_shell(b, a)
|
||||||
|
if type(a.command) ~= "string" then return nil, "command required" end
|
||||||
|
local cwd_prefix = ""
|
||||||
|
if a.cwd and a.cwd ~= "" then
|
||||||
|
cwd_prefix = "cd " .. shell_quote(a.cwd) .. " && "
|
||||||
|
end
|
||||||
|
local script = cwd_prefix .. a.command .. "\n"
|
||||||
|
local out, err, rc = ssh_run_script(b.ssh_host, script)
|
||||||
|
if err then return nil, err end
|
||||||
|
-- ssh exits 255 when it couldn't connect/authenticate. Treat that as
|
||||||
|
-- fallback-failed so the caller sees the combined lmcp+ssh errors.
|
||||||
|
if rc == 255 then
|
||||||
|
local line1 = (out:match("^([^\n]+)") or ""):gsub("%s+$", "")
|
||||||
|
return nil, "ssh connect failed: " .. line1
|
||||||
|
end
|
||||||
|
return string.format("[rc=%d]\n%s", rc, out)
|
||||||
|
end
|
||||||
|
|
||||||
|
local function ssh_read_file(b, a)
|
||||||
|
if type(a.path) ~= "string" then return nil, "path required" end
|
||||||
|
local script = "cat -- " .. shell_quote(a.path) .. "\n"
|
||||||
|
local out, err, rc = ssh_run_script(b.ssh_host, script)
|
||||||
|
if err then return nil, err end
|
||||||
|
if rc ~= 0 then return nil, "cat exit " .. rc .. ": " .. out:sub(1, 200) end
|
||||||
|
return out
|
||||||
|
end
|
||||||
|
|
||||||
|
local function ssh_write_file(b, a)
|
||||||
|
if type(a.path) ~= "string" or type(a.content) ~= "string" then
|
||||||
|
return nil, "path and content required"
|
||||||
|
end
|
||||||
|
-- Emit a script that decodes content from base64, so no shell
|
||||||
|
-- interpretation of the payload is possible. Lua stdlib has no base64;
|
||||||
|
-- implement a minimal encoder inline.
|
||||||
|
local b64_alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
|
||||||
|
local function b64enc(data)
|
||||||
|
local out = {}
|
||||||
|
local pad = (3 - (#data % 3)) % 3
|
||||||
|
local padded = data .. ("\0"):rep(pad)
|
||||||
|
for i = 1, #padded, 3 do
|
||||||
|
local a1, a2, a3 = padded:byte(i), padded:byte(i+1), padded:byte(i+2)
|
||||||
|
local n = a1 * 65536 + a2 * 256 + a3
|
||||||
|
out[#out+1] = b64_alphabet:sub(((n >> 18) & 63) + 1, ((n >> 18) & 63) + 1)
|
||||||
|
out[#out+1] = b64_alphabet:sub(((n >> 12) & 63) + 1, ((n >> 12) & 63) + 1)
|
||||||
|
out[#out+1] = b64_alphabet:sub(((n >> 6) & 63) + 1, ((n >> 6) & 63) + 1)
|
||||||
|
out[#out+1] = b64_alphabet:sub(((n ) & 63) + 1, ((n ) & 63) + 1)
|
||||||
|
end
|
||||||
|
local s = table.concat(out)
|
||||||
|
if pad > 0 then s = s:sub(1, -pad - 1) .. ("="):rep(pad) end
|
||||||
|
return s
|
||||||
|
end
|
||||||
|
local payload = b64enc(a.content)
|
||||||
|
local script = string.format(
|
||||||
|
"base64 -d > %s <<'EOF_B64_PAYLOAD'\n%s\nEOF_B64_PAYLOAD\n",
|
||||||
|
shell_quote(a.path), payload
|
||||||
|
)
|
||||||
|
local out, err, rc = ssh_run_script(b.ssh_host, script)
|
||||||
|
if err then return nil, err end
|
||||||
|
if rc ~= 0 then return nil, "write exit " .. rc .. ": " .. out:sub(1, 200) end
|
||||||
|
return string.format("Written %d bytes to %s (via ssh)", #a.content, a.path)
|
||||||
|
end
|
||||||
|
|
||||||
|
local function ssh_list_dir(b, a)
|
||||||
|
local path = (a and type(a.path) == "string" and a.path) or "."
|
||||||
|
local script = "ls -1 -- " .. shell_quote(path) .. "\n"
|
||||||
|
local out, err, rc = ssh_run_script(b.ssh_host, script)
|
||||||
|
if err then return nil, err end
|
||||||
|
if rc ~= 0 then return nil, "ls exit " .. rc .. ": " .. out:sub(1, 200) end
|
||||||
|
return out
|
||||||
|
end
|
||||||
|
|
||||||
|
local function ssh_search_files(b, a)
|
||||||
|
if type(a.pattern) ~= "string" then return nil, "pattern required" end
|
||||||
|
local path = (a.path and a.path ~= "") and a.path or "/"
|
||||||
|
local script = string.format(
|
||||||
|
"find %s -name %s 2>/dev/null | head -200\n",
|
||||||
|
shell_quote(path), shell_quote(a.pattern)
|
||||||
|
)
|
||||||
|
local out, err, rc = ssh_run_script(b.ssh_host, script)
|
||||||
|
if err then return nil, err end
|
||||||
|
return out
|
||||||
|
end
|
||||||
|
|
||||||
|
-- ---- Server setup ------------------------------------------------------
|
||||||
|
|
||||||
|
load_registry()
|
||||||
|
math.randomseed(os.time())
|
||||||
|
|
||||||
|
local server = lmcp.new(os.getenv("LMCP_NAME") or "hub-tools", {
|
||||||
|
port = tonumber(os.getenv("LMCP_PORT") or arg[1]) or 8090,
|
||||||
|
version = "0.5.4",
|
||||||
|
conf = os.getenv("LMCP_HUB_CONF") or "/opt/herding/etc/lmcp-hub.conf",
|
||||||
|
})
|
||||||
|
|
||||||
|
local HOST_ARG = {
|
||||||
|
type = "string",
|
||||||
|
description = "Name of the backend host (see remote_list_hosts)",
|
||||||
|
}
|
||||||
|
|
||||||
|
server:tool("remote_list_hosts",
|
||||||
|
"List all registered fleet hosts and their live status (lmcp vs ssh vs down).",
|
||||||
|
{ type = "object", properties = {
|
||||||
|
force = { type = "boolean", description = "Force re-probe (bypass cache)", default = false },
|
||||||
|
} },
|
||||||
|
function(a)
|
||||||
|
local force = a and a.force or false
|
||||||
|
probe_all_parallel(force)
|
||||||
|
local lines = {}
|
||||||
|
local names = {}
|
||||||
|
for n in pairs(backends) do names[#names+1] = n end
|
||||||
|
table.sort(names)
|
||||||
|
for _, n in ipairs(names) do
|
||||||
|
local b = backends[n]
|
||||||
|
local s = status[n] or { up = false, err = "no probe result" }
|
||||||
|
local paths = {}
|
||||||
|
if b.lmcp_url then paths[#paths+1] = "lmcp" end
|
||||||
|
if b.ssh_host then paths[#paths+1] = "ssh" end
|
||||||
|
lines[#lines+1] = string.format(
|
||||||
|
"%-14s %-6s via=%-4s paths=%s %s",
|
||||||
|
n,
|
||||||
|
s.up and "UP" or "DOWN",
|
||||||
|
tostring(s.via or "-"),
|
||||||
|
table.concat(paths, ","),
|
||||||
|
s.err and ("[" .. s.err .. "]") or ""
|
||||||
|
)
|
||||||
|
end
|
||||||
|
return table.concat(lines, "\n")
|
||||||
|
end,
|
||||||
|
{ annotations = {
|
||||||
|
title = "List fleet hosts",
|
||||||
|
readOnlyHint = true,
|
||||||
|
destructiveHint = false,
|
||||||
|
idempotentHint = true,
|
||||||
|
openWorldHint = true,
|
||||||
|
} }
|
||||||
|
)
|
||||||
|
|
||||||
|
server:tool("remote_shell", "Run a shell command on a fleet host. lmcp-primary with ssh fallback.",
|
||||||
|
{ type = "object", properties = {
|
||||||
|
host = HOST_ARG,
|
||||||
|
command = { type = "string", description = "Shell command" },
|
||||||
|
cwd = { type = "string", description = "Working directory" },
|
||||||
|
timeout = { type = "integer", description = "Timeout (seconds)", default = 120 },
|
||||||
|
}, required = { "host", "command" } },
|
||||||
|
function(a) return call_remote("shell", a, true, ssh_shell) end,
|
||||||
|
{ annotations = {
|
||||||
|
title = "Remote shell",
|
||||||
|
readOnlyHint = false,
|
||||||
|
destructiveHint = true,
|
||||||
|
idempotentHint = false,
|
||||||
|
openWorldHint = true,
|
||||||
|
} }
|
||||||
|
)
|
||||||
|
|
||||||
|
server:tool("remote_read_file", "Read a file from a fleet host.",
|
||||||
|
{ type = "object", properties = {
|
||||||
|
host = HOST_ARG,
|
||||||
|
path = { type = "string", description = "File path" },
|
||||||
|
}, required = { "host", "path" } },
|
||||||
|
function(a) return call_remote("read_file", a, true, ssh_read_file) end,
|
||||||
|
{ annotations = {
|
||||||
|
title = "Remote read file",
|
||||||
|
readOnlyHint = true,
|
||||||
|
destructiveHint = false,
|
||||||
|
idempotentHint = true,
|
||||||
|
openWorldHint = true,
|
||||||
|
} }
|
||||||
|
)
|
||||||
|
|
||||||
|
server:tool("remote_write_file", "Write content to a file on a fleet host.",
|
||||||
|
{ type = "object", properties = {
|
||||||
|
host = HOST_ARG,
|
||||||
|
path = { type = "string" },
|
||||||
|
content = { type = "string" },
|
||||||
|
}, required = { "host", "path", "content" } },
|
||||||
|
function(a) return call_remote("write_file", a, true, ssh_write_file) end,
|
||||||
|
{ annotations = {
|
||||||
|
title = "Remote write file",
|
||||||
|
readOnlyHint = false,
|
||||||
|
destructiveHint = true,
|
||||||
|
idempotentHint = true,
|
||||||
|
openWorldHint = true,
|
||||||
|
} }
|
||||||
|
)
|
||||||
|
|
||||||
|
server:tool("remote_edit_file",
|
||||||
|
"Literal-match edit on a fleet host. **Requires backend lmcp up** — no ssh fallback.",
|
||||||
|
{ type = "object", properties = {
|
||||||
|
host = HOST_ARG,
|
||||||
|
path = { type = "string" },
|
||||||
|
old_string = { type = "string" },
|
||||||
|
new_string = { type = "string" },
|
||||||
|
replace_all = { type = "boolean", default = false },
|
||||||
|
}, required = { "host", "path", "old_string", "new_string" } },
|
||||||
|
function(a) return call_remote("edit_file", a, false, nil) end,
|
||||||
|
{ annotations = {
|
||||||
|
title = "Remote edit file",
|
||||||
|
readOnlyHint = false,
|
||||||
|
destructiveHint = true,
|
||||||
|
idempotentHint = false,
|
||||||
|
openWorldHint = true,
|
||||||
|
} }
|
||||||
|
)
|
||||||
|
|
||||||
|
server:tool("remote_shell_bg",
|
||||||
|
"Launch a detached background command on a fleet host (Linux). Returns PID + log path immediately. Requires backend lmcp v0.5.2+.",
|
||||||
|
{ type = "object", properties = {
|
||||||
|
host = HOST_ARG,
|
||||||
|
command = { type = "string", description = "Shell command" },
|
||||||
|
cwd = { type = "string" },
|
||||||
|
log = { type = "string", description = "Log file path" },
|
||||||
|
}, required = { "host", "command" } },
|
||||||
|
function(a) return call_remote("shell_bg", a, false, nil) end,
|
||||||
|
{ annotations = {
|
||||||
|
title = "Remote shell (background)",
|
||||||
|
readOnlyHint = false,
|
||||||
|
destructiveHint = true,
|
||||||
|
idempotentHint = false,
|
||||||
|
openWorldHint = true,
|
||||||
|
} }
|
||||||
|
)
|
||||||
|
|
||||||
|
server:tool("remote_list_dir", "List directory entries on a fleet host.",
|
||||||
|
{ type = "object", properties = {
|
||||||
|
host = HOST_ARG,
|
||||||
|
path = { type = "string", default = "." },
|
||||||
|
}, required = { "host" } },
|
||||||
|
function(a) return call_remote("list_dir", a, true, ssh_list_dir) end,
|
||||||
|
{ annotations = {
|
||||||
|
title = "Remote list directory",
|
||||||
|
readOnlyHint = true,
|
||||||
|
destructiveHint = false,
|
||||||
|
idempotentHint = true,
|
||||||
|
openWorldHint = true,
|
||||||
|
} }
|
||||||
|
)
|
||||||
|
|
||||||
|
server:tool("remote_search_files", "find-by-pattern on a fleet host.",
|
||||||
|
{ type = "object", properties = {
|
||||||
|
host = HOST_ARG,
|
||||||
|
pattern = { type = "string" },
|
||||||
|
path = { type = "string", default = "/" },
|
||||||
|
}, required = { "host", "pattern" } },
|
||||||
|
function(a) return call_remote("search_files", a, true, ssh_search_files) end,
|
||||||
|
{ annotations = {
|
||||||
|
title = "Remote find files",
|
||||||
|
readOnlyHint = true,
|
||||||
|
destructiveHint = false,
|
||||||
|
idempotentHint = true,
|
||||||
|
openWorldHint = true,
|
||||||
|
} }
|
||||||
|
)
|
||||||
|
|
||||||
|
io.stderr:write(string.format("lmcp-hub starting on port %d with %d backends from %s\n",
|
||||||
|
server.port, (function() local n = 0; for _ in pairs(backends) do n = n + 1 end; return n end)(), CONF_PATH))
|
||||||
|
server:run()
|
||||||
@@ -60,6 +60,13 @@ encode_value = function(v)
|
|||||||
local t = type(v)
|
local t = type(v)
|
||||||
if v == nil or v == json.null then
|
if v == nil or v == json.null then
|
||||||
return 'null'
|
return 'null'
|
||||||
|
elseif v == json.empty_object then
|
||||||
|
-- Sentinel for forcing {} (object) instead of [] (array) when
|
||||||
|
-- the field semantically requires an object but is empty.
|
||||||
|
-- Without this, every empty Lua table goes through is_array()
|
||||||
|
-- and emits as [], breaking spec-strict JSON-RPC consumers
|
||||||
|
-- (e.g. ping result, MUST be {}).
|
||||||
|
return '{}'
|
||||||
elseif t == 'boolean' then
|
elseif t == 'boolean' then
|
||||||
return v and 'true' or 'false'
|
return v and 'true' or 'false'
|
||||||
elseif t == 'number' then
|
elseif t == 'number' then
|
||||||
@@ -110,9 +117,20 @@ local function decode_string(s, pos)
|
|||||||
pos = pos + 1
|
pos = pos + 1
|
||||||
c = s:sub(pos, pos)
|
c = s:sub(pos, pos)
|
||||||
if c == 'u' then
|
if c == 'u' then
|
||||||
local hex = s:sub(pos + 1, pos + 4)
|
local cp = tonumber(s:sub(pos + 1, pos + 4), 16)
|
||||||
parts[#parts + 1] = utf8.char(tonumber(hex, 16))
|
|
||||||
pos = pos + 5
|
pos = pos + 5
|
||||||
|
-- Combine UTF-16 surrogate pair so non-BMP chars (emoji,
|
||||||
|
-- supplementary CJK) decode correctly instead of as two
|
||||||
|
-- lone surrogates → invalid UTF-8.
|
||||||
|
if cp and cp >= 0xD800 and cp <= 0xDBFF
|
||||||
|
and s:sub(pos, pos + 1) == "\\u" then
|
||||||
|
local lo = tonumber(s:sub(pos + 2, pos + 5), 16)
|
||||||
|
if lo and lo >= 0xDC00 and lo <= 0xDFFF then
|
||||||
|
cp = (cp - 0xD800) * 0x400 + (lo - 0xDC00) + 0x10000
|
||||||
|
pos = pos + 6
|
||||||
|
end
|
||||||
|
end
|
||||||
|
parts[#parts + 1] = utf8.char(cp)
|
||||||
else
|
else
|
||||||
local esc = { n = '\n', r = '\r', t = '\t', b = '\b', f = '\f' }
|
local esc = { n = '\n', r = '\r', t = '\t', b = '\b', f = '\f' }
|
||||||
parts[#parts + 1] = esc[c] or c
|
parts[#parts + 1] = esc[c] or c
|
||||||
@@ -210,6 +228,12 @@ end
|
|||||||
-- Sentinel for JSON null
|
-- Sentinel for JSON null
|
||||||
json.null = setmetatable({}, { __tostring = function() return 'null' end })
|
json.null = setmetatable({}, { __tostring = function() return 'null' end })
|
||||||
|
|
||||||
|
-- Sentinel for an empty JSON object ({}). Use when a field semantically
|
||||||
|
-- requires an object but is empty — e.g. `ping` result, MCP _meta = {}.
|
||||||
|
-- Without this, an empty Lua table goes through is_array() → '[]'.
|
||||||
|
-- See memory project_json_empty_table_gotcha.md.
|
||||||
|
json.empty_object = setmetatable({}, { __tostring = function() return '{}' end })
|
||||||
|
|
||||||
-- Helper: encode a table as a JSON array even if empty
|
-- Helper: encode a table as a JSON array even if empty
|
||||||
function json.array(t)
|
function json.array(t)
|
||||||
return setmetatable(t or {}, { __is_array = true })
|
return setmetatable(t or {}, { __is_array = true })
|
||||||
|
|||||||
Executable
+157
@@ -0,0 +1,157 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
# Install lmcp on macOS via Homebrew.
|
||||||
|
#
|
||||||
|
# Pins to lua@5.4 (keg-only brew formula) to keep library paths aligned
|
||||||
|
# with the rest of the fleet (Arch/ALARM, Debian). Installs luasocket via
|
||||||
|
# luarocks into the user-local rocks tree (~/.luarocks/) and bakes the
|
||||||
|
# required LUA_PATH / LUA_CPATH into the LaunchAgent plist so the service
|
||||||
|
# can `require 'socket'`.
|
||||||
|
#
|
||||||
|
# Usage (from lmcp repo root):
|
||||||
|
# ./scripts/lmcp-install-macos.sh
|
||||||
|
#
|
||||||
|
# Uninstall:
|
||||||
|
# launchctl unload ~/Library/LaunchAgents/de.reauktion.marfrit.lmcp.plist
|
||||||
|
# rm ~/Library/LaunchAgents/de.reauktion.marfrit.lmcp.plist
|
||||||
|
# rm $(brew --prefix)/etc/lmcp/token
|
||||||
|
|
||||||
|
set -euo pipefail
|
||||||
|
|
||||||
|
# brew is only on PATH in login shells by default; source its env explicitly
|
||||||
|
# so this works under a plain non-login bash too.
|
||||||
|
if ! command -v brew >/dev/null 2>&1; then
|
||||||
|
for candidate in /opt/homebrew/bin/brew /usr/local/bin/brew; do
|
||||||
|
if [ -x "$candidate" ]; then
|
||||||
|
eval "$("$candidate" shellenv)"
|
||||||
|
break
|
||||||
|
fi
|
||||||
|
done
|
||||||
|
fi
|
||||||
|
command -v brew >/dev/null 2>&1 || { echo "error: Homebrew not found"; exit 1; }
|
||||||
|
|
||||||
|
REPO=${REPO:-$(cd "$(dirname "$0")/.." && pwd)}
|
||||||
|
for f in lmcp.lua json.lua server.lua example_server.lua; do
|
||||||
|
[ -f "$REPO/$f" ] || { echo "error: $REPO/$f not found — run from lmcp repo root or set REPO="; exit 1; }
|
||||||
|
done
|
||||||
|
|
||||||
|
echo "==> brew install lua@5.4 luarocks"
|
||||||
|
brew install --quiet lua@5.4 luarocks
|
||||||
|
|
||||||
|
LUA54_PREFIX=$(brew --prefix lua@5.4)
|
||||||
|
LUA54=$LUA54_PREFIX/bin/lua5.4
|
||||||
|
BREW_PREFIX=$(brew --prefix)
|
||||||
|
[ -x "$LUA54" ] || { echo "error: $LUA54 missing after brew install"; exit 1; }
|
||||||
|
|
||||||
|
echo "==> luarocks install luasocket (user-local, pinned to lua@5.4)"
|
||||||
|
luarocks --lua-version 5.4 --lua-dir "$LUA54_PREFIX" install --local luasocket
|
||||||
|
|
||||||
|
LR_PATH=$(luarocks --lua-version 5.4 --lua-dir "$LUA54_PREFIX" path --lr-path)
|
||||||
|
LR_CPATH=$(luarocks --lua-version 5.4 --lua-dir "$LUA54_PREFIX" path --lr-cpath)
|
||||||
|
DEFAULT_LUA_P="$BREW_PREFIX/share/lua/5.4/?.lua;$BREW_PREFIX/share/lua/5.4/?/init.lua;$BREW_PREFIX/lib/lua/5.4/?.lua;$BREW_PREFIX/lib/lua/5.4/?/init.lua;./?.lua;./?/init.lua"
|
||||||
|
DEFAULT_LUA_CP="$BREW_PREFIX/lib/lua/5.4/?.so;./?.so"
|
||||||
|
FULL_LUA_P="$DEFAULT_LUA_P;$LR_PATH"
|
||||||
|
FULL_LUA_CP="$DEFAULT_LUA_CP;$LR_CPATH"
|
||||||
|
|
||||||
|
echo "==> install library files into $BREW_PREFIX/share/lua/5.4/"
|
||||||
|
install -d "$BREW_PREFIX/share/lua/5.4"
|
||||||
|
install -m 644 "$REPO/lmcp.lua" "$BREW_PREFIX/share/lua/5.4/lmcp.lua"
|
||||||
|
install -m 644 "$REPO/json.lua" "$BREW_PREFIX/share/lua/5.4/json.lua"
|
||||||
|
install -m 644 "$REPO/server.lua" "$BREW_PREFIX/share/lua/5.4/server.lua"
|
||||||
|
install -m 755 "$REPO/example_server.lua" "$BREW_PREFIX/bin/lmcp-example"
|
||||||
|
|
||||||
|
# Token: retain existing, mint new otherwise
|
||||||
|
TOKEN_FILE="$BREW_PREFIX/etc/lmcp/token"
|
||||||
|
install -d -m 755 "$BREW_PREFIX/etc/lmcp"
|
||||||
|
if [ -r "$TOKEN_FILE" ]; then
|
||||||
|
TOKEN=$(cat "$TOKEN_FILE")
|
||||||
|
echo "==> reusing token from $TOKEN_FILE"
|
||||||
|
else
|
||||||
|
TOKEN=$(openssl rand -hex 32)
|
||||||
|
umask 077
|
||||||
|
printf '%s\n' "$TOKEN" > "$TOKEN_FILE"
|
||||||
|
chmod 600 "$TOKEN_FILE"
|
||||||
|
echo "==> minted new token, stored at $TOKEN_FILE (0600)"
|
||||||
|
fi
|
||||||
|
|
||||||
|
LABEL="de.reauktion.marfrit.lmcp"
|
||||||
|
PLIST="$HOME/Library/LaunchAgents/$LABEL.plist"
|
||||||
|
PORT="${LMCP_PORT:-8080}"
|
||||||
|
NAME="${LMCP_NAME:-$(hostname -s)-tools}"
|
||||||
|
|
||||||
|
echo "==> write LaunchAgent $PLIST"
|
||||||
|
mkdir -p "$HOME/Library/LaunchAgents"
|
||||||
|
cat > "$PLIST" <<PLIST
|
||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
|
||||||
|
<plist version="1.0">
|
||||||
|
<dict>
|
||||||
|
<key>Label</key>
|
||||||
|
<string>$LABEL</string>
|
||||||
|
<key>ProgramArguments</key>
|
||||||
|
<array>
|
||||||
|
<string>$LUA54</string>
|
||||||
|
<string>$BREW_PREFIX/share/lua/5.4/server.lua</string>
|
||||||
|
</array>
|
||||||
|
<key>EnvironmentVariables</key>
|
||||||
|
<dict>
|
||||||
|
<key>LMCP_PORT</key>
|
||||||
|
<string>$PORT</string>
|
||||||
|
<key>LMCP_NAME</key>
|
||||||
|
<string>$NAME</string>
|
||||||
|
<key>LMCP_TOKEN</key>
|
||||||
|
<string>$TOKEN</string>
|
||||||
|
<key>LUA_PATH</key>
|
||||||
|
<string>$FULL_LUA_P</string>
|
||||||
|
<key>LUA_CPATH</key>
|
||||||
|
<string>$FULL_LUA_CP</string>
|
||||||
|
</dict>
|
||||||
|
<key>RunAtLoad</key>
|
||||||
|
<true/>
|
||||||
|
<key>KeepAlive</key>
|
||||||
|
<true/>
|
||||||
|
<key>StandardOutPath</key>
|
||||||
|
<string>/tmp/lmcp.log</string>
|
||||||
|
<key>StandardErrorPath</key>
|
||||||
|
<string>/tmp/lmcp.err</string>
|
||||||
|
</dict>
|
||||||
|
</plist>
|
||||||
|
PLIST
|
||||||
|
chmod 600 "$PLIST" # plist contains token
|
||||||
|
|
||||||
|
echo "==> (re)load LaunchAgent"
|
||||||
|
launchctl unload "$PLIST" 2>/dev/null || true
|
||||||
|
launchctl load "$PLIST"
|
||||||
|
|
||||||
|
sleep 2
|
||||||
|
echo "==> smoke test (unauth expected 401, Bearer expected 200)"
|
||||||
|
unauth=$(curl -s -o /dev/null -w '%{http_code}' --max-time 3 -X POST "http://127.0.0.1:$PORT/mcp" \
|
||||||
|
-H 'Content-Type: application/json' \
|
||||||
|
-d '{"jsonrpc":"2.0","id":1,"method":"tools/list"}' || echo "000")
|
||||||
|
auth=$(curl -s --max-time 3 -X POST "http://127.0.0.1:$PORT/mcp" \
|
||||||
|
-H "Authorization: Bearer $TOKEN" \
|
||||||
|
-H 'Content-Type: application/json' \
|
||||||
|
-d '{"jsonrpc":"2.0","id":1,"method":"tools/list"}' || true)
|
||||||
|
|
||||||
|
if [ "$unauth" = "401" ] && echo "$auth" | grep -q '"tools"'; then
|
||||||
|
echo "OK — lmcp listening on :$PORT as $NAME, Bearer-gated"
|
||||||
|
else
|
||||||
|
echo "smoke test failed (unauth=$unauth, auth body below)"
|
||||||
|
echo "$auth" | head -c 500; echo
|
||||||
|
tail -20 /tmp/lmcp.err 2>/dev/null || true
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
|
||||||
|
cat <<INFO
|
||||||
|
|
||||||
|
Token: $TOKEN
|
||||||
|
|
||||||
|
Add to Claude Code ~/.claude.json on the client machine:
|
||||||
|
|
||||||
|
"$NAME": {
|
||||||
|
"type": "http",
|
||||||
|
"url": "http://$(hostname -s).fritz.box:$PORT/mcp",
|
||||||
|
"headers": { "Authorization": "Bearer $TOKEN" }
|
||||||
|
}
|
||||||
|
|
||||||
|
(Use .fritz.box, .local, or the LAN IP depending on where the client lives.)
|
||||||
|
INFO
|
||||||
+1126
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,57 @@
|
|||||||
|
# lmcp Windows MSI build
|
||||||
|
|
||||||
|
This directory contains the WiX manifest and packaging files for the
|
||||||
|
Windows MSI build of lmcp.
|
||||||
|
|
||||||
|
## Recommended: cross-build on Linux (one command)
|
||||||
|
|
||||||
|
```sh
|
||||||
|
./build-msi.sh /path/to/output/dir
|
||||||
|
```
|
||||||
|
|
||||||
|
Downloads Lua 5.4 Win64 binaries from LuaBinaries, cross-compiles
|
||||||
|
LuaSocket via `mingw-w64`, stages `pkg/lua/`, and runs `wixl` to
|
||||||
|
produce `lmcp-<version>.msi`. No Windows VM required.
|
||||||
|
|
||||||
|
Prereqs on a Debian/Ubuntu builder:
|
||||||
|
```sh
|
||||||
|
sudo apt install wixl unzip gcc-mingw-w64-x86-64 \
|
||||||
|
binutils-mingw-w64-x86-64 mingw-w64-x86-64-dev curl
|
||||||
|
```
|
||||||
|
|
||||||
|
Version comes from `lmcp.wxs` `Version="…"`. Bump that before
|
||||||
|
building a release.
|
||||||
|
|
||||||
|
## Alternative: build on Windows via WiX toolset
|
||||||
|
|
||||||
|
```cmd
|
||||||
|
sync.sh REM see "tracked vs. generated"
|
||||||
|
REM ensure pkg/lua/ has the runtime — see below
|
||||||
|
candle.exe lmcp.wxs
|
||||||
|
light.exe lmcp.wixobj -o lmcp-1.x.y.msi
|
||||||
|
```
|
||||||
|
|
||||||
|
## What's tracked vs. generated
|
||||||
|
|
||||||
|
- **Tracked** (edit in git):
|
||||||
|
- `lmcp.wxs` — WiX MSI manifest
|
||||||
|
- `sync.sh` — copies root .lua sources → `pkg/`
|
||||||
|
- `README.md` — this file
|
||||||
|
- `pkg/install_service.bat` — Windows service installer
|
||||||
|
- `pkg/start.bat` — manual launcher
|
||||||
|
|
||||||
|
- **Generated / external** (gitignored):
|
||||||
|
- `pkg/lmcp.lua`, `pkg/server.lua`, `pkg/json.lua` — produced by
|
||||||
|
`sync.sh`. Never edit directly; edit the root files and re-sync.
|
||||||
|
- `pkg/lua/` — the Lua + LuaSocket runtime drop-in. Download
|
||||||
|
separately and place here. Suggested source: the lua-binaries
|
||||||
|
project (https://github.com/rjpcomputing/luaforwindows) or a
|
||||||
|
similar pre-built bundle. The MSI expects `pkg/lua/lua.exe`,
|
||||||
|
`pkg/lua/lua54.dll`, and the `pkg/lua/socket/` + `pkg/lua/mime/`
|
||||||
|
subdirectories per the manifest.
|
||||||
|
|
||||||
|
## Issue history
|
||||||
|
|
||||||
|
Issue #18 (closed in v1.1.0) introduced this workflow after the
|
||||||
|
`pkg/` lua sources had silently drifted ~6 months out of date,
|
||||||
|
missing every feature added since April 2026.
|
||||||
Executable
+100
@@ -0,0 +1,100 @@
|
|||||||
|
#!/bin/sh
|
||||||
|
# windows/build-msi.sh — produce lmcp-<ver>.msi on Linux via wixl.
|
||||||
|
#
|
||||||
|
# This is the first-time-discovered cross-build path: download Lua 5.4
|
||||||
|
# Win64 binaries from LuaBinaries, cross-compile LuaSocket with mingw-w64,
|
||||||
|
# stage windows/pkg/lua/, then invoke wixl on the WiX manifest.
|
||||||
|
#
|
||||||
|
# Avoids the VM106-clone + WiX-on-Windows path entirely. ~1 minute on a
|
||||||
|
# warm cache; ~3-5 minutes cold (downloads ~700 KB + cross-compiles).
|
||||||
|
#
|
||||||
|
# Prereqs (apt install on Debian aarch64):
|
||||||
|
# apt-get install -y wixl unzip gcc-mingw-w64-x86-64 binutils-mingw-w64-x86-64 \
|
||||||
|
# mingw-w64-x86-64-dev
|
||||||
|
#
|
||||||
|
# Usage: ./build-msi.sh [output_dir]
|
||||||
|
# Output: $output_dir/lmcp-<ver>.msi (default: $PWD)
|
||||||
|
#
|
||||||
|
# Version comes from windows/lmcp.wxs Version="…" attribute.
|
||||||
|
set -eu
|
||||||
|
|
||||||
|
here=$(dirname "$(readlink -f "$0")")
|
||||||
|
root=$(cd "$here/.." && pwd)
|
||||||
|
out_dir=${1:-$PWD}
|
||||||
|
work=$(mktemp -d /tmp/lmcp-msi-XXXXXX)
|
||||||
|
trap "rm -rf $work" EXIT
|
||||||
|
|
||||||
|
# Versions — bump as upstream releases.
|
||||||
|
LUA_VER=5.4.2
|
||||||
|
LUASOCKET_VER=3.1.0
|
||||||
|
|
||||||
|
# Pull current lmcp version from the WiX manifest.
|
||||||
|
lmcp_ver=$(sed -n 's/.*Version="\([^"]*\)".*/\1/p' "$here/lmcp.wxs" | head -1)
|
||||||
|
[ -n "$lmcp_ver" ] || { echo "build-msi.sh: cannot parse Version from lmcp.wxs" >&2; exit 1; }
|
||||||
|
|
||||||
|
echo "build-msi.sh: lmcp $lmcp_ver, lua $LUA_VER, luasocket $LUASOCKET_VER"
|
||||||
|
|
||||||
|
echo "==> 1/5 sync lmcp .lua sources into pkg/"
|
||||||
|
"$here/sync.sh"
|
||||||
|
|
||||||
|
echo "==> 2/5 fetch lua $LUA_VER win64 binaries + dev library"
|
||||||
|
cd "$work"
|
||||||
|
curl -sSLf -o lua-bin.zip \
|
||||||
|
"https://downloads.sourceforge.net/project/luabinaries/${LUA_VER}/Tools%20Executables/lua-${LUA_VER}_Win64_bin.zip"
|
||||||
|
curl -sSLf -o lua-lib.zip \
|
||||||
|
"https://downloads.sourceforge.net/project/luabinaries/${LUA_VER}/Windows%20Libraries/Dynamic/lua-${LUA_VER}_Win64_dllw6_lib.zip"
|
||||||
|
mkdir -p luabin lualib include/lua/54 include/lua54 bin/lua/54 bin/lua54 lib/lua/54 lib/lua54
|
||||||
|
unzip -q -o lua-bin.zip -d luabin
|
||||||
|
unzip -q -o lua-lib.zip -d lualib
|
||||||
|
cp lualib/include/*.h include/lua/54/
|
||||||
|
cp lualib/include/*.h include/lua54/
|
||||||
|
cp lualib/liblua54.a lib/lua/54/
|
||||||
|
cp lualib/liblua54.a lib/lua54/
|
||||||
|
cp lualib/lua54.dll bin/lua/54/
|
||||||
|
cp lualib/lua54.dll bin/lua54/
|
||||||
|
|
||||||
|
echo "==> 3/5 cross-compile LuaSocket $LUASOCKET_VER for win64"
|
||||||
|
curl -sSLf -o luasocket.tar.gz \
|
||||||
|
"https://github.com/lunarmodules/luasocket/archive/refs/tags/v${LUASOCKET_VER}.tar.gz"
|
||||||
|
tar xzf luasocket.tar.gz
|
||||||
|
cd "luasocket-${LUASOCKET_VER}"
|
||||||
|
make -s PLAT=mingw \
|
||||||
|
CC=x86_64-w64-mingw32-gcc \
|
||||||
|
LD=x86_64-w64-mingw32-gcc \
|
||||||
|
LUAV=54 \
|
||||||
|
LUAINC_mingw_base="$work/include" \
|
||||||
|
LUALIB_mingw_base="$work/bin" \
|
||||||
|
> /dev/null
|
||||||
|
|
||||||
|
echo "==> 4/5 stage pkg/lua/"
|
||||||
|
pkg_lua="$here/pkg/lua"
|
||||||
|
rm -rf "$pkg_lua"
|
||||||
|
mkdir -p "$pkg_lua/socket" "$pkg_lua/mime"
|
||||||
|
|
||||||
|
# WiX manifest expects "lua.exe" (not "lua54.exe").
|
||||||
|
cp "$work/luabin/lua54.exe" "$pkg_lua/lua.exe"
|
||||||
|
cp "$work/luabin/lua54.dll" "$pkg_lua/lua54.dll"
|
||||||
|
cp src/socket.lua "$pkg_lua/"
|
||||||
|
cp src/mime.lua "$pkg_lua/"
|
||||||
|
cp src/ltn12.lua "$pkg_lua/"
|
||||||
|
cp src/socket-3.0.0.dll "$pkg_lua/socket/core.dll"
|
||||||
|
cp src/ftp.lua "$pkg_lua/socket/"
|
||||||
|
cp src/headers.lua "$pkg_lua/socket/"
|
||||||
|
cp src/http.lua "$pkg_lua/socket/"
|
||||||
|
cp src/smtp.lua "$pkg_lua/socket/"
|
||||||
|
cp src/tp.lua "$pkg_lua/socket/"
|
||||||
|
cp src/url.lua "$pkg_lua/socket/"
|
||||||
|
cp src/mime-1.0.3.dll "$pkg_lua/mime/core.dll"
|
||||||
|
|
||||||
|
echo "==> 5/5 wixl: produce MSI"
|
||||||
|
# wixl wants forward slashes; rewrite Windows-style backslashes in Source=.
|
||||||
|
wxs_tmp="$work/lmcp.wxs"
|
||||||
|
sed 's|Source="pkg\\|Source="pkg/|g; s|\\\([a-zA-Z]\)|/\1|g' "$here/lmcp.wxs" > "$wxs_tmp"
|
||||||
|
mkdir -p "$out_dir"
|
||||||
|
out_msi="$out_dir/lmcp-${lmcp_ver}.msi"
|
||||||
|
(cd "$here" && wixl -v "$wxs_tmp" -o "$out_msi")
|
||||||
|
|
||||||
|
echo ""
|
||||||
|
echo "==> done: $out_msi"
|
||||||
|
ls -la "$out_msi"
|
||||||
|
sha256sum "$out_msi"
|
||||||
@@ -0,0 +1,119 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Wix xmlns="http://schemas.microsoft.com/wix/2006/wi">
|
||||||
|
<!-- Bump Version on every release. See windows/README.md. -->
|
||||||
|
<Product Id="*"
|
||||||
|
Name="lmcp — Lua MCP Server"
|
||||||
|
Language="1033"
|
||||||
|
Version="1.1.0"
|
||||||
|
Manufacturer="QAP'LA Project"
|
||||||
|
UpgradeCode="A7F3E2D1-4B5C-6D7E-8F9A-0B1C2D3E4F5A">
|
||||||
|
|
||||||
|
<Package InstallerVersion="200"
|
||||||
|
Compressed="yes"
|
||||||
|
InstallScope="perMachine"
|
||||||
|
Description="Lightweight MCP server in Lua. 2MB RSS."
|
||||||
|
Comments="Zero-dependency MCP server." />
|
||||||
|
|
||||||
|
<MediaTemplate EmbedCab="yes" />
|
||||||
|
|
||||||
|
<MajorUpgrade DowngradeErrorMessage="A newer version is already installed." />
|
||||||
|
|
||||||
|
<Directory Id="TARGETDIR" Name="SourceDir">
|
||||||
|
<Directory Id="ProgramFiles64Folder">
|
||||||
|
<Directory Id="INSTALLFOLDER" Name="lmcp">
|
||||||
|
<Directory Id="LUA_DIR" Name="lua">
|
||||||
|
<Directory Id="SOCKET_DIR" Name="socket" />
|
||||||
|
<Directory Id="MIME_DIR" Name="mime" />
|
||||||
|
</Directory>
|
||||||
|
</Directory>
|
||||||
|
</Directory>
|
||||||
|
</Directory>
|
||||||
|
|
||||||
|
<!-- lmcp application files -->
|
||||||
|
<DirectoryRef Id="INSTALLFOLDER">
|
||||||
|
<Component Id="JsonLua" Guid="B1A2C3D4-E5F6-7890-ABCD-EF1234567890">
|
||||||
|
<File Id="json.lua" Source="pkg\json.lua" KeyPath="yes" />
|
||||||
|
</Component>
|
||||||
|
<Component Id="LmcpLua" Guid="B1A2C3D4-E5F6-7890-ABCD-EF1234567891">
|
||||||
|
<File Id="lmcp.lua" Source="pkg\lmcp.lua" KeyPath="yes" />
|
||||||
|
</Component>
|
||||||
|
<Component Id="ServerLua" Guid="B1A2C3D4-E5F6-7890-ABCD-EF1234567892">
|
||||||
|
<File Id="server.lua" Source="pkg\server.lua" KeyPath="yes" />
|
||||||
|
</Component>
|
||||||
|
<Component Id="StartBat" Guid="B1A2C3D4-E5F6-7890-ABCD-EF1234567893">
|
||||||
|
<File Id="start.bat" Source="pkg\start.bat" KeyPath="yes" />
|
||||||
|
</Component>
|
||||||
|
<Component Id="InstallService" Guid="B1A2C3D4-E5F6-7890-ABCD-EF1234567894">
|
||||||
|
<File Id="install_service.bat" Source="pkg\install_service.bat" KeyPath="yes" />
|
||||||
|
</Component>
|
||||||
|
</DirectoryRef>
|
||||||
|
|
||||||
|
<!-- Lua runtime -->
|
||||||
|
<DirectoryRef Id="LUA_DIR">
|
||||||
|
<Component Id="LuaExe" Guid="C2B3D4E5-F6A7-8901-BCDE-F12345678900">
|
||||||
|
<File Id="lua.exe" Source="pkg\lua\lua.exe" KeyPath="yes" />
|
||||||
|
</Component>
|
||||||
|
<Component Id="LuaDll" Guid="C2B3D4E5-F6A7-8901-BCDE-F12345678901">
|
||||||
|
<File Id="lua54.dll" Source="pkg\lua\lua54.dll" KeyPath="yes" />
|
||||||
|
</Component>
|
||||||
|
<Component Id="SocketLua" Guid="C2B3D4E5-F6A7-8901-BCDE-F12345678902">
|
||||||
|
<File Id="socket.lua" Source="pkg\lua\socket.lua" KeyPath="yes" />
|
||||||
|
</Component>
|
||||||
|
<Component Id="MimeLua" Guid="C2B3D4E5-F6A7-8901-BCDE-F12345678903">
|
||||||
|
<File Id="mime.lua" Source="pkg\lua\mime.lua" KeyPath="yes" />
|
||||||
|
</Component>
|
||||||
|
<Component Id="Ltn12Lua" Guid="C2B3D4E5-F6A7-8901-BCDE-F12345678904">
|
||||||
|
<File Id="ltn12.lua" Source="pkg\lua\ltn12.lua" KeyPath="yes" />
|
||||||
|
</Component>
|
||||||
|
</DirectoryRef>
|
||||||
|
|
||||||
|
<!-- LuaSocket native DLLs -->
|
||||||
|
<DirectoryRef Id="SOCKET_DIR">
|
||||||
|
<Component Id="SocketCoreDll" Guid="D3C4E5F6-A7B8-9012-CDEF-123456789010">
|
||||||
|
<File Id="socket_core.dll" Name="core.dll" Source="pkg\lua\socket\core.dll" KeyPath="yes" />
|
||||||
|
</Component>
|
||||||
|
<Component Id="SocketFtp" Guid="D3C4E5F6-A7B8-9012-CDEF-123456789011">
|
||||||
|
<File Id="ftp.lua" Source="pkg\lua\socket\ftp.lua" KeyPath="yes" />
|
||||||
|
</Component>
|
||||||
|
<Component Id="SocketHeaders" Guid="D3C4E5F6-A7B8-9012-CDEF-123456789012">
|
||||||
|
<File Id="headers.lua" Source="pkg\lua\socket\headers.lua" KeyPath="yes" />
|
||||||
|
</Component>
|
||||||
|
<Component Id="SocketHttp" Guid="D3C4E5F6-A7B8-9012-CDEF-123456789013">
|
||||||
|
<File Id="http.lua" Source="pkg\lua\socket\http.lua" KeyPath="yes" />
|
||||||
|
</Component>
|
||||||
|
<Component Id="SocketTp" Guid="D3C4E5F6-A7B8-9012-CDEF-123456789014">
|
||||||
|
<File Id="tp.lua" Source="pkg\lua\socket\tp.lua" KeyPath="yes" />
|
||||||
|
</Component>
|
||||||
|
<Component Id="SocketUrl" Guid="D3C4E5F6-A7B8-9012-CDEF-123456789015">
|
||||||
|
<File Id="url.lua" Source="pkg\lua\socket\url.lua" KeyPath="yes" />
|
||||||
|
</Component>
|
||||||
|
</DirectoryRef>
|
||||||
|
|
||||||
|
<DirectoryRef Id="MIME_DIR">
|
||||||
|
<Component Id="MimeCoreDll" Guid="E4D5F6A7-B8C9-0123-DEFA-234567890120">
|
||||||
|
<File Id="mime_core.dll" Name="core.dll" Source="pkg\lua\mime\core.dll" KeyPath="yes" />
|
||||||
|
</Component>
|
||||||
|
</DirectoryRef>
|
||||||
|
|
||||||
|
<Feature Id="MainFeature" Title="lmcp Server" Level="1">
|
||||||
|
<ComponentRef Id="JsonLua" />
|
||||||
|
<ComponentRef Id="LmcpLua" />
|
||||||
|
<ComponentRef Id="ServerLua" />
|
||||||
|
<ComponentRef Id="StartBat" />
|
||||||
|
<ComponentRef Id="InstallService" />
|
||||||
|
<ComponentRef Id="LuaExe" />
|
||||||
|
<ComponentRef Id="LuaDll" />
|
||||||
|
<ComponentRef Id="SocketLua" />
|
||||||
|
<ComponentRef Id="MimeLua" />
|
||||||
|
<ComponentRef Id="Ltn12Lua" />
|
||||||
|
<ComponentRef Id="SocketCoreDll" />
|
||||||
|
<ComponentRef Id="SocketFtp" />
|
||||||
|
<ComponentRef Id="SocketHeaders" />
|
||||||
|
<ComponentRef Id="SocketHttp" />
|
||||||
|
<ComponentRef Id="SocketTp" />
|
||||||
|
<ComponentRef Id="SocketUrl" />
|
||||||
|
<ComponentRef Id="MimeCoreDll" />
|
||||||
|
</Feature>
|
||||||
|
|
||||||
|
</Product>
|
||||||
|
</Wix>
|
||||||
@@ -0,0 +1,24 @@
|
|||||||
|
@echo off
|
||||||
|
REM Install lmcp as a Windows service using NSSM (Non-Sucking Service Manager)
|
||||||
|
REM Download nssm from https://nssm.cc if not present
|
||||||
|
|
||||||
|
if not exist "%~dp0nssm.exe" (
|
||||||
|
echo ERROR: nssm.exe not found in %~dp0
|
||||||
|
echo Download from https://nssm.cc and place nssm.exe here.
|
||||||
|
exit /b 1
|
||||||
|
)
|
||||||
|
|
||||||
|
set INSTALL_DIR=%~dp0
|
||||||
|
set SERVICE_NAME=lmcp
|
||||||
|
|
||||||
|
echo Installing lmcp as Windows service...
|
||||||
|
%INSTALL_DIR%nssm.exe install %SERVICE_NAME% "%INSTALL_DIR%lua\lua.exe" "%INSTALL_DIR%server.lua"
|
||||||
|
%INSTALL_DIR%nssm.exe set %SERVICE_NAME% AppDirectory "%INSTALL_DIR%"
|
||||||
|
%INSTALL_DIR%nssm.exe set %SERVICE_NAME% AppEnvironmentExtra "LMCP_PORT=8080"
|
||||||
|
%INSTALL_DIR%nssm.exe set %SERVICE_NAME% DisplayName "lmcp MCP Server"
|
||||||
|
%INSTALL_DIR%nssm.exe set %SERVICE_NAME% Description "Lightweight MCP server in Lua"
|
||||||
|
%INSTALL_DIR%nssm.exe set %SERVICE_NAME% Start SERVICE_AUTO_START
|
||||||
|
%INSTALL_DIR%nssm.exe start %SERVICE_NAME%
|
||||||
|
|
||||||
|
echo Done. Service '%SERVICE_NAME%' installed and started.
|
||||||
|
echo Check: sc query %SERVICE_NAME%
|
||||||
@@ -0,0 +1,7 @@
|
|||||||
|
@echo off
|
||||||
|
REM lmcp — Lua MCP Server
|
||||||
|
REM Start the server on port 8080 (or LMCP_PORT if set)
|
||||||
|
cd /d "%~dp0"
|
||||||
|
if not defined LMCP_PORT set LMCP_PORT=8080
|
||||||
|
echo Starting lmcp on port %LMCP_PORT%...
|
||||||
|
lua\lua.exe server.lua
|
||||||
Executable
+25
@@ -0,0 +1,25 @@
|
|||||||
|
#!/bin/sh
|
||||||
|
# windows/sync.sh — refresh windows/pkg/ from root .lua sources (issue #18).
|
||||||
|
#
|
||||||
|
# Run BEFORE invoking the WiX build so the MSI bundles whatever is in
|
||||||
|
# master. The .lua files in windows/pkg/ are regenerated on every run
|
||||||
|
# and are gitignored — never edit them directly.
|
||||||
|
#
|
||||||
|
# Idempotent: re-running just re-copies. Safe to call from a Makefile,
|
||||||
|
# a CI step, or by hand before `candle.exe + light.exe`.
|
||||||
|
|
||||||
|
set -eu
|
||||||
|
|
||||||
|
here=$(dirname "$(readlink -f "$0")")
|
||||||
|
root=$(cd "$here/.." && pwd)
|
||||||
|
|
||||||
|
for f in lmcp.lua server.lua json.lua; do
|
||||||
|
if [ ! -f "$root/$f" ]; then
|
||||||
|
echo "windows/sync.sh: missing source $root/$f" >&2
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
cp "$root/$f" "$here/pkg/$f"
|
||||||
|
echo " synced $f"
|
||||||
|
done
|
||||||
|
|
||||||
|
echo "windows/sync.sh: done — pkg/ matches root .lua at $(date +%Y-%m-%dT%H:%M:%S)"
|
||||||
Reference in New Issue
Block a user