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

refact

Browse Source
This commit is contained in:
Zsolt Tasnadi
2026-05-13 22:35:24 +02:00
parent 1ae4734e81
commit c2e6466022
18 changed files with 311 additions and 317 deletions
Download Patch File Download Diff File Expand all files Collapse all files

270
bbs.rb
View File

@@ -3,51 +3,65 @@
require 'bbs' require 'bbs'
require 'time' require 'time'
require_relative 'lib/repository/online_users_repository' require_relative 'lib/domain/repository/online_users_repository'
require_relative 'lib/repository/board_repository' require_relative 'lib/domain/repository/board_repository'
require_relative 'lib/repository/wiki_repository' require_relative 'lib/domain/repository/wiki_repository'
require_relative 'lib/repository/catalog_repository' require_relative 'lib/domain/repository/catalog_repository'
require_relative 'lib/repository/last_callers_repository' require_relative 'lib/domain/repository/last_callers_repository'
require_relative 'lib/repository/profile_repository' require_relative 'lib/domain/repository/profile_repository'
require_relative 'lib/service/online_service' require_relative 'lib/domain/service/online_service'
require_relative 'lib/service/board_service' require_relative 'lib/domain/service/board_service'
require_relative 'lib/service/profile_service' require_relative 'lib/domain/service/profile_service'
require_relative 'lib/service/wiki_service' require_relative 'lib/domain/service/wiki_service'
require_relative 'lib/service/games_service' require_relative 'lib/domain/service/games_service'
require_relative 'lib/service/chat_service' require_relative 'lib/domain/service/chat_service'
require_relative 'lib/service/last_callers_service' require_relative 'lib/domain/service/last_callers_service'
require_relative 'lib/ui/formatters' require_relative 'lib/bbs/ui/formatters'
ONLINE = OnlineService.new(OnlineUsersRepository.new) online_service = OnlineService.new(OnlineUsersRepository.new)
BOARDS = BoardService.new(BoardRepository.new( board_service = BoardService.new(BoardRepository.new(
ENV.fetch('BOARDS_PATH', 'data/boards'), ENV.fetch('BOARDS_PATH', 'data/boards'),
legacy_path: ENV.fetch('MESSAGES_PATH', 'data/messages.dat'))) legacy_path: ENV.fetch('MESSAGES_PATH', 'data/messages.dat')))
WIKI = WikiService.new(WikiRepository.new(token: ENV['WEBAPP_WIKIJS_TOKEN'])) wiki_service = WikiService.new(WikiRepository.new(token: ENV['WEBAPP_WIKIJS_TOKEN']))
GAMES = GamesService.new(CatalogRepository.new) games_service = GamesService.new(CatalogRepository.new)
CHAT = ChatService.new chat_service = ChatService.new
LAST_CALLERS = LastCallersService.new(LastCallersRepository.new( last_callers_service = LastCallersService.new(LastCallersRepository.new(
ENV.fetch('LAST_CALLERS_PATH', 'data/last_callers.csv'))) ENV.fetch('LAST_CALLERS_PATH', 'data/last_callers.csv')))
PROFILE = ProfileService.new(ProfileRepository.new( profile_service = ProfileService.new(ProfileRepository.new(
ENV.fetch('PROFILE_PATH', 'data/profiles.csv'))) ENV.fetch('PROFILE_PATH', 'data/profiles.csv')))
STARTED_AT = Time.now 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') DESKTOP_ART = ENV.fetch('BBS_DESKTOP_ART', 'data/art/teletype.ansi')
SERVICES = { BBS.configure do |config|
online: ONLINE, config.mouse = true
boards: BOARDS, config.idle_seconds = 600
wiki: WIKI,
games: GAMES,
chat: CHAT,
last_callers: LAST_CALLERS,
profile: PROFILE,
uptime: STARTED_AT
}.freeze
MAIN_APP = BBS::Application.define do config.on_session_end = lambda do |session|
online_service.remove(session.session_id)
chat_service.unsubscribe(session.session_id)
end
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 theme BBS::Theme.neumanntronics
services SERVICES 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
helpers do helpers do
def sysop? def sysop?
@@ -58,11 +72,11 @@ MAIN_APP = BBS::Application.define do
# ── Windows ──────────────────────────────────────────────────────────────── # ── Windows ────────────────────────────────────────────────────────────────
window :bulletin, type: :info do |w| window :bulletin, type: :info do |window_spec|
w.title ' Welcome ' window_spec.title ' Welcome '
w.width 70 window_spec.width 70
w.height 17 window_spec.height 17
w.body do |ctx| window_spec.body do |ctx|
UI::Formatters::Bulletin.body( UI::Formatters::Bulletin.body(
username: ctx[:username] || 'Anonymous', username: ctx[:username] || 'Anonymous',
online_count: ctx[:online].count, online_count: ctx[:online].count,
@@ -70,14 +84,14 @@ MAIN_APP = BBS::Application.define do
recent_callers: ctx[:last_callers].recent(3) recent_callers: ctx[:last_callers].recent(3)
) )
end end
w.button label: '&Continue', primary: true, cancel: true window_spec.button label: '&Continue', primary: true, cancel: true
end end
window :system_info, type: :info do |w| window :system_info, type: :info do |window_spec|
w.title ' System Info ' window_spec.title ' System Info '
w.width 60 window_spec.width 60
w.height 14 window_spec.height 14
w.body do |ctx| window_spec.body do |ctx|
rows = [ rows = [
['Online users', ctx[:online].count.to_s], ['Online users', ctx[:online].count.to_s],
['Messages', ctx[:boards].total_count.to_s], ['Messages', ctx[:boards].total_count.to_s],
@@ -92,36 +106,36 @@ MAIN_APP = BBS::Application.define do
end end
end end
window :messages, type: :master_detail do |w| window :messages, type: :master_detail do |window_spec|
w.title ' Message Boards ' window_spec.title ' Message Boards '
w.list_width 20 window_spec.list_width 20
w.empty_message ' (no boards configured)' window_spec.empty_message ' (no boards configured)'
w.items { |ctx| ctx[:boards].boards } window_spec.items { |ctx| ctx[:boards].boards }
w.item_label { |board, _ctx| board.title } window_spec.item_label { |board, _ctx| board.title }
w.render_detail do |board, width, ctx| window_spec.render_detail do |board, width, ctx|
UI::Formatters::Board.lines(ctx[:boards].messages(board.id, 100), board.title, width) UI::Formatters::Board.lines(ctx[:boards].messages(board.id, 100), board.title, width)
end end
w.action label: '&New', align: :left do |window, ctx| window_spec.action label: '&New', align: :left do |window, ctx|
board = window.list_widget.selected_item board = window.list_widget.selected_item
ctx[:app].open_window(:compose_message, board: board, ctx[:app].open_window(:compose_message, board: board,
on_posted: -> { window.reload_detail }) on_posted: -> { window.reload_detail })
:keep :keep
end end
w.action label: '&Refresh', align: :left do |window, _ctx| window_spec.action label: '&Refresh', align: :left do |window, _ctx|
window.reload_detail window.reload_detail
:keep :keep
end end
end end
window :compose_message, type: :form do |w| window :compose_message, type: :form do |window_spec|
w.title { |ctx| ctx[:board] ? " Post to #{ctx[:board].title} " : ' Compose ' } window_spec.title { |ctx| ctx[:board] ? " Post to #{ctx[:board].title} " : ' Compose ' }
w.width { |ctx| [ctx[:app].cols - 8, 70].min } window_spec.width { |ctx| [ctx[:app].cols - 8, 70].min }
w.height 14 window_spec.height 14
w.hint { |ctx| "From: #{ctx[:username] || 'Anonymous'} — Ctrl-Enter sends" } window_spec.hint { |ctx| "From: #{ctx[:username] || 'Anonymous'} — Ctrl-Enter sends" }
w.submit_label '&Send' window_spec.submit_label '&Send'
w.cancel_label '&Cancel' window_spec.cancel_label '&Cancel'
w.field :body, type: :textarea, max_length: 1000 window_spec.field :body, type: :textarea, max_length: 1000
w.on_submit do |values, form, ctx| window_spec.on_submit do |values, form, ctx|
if ctx[:board].nil? if ctx[:board].nil?
form.error('Select a board first.') form.error('Select a board first.')
:keep :keep
@@ -138,66 +152,66 @@ MAIN_APP = BBS::Application.define do
end end
end end
window :wiki, type: :master_detail do |w| window :wiki, type: :master_detail do |window_spec|
w.title { |ctx| " #{ctx[:title]} " } window_spec.title { |ctx| " #{ctx[:title]} " }
w.list_width { |ctx| [32, ctx[:app].cols / 3].max } window_spec.list_width { |ctx| [32, ctx[:app].cols / 3].max }
w.empty_message ' (no pages found)' window_spec.empty_message ' (no pages found)'
w.close_button false window_spec.close_button false
w.items { |ctx| ctx[:wiki].list(ctx[:category]) } window_spec.items { |ctx| ctx[:wiki].list(ctx[:category]) }
w.item_label { |page, _ctx| page.title } window_spec.item_label { |page, _ctx| page.title }
w.render_detail do |page, width, ctx| window_spec.render_detail do |page, width, ctx|
text = ctx[:wiki].content(page.id) text = ctx[:wiki].content(page.id)
BBS::Markdown.to_lines(text, width: width - 1, theme: ctx[:app].theme) BBS::Markdown.to_lines(text, width: width - 1, theme: ctx[:app].theme)
end end
w.bottom_meta do |page, ctx| window_spec.bottom_meta do |page, ctx|
"#{page.created_at.to_s[0, 10]} #{ctx[:wiki].page_url(page.locale, page.path)}" "#{page.created_at.to_s[0, 10]} #{ctx[:wiki].page_url(page.locale, page.path)}"
end end
end end
window :games, type: :master_detail do |w| window :games, type: :master_detail do |window_spec|
w.title ' Game Catalog ' window_spec.title ' Game Catalog '
w.list_width 30 window_spec.list_width 30
w.empty_message ' (no games)' window_spec.empty_message ' (no games)'
w.items { |ctx| ctx[:games].all } window_spec.items { |ctx| ctx[:games].all }
w.item_label { |game, _ctx| game.title } window_spec.item_label { |game, _ctx| game.title }
w.render_detail { |game, width, _ctx| UI::Formatters::Game.card(game, width) } window_spec.render_detail { |game, width, _ctx| UI::Formatters::Game.card(game, width) }
end end
window :online_users, type: :info do |w| window :online_users, type: :info do |window_spec|
w.title ' Online Users ' window_spec.title ' Online Users '
w.width 50 window_spec.width 50
w.scroll true window_spec.scroll true
w.height { |ctx| [ctx[:online].user_list.size + 6, 10].max } window_spec.height { |ctx| [ctx[:online].user_list.size + 6, 10].max }
w.body { |ctx| UI::Formatters::Users.online_list(ctx[:online].user_list, ctx[:username]) } window_spec.body { |ctx| UI::Formatters::Users.online_list(ctx[:online].user_list, ctx[:username]) }
end end
window :last_callers, type: :info do |w| window :last_callers, type: :info do |window_spec|
w.title ' Last Callers ' window_spec.title ' Last Callers '
w.width 64 window_spec.width 64
w.scroll true window_spec.scroll true
w.height { |ctx| [ctx[:last_callers].recent(15).size + 6, 10].max } window_spec.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)) } window_spec.body { |ctx| UI::Formatters::Users.last_callers_list(ctx[:last_callers].recent(15)) }
end end
window :chat, type: :stream do |w| window :chat, type: :stream do |window_spec|
w.title ' Live Chat ' window_spec.title ' Live Chat '
w.placeholder 'Type a message and press Enter…' window_spec.placeholder 'Type a message and press Enter…'
w.initial_lines do |ctx| window_spec.initial_lines do |ctx|
ctx[:chat].history.map { |line| UI::Formatters::Chat.line(line) } ctx[:chat].history.map { |line| UI::Formatters::Chat.line(line) }
end end
w.on_submit do |text, _app, ctx| window_spec.on_submit do |text, _app, ctx|
ctx[:chat].broadcast(ctx[:username] || 'Anonymous', text.strip) ctx[:chat].broadcast(ctx[:username] || 'Anonymous', text.strip)
end end
w.on_poll do |app_, ctx| window_spec.on_poll do |app_, ctx|
ctx[:chat].drain(app_.session_id).map { |line| UI::Formatters::Chat.line(line) } ctx[:chat].drain(app_.session_id).map { |line| UI::Formatters::Chat.line(line) }
end end
end end
window :profile, type: :form do |w| window :profile, type: :form do |window_spec|
w.title { |ctx| " Profile — #{ctx[:username] || 'Anonymous'} " } window_spec.title { |ctx| " Profile — #{ctx[:username] || 'Anonymous'} " }
w.width 64 window_spec.width 64
w.height 14 window_spec.height 14
w.prefill do |ctx| window_spec.prefill do |ctx|
existing = ctx[:profile].find(ctx[:username] || 'Anonymous') || {} existing = ctx[:profile].find(ctx[:username] || 'Anonymous') || {}
{ {
signature: existing['signature'].to_s, signature: existing['signature'].to_s,
@@ -206,23 +220,23 @@ MAIN_APP = BBS::Application.define do
notes: existing['notes'].to_s notes: existing['notes'].to_s
} }
end end
w.field :signature, label: 'Signature' window_spec.field :signature, label: 'Signature'
w.field :location, label: 'Location' window_spec.field :location, label: 'Location'
w.field :homepage, label: 'Homepage' window_spec.field :homepage, label: 'Homepage'
w.field :notes, label: 'Notes' window_spec.field :notes, label: 'Notes'
w.on_submit do |values, _form, ctx| window_spec.on_submit do |values, _form, ctx|
ctx[:profile].update(ctx[:username] || 'Anonymous', **values) ctx[:profile].update(ctx[:username] || 'Anonymous', **values)
BBS::Dialogs.message(ctx[:app], 'Profile saved.', title: ' Saved ') BBS::Dialogs.message(ctx[:app], 'Profile saved.', title: ' Saved ')
:close :close
end end
end end
window :sysop_console, type: :info do |w| window :sysop_console, type: :info do |window_spec|
w.title ' Sysop Console ' window_spec.title ' Sysop Console '
w.width 70 window_spec.width 70
w.height 18 window_spec.height 18
w.scroll true window_spec.scroll true
w.body do |ctx| window_spec.body do |ctx|
UI::Formatters::Sysop.console_body( UI::Formatters::Sysop.console_body(
username: ctx[:username], username: ctx[:username],
online_count: ctx[:online].count, online_count: ctx[:online].count,
@@ -232,7 +246,7 @@ MAIN_APP = BBS::Application.define do
recent_callers: ctx[:last_callers].recent(5) recent_callers: ctx[:last_callers].recent(5)
) )
end end
w.button label: '&Broadcast', align: :left do |_window, ctx| window_spec.button label: '&Broadcast', align: :left do |_window, ctx|
BBS::Dialogs.input(ctx[:app], prompt: 'Sysop broadcast message:', BBS::Dialogs.input(ctx[:app], prompt: 'Sysop broadcast message:',
title: ' Broadcast ', width: 64, title: ' Broadcast ', width: 64,
on_submit: lambda do |text| on_submit: lambda do |text|
@@ -241,7 +255,7 @@ MAIN_APP = BBS::Application.define do
end) end)
:keep :keep
end end
w.button label: '&Close', cancel: true window_spec.button label: '&Close', cancel: true
end end
# ── Menubar ──────────────────────────────────────────────────────────────── # ── Menubar ────────────────────────────────────────────────────────────────
@@ -257,7 +271,7 @@ MAIN_APP = BBS::Application.define do
menu '&Messages' do menu '&Messages' do
item '&Boards…', shortcut: 'F2' do open_window(:messages) end item '&Boards…', shortcut: 'F2' do open_window(:messages) end
item '&New Post…', shortcut: 'F3' do item '&New Post…', shortcut: 'F3' do
board = SERVICES[:boards].boards.first board = board_service.boards.first
if board if board
open_window(:compose_message, board: board) open_window(:compose_message, board: board)
else else
@@ -311,7 +325,7 @@ MAIN_APP = BBS::Application.define do
status_hint('F1', 'Help') { BBS::Dialogs.message(self, 'Top menu: Alt+letter — Windows: Tab/Shift-Tab — Close: Esc') } 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('F2', 'Boards') { open_window(:messages) }
status_hint('F3', 'Post') { status_hint('F3', 'Post') {
board = SERVICES[:boards].boards.first board = board_service.boards.first
if board if board
open_window(:compose_message, board: board) open_window(:compose_message, board: board)
else else
@@ -331,27 +345,7 @@ MAIN_APP = BBS::Application.define do
art.layout(1, 1, cols, rows - 2) art.layout(1, 1, cols, rows - 2)
add(art) add(art)
end end
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
say 'Goodbye!', style: :muted say 'Goodbye!', style: :muted
end end
end end

0
lib/ui/formatters.rb → lib/bbs/ui/formatters.rb
View File

0
lib/model/game_model.rb → lib/domain/model/game_model.rb
View File

0
lib/model/message_model.rb → lib/domain/model/message_model.rb
View File

0
lib/model/wiki_page_model.rb → lib/domain/model/wiki_page_model.rb
View File

0
lib/repository/board_repository.rb → lib/domain/repository/board_repository.rb
View File

0
lib/repository/catalog_repository.rb → lib/domain/repository/catalog_repository.rb
View File

0
lib/repository/last_callers_repository.rb → lib/domain/repository/last_callers_repository.rb
View File

0
lib/repository/online_users_repository.rb → lib/domain/repository/online_users_repository.rb
View File

0
lib/repository/profile_repository.rb → lib/domain/repository/profile_repository.rb
View File

0
lib/repository/wiki_repository.rb → lib/domain/repository/wiki_repository.rb
View File

0
lib/service/board_service.rb → lib/domain/service/board_service.rb
View File

0
lib/service/chat_service.rb → lib/domain/service/chat_service.rb
View File

0
lib/service/games_service.rb → lib/domain/service/games_service.rb
View File

0
lib/service/last_callers_service.rb → lib/domain/service/last_callers_service.rb
View File

0
lib/service/online_service.rb → lib/domain/service/online_service.rb
View File

0
lib/service/profile_service.rb → lib/domain/service/profile_service.rb
View File

0
lib/service/wiki_service.rb → lib/domain/service/wiki_service.rb
View File