This commit is contained in:
mysticbbs 2013-03-07 15:00:03 -05:00
parent e6b9c57c47
commit 14a9b303ec
6 changed files with 79 additions and 10 deletions

View File

@ -1156,6 +1156,7 @@ Var
Session.io.OutFullLn (Session.GetPrompt(200)); Session.io.OutFullLn (Session.GetPrompt(200));
Total := 0; Total := 0;
FileMode := 66;
Reset (FBaseFile); Reset (FBaseFile);
@ -1195,6 +1196,7 @@ Var
Begin Begin
B := 0; B := 0;
FileMode := 66;
Reset (FBaseFile); Reset (FBaseFile);
Repeat Repeat

View File

@ -345,6 +345,8 @@ Begin
If Name = '' Then Exit; If Name = '' Then Exit;
FileMode := 66;
Assign (BBSFile, Config.DataPath + Name + '.bbi'); Assign (BBSFile, Config.DataPath + Name + '.bbi');
{$I-} Reset(BBSFile); {$I+} {$I-} Reset(BBSFile); {$I+}
If IoResult <> 0 Then Begin If IoResult <> 0 Then Begin
@ -582,6 +584,8 @@ Begin
MaxField := strS2I(Copy(Data, A + 1, Length(Data))); MaxField := strS2I(Copy(Data, A + 1, Length(Data)));
End; End;
FileMode := 66;
Assign (OneLineFile, Config.DataPath + 'oneliner.dat'); Assign (OneLineFile, Config.DataPath + 'oneliner.dat');
{$I-} Reset (OneLineFile); {$I+} {$I-} Reset (OneLineFile); {$I+}

View File

@ -647,11 +647,10 @@ Begin
End; End;
End; End;
(*
Procedure TMsgBase.ToggleNewScan (QWK: Boolean; Data: String); Procedure TMsgBase.ToggleNewScan (QWK: Boolean; Data: String);
Var
Total: LongInt;
Procedure List_Bases; Procedure NewScanListBases;
Begin Begin
Session.io.PausePtr := 1; Session.io.PausePtr := 1;
Session.io.AllowPause := True; Session.io.AllowPause := True;
@ -679,9 +678,67 @@ Var
GetMessageScan; GetMessageScan;
If ((MScan.NewScan > 0) And Not QWK) or ((MScan.QwkScan > 0) And QWK) Then 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 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)); Session.io.OutFull (Session.GetPrompt(93));
@ -704,7 +761,8 @@ Var
Var Var
B : Word; B : Word;
Begin Begin
B := 0; B := 0;
FileMode := 66;
Reset (MBaseFile); Reset (MBaseFile);
@ -3924,8 +3982,9 @@ Begin
If Session.User.ThisUser.QwkFiles Then If Session.User.ThisUser.QwkFiles Then
Session.FileBase.ExportFileList(True, True); Session.FileBase.ExportFileList(True, True);
Old := MBase; FileMode := 66;
Temp := strPadR('Produced By ' + mysSoftwareID + ' BBS v' + mysVersion + '. ' + CopyID, 128, ' '); Old := MBase;
Temp := strPadR('Produced By ' + mysSoftwareID + ' BBS v' + mysVersion + '. ' + CopyID, 128, ' ');
Assign (DataFile, Session.TempPath + 'messages.dat'); Assign (DataFile, Session.TempPath + 'messages.dat');
ReWrite (DataFile, 1); ReWrite (DataFile, 1);

View File

@ -82,6 +82,8 @@ Begin
SearchNode := Copy(SearchStr, B + 1, 255); SearchNode := Copy(SearchStr, B + 1, 255);
End; End;
FileMode := 66;
Assign (ListFile, NodeList); Assign (ListFile, NodeList);
SetTextBuf (ListFile, ListBuffer); SetTextBuf (ListFile, ListBuffer);
Reset (ListFile); Reset (ListFile);

View File

@ -9,7 +9,7 @@ Interface
{$LinkLib libutil.a} {$LinkLib libutil.a}
{$ENDIF} {$ENDIF}
{$IFDEF CPU64} {$IFDEF CPU64}
{$LinkLib libutil_64.a} {$LinkLib libutil.a}
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}

View File

@ -8,6 +8,7 @@ design elements/issues.
BUGS AND POSSIBLE ISSUES BUGS AND POSSIBLE ISSUES
======================== ========================
! LBP menus arent scrolling correctly in Linux
! MUTIL FILESBBS import is not skipping FILES.BBS? ! MUTIL FILESBBS import is not skipping FILES.BBS?
! Make sure MIS in Linux works with DOSEMU ! Make sure MIS in Linux works with DOSEMU
! Node chat goes haywire at 1000 lines scrollback ! 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 that only prints a base if it has new messages.
- Option for quickscan to show information about the messages (from,subj)
- QWK via email - QWK via email
- Either add Public/Private fusion type message base or allow reply via - Either add Public/Private fusion type message base or allow reply via
email or netmail option. email or netmail option.
- mUTIL scans MSGS directory and auto-creates anything that has data files - 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) - Blind upload for single file upload (also message upload)
- Email validation - Email validation
- Recode FCHECK into MUTIL, but also add the option to phsyically delete the - Recode FCHECK into MUTIL, but also add the option to phsyically delete the