File Mover Blog

December 6, 2020

Q&A 33: Can we create a job to monitor disabled rules

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:

Limagito File Mover 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.

Limagito File Mover Pascal Script Disabled Rules

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:

Limagito File Mover 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.

Limagito File Mover SMTP as Setup

  • RunTime Log Result:

Limagito File Mover Pascal Script as Source RunTime Log

  • Received Email Result:

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

Best Regards,

Limagito Team

By Limagito Pascal Script Q&A , Share: