This commit is contained in:
2026-05-13 22:35:24 +02:00
parent 1ae4734e81
commit c2e6466022
18 changed files with 311 additions and 317 deletions

628
bbs.rb
View File

@@ -3,355 +3,349 @@
require 'bbs'
require 'time'
require_relative 'lib/repository/online_users_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/board_service'
require_relative 'lib/service/profile_service'
require_relative 'lib/service/wiki_service'
require_relative 'lib/service/games_service'
require_relative 'lib/service/chat_service'
require_relative 'lib/service/last_callers_service'
require_relative 'lib/ui/formatters'
require_relative 'lib/domain/repository/online_users_repository'
require_relative 'lib/domain/repository/board_repository'
require_relative 'lib/domain/repository/wiki_repository'
require_relative 'lib/domain/repository/catalog_repository'
require_relative 'lib/domain/repository/last_callers_repository'
require_relative 'lib/domain/repository/profile_repository'
require_relative 'lib/domain/service/online_service'
require_relative 'lib/domain/service/board_service'
require_relative 'lib/domain/service/profile_service'
require_relative 'lib/domain/service/wiki_service'
require_relative 'lib/domain/service/games_service'
require_relative 'lib/domain/service/chat_service'
require_relative 'lib/domain/service/last_callers_service'
require_relative 'lib/bbs/ui/formatters'
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')))
online_service = OnlineService.new(OnlineUsersRepository.new)
board_service = BoardService.new(BoardRepository.new(
ENV.fetch('BOARDS_PATH', 'data/boards'),
legacy_path: ENV.fetch('MESSAGES_PATH', 'data/messages.dat')))
wiki_service = WikiService.new(WikiRepository.new(token: ENV['WEBAPP_WIKIJS_TOKEN']))
games_service = GamesService.new(CatalogRepository.new)
chat_service = ChatService.new
last_callers_service = LastCallersService.new(LastCallersRepository.new(
ENV.fetch('LAST_CALLERS_PATH', 'data/last_callers.csv')))
profile_service = ProfileService.new(ProfileRepository.new(
ENV.fetch('PROFILE_PATH', 'data/profiles.csv')))
STARTED_AT = Time.now
SYSOPS = ENV.fetch('BBS_SYSOPS', '').split(',').map { |s| s.strip.downcase }.reject(&:empty?)
SYSOPS = ENV.fetch('BBS_SYSOPS', '').split(',').map { |name| name.strip.downcase }.reject(&:empty?)
DESKTOP_ART = ENV.fetch('BBS_DESKTOP_ART', 'data/art/teletype.ansi')
SERVICES = {
online: ONLINE,
boards: BOARDS,
wiki: WIKI,
games: GAMES,
chat: CHAT,
last_callers: LAST_CALLERS,
profile: PROFILE,
uptime: STARTED_AT
}.freeze
BBS.configure do |config|
config.mouse = true
config.idle_seconds = 600
MAIN_APP = BBS::Application.define do
theme BBS::Theme.neumanntronics
services SERVICES
helpers do
def sysop?
name = (context[:username] || '').downcase
SYSOPS.include?(name)
end
config.on_session_end = lambda do |session|
online_service.remove(session.session_id)
chat_service.unsubscribe(session.session_id)
end
# ── Windows ────────────────────────────────────────────────────────────────
config.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 do |ctx|
online_service.add(ctx[:session_id], ctx[:username])
chat_service.subscribe(ctx[:session_id])
last_callers_service.record(ctx[:username], ctx[:session_id])
end
app(BBS::Application.define do
theme BBS::Theme.neumanntronics
services online: online_service,
boards: board_service,
wiki: wiki_service,
games: games_service,
chat: chat_service,
last_callers: last_callers_service,
profile: profile_service,
uptime: STARTED_AT
window :bulletin, type: :info do |w|
w.title ' Welcome '
w.width 70
w.height 17
w.body do |ctx|
UI::Formatters::Bulletin.body(
username: ctx[:username] || 'Anonymous',
online_count: ctx[:online].count,
total_messages: ctx[:boards].total_count,
recent_callers: ctx[:last_callers].recent(3)
)
end
w.button label: '&Continue', primary: true, cancel: true
end
helpers do
def sysop?
name = (context[:username] || '').downcase
SYSOPS.include?(name)
end
end
window :system_info, type: :info do |w|
w.title ' System Info '
w.width 60
w.height 14
w.body do |ctx|
rows = [
['Online users', ctx[:online].count.to_s],
['Messages', ctx[:boards].total_count.to_s],
['Boards', ctx[:boards].boards.size.to_s],
['Wiki', 'https://wiki.teletypegames.org'],
['Games API', 'https://teletypegames.org'],
['Platform', RUBY_PLATFORM],
['Ruby', RUBY_VERSION],
['Uptime', UI::Formatters::SystemInfo.format_uptime(ctx[:uptime])]
]
[{ kv: rows, label_width: 15 }]
end
end
# ── Windows ────────────────────────────────────────────────────────────────
window :messages, type: :master_detail do |w|
w.title ' Message Boards '
w.list_width 20
w.empty_message ' (no boards configured)'
w.items { |ctx| ctx[:boards].boards }
w.item_label { |board, _ctx| board.title }
w.render_detail do |board, width, ctx|
UI::Formatters::Board.lines(ctx[:boards].messages(board.id, 100), board.title, width)
end
w.action label: '&New', align: :left do |window, ctx|
board = window.list_widget.selected_item
ctx[:app].open_window(:compose_message, board: board,
on_posted: -> { window.reload_detail })
:keep
end
w.action label: '&Refresh', align: :left do |window, _ctx|
window.reload_detail
:keep
end
end
window :bulletin, type: :info do |window_spec|
window_spec.title ' Welcome '
window_spec.width 70
window_spec.height 17
window_spec.body do |ctx|
UI::Formatters::Bulletin.body(
username: ctx[:username] || 'Anonymous',
online_count: ctx[:online].count,
total_messages: ctx[:boards].total_count,
recent_callers: ctx[:last_callers].recent(3)
)
end
window_spec.button label: '&Continue', primary: true, cancel: true
end
window :compose_message, type: :form do |w|
w.title { |ctx| ctx[:board] ? " Post to #{ctx[:board].title} " : ' Compose ' }
w.width { |ctx| [ctx[:app].cols - 8, 70].min }
w.height 14
w.hint { |ctx| "From: #{ctx[:username] || 'Anonymous'} — Ctrl-Enter sends" }
w.submit_label '&Send'
w.cancel_label '&Cancel'
w.field :body, type: :textarea, max_length: 1000
w.on_submit do |values, form, ctx|
if ctx[:board].nil?
form.error('Select a board first.')
:keep
else
case ctx[:boards].post(ctx[:board].id, ctx[:username] || 'Anonymous', values[:body])
when :empty
form.error('Message cannot be empty.')
window :system_info, type: :info do |window_spec|
window_spec.title ' System Info '
window_spec.width 60
window_spec.height 14
window_spec.body do |ctx|
rows = [
['Online users', ctx[:online].count.to_s],
['Messages', ctx[:boards].total_count.to_s],
['Boards', ctx[:boards].boards.size.to_s],
['Wiki', 'https://wiki.teletypegames.org'],
['Games API', 'https://teletypegames.org'],
['Platform', RUBY_PLATFORM],
['Ruby', RUBY_VERSION],
['Uptime', UI::Formatters::SystemInfo.format_uptime(ctx[:uptime])]
]
[{ kv: rows, label_width: 15 }]
end
end
window :messages, type: :master_detail do |window_spec|
window_spec.title ' Message Boards '
window_spec.list_width 20
window_spec.empty_message ' (no boards configured)'
window_spec.items { |ctx| ctx[:boards].boards }
window_spec.item_label { |board, _ctx| board.title }
window_spec.render_detail do |board, width, ctx|
UI::Formatters::Board.lines(ctx[:boards].messages(board.id, 100), board.title, width)
end
window_spec.action label: '&New', align: :left do |window, ctx|
board = window.list_widget.selected_item
ctx[:app].open_window(:compose_message, board: board,
on_posted: -> { window.reload_detail })
:keep
else
ctx[:on_posted]&.call
end
window_spec.action label: '&Refresh', align: :left do |window, _ctx|
window.reload_detail
:keep
end
end
window :compose_message, type: :form do |window_spec|
window_spec.title { |ctx| ctx[:board] ? " Post to #{ctx[:board].title} " : ' Compose ' }
window_spec.width { |ctx| [ctx[:app].cols - 8, 70].min }
window_spec.height 14
window_spec.hint { |ctx| "From: #{ctx[:username] || 'Anonymous'} — Ctrl-Enter sends" }
window_spec.submit_label '&Send'
window_spec.cancel_label '&Cancel'
window_spec.field :body, type: :textarea, max_length: 1000
window_spec.on_submit do |values, form, ctx|
if ctx[:board].nil?
form.error('Select a board first.')
:keep
else
case ctx[:boards].post(ctx[:board].id, ctx[:username] || 'Anonymous', values[:body])
when :empty
form.error('Message cannot be empty.')
:keep
else
ctx[:on_posted]&.call
:close
end
end
end
end
window :wiki, type: :master_detail do |window_spec|
window_spec.title { |ctx| " #{ctx[:title]} " }
window_spec.list_width { |ctx| [32, ctx[:app].cols / 3].max }
window_spec.empty_message ' (no pages found)'
window_spec.close_button false
window_spec.items { |ctx| ctx[:wiki].list(ctx[:category]) }
window_spec.item_label { |page, _ctx| page.title }
window_spec.render_detail do |page, width, ctx|
text = ctx[:wiki].content(page.id)
BBS::Markdown.to_lines(text, width: width - 1, theme: ctx[:app].theme)
end
window_spec.bottom_meta do |page, ctx|
"#{page.created_at.to_s[0, 10]} #{ctx[:wiki].page_url(page.locale, page.path)}"
end
end
window :games, type: :master_detail do |window_spec|
window_spec.title ' Game Catalog '
window_spec.list_width 30
window_spec.empty_message ' (no games)'
window_spec.items { |ctx| ctx[:games].all }
window_spec.item_label { |game, _ctx| game.title }
window_spec.render_detail { |game, width, _ctx| UI::Formatters::Game.card(game, width) }
end
window :online_users, type: :info do |window_spec|
window_spec.title ' Online Users '
window_spec.width 50
window_spec.scroll true
window_spec.height { |ctx| [ctx[:online].user_list.size + 6, 10].max }
window_spec.body { |ctx| UI::Formatters::Users.online_list(ctx[:online].user_list, ctx[:username]) }
end
window :last_callers, type: :info do |window_spec|
window_spec.title ' Last Callers '
window_spec.width 64
window_spec.scroll true
window_spec.height { |ctx| [ctx[:last_callers].recent(15).size + 6, 10].max }
window_spec.body { |ctx| UI::Formatters::Users.last_callers_list(ctx[:last_callers].recent(15)) }
end
window :chat, type: :stream do |window_spec|
window_spec.title ' Live Chat '
window_spec.placeholder 'Type a message and press Enter…'
window_spec.initial_lines do |ctx|
ctx[:chat].history.map { |line| UI::Formatters::Chat.line(line) }
end
window_spec.on_submit do |text, _app, ctx|
ctx[:chat].broadcast(ctx[:username] || 'Anonymous', text.strip)
end
window_spec.on_poll do |app_, ctx|
ctx[:chat].drain(app_.session_id).map { |line| UI::Formatters::Chat.line(line) }
end
end
window :profile, type: :form do |window_spec|
window_spec.title { |ctx| " Profile — #{ctx[:username] || 'Anonymous'} " }
window_spec.width 64
window_spec.height 14
window_spec.prefill do |ctx|
existing = ctx[:profile].find(ctx[:username] || 'Anonymous') || {}
{
signature: existing['signature'].to_s,
location: existing['location'].to_s,
homepage: existing['homepage'].to_s,
notes: existing['notes'].to_s
}
end
window_spec.field :signature, label: 'Signature'
window_spec.field :location, label: 'Location'
window_spec.field :homepage, label: 'Homepage'
window_spec.field :notes, label: 'Notes'
window_spec.on_submit do |values, _form, ctx|
ctx[:profile].update(ctx[:username] || 'Anonymous', **values)
BBS::Dialogs.message(ctx[:app], 'Profile saved.', title: ' Saved ')
:close
end
end
end
end
window :wiki, type: :master_detail do |w|
w.title { |ctx| " #{ctx[:title]} " }
w.list_width { |ctx| [32, ctx[:app].cols / 3].max }
w.empty_message ' (no pages found)'
w.close_button false
w.items { |ctx| ctx[:wiki].list(ctx[:category]) }
w.item_label { |page, _ctx| page.title }
w.render_detail do |page, width, ctx|
text = ctx[:wiki].content(page.id)
BBS::Markdown.to_lines(text, width: width - 1, theme: ctx[:app].theme)
end
w.bottom_meta do |page, ctx|
"#{page.created_at.to_s[0, 10]} #{ctx[:wiki].page_url(page.locale, page.path)}"
end
end
window :sysop_console, type: :info do |window_spec|
window_spec.title ' Sysop Console '
window_spec.width 70
window_spec.height 18
window_spec.scroll true
window_spec.body do |ctx|
UI::Formatters::Sysop.console_body(
username: ctx[:username],
online_count: ctx[:online].count,
total_messages: ctx[:boards].total_count,
chat_subscribers: ctx[:chat].subscriber_count,
online_users: ctx[:online].user_list,
recent_callers: ctx[:last_callers].recent(5)
)
end
window_spec.button label: '&Broadcast', align: :left do |_window, ctx|
BBS::Dialogs.input(ctx[:app], prompt: 'Sysop broadcast message:',
title: ' Broadcast ', width: 64,
on_submit: lambda do |text|
next if text.strip.empty?
ctx[:chat].broadcast("[SYSOP] #{ctx[:username]}", text.strip)
end)
:keep
end
window_spec.button label: '&Close', cancel: true
end
window :games, type: :master_detail do |w|
w.title ' Game Catalog '
w.list_width 30
w.empty_message ' (no games)'
w.items { |ctx| ctx[:games].all }
w.item_label { |game, _ctx| game.title }
w.render_detail { |game, width, _ctx| UI::Formatters::Game.card(game, width) }
end
# ── Menubar ────────────────────────────────────────────────────────────────
window :online_users, type: :info do |w|
w.title ' Online Users '
w.width 50
w.scroll true
w.height { |ctx| [ctx[:online].user_list.size + 6, 10].max }
w.body { |ctx| UI::Formatters::Users.online_list(ctx[:online].user_list, ctx[:username]) }
end
menubar do
menu '&File' do
item '&Bulletin' do open_window(:bulletin) end
item '&System Info' do open_window(:system_info) end
separator
item 'E&xit', shortcut: 'Alt-X' do :halt end
end
window :last_callers, type: :info do |w|
w.title ' Last Callers '
w.width 64
w.scroll true
w.height { |ctx| [ctx[:last_callers].recent(15).size + 6, 10].max }
w.body { |ctx| UI::Formatters::Users.last_callers_list(ctx[:last_callers].recent(15)) }
end
menu '&Messages' do
item '&Boards…', shortcut: 'F2' do open_window(:messages) end
item '&New Post…', shortcut: 'F3' do
board = board_service.boards.first
if board
open_window(:compose_message, board: board)
else
BBS::Dialogs.message(self, 'Select a board first.', title: ' Compose ')
end
end
end
window :chat, type: :stream do |w|
w.title ' Live Chat '
w.placeholder 'Type a message and press Enter…'
w.initial_lines do |ctx|
ctx[:chat].history.map { |line| UI::Formatters::Chat.line(line) }
end
w.on_submit do |text, _app, ctx|
ctx[:chat].broadcast(ctx[:username] || 'Anonymous', text.strip)
end
w.on_poll do |app_, ctx|
ctx[:chat].drain(app_.session_id).map { |line| UI::Formatters::Chat.line(line) }
end
end
menu '&Files' do
item '&Blog Posts' do open_window(:wiki, category: 'blog', title: 'Blog Posts') end
item '&HowTo Guides' do open_window(:wiki, category: 'howto', title: 'HowTo Guides') end
item '&Game Catalog' do open_window(:games) end
end
window :profile, type: :form do |w|
w.title { |ctx| " Profile — #{ctx[:username] || 'Anonymous'} " }
w.width 64
w.height 14
w.prefill do |ctx|
existing = ctx[:profile].find(ctx[:username] || 'Anonymous') || {}
{
signature: existing['signature'].to_s,
location: existing['location'].to_s,
homepage: existing['homepage'].to_s,
notes: existing['notes'].to_s
}
end
w.field :signature, label: 'Signature'
w.field :location, label: 'Location'
w.field :homepage, label: 'Homepage'
w.field :notes, label: 'Notes'
w.on_submit do |values, _form, ctx|
ctx[:profile].update(ctx[:username] || 'Anonymous', **values)
BBS::Dialogs.message(ctx[:app], 'Profile saved.', title: ' Saved ')
:close
end
end
menu '&Users' do
item '&Online' do open_window(:online_users) end
item '&Last Callers' do open_window(:last_callers) end
item '&Profile…' do open_window(:profile) end
end
window :sysop_console, type: :info do |w|
w.title ' Sysop Console '
w.width 70
w.height 18
w.scroll true
w.body do |ctx|
UI::Formatters::Sysop.console_body(
username: ctx[:username],
online_count: ctx[:online].count,
total_messages: ctx[:boards].total_count,
chat_subscribers: ctx[:chat].subscriber_count,
online_users: ctx[:online].user_list,
recent_callers: ctx[:last_callers].recent(5)
)
end
w.button label: '&Broadcast', align: :left do |_window, ctx|
BBS::Dialogs.input(ctx[:app], prompt: 'Sysop broadcast message:',
title: ' Broadcast ', width: 64,
on_submit: lambda do |text|
next if text.strip.empty?
ctx[:chat].broadcast("[SYSOP] #{ctx[:username]}", text.strip)
end)
:keep
end
w.button label: '&Close', cancel: true
end
menu '&Chat' do
item '&Open chat', shortcut: 'F4' do open_window(:chat) end
end
# ── Menubar ────────────────────────────────────────────────────────────────
menu 'S&ysop' do
item '&Console', shortcut: 'F10' do
if sysop?
open_window(:sysop_console)
else
BBS::Dialogs.message(self, 'Sysop access denied.', title: ' Sysop ')
end
end
end
menubar do
menu '&File' do
item '&Bulletin' do open_window(:bulletin) end
item '&System Info' do open_window(:system_info) end
separator
item 'E&xit', shortcut: 'Alt-X' do :halt 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
menu '&Messages' do
item '&Boards…', shortcut: 'F2' do open_window(:messages) end
item '&New Post…', shortcut: 'F3' do
board = SERVICES[:boards].boards.first
status_hint('F1', 'Help') { BBS::Dialogs.message(self, 'Top menu: Alt+letter — Windows: Tab/Shift-Tab — Close: Esc') }
status_hint('F2', 'Boards') { open_window(:messages) }
status_hint('F3', 'Post') {
board = board_service.boards.first
if board
open_window(:compose_message, board: board)
else
BBS::Dialogs.message(self, 'Select a board first.', title: ' Compose ')
end
}
status_hint('F4', 'Chat') { open_window(:chat) }
status_hint('F10', 'Menu') { menubar.open(0) }
status_hint('Alt-X', 'Exit') { :halt }
init do
art = if File.file?(DESKTOP_ART)
BBS::Widgets::AnsiArt.from_file(DESKTOP_ART)
else
BBS::Widgets::AnsiArt.new(lines: BBS::Widgets::AnsiArt.default_lines)
end
art.layout(1, 1, cols, rows - 2)
add(art)
end
end
menu '&Files' do
item '&Blog Posts' do open_window(:wiki, category: 'blog', title: 'Blog Posts') end
item '&HowTo Guides' do open_window(:wiki, category: 'howto', title: 'HowTo Guides') end
item '&Game Catalog' do open_window(:games) end
end
menu '&Users' do
item '&Online' do open_window(:online_users) end
item '&Last Callers' do open_window(:last_callers) end
item '&Profile…' do open_window(:profile) end
end
menu '&Chat' do
item '&Open chat', shortcut: 'F4' do open_window(:chat) end
end
menu 'S&ysop' do
item '&Console', shortcut: 'F10' do
if sysop?
open_window(:sysop_console)
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') { open_window(:messages) }
status_hint('F3', 'Post') {
board = SERVICES[:boards].boards.first
if board
open_window(:compose_message, board: board)
else
BBS::Dialogs.message(self, 'Select a board first.', title: ' Compose ')
end
}
status_hint('F4', 'Chat') { open_window(:chat) }
status_hint('F10', 'Menu') { menubar.open(0) }
status_hint('Alt-X', 'Exit') { :halt }
init do
art = if File.file?(DESKTOP_ART)
BBS::Widgets::AnsiArt.from_file(DESKTOP_ART)
else
BBS::Widgets::AnsiArt.new(lines: BBS::Widgets::AnsiArt.default_lines)
end
art.layout(1, 1, cols, rows - 2)
add(art)
end
end
BBS.configure do |c|
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: ->(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
end)
say 'Goodbye!', style: :muted
end
end