From 3cb391a10415d649d27fd6fec7809c83e0692a48 Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Mon, 27 Feb 2012 12:51:34 -0500 Subject: [PATCH] Replace spaces in newsgroup name with periods --- mystic/bbs_cfg_msgbase.pas | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/mystic/bbs_cfg_msgbase.pas b/mystic/bbs_cfg_msgbase.pas index e497c3d..0f29790 100644 --- a/mystic/bbs_cfg_msgbase.pas +++ b/mystic/bbs_cfg_msgbase.pas @@ -39,7 +39,7 @@ Begin VerticalLine (66, 6, 20); Form.AddStr ('N', ' Name' , 11, 6, 19, 6, 6, 30, 40, @MBase.Name, Topic + 'Message base description'); - Form.AddStr ('W', ' Newsgroup' , 6, 7, 19, 7, 11, 30, 60, @MBase.NewsName, Topic + 'Newsgroup name (Blank/Disabled)'); + Form.AddStr ('W', ' Newsgroup' , 6, 7, 19, 7, 11, 30, 60, @MBase.NewsName, Topic + 'Newsgroup name'); Form.AddStr ('Q', ' QWK Name' , 7, 8, 19, 8, 10, 13, 13, @MBase.QwkName, Topic + 'Qwk Short name'); Form.AddStr ('F', ' File Name' , 6, 9, 19, 9, 11, 30, 40, @MBase.FileName, Topic + 'Message base storage file name'); Form.AddPath ('P', ' Path' , 11, 10, 19, 10, 6, 30, 80, @MBase.Path, Topic + 'Message base storage path'); @@ -79,6 +79,8 @@ Begin End; Until False; + MBase.NewsName := strReplace(MBase.NewsName, ' ', '.'); + Box.Close; Form.Free;