tools/bbs-server
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

new framework

Browse Source
This commit is contained in:
Zsolt Tasnadi
2026-05-12 22:36:19 +02:00
parent d92768dd23
commit 9d52a2e2c6
29 changed files with 1240 additions and 400 deletions
Download Patch File Download Diff File Expand all files Collapse all files

343
bbs.rb
View File

@@ -2,231 +2,168 @@
require 'bbs'
require 'time'
require_relative 'lib/repository/online_users_repository'
require_relative 'lib/repository/message_board_repository'
require_relative 'lib/repository/board_repository'
require_relative 'lib/repository/wiki_repository'
require_relative 'lib/repository/catalog_repository'
require_relative 'lib/repository/last_callers_repository'
require_relative 'lib/repository/profile_repository'
require_relative 'lib/service/online_service'
require_relative 'lib/service/message_service'
require_relative 'lib/service/board_service'
require_relative 'lib/service/profile_service'
require_relative 'lib/service/wiki_service'
require_relative 'lib/service/games_service'
require_relative 'lib/tui/helpers'
require_relative 'lib/service/chat_service'
require_relative 'lib/service/last_callers_service'
require_relative 'lib/ui/windows/system_info_window'
require_relative 'lib/ui/windows/messages_window'
require_relative 'lib/ui/windows/wiki_window'
require_relative 'lib/ui/windows/games_window'
require_relative 'lib/ui/windows/users_window'
require_relative 'lib/ui/windows/chat_window'
require_relative 'lib/ui/windows/bulletin_window'
require_relative 'lib/ui/windows/profile_window'
require_relative 'lib/ui/windows/sysop_window'
ONLINE = OnlineService.new(OnlineUsersRepository.new)
MESSAGES = MessageService.new(MessageBoardRepository.new(ENV.fetch('MESSAGES_PATH', 'data/messages.dat')))
WIKI = WikiService.new(WikiRepository.new(token: ENV['WEBAPP_WIKIJS_TOKEN']))
GAMES = GamesService.new(CatalogRepository.new)
ONLINE = OnlineService.new(OnlineUsersRepository.new)
BOARDS = BoardService.new(BoardRepository.new(
ENV.fetch('BOARDS_PATH', 'data/boards'),
legacy_path: ENV.fetch('MESSAGES_PATH', 'data/messages.dat')))
WIKI = WikiService.new(WikiRepository.new(token: ENV['WEBAPP_WIKIJS_TOKEN']))
GAMES = GamesService.new(CatalogRepository.new)
CHAT = ChatService.new
LAST_CALLERS = LastCallersService.new(LastCallersRepository.new(
ENV.fetch('LAST_CALLERS_PATH', 'data/last_callers.csv')))
PROFILE = ProfileService.new(ProfileRepository.new(
ENV.fetch('PROFILE_PATH', 'data/profiles.csv')))
MENU_ITEMS = [
'Messages', 'Post Message', 'Blog Posts',
'HowTo Guides', 'Game Catalog', 'Online Users',
'System Info', 'Exit'
].freeze
STARTED_AT = Time.now
SYSOPS = ENV.fetch('BBS_SYSOPS', '').split(',').map { |s| s.strip.downcase }.reject(&:empty?)
DESKTOP_ART = ENV.fetch('BBS_DESKTOP_ART', 'data/art')
LEFT_WIDTH = 21
CONTENT_X = 23
CONTENT_Y = 2
THEME = {
bg: "\e[0;40m",
normal: "\e[0;33m",
bright: "\e[1;33m",
border: "\e[0;33m",
selected: "\e[0;30;43m",
header: "\e[1;33m",
label: "\e[2;33m",
status: "\e[0;30;43m",
input: "\e[1;33m",
success: "\e[1;32m",
error: "\e[1;31m",
reset: "\e[0m",
SERVICES = {
online: ONLINE,
boards: BOARDS,
wiki: WIKI,
games: GAMES,
chat: CHAT,
last_callers: LAST_CALLERS,
profile: PROFILE,
uptime: STARTED_AT,
}.freeze
MAIN_TUI = BBS::TUI.define do
helpers { include TUIHelpers }
MAIN_APP = BBS::Application.define do
theme BBS::Theme.synchronet
helpers do
def sysop?
name = (context[:username] || '').downcase
SYSOPS.include?(name)
end
end
menubar do
menu '&File' do
item '&Bulletin' do UI::Windows.bulletin(self, services: SERVICES) end
item '&System Info' do UI::Windows.system_info(self, services: SERVICES) end
separator
item 'E&xit', shortcut: 'Alt-X' do :halt end
end
menu '&Messages' do
item '&Boards…', shortcut: 'F2' do UI::Windows.messages(self, services: SERVICES) end
item '&New Post…', shortcut: 'F3' do
board = SERVICES[:boards].boards.first
UI::Windows.compose_message(self, services: SERVICES, board: board)
end
end
menu '&Files' do
item '&Blog Posts' do UI::Windows.wiki(self, services: SERVICES, category: 'blog', title: 'Blog Posts') end
item '&HowTo Guides' do UI::Windows.wiki(self, services: SERVICES, category: 'howto', title: 'HowTo Guides') end
item '&Game Catalog' do UI::Windows.games(self, services: SERVICES) end
end
menu '&Users' do
item '&Online' do UI::Windows.online_users(self, services: SERVICES) end
item '&Last Callers' do UI::Windows.last_callers(self, services: SERVICES) end
item '&Profile…' do UI::Windows.profile(self, services: SERVICES) end
end
menu '&Chat' do
item '&Open chat', shortcut: 'F4' do UI::Windows.chat(self, services: SERVICES) end
end
menu 'S&ysop' do
item '&Console', shortcut: 'F10' do
name = (context[:username] || '').downcase
if SYSOPS.include?(name)
UI::Windows.sysop_console(self, services: SERVICES)
else
BBS::Dialogs.message(self, 'Sysop access denied.', title: ' Sysop ')
end
end
end
menu '&Help' do
item '&About' do
BBS::Dialogs.message(self,
'Teletype BBS — telnet community board powered by rubbs. ' \
'Use the top menu (or Alt+letter), Tab to move focus, Esc to close windows.',
title: ' About ', width: 64)
end
item '&Keys' do
BBS::Dialogs.message(self,
'Alt+letter — open menu · Tab/Shift-Tab — move focus · Enter — activate · ' \
'Esc — close window · F1 Help · F2 Boards · F3 Post · F4 Chat · F10 Sysop',
title: ' Keys ', width: 70)
end
end
end
status_hint('F1', 'Help') { BBS::Dialogs.message(self, 'Top menu: Alt+letter — Windows: Tab/Shift-Tab — Close: Esc') }
status_hint('F2', 'Boards') { UI::Windows.messages(self, services: SERVICES) }
status_hint('F3', 'Post') {
board = SERVICES[:boards].boards.first
UI::Windows.compose_message(self, services: SERVICES, board: board)
}
status_hint('F4', 'Chat') { UI::Windows.chat(self, services: SERVICES) }
status_hint('F10', 'Menu') { menubar.open(0) }
status_hint('Alt-X', 'Exit') { :halt }
init do
@menu_selection = 0
@page_title = 'TELETYPE BBS'
@items = []
@item_selection = 0
@scroll = 0
@detail = []
@page_metadata = +''
@input = +''
@status = +''
@previous_page = nil
@modal = nil
end
chrome { render_chrome }
page :idle do
enter { @page_title = 'TELETYPE BBS'; @modal = nil }
render do
text 'Navigate the menu with ↑↓, select with Enter.',
x: CONTENT_X, y: CONTENT_Y + content_height / 2, style: THEME[:normal]
if @modal == :sysinfo
float title: ' SYSTEM INFO ', width: 56, height: 10,
style: THEME[:border], background: :black do |fx, fy, fw, _|
[
"Online users #{ONLINE.count}",
"Messages #{MESSAGES.count}",
"Wiki https://wiki.teletypegames.org",
"Games API https://teletypegames.org",
"Platform #{RUBY_PLATFORM}",
"Ruby #{RUBY_VERSION}",
].each_with_index do |row, index|
text row[0, fw], x: fx, y: fy + index, style: THEME[:normal]
art = if File.directory?(DESKTOP_ART)
BBS::Widgets::AnsiArt.random(DESKTOP_ART)
elsif File.file?(DESKTOP_ART)
BBS::Widgets::AnsiArt.from_file(DESKTOP_ART)
else
BBS::Widgets::AnsiArt.new(lines: BBS::Widgets::AnsiArt.default_lines)
end
text 'ESC close', x: fx, y: fy + 7, style: THEME[:label]
end
elsif @modal == :new_msg
float title: ' POST MESSAGE ', width: 62, height: 9,
style: THEME[:border], background: :black do |fx, fy, fw, _|
text 'Type your message and press Enter. Esc cancels.',
x: fx, y: fy, style: THEME[:normal]
text "#{themed_color(:bright, @username)}: #{themed_color(:input, @input)}_",
x: fx, y: fy + 2
text @status, x: fx, y: fy + 4, style: THEME[:error] unless @status.empty?
text "#{@input.length}/200 ESC cancel",
x: fx, y: fy + 6, style: THEME[:label]
end
end
end
nav :menu, size: MENU_ITEMS.size
key(:enter) do
if @modal == :new_msg
case MESSAGES.post(@username, @input)
when :empty then @status = 'Message cannot be empty.'
when :ok then @modal = nil
end
elsif @modal.nil?
case MENU_ITEMS[@menu_selection]
when 'Messages' then go :messages
when 'Post Message' then @modal = :new_msg; @input = +''; @status = +''
when 'Blog Posts' then go :blog
when 'HowTo Guides' then go :howto
when 'Game Catalog' then go :games
when 'Online Users' then go :online
when 'System Info' then @modal = :sysinfo
when 'Exit' then :halt
end
end
end
key(:backspace) { @input.chop! if @modal == :new_msg && !@input.empty? }
key('q') { @modal ? @modal = nil : :halt }
key(:escape) { @modal ? @modal = nil : :halt }
printable { |ch| @input << ch if @modal == :new_msg && @input.length < 200 }
art.layout(1, 1, cols, rows - 2)
add(art)
end
page :messages do
enter do
@page_title = 'MESSAGES'
@items = MESSAGES.recent(30)
@scroll = 0
end
render { render_messages }
nav :scroll, content: -> { @items }, window: -> { content_height }
key('r') { reload }
key('q') { go :idle }
key(:escape) { go :idle }
end
page :blog do
enter do
@page_title = 'BLOG'
@items = WIKI.list('blog')
@item_selection = 0
@scroll = 0
end
render { render_wiki_list }
nav :list, window: -> { content_height - 3 }
key(:enter) do
next unless (wiki_page = @items[@item_selection])
@detail = wordwrap(WIKI.content(wiki_page.id), content_width)
@page_title = wiki_page.title
@page_metadata = "#{format_date(wiki_page.created_at)} " \
"#{WIKI.page_url(wiki_page.locale, wiki_page.path)}"
@previous_page = :blog
@scroll = 0
go :page_view
end
key('r') { reload }
key('q') { go :idle }
key(:escape) { go :idle }
end
page :howto do
enter do
@page_title = 'HOWTO GUIDES'
@items = WIKI.list('howto')
@item_selection = 0
@scroll = 0
end
render { render_wiki_list }
nav :list, window: -> { content_height - 3 }
key(:enter) do
next unless (wiki_page = @items[@item_selection])
@detail = wordwrap(WIKI.content(wiki_page.id), content_width)
@page_title = wiki_page.title
@page_metadata = "#{format_date(wiki_page.created_at)} " \
"#{WIKI.page_url(wiki_page.locale, wiki_page.path)}"
@previous_page = :howto
@scroll = 0
go :page_view
end
key('r') { reload }
key('q') { go :idle }
key(:escape) { go :idle }
end
page :page_view do
render { render_page_view }
nav :scroll, content: -> { @detail }, window: -> { content_height - 2 }
key('q') { @scroll = 0; go(@previous_page || :idle) }
key(:escape) { @scroll = 0; go(@previous_page || :idle) }
end
page :games do
enter do
@page_title = 'GAME CATALOG'
@items = GAMES.all
@item_selection = 0
end
render { render_game_card }
nav :cycle
key('r') { reload }
key('q') { go :idle }
key(:escape) { go :idle }
end
page :online do
enter do
@page_title = 'ONLINE USERS'
@items = ONLINE.user_list
end
render { render_online_users }
key('r') { reload }
key('q') { go :idle }
key(:escape) { go :idle }
end
start :idle
end
BBS.configure do |c|
c.on_session_end = ->(session) { ONLINE.remove(session.session_id) }
c.mouse = true
c.idle_seconds = 600
c.on_session_end = lambda do |session|
ONLINE.remove(session.session_id)
CHAT.unsubscribe(session.session_id)
end
c.flow = BBS::Flow.define do
big_banner 'TELETYPE BBS', style: :success
ask :username, prompt: 'Name (blank for Anonymous)',
transform: ->(value) { value.strip.empty? ? 'Anonymous' : value.strip[0...20] }
call { |ctx| ONLINE.add(ctx[:session_id], ctx[:username]) }
tui MAIN_TUI
transform: ->(v) { v.strip.empty? ? 'Anonymous' : v.strip[0...20] }
call do |ctx|
ONLINE.add(ctx[:session_id], ctx[:username])
CHAT.subscribe(ctx[:session_id])
LAST_CALLERS.record(ctx[:username], ctx[:session_id])
end
app MAIN_APP
say 'Goodbye!', style: :muted
end
end