path: root/telem.lua

#!/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"