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

Added DEBUG logging for file xfers

This commit is contained in:
mysticbbs 2013-01-17 17:11:38 -05:00
parent c23b05460e
commit 3f37686280
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
mystic/bbs_filebase.pas
View File

@ -136,6 +136,8 @@ Begin
Res := Pos(UpCase(LineBuf[0]), 'RSZ') > 0; Res := Pos(UpCase(LineBuf[0]), 'RSZ') > 0;
Session.SystemLog('DEBUG: DSZ Status character: ' + LineBuf[0]);
While WordPos < 11 Do Begin While WordPos < 11 Do Begin
If LineBuf[Count] = #32 Then Begin If LineBuf[Count] = #32 Then Begin
Inc (WordPos); Inc (WordPos);
@ -176,16 +178,15 @@ Begin
Exit; Exit;
End; End;
Session.SystemLog('DEBUG: DSZ Searching for: ' + FName);
While Not Eof(LogFile) Do Begin While Not Eof(LogFile) Do Begin
DszGetFile(LogFile, FileName, Status); DszGetFile(LogFile, FileName, Status);
{$IFDEF FS_SENSITIVE} Session.SystemLog('DEBUG: DSZ GetFile returned: ' + FileName + ' (success ' + strI2S(Ord(Status)) + ')');
If FileName = FName Then Begin
{$ELSE}
If strUpper(FileName) = strUpper(FName) Then Begin
{$ENDIF}
Result := Status;
If strUpper(FileName) = strUpper(FName) Then Begin
Result := Status;
Break; Break;
End; End;
End; End;
@ -601,7 +602,7 @@ Begin
Session.io.PromptInfo[1] := JustFile(Data); Session.io.PromptInfo[1] := JustFile(Data);
If dszSearch(JustFile(Data)) Then Begin If DszSearch(JustFile(Data)) Then Begin
Result := True; Result := True;
Session.io.OutFullLn (Session.GetPrompt(385)); Session.io.OutFullLn (Session.GetPrompt(385));
End Else End Else
@ -3139,6 +3140,7 @@ Begin
Reset (FBaseFile); Reset (FBaseFile);
Session.io.OutRawLn (''); Session.io.OutRawLn ('');
For A := 1 to BatchNum Do Begin For A := 1 to BatchNum Do Begin
Session.io.PromptInfo[1] := JustFile(Batch[A].FileName); Session.io.PromptInfo[1] := JustFile(Batch[A].FileName);