95 lines
2.7 KiB
ObjectPascal
95 lines
2.7 KiB
ObjectPascal
// ====================================================================
|
|
// Mystic BBS Software Copyright 1997-2013 By James Coyle
|
|
// ====================================================================
|
|
//
|
|
// This file is part of Mystic BBS.
|
|
//
|
|
// Mystic BBS is free software: you can redistribute it and/or modify
|
|
// it under the terms of the GNU General Public License as published by
|
|
// the Free Software Foundation, either version 3 of the License, or
|
|
// (at your option) any later version.
|
|
//
|
|
// Mystic BBS is distributed in the hope that it will be useful,
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
// GNU General Public License for more details.
|
|
//
|
|
// You should have received a copy of the GNU General Public License
|
|
// along with Mystic BBS. If not, see <http://www.gnu.org/licenses/>.
|
|
//
|
|
// ====================================================================
|
|
Unit MUTIL_EchoFix;
|
|
|
|
{$I M_OPS.PAS}
|
|
|
|
Interface
|
|
|
|
Uses
|
|
mUtil_EchoCore;
|
|
|
|
Function ProcessedByAreaFix (Var PKT: TPKTReader) : Boolean;
|
|
|
|
Implementation
|
|
|
|
Uses
|
|
m_Strings,
|
|
BBS_Records;
|
|
|
|
Function ProcessedByAreaFix (Var PKT: TPKTReader) : Boolean;
|
|
Var
|
|
IsAreaFix : Boolean;
|
|
IsFileFix : Boolean;
|
|
EchoNode : RecEchoMailNode;
|
|
Begin
|
|
Result := False;
|
|
IsAreaFix := strUpper(PKT.MsgTo) = 'AREAFIX';
|
|
IsFileFix := strUpper(PKT.MsgTo) = 'FILEFIX';
|
|
|
|
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, bbsCfg.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
|
|
// 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 no node config found then do we toss to badmsgs?
|
|
|
|
|
|
|
|
// commands (AREAFIX):
|
|
// %LIST
|
|
// %RESCAN optional can have ,R=100 where 100 is last X messages
|
|
// %HELP
|
|
// [+]ECHOTAG or -ECHOTAG to add/remove base
|
|
// =ECHOTAG to rescan a single base? optional ,R=100 same as RESCAN
|
|
// %COMPRESS <NAME> or ? to list packers.
|
|
// %PWD <pw>
|
|
End;
|
|
|
|
End.
|