Contact Us Now

Var
  tmpInfo: String;
  tmpList: TStringList;
Const
  ctFileName = 'Disabled_Rules.txt';
Begin
  // Init Var
  psClearSourceFiles; // Clear SourceFiles Listing
  psExitCode:= 1;
  // We'll use a TStringList that we'll fill with Disabled Rules Data
  tmpList := TStringList.Create;
  Try
    Try
      // Function psGetDisabledRuleList(Const aIncGroupname, 
      // aIncRuleName, aIncRuleID: Boolean; Const aDelimiter, aQuoteChar: Char): String;
      // Request for All Disabled Rules using Tab(#9) as Delimiter
      // Include Groupname, RuleName and RuleID
      tmpInfo := psGetDisabledRuleList(True, True, True, #9, #0);
      If tmpInfo <> '' Then
      Begin
        // We'll use psVSA paramter in our email setup later
        psVSA := tmpInfo
        // Add to List
        tmpList.add(tmpInfo);
        // Save List To File
        tmpList.SaveToFile(psRuleTempPath + ctFileName);
        // Add To SourceFiles List
        psAddToSourceFiles(psRuleTempPath + ctFileName);
      End;
    Except
      psLogWrite(1, '', 'Save File ' + psRuleTempPath + ctFileName + ' Exception');
    End;
  Finally
    tmpList.Free;
  End;
End.

Var
  iList: Integer;
  tmpEntry, tmpInfo: String;
  tmpList: TStringList;
Const
  ctExclude = 'test';
  ctFileName = 'Disabled_Rules.txt';
Begin
  // Init Var
  psClearSourceFiles; // Clear SourceFiles Listing
  psExitCode:= 0;
  // We'll use a TStringList that we'll fill with Disabled Rules Data
  tmpList := TStringList.Create;
  Try 
    Try
      // Function psGetDisabledRuleList(Const aIncGroupname,
      // aIncRuleName, aIncRuleID: Boolean; Const aDelimiter, aQuoteChar: Char): String;
      // Request for All Disabled Rules using Tab(#9) as Delimiter
      // Include Groupname, RuleName and RuleID
      tmpInfo := psGetDisabledRuleList(True, True, True, #9, #0);
      If tmpInfo <> '' Then
      Begin
        // Add to List
        tmpList.Text := tmpInfo;
        // Filter
        For iList := (tmpList.Count-1) Downto 0 Do
        Begin
          tmpEntry := tmpList.Strings[iList];
          If Pos(AnsiLowerCase(ctExclude), AnsiLowerCase(tmpEntry)) <> 0 Then
            tmpList.Delete(iList);    
        End;
        If tmpList.Count <> 0 Then
        Begin
          // We'll use psVSA paramter in our email setup later
          psVSA := tmpList.Text;
          // Add to List
          tmpList.add(tmpInfo);
          // Save List To File
          tmpList.SaveToFile(psRuleTempPath + ctFileName);
          // Add To SourceFiles List
          psAddToSourceFiles(psRuleTempPath + ctFileName);
        End;
      End;
    Except
      psLogWrite(1, '', 'Save File ' + psRuleTempPath + ctFileName + ' Exception');
    End;
    If tmpList.Count <> 0 Then
      psExitCode := 1;
  Finally
    tmpList.Free;
  End;
End.

tmpInfo := psGetDisabledRuleList(True, True, True, #9, #0);

tmpInfo := psGetEnabledRuleList(True, True, True, #9, #0);