eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Code cleanup

This commit is contained in:
mysticbbs 2012-02-22 02:30:43 -05:00
parent 72eec6e35b
commit 2d8602426f
2 changed files with 22 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mystic/install.pas
View File

@ -568,6 +568,7 @@ Begin
{$ELSE} {$ELSE}
Config.SystemPath := 'c:\mystic\'; Config.SystemPath := 'c:\mystic\';
{$ENDIF} {$ENDIF}
Config.DataPath := Config.SystemPath + 'data' + PathChar; Config.DataPath := Config.SystemPath + 'data' + PathChar;
Lang.TextPath := Config.SystemPath + 'text' + PathChar; Lang.TextPath := Config.SystemPath + 'text' + PathChar;
Lang.MenuPath := Config.SystemPath + 'menus' + PathChar; Lang.MenuPath := Config.SystemPath + 'menus' + PathChar;
@ -591,6 +592,7 @@ Begin
Case Pos of Case Pos of
1 : Begin 1 : Begin
Str := Path(Input(30, 13, 40, 40, Config.SystemPath)); Str := Path(Input(30, 13, 40, 40, Config.SystemPath));
If Str <> Config.SystemPath Then Begin If Str <> Config.SystemPath Then Begin
Config.DataPath := Change(Config.DataPath); Config.DataPath := Change(Config.DataPath);
Lang.TextPath := Change(Lang.TextPath); Lang.TextPath := Change(Lang.TextPath);

10
mystic/mis.pas
View File

@ -357,7 +357,6 @@ Begin
TelnetServer := TServerManager.Create(bbsConfig, bbsConfig.InetTNPort, bbsConfig.INetTNNodes, NodeData, @CreateTelnet); TelnetServer := TServerManager.Create(bbsConfig, bbsConfig.InetTNPort, bbsConfig.INetTNNodes, NodeData, @CreateTelnet);
TelnetServer.Server.FTelnetServer := True; TelnetServer.Server.FTelnetServer := True;
// TelnetServer.TextPath := bbsConfig.DataPath;
TelnetServer.ClientMaxIPs := bbsConfig.InetTNDupes; TelnetServer.ClientMaxIPs := bbsConfig.InetTNDupes;
Started := True; Started := True;
@ -369,7 +368,6 @@ Begin
SMTPServer.Server.FTelnetServer := False; SMTPServer.Server.FTelnetServer := False;
SMTPServer.ClientMaxIPs := 1; SMTPServer.ClientMaxIPs := 1;
// SMTPServer.TextPath := bbsConfig.DataPath;
Started := True; Started := True;
End; End;
@ -379,7 +377,6 @@ Begin
POP3Server.Server.FTelnetServer := False; POP3Server.Server.FTelnetServer := False;
POP3Server.ClientMaxIPs := bbsConfig.inetPOP3Dupes; POP3Server.ClientMaxIPs := bbsConfig.inetPOP3Dupes;
// POP3Server.TextPath := bbsConfig.DataPath;
Started := True; Started := True;
End; End;
@ -389,7 +386,6 @@ Begin
FTPServer.Server.FTelnetServer := False; FTPServer.Server.FTelnetServer := False;
FTPServer.ClientMaxIPs := bbsConfig.inetFTPDupes; FTPServer.ClientMaxIPs := bbsConfig.inetFTPDupes;
// FTPServer.TextPath := bbsConfig.DataPath;
Started := True; Started := True;
End; End;
@ -416,8 +412,6 @@ Begin
Halt(10); Halt(10);
End; End;
// BarPos := 1;
// TopPage := 1;
Count := 0; Count := 0;
DrawStatusScreen; DrawStatusScreen;
@ -429,10 +423,6 @@ Begin
If Input.KeyWait(1000) Then If Input.KeyWait(1000) Then
Case Input.ReadKey of Case Input.ReadKey of
#00 : Case Input.ReadKey of #00 : Case Input.ReadKey of
// #37 : If (FocusPtr <> NIL) And (FocusPtr.ClientList[BarPos - 1] <> NIL) Then Begin
// TServerClient(FocusPtr.ClientList[BarPos - 1]).Client.Disconnect;
// UpdateConnectionList;
// End;
#72 : If BarPos > TopPage Then Begin #72 : If BarPos > TopPage Then Begin
Dec(BarPos); Dec(BarPos);
UpdateConnectionList; UpdateConnectionList;