Contact Us Now

Q: Monitor disabled rules. Our company purchased Limagito products and used it for several years, and I am very happy to have such a useful product. I want to ask a technical question. Several of our colleagues manage all the built rules together, but sometimes we accidentally turn it off and forget to turn it on. I would like to ask if there is any way to scan all RULES in limagito and find that its status is “Disable”, so we can create a job to monitor this and send a mail to notify us. Looking forward to your help, and wish you all good health.
A: In version v2020.12.6.0 we added Pascal Script as Source. This new option makes it possible for us to achieve your request. Let’s get started.

• Select PScript (Pascal Script) as Source:

Add the following Pascal Script (Copy / Paste):

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.

— Begin Update Post (15th of January 2023) —

First le me start by stating how much we enjoy working with your software in past months, Setting it up and configuring the rules was super easy and intuitive.

We had some issue with tracking rules that were disabled by mistake. After browsing your Q&A I’ve found ‘Q&A 33: Can we create a job to monitor disabled rules’

Which works great, our only remaining issues is that we have a lot of disabled test rule, the fill the report. Is there a way to generate the same report but to exclude certain rules from it?

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.

— End Update Post (15th of January 2023) —

It also possible to request all Enabled Rules. In this case you need to replace

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

by

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

• Add SMTP as Destination:

• SMTP as Destination  Setup:

We added %VSA parameter which also contains the Disabled Rule(s). Option ‘Include Source File as Attachment’ is also enabled so the text file containing the Disabled Rule information will be attached to the email.

• RunTime Log Result:

• Received Email Result:

If you need any help with this ‘job to monitor disabled rules ’, please let us know.

Best Regards,

Limagito Team