And that somewhere is here
This commit is contained in:
parent
bf96b00476
commit
c901e86304
|
@ -12,12 +12,14 @@ Function ProcessedByAreaFix (Var PKT: TPKTReader) : Boolean;
|
||||||
Implementation
|
Implementation
|
||||||
|
|
||||||
Uses
|
Uses
|
||||||
m_Strings;
|
m_Strings,
|
||||||
|
bbs_Common;
|
||||||
|
|
||||||
Function ProcessedByAreaFix (Var PKT: TPKTReader) : Boolean;
|
Function ProcessedByAreaFix (Var PKT: TPKTReader) : Boolean;
|
||||||
Var
|
Var
|
||||||
IsAreaFix : Boolean;
|
IsAreaFix : Boolean;
|
||||||
IsFileFix : Boolean;
|
IsFileFix : Boolean;
|
||||||
|
EchoNode : RecEchoMailNode;
|
||||||
Begin
|
Begin
|
||||||
Result := False;
|
Result := False;
|
||||||
IsAreaFix := strUpper(PKT.MsgTo) = 'AREAFIX';
|
IsAreaFix := strUpper(PKT.MsgTo) = 'AREAFIX';
|
||||||
|
@ -25,10 +27,39 @@ Begin
|
||||||
|
|
||||||
If Not (IsAreaFix or IsFileFix) Then Exit;
|
If Not (IsAreaFix or IsFileFix) Then Exit;
|
||||||
|
|
||||||
|
(*Function GetNodeByAuth (Addr: RecEchoMailAddr; PW: String; Var TempNode: RecEchoMailNode) : Boolean;
|
||||||
|
Var
|
||||||
|
F : File;
|
||||||
|
Begin
|
||||||
|
Result := False;
|
||||||
|
|
||||||
|
Assign (F, bbsConfig.DataPath + 'echonode.dat');
|
||||||
|
|
||||||
|
If Not ioReset(F, SizeOf(RecEchoMailNode), fmRWDN) Then Exit;
|
||||||
|
|
||||||
|
While Not Eof(F) And Not Result Do Begin
|
||||||
|
ioRead(F, TempNode);
|
||||||
|
|
||||||
|
Result := (strUpper(PW) = strUpper(TempNode.AreaFixPass)) and
|
||||||
|
(Addr.Zone = TempNode.Address.Node) and
|
||||||
|
(Addr.Net = TempNode.Address.Net) and
|
||||||
|
(Addr.Node = TempNode.Address.Node);
|
||||||
|
End;
|
||||||
|
|
||||||
|
Close (F);
|
||||||
|
End;
|
||||||
|
*)
|
||||||
|
|
||||||
|
|
||||||
// find recechomailnode
|
// find recechomailnode
|
||||||
// check subject against session password
|
// check subject against session password
|
||||||
|
// problem is that the PKTMSG header doesnt have ZONE or POINT
|
||||||
|
// so how do we do this without shite security?
|
||||||
|
|
||||||
// if bad password do we respond back or just ignore?
|
// if bad password do we respond back or just ignore?
|
||||||
// if none found then do we toss to badmsgs?
|
// if no node config found then do we toss to badmsgs?
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
// commands (AREAFIX):
|
// commands (AREAFIX):
|
||||||
// %LIST
|
// %LIST
|
||||||
|
|
Loading…
Reference in New Issue