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

A36

This commit is contained in:
mysticbbs 2013-05-26 20:54:13 -04:00
parent 07ec32d1b0
commit 85c0ec5572
9 changed files with 52 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
mystic/bbs_filebase.pas
View File

@ -431,7 +431,7 @@ Var
Case Mode of
0,
1 : Protocol.ReceivePath := DirSlash(FName);
2 : Queue.Add(JustPath(FName), JustFile(FName));
2 : Queue.Add(True, JustPath(FName), JustFile(FName));
3 : Begin
Assign (T, Session.TempPath + 'file.lst');
Reset (T);
@ -439,7 +439,7 @@ Var
While Not Eof(T) Do Begin
ReadLn (T, Res);
Queue.Add(JustPath(Res), JustFile(Res));
Queue.Add(True, JustPath(Res), JustFile(Res));
End;
Close (T);
@ -1510,7 +1510,7 @@ Begin
Inc(A);
End;
Session.SystemLog('DEBUG: ExecArc build exec for: ' + Temp);
//Session.SystemLog('DEBUG: ExecArc build exec for: ' + Temp);
ShellDOS ('', Temp);
End;
@ -1735,6 +1735,7 @@ Begin
If FirstBase Then Begin
Session.User.ThisUser.LastFBase := 0;
ChangeFileArea ('+');
End;
@ -1771,6 +1772,7 @@ Begin
If FirstBase Then Begin
Session.User.ThisUser.LastFBase := 0;
ChangeFileArea ('+');
End;
@ -1939,7 +1941,9 @@ Begin
If Session.User.Access(FBase.ListACS) Then Begin
Session.User.ThisUser.LastFBase := FilePos(FBaseFile);
Close (FBaseFile);
Exit;
End;
Until False;
@ -2788,6 +2792,7 @@ Var
End;
'Q' : Begin
Result := 1;
Break;
End;
'V' : Begin
@ -3373,10 +3378,12 @@ Begin
Timer := TimerSet(1000);
Session.io.OutFull(Session.GetPrompt(67));
Session.io.BufFlush;
While Not TimerUp(Timer) Do
If Session.io.InKey(1000) <> #255 Then Begin
Session.io.OutRawLn('');
Exit;
End;
@ -3464,8 +3471,10 @@ Begin
If (FDir.FileName = Batch[A].FileName) And (FDir.Flags And FDirDeleted = 0) Then Begin
Inc (FDir.Downloads);
Seek (FDirFile, FilePos(FDirFile) - 1);
Write (FDirFile, FDir);
Break;
End;
End;
@ -3497,8 +3506,10 @@ Var
Procedure Scan_Base;
Begin
Session.io.PromptInfo[1] := FBase.Name;
Session.io.OutBS (Screen.CursorX, True);
Session.io.OutFull (Session.GetPrompt(87));
Session.io.BufFlush;
Case ListFiles (3, Str) of
@ -3537,17 +3548,26 @@ Begin
Session.io.OutRawLn ('');
Reset (FBaseFile);
While (Not Eof(FBaseFile)) and (Not Done) Do Begin
Found := False;
Read (FBaseFile, FBase);
If Session.User.Access(FBase.ListACS) Then Scan_Base;
If Session.User.Access(FBase.ListACS) Then
Scan_Base;
End;
Close (FBaseFile);
End Else Begin
Session.io.OutRawLn ('');
Reset (FBaseFile);
Seek (FBaseFile, Session.User.ThisUser.LastFBase - 1);
Read (FBaseFile, FBase);
Scan_Base;
Close (FBaseFile);
End;
@ -3630,8 +3650,13 @@ Begin
Session.io.OutFullLn(Session.GetPrompt(038))
Else Begin
GetFileScan;
Reset (FBaseFile);
Seek (FBaseFile, Session.User.ThisUser.LastFBase - 1);
Read (FBaseFile, FBase);
Scan_Current_Base;
Close (FBaseFile);
End;
End;

4
mystic/bbs_io.pas
View File

@ -1277,7 +1277,7 @@ Begin
End;
If AllowAbort And (BufPos MOD 128 = 0) And Not Session.LocalMode Then
If Session.Client.DataWaiting And (InKey(0) = #32) Then Begin
If InKey(0) = #32 Then Begin
AnsiColor(7);
Break;
End;
@ -1858,6 +1858,7 @@ Var
pWrite (Copy(Str, Junk, Field));
If UseInField Then AnsiColor(TBBSCore(Core).Theme.FieldColor2);
pWrite (strRep(FieldCh, Field - Length(Copy(Str, Junk, Field))));
If UseInField Then AnsiColor(TBBSCore(Core).Theme.FieldColor1);
@ -1868,6 +1869,7 @@ Var
Begin
pWrite (Copy(Str, StrPos, Field - CurPos + 1));
If UseInField Then AnsiColor(TBBSCore(Core).Theme.FieldColor2);
pWrite (strRep(FieldCh, (Field - CurPos + 1) - Length(Copy(Str, StrPos, Field - CurPos + 1))));
If UseInField Then AnsiColor(TBBSCore(Core).Theme.FieldColor1);

3
mystic/bbs_msgbase.pas
View File

@ -944,7 +944,7 @@ Begin
If Temp = 'A' Then
ToggleAll(1)
Else
If Temp = 'D' Then
If Temp = 'R' Then
ToggleAll(0)
Else
If Temp = '?' Then
@ -3683,7 +3683,6 @@ Var
NewMsgs : LongInt;
YourMsgs : LongInt;
TotalMsgs : LongInt;
Res : Boolean;
Begin
Session.io.PromptInfo[1] := MBase.Name;
Session.io.PromptInfo[2] := strI2S(Global_CurBase);

2
mystic/default.txt
View File

@ -198,7 +198,7 @@
093 |07|$R04|&1|15|$R03|&3 |07|$R29|&2
094 |CR|12There are no available message bases!
; Message base new and qwk scan toggle prompt:
095 Toggle: |09[|11#-#,#|09], Select [|11A|09]ll, [|11D|09]eselect All, [|11?|09/|11List|09]: |XX
095 Toggle: |09[|11#-#,#|09], Select [|11A|09]dd All, [|11R|09]emove All, [|11?|09/|11List|09]: |XX
; For strings 096 - 099: &1 = message base name
096 |CR |11|&1 will NOT be scanned in QWK packets!|CR
097 |CR |11|&1 will be scanned in QWK packets!|CR

2
mystic/mis_server.pas
View File

@ -80,7 +80,7 @@ Begin
ServerStatus := TStringList.Create;
StatusUpdated := False;
ClientList := TList.Create;
TextPath := Config.DataPath;
TextPath := Cfg.DataPath;
NodeInfo := ND;
Config := Cfg;

1
mystic/mpl_execute.pas
View File

@ -22,6 +22,7 @@ Type
DataFile : TFileBuffer;
CurVarNum : Word;
CurVarID : Word;
// CurClassNum : Word;
VarData : VarDataRec;
Ch : Char;
W : Word;

2
mystic/nodespy_term.pas
View File

@ -696,7 +696,7 @@ Begin
Zmodem.StatusProc := @ProtocolStatusUpdate;
Zmodem.AbortProc := @ProtocolAbort;
Queue.Add(JustPath(FileName), JustFile(FileName), '');
Queue.Add(True, JustPath(FileName), JustFile(FileName), '');
Zmodem.QueueSend;

2
mystic/records.pas
View File

@ -23,7 +23,7 @@
Const
mysSoftwareID = 'Mystic BBS';
mysCopyYear = '1997-2013'; // its been a long time!
mysVersion = '1.10 A35'; // current version
mysVersion = '1.10 A36'; // current version
mysDataChanged = '1.10 A11'; // version of last records change
{$IFDEF WIN32}

15
mystic/whatsnew.txt
View File

@ -3458,7 +3458,20 @@
this:
; Message base new and qwk scan toggle prompt:
095 Toggle: |09[|11#-#,#|09], Select [|11A|09]ll, [|11D|09]eselect All, [|11?|09/|11List|09]: |XX
095 Toggle: |09[|11#-#,#|09], Select [|11A|09]dd ll, [|11R|09]emove All, [|11?|09/|11List|09]: |XX
! Fixed a bug in the matrix login after creating a new user.
! Fixed a bug when searching or doing new scans on a single file base which
could sometimes cause a crash.
! Broke BADIP.TXT recently. Fixed now.
! Fixed a bug with NodeSpy Zmodem download which would cause it to crash,
hopefully it will work better now? At least it shouldn't crash now either
way.
! Fixed a few other bugs and did some minor enhancements that no one will
notice. ;)
<ALPHA 35 RELEASED>