Initial commit of prototype.

1 files changed, 250 insertions, 0 deletions

diff --git a/telem.lua b/telem.lua
new file mode 100755
index 0000000..d5c985b
--- /dev/null
+++ b/telem.lua
@@ -0,0 +1,250 @@
+#!/usr/bin/lua5.2
+
+io = require("io")
+os = require("os")
+lfs = require("lfs")
+string = require("string")
+table = require("table")
+
+bad_topics = {}
+bad_topics["."] = true
+bad_topics[".."] = true
+bad_topics["topic"] = true
+
+current_board = ""
+current_thread_index = nil
+
+function cat_file(filename)
+	io.input(filename)
+	welcome = io.read("*all")
+	io.input(io.stdin)
+	io.write(welcome)
+end
+
+function show_welcome()
+	cat_file("/var/bbs/docs/welcome")
+end
+
+function show_prompt()
+	io.write("["..current_board.."] COMMAND :> ")
+end
+
+function getchar()
+	local char
+	os.execute("/bin/stty -icanon")
+	char = io.read(1)
+	os.execute("/bin/stty icanon")
+	return char
+end
+
+function get_threads(board)
+	local threads = {}
+	for topic in lfs.dir("/var/bbs/boards/"..board) do
+		if bad_topics[topic] == nil then
+			thread = {}
+			thread.filename = topic
+			thread.directory = "/var/bbs/boards/"..board.."/"..topic
+			_, _, timestamp, thread.author = string.find(topic, "(%d+)-(%a+)")
+			thread.timestamp = tonumber(timestamp)
+
+			io.input(thread.directory.."/original")
+			io.read("*line")
+			thread.subject = io.read("*line")
+			_, _, thread.subject = string.find(thread.subject, "%[SUBJECT%] (.+)")
+			io.input(io.stdin)
+
+			posts = get_posts(thread)
+			thread.post_count = #posts
+			thread.updated = 0
+			for _, post in ipairs(posts) do
+				if post.timestamp > thread.updated then
+					thread.updated = post.timestamp
+				end
+			end
+			table.insert(threads, thread)
+			
+		end
+	end
+	table.sort(threads, function(x,y) return x.updated > y.updated end)
+	return threads
+end
+
+function get_posts(thread)
+	local posts = {}
+	for reply in lfs.dir(thread.directory) do
+		if string.sub(reply, 1,1) ~= "." then
+			post = {}
+			post.filename = thread.directory .. "/" .. reply
+			if reply == "original" then
+				post.author = thread.author
+				post.timestamp = thread.timestamp
+			else
+				_, _, timestamp, post.author = string.find(reply, "(%d+)-(%a+)")
+				post.timestamp = tonumber(timestamp)
+			end
+			table.insert(posts, post)
+		end
+	end
+	table.sort(posts, function(x,y) return x.timestamp < y.timestamp end)
+	return posts
+end
+
+function do_go()
+	print("Which board?")
+	board = string.upper(io.read())
+	-- TODO: display list of boards only if no board entered
+	if board == "" then
+		do_list()
+	elseif boards[board] == nil then
+		print("No such board")
+	else
+		current_board = board
+	end
+end
+
+function do_help()
+	cat_file("/var/bbs/docs/help")
+end
+
+function do_help2()
+	cat_file("/var/bbs/docs/help2")
+end
+
+function do_list()
+	for _,b in pairs(board_names) do
+		posts = -3 -- Don't want to count "topic" file or "." or ".."
+		for topic in lfs.dir("/var/bbs/boards/"..b) do
+			posts = posts +1
+		end
+		print(string.format("%s    [%d posts]", b, posts))
+	end
+end
+
+function do_messages()
+	if current_board == "" then
+		print("Not at any board")
+	else
+		threads = get_threads(current_board)
+		for i, thread in ipairs(threads) do
+			print(tostring(i), os.date("%x %H:%M", thread.timestamp), thread.author, thread.subject)
+--, tostring(thread.post_count))
+		end
+	end
+	current_thread_index = threads
+end
+
+-- Type stuff below
+
+function do_type_first()
+	current_thread_index = 1
+	do_type_show_post(current_thread_index)
+	print(string.format("Viewing post %d of %d in thread", current_thread_index, #current_thread_posts))
+end
+
+function do_type_next()
+	if current_thread_index ~= #current_thread_posts then
+		current_thread_index = current_thread_index + 1
+	end
+	do_type_show_post(current_thread_index)
+	print(string.format("Viewing post %d of %d in thread", current_thread_index, #current_thread_posts))
+end
+
+function do_type_prev()
+	if current_thread_index ~= 1 then
+		current_thread_index = current_thread_index - 1
+	end
+	do_type_show_post(current_thread_index)
+	print(string.format("Viewing post %d of %d in thread", current_thread_index, #current_thread_posts))
+end
+
+function do_type_reply()
+end
+
+type_dispatch = {}
+type_dispatch["f"] = do_type_first
+type_dispatch["n"] = do_type_next
+type_dispatch["p"] = do_type_prev
+type_dispatch["d"] = function() return end
+
+function do_type()
+	print("Which thread?")
+	local thread_id = string.upper(io.read())
+	thread = current_thread_index[tonumber(thread_id)]
+	print("I've been asked to type the thread: " .. thread.subject)
+	current_thread_posts = get_posts(thread)
+	current_thread_index = #current_thread_posts
+	do_type_show_post(current_thread_index)
+	print(string.format("Viewing post %d of %d in thread", current_thread_index, #current_thread_posts))
+--	for i, post in ipairs(posts) do
+--		print(tostring(i), os.date("%x %H:%M", post.timestamp), post.author)
+		--cat_file(post.filename)
+--	end
+	repeat
+		show_type_prompt()
+		c = getchar()
+		io.write("\n")
+		if type_dispatch[c] == nil then
+			print("Eh?")
+		else	
+			type_dispatch[c]()
+		end
+	until c == "d"
+end
+
+function show_type_prompt()
+	io.write("type prompt ([f]irst, [n]ext, [p]rev, [d]one)>")
+end
+
+function do_type_show_post(index)
+	local post = current_thread_posts[index]
+	cat_file(post.filename)
+end
+
+function do_quit()
+	print("Goodbye!")
+end
+
+function do_rules()
+	cat_file("/var/bbs/docs/rules")
+end
+
+function do_stub()
+	print("Stub!")
+end
+
+-- MAIN PROGRAM BODY BELOW
+
+show_welcome()
+
+boards, board_names = {}, {}
+for board in lfs.dir("/var/bbs/boards") do
+	if string.sub(board, 1, 1) ~= "." then
+		boards[board] = true
+		table.insert(board_names, board)
+	end
+end
+table.sort(board_names)
+message_index = {}
+
+-- Build dispatch table mapping chars to functions
+dispatch = {}
+dispatch["h"] = do_help
+dispatch["g"] = do_go
+dispatch["l"] = do_list
+dispatch["m"] = do_messages
+dispatch["q"] = do_quit
+dispatch["t"] = do_type
+dispatch["?"] = do_help2
+dispatch["!"] = do_rules
+
+-- Infinite loop of command dispatch
+repeat
+	show_prompt()
+	c = getchar()
+	io.write("\n")
+	if dispatch[c] == nil then
+		print("What?")
+	else	
+		dispatch[c]()
+	end
+until c == "q"