diff --git a/mystic/bbs_filebase.pas b/mystic/bbs_filebase.pas index 4e1601a..f42c508 100644 --- a/mystic/bbs_filebase.pas +++ b/mystic/bbs_filebase.pas @@ -1156,6 +1156,7 @@ Var Session.io.OutFullLn (Session.GetPrompt(200)); Total := 0; + FileMode := 66; Reset (FBaseFile); @@ -1195,6 +1196,7 @@ Var Begin B := 0; + FileMode := 66; Reset (FBaseFile); Repeat diff --git a/mystic/bbs_general.pas b/mystic/bbs_general.pas index fcb8d47..674daea 100644 --- a/mystic/bbs_general.pas +++ b/mystic/bbs_general.pas @@ -345,6 +345,8 @@ Begin If Name = '' Then Exit; + FileMode := 66; + Assign (BBSFile, Config.DataPath + Name + '.bbi'); {$I-} Reset(BBSFile); {$I+} If IoResult <> 0 Then Begin @@ -582,6 +584,8 @@ Begin MaxField := strS2I(Copy(Data, A + 1, Length(Data))); End; + FileMode := 66; + Assign (OneLineFile, Config.DataPath + 'oneliner.dat'); {$I-} Reset (OneLineFile); {$I+} diff --git a/mystic/bbs_msgbase.pas b/mystic/bbs_msgbase.pas index 5045b23..8942a1a 100644 --- a/mystic/bbs_msgbase.pas +++ b/mystic/bbs_msgbase.pas @@ -647,11 +647,10 @@ Begin End; End; +(* Procedure TMsgBase.ToggleNewScan (QWK: Boolean; Data: String); -Var - Total: LongInt; - Procedure List_Bases; + Procedure NewScanListBases; Begin Session.io.PausePtr := 1; Session.io.AllowPause := True; @@ -679,9 +678,67 @@ Var GetMessageScan; If ((MScan.NewScan > 0) And Not QWK) or ((MScan.QwkScan > 0) And QWK) Then - Session.io.PromptInfo[3] := 'Yes' + Session.io.PromptInfo[3] := 'Yes' {++lang++} Else - Session.io.PromptInfo[3] := 'No'; + Session.io.PromptInfo[3] := 'No'; {++lang++} + + Session.io.OutFull (Session.GetPrompt(93)); + + If (Total MOD Config.MColumns = 0) And (Total > 0) Then Session.io.OutRawLn(''); + End; + + If EOF(MBaseFile) and (Total MOD Config.MColumns <> 0) Then Session.io.OutRawLn(''); + + If (Session.io.PausePtr = Session.User.ThisUser.ScreenSize) and (Session.io.AllowPause) Then + Case Session.io.MorePrompt of + 'N' : Break; + 'C' : Session.io.AllowPause := False; + End; + End; + + Session.io.OutFull (Session.GetPrompt(430)); + End; + +Begin +End; +*) + +Procedure TMsgBase.ToggleNewScan (QWK: Boolean; Data: String); +Var + Total: LongInt; + + Procedure List_Bases; + Begin + Session.io.PausePtr := 1; + Session.io.AllowPause := True; + + If QWK Then + Session.io.OutFullLn (Session.GetPrompt(90)) + Else + Session.io.OutFullLn (Session.GetPrompt(91)); + + Session.io.OutFullLn (Session.GetPrompt(92)); + + Total := 0; + FileMode := 66; + + Reset (MBaseFile); + + While Not Eof(MBaseFile) Do Begin + Read (MBaseFile, MBase); + + If Session.User.Access(MBase.ListACS) Then Begin + Inc (Total); + + Session.io.PromptInfo[1] := strI2S(Total); + Session.io.PromptInfo[2] := MBase.Name; + + GetMessageScan; + + If ((MScan.NewScan > 0) And Not QWK) or ((MScan.QwkScan > 0) And QWK) Then + Session.io.PromptInfo[3] := 'Yes' {++lang++} + Else + Session.io.PromptInfo[3] := 'No'; {++lang++} Session.io.OutFull (Session.GetPrompt(93)); @@ -704,7 +761,8 @@ Var Var B : Word; Begin - B := 0; + B := 0; + FileMode := 66; Reset (MBaseFile); @@ -3924,8 +3982,9 @@ Begin If Session.User.ThisUser.QwkFiles Then Session.FileBase.ExportFileList(True, True); - Old := MBase; - Temp := strPadR('Produced By ' + mysSoftwareID + ' BBS v' + mysVersion + '. ' + CopyID, 128, ' '); + FileMode := 66; + Old := MBase; + Temp := strPadR('Produced By ' + mysSoftwareID + ' BBS v' + mysVersion + '. ' + CopyID, 128, ' '); Assign (DataFile, Session.TempPath + 'messages.dat'); ReWrite (DataFile, 1); diff --git a/mystic/bbs_nodelist.pas b/mystic/bbs_nodelist.pas index 3809166..66d75c6 100644 --- a/mystic/bbs_nodelist.pas +++ b/mystic/bbs_nodelist.pas @@ -82,6 +82,8 @@ Begin SearchNode := Copy(SearchStr, B + 1, 255); End; + FileMode := 66; + Assign (ListFile, NodeList); SetTextBuf (ListFile, ListBuffer); Reset (ListFile); diff --git a/mystic/mis_client_telnet.pas b/mystic/mis_client_telnet.pas index e1c31c0..9affea7 100644 --- a/mystic/mis_client_telnet.pas +++ b/mystic/mis_client_telnet.pas @@ -9,7 +9,7 @@ Interface {$LinkLib libutil.a} {$ENDIF} {$IFDEF CPU64} - {$LinkLib libutil_64.a} + {$LinkLib libutil.a} {$ENDIF} {$ENDIF} diff --git a/mystic/todo.pas b/mystic/todo.pas index efd1443..10aadc5 100644 --- a/mystic/todo.pas +++ b/mystic/todo.pas @@ -8,6 +8,7 @@ design elements/issues. BUGS AND POSSIBLE ISSUES ======================== +! LBP menus arent scrolling correctly in Linux ! MUTIL FILESBBS import is not skipping FILES.BBS? ! Make sure MIS in Linux works with DOSEMU ! Node chat goes haywire at 1000 lines scrollback @@ -28,11 +29,12 @@ FUTURE / IDEAS / WORK IN PROGRESS / NOTES ========================================= - Option for QuickScan that only prints a base if it has new messages. +- Option for quickscan to show information about the messages (from,subj) - QWK via email - Either add Public/Private fusion type message base or allow reply via email or netmail option. - mUTIL scans MSGS directory and auto-creates anything that has data files - not related to a BBS message base + not related to a BBS message base.. uses a template - Blind upload for single file upload (also message upload) - Email validation - Recode FCHECK into MUTIL, but also add the option to phsyically delete the