u_ownsinitfile.pas

linux program to read packet data

  if (pathConfig = 'ext\ipdest id.ext') then
    result := Ext_IPDest_PortDest_Id
  else
  if (pathConfig = 'ipdest\ext\id.ext') then
    result := IPDest_Ext_Id
  else
  if (pathConfig = 'mime\ext\ipdest portdest id.ext') then
    result := Mime_IpDest_PortDest_Id
  else
    result := Ext_Id;
end;

////////////////////////////////////////////////////////////////////////////////
//
// Http filter
//
////////////////////////////////////////////////////////////////////////////////

procedure TOwnsIniFile.setSaveHttp(const saveHttp : boolean);
begin
  FIniFile.WriteBool('httpFilter','saveHttp',saveHttp);
end;

function TOwnsIniFile.getSaveHttp() : boolean;
begin
  result := FIniFile.ReadBool('httpFilter','saveHttp',true);
end;

procedure TOwnsIniFile.setHttpFilterHeaders(const httpFilterHeaders : TFilterHeaders);
var
  filterStr : String;
begin
  filterStr := '';
  if (AllHeaders in httpFilterHeaders) then filterSTr := filterStr+'allHttp,';
  if (HotMailHeaders in httpFilterHeaders) then filterSTr := filterStr+'hotmail,';
  if (FileSavedHeaders in httpFilterHeaders) then filterSTr := filterStr+'allfiles,';
  if (length(filterStr) > 0) then setLength(filterSTr,length(filterStr)-1); // delete final ','
  FIniFile.WriteString('httpFilter','saveHttpHeaders',filterSTr);
end;

function TOwnsIniFile.getHttpFilterHeaders() : TFilterHeaders;
var
  filterStr : String;
  token     : string;
  pos       : integer;
  filterHeaders : TFilterHeaders;
begin
  filterStr := FIniFile.ReadString('httpFilter','saveHttpHeaders','hotmail');
  pos := 1; filterHeaders := [];
  token := getNextToken(filterStr,',',pos);
  while (token <> '') do
  begin
    if (token = 'allHttp') then filterHeaders := filterHeaders + [AllHeaders];
    if (token = 'hotmail') then filterHeaders := filterHeaders + [HotMailHeaders];
    if (token = 'allfiles') then filterHeaders := filterHeaders + [FileSavedHeaders];
    token := getNextToken(filterStr,',',pos);
  end;
  result := filterHeaders;
end;

procedure TOwnsIniFile.setHttpTcpStreamFilter(const filterTcpStream : TFilterHttpTCPStream);
var
  filterStr : String;
begin
  filterStr := '';
  if (AllTCPStreams in filterTcpStream) then filterSTr := filterStr+'allHttp,';
  if (FileSavedTCPStreams in filterTcpStream) then filterSTr := filterStr+'allfiles,';
  if (length(filterStr) > 0) then setLength(filterSTr,length(filterStr)-1); // delete final ','
  FIniFile.WriteString('httpFilter','saveTcpStream',filterSTr);
end;

function TOwnsIniFile.getHttpTcpStreamFilter() : TFilterHttpTCPStream;
var
  filterStr : String;
  token     : string;
  pos       : integer;
  filterTcpStream : TFilterHttpTCPStream;
begin
  filterStr := FIniFile.ReadString('httpFilter','saveTcpStream','hotmail');
  pos := 1; filterTcpStream := [];        
  token := getNextToken(filterStr,',',pos);
  while (token <> '') do
  begin
    if (token = 'allHttp') then filterTcpStream := filterTcpStream + [AllTCPStreams];
    if (token = 'allfiles') then filterTcpStream := filterTcpStream + [FileSavedTCPStreams];
    token := getNextToken(filterStr,',',pos);
  end;
  result := filterTcpStream;
end;

procedure TOwnsIniFile.setSaveHttpFiles(const saveHttpFiles : boolean);
begin
  FIniFile.WriteBool('httpFilter','saveHttpFiles',saveHttpFiles);
end;

function TOwnsIniFile.getSaveHttpFiles() : boolean;
begin
  result := FIniFile.ReadBool('httpFilter','saveHttpFiles',true);
end;


procedure TOwnsIniFile.setSaveHttpFilesGreaterThan(const greaterThan : integer);
begin
  FIniFile.WriteInteger('httpFilter','greaterThan',greaterThan);
end;

function TOwnsIniFile.getSaveHttpFilesGreaterThan() : integer;
begin
  result := FiniFIle.ReadInteger('httpFilter','greaterThan',10000);
end;

procedure TOwnsIniFile.setHttpFilterExtensions(const httpFilterExtensions : TFiltreExtensions);
var
  filterStr : String;
begin
  filterStr := '';
  if (TypeInconnu in httpFilterExtensions) then filterSTr := filterStr+'unknown,';
  if (TypeText in httpFilterExtensions) then filterSTr := filterStr+'text,';
  if (TypeApplication in httpFilterExtensions) then filterSTr := filterStr+'application,';
  if (TypeAudio in httpFilterExtensions) then filterSTr := filterStr+'audio,';
  if (TypeImage in httpFilterExtensions) then filterSTr := filterStr+'image,';
  if (TypeVideo in httpFilterExtensions) then filterSTr := filterStr+'video,';
  if (length(filterStr) > 0) then setLength(filterSTr,length(filterStr)-1); // delete final ','
  FIniFile.WriteString('httpFilter','saveTypes',filterSTr);
end;

function TOwnsIniFile.getHttpFilterExtensions() : TFiltreExtensions;
var
  filterStr : String;
  token     : string;
  pos       : integer;
  filterExt : TFiltreExtensions;
begin
  filterStr := FIniFile.ReadString('httpFilter','saveTypes','text,image,unknown');
  pos := 1; filterExt := [];
  token := getNextToken(filterStr,',',pos);
  while (token <> '') do
  begin
    if (token = 'unknown') then filterExt := filterExt + [TypeInconnu];
    if (token = 'text') then filterExt := filterExt + [TypeText];
    if (token = 'application') then filterExt := filterExt + [TypeApplication];
    if (token = 'audio') then filterExt := filterExt + [TypeAudio];
    if (token = 'image') then filterExt := filterExt + [TypeImage];
    if (token = 'video') then filterExt := filterExt + [TypeVideo];
    token := getNextToken(filterStr,',',pos);
  end;
  result := filterExt;
end;

procedure TOwnsIniFile.setRejectContentRange(const reject : boolean);
begin
  FIniFile.WriteBool('httpFilter','rejectContentRange',reject);
end;

function TOwnsIniFile.getRejectContentRange() : boolean;
begin
  result := FIniFile.ReadBool('httpFilter','rejectContentRange',true);
end;


////////////////////////////////////////////////////////////////////////////////
//
// Pop3 filter
//
////////////////////////////////////////////////////////////////////////////////

procedure TOwnsIniFile.setSavePop3Files(const savePop3Files : boolean);
begin
  FIniFile.WriteBool('pop3Filter','saveFiles',savePop3Files);
end;

function TOwnsIniFile.getSavePop3Files() : boolean;
begin
  result := FIniFile.ReadBool('pop3Filter','saveFiles',true);
end;

procedure TOwnsIniFile.setSavePop3Stream(const savePop3Stream : boolean);
begin
  FIniFile.WriteBool('pop3Filter','saveStream',savePop3Files);
end;

function TOwnsIniFile.getSavePop3Stream() : boolean;
begin
  result := FIniFile.ReadBool('pop3Filter','saveStream',false);
end;

////////////////////////////////////////////////////////////////////////////////
//
// Nntp filter
//
////////////////////////////////////////////////////////////////////////////////

procedure TOwnsIniFile.setSaveNntpFiles(const saveNntpFiles : boolean);
begin
  FIniFile.WriteBool('nntpFilter','saveFiles',saveNntpFiles);
end;

function TOwnsIniFile.getSaveNntpFiles() : boolean;
begin
  result := FIniFile.ReadBool('nntpFilter','saveFiles',true);
end;

procedure TOwnsIniFile.setSaveNntpStream(const saveNntpStream : boolean);
begin
  FIniFile.WriteBool('nntpFilter','saveStream',saveNntpStream);
end;

function TOwnsIniFile.getSaveNntpStream() : boolean;
begin
  result := FIniFile.ReadBool('nntpFilter','saveStream',false);
end;

////////////////////////////////////////////////////////////////////////////////
//
// Other filter
//
////////////////////////////////////////////////////////////////////////////////


procedure TOwnsIniFile.setSaveOtherStream(const saveOtherStream : boolean);
begin
  FIniFile.WriteBool('OtherProtocolsFilter','saveStream',saveOtherStream);
end;

function TOwnsIniFile.getSaveOtherStream() : boolean;
begin
  result := FIniFile.ReadBool('OtherProtocolsFilter','saveStream',false);
end;


end.