Pascal Script

  • 06 Dec

    Trigger a Rule with no Source Files available in Limagito File Mover

    In version v2020.12.6.0 we added ‘Pascal Script’ as Source. This makes it easier for us to add customer specific requests. A while ago we recieved a request if it was possible to trigger a Rule without having actually source files.

    • Select PScript (Pascal Script) as Source:

    Limagito File Mover Pascal Script as Source

    • Add the following Pascal Script (Copy / Paste):
    Begin
      psExitCode:= 1;
      // ... add your code here
      psAddToSourceFiles(psCreateDummyTxtFile(psRuleTempPath));
    End.

    Limagito Filemover Pascal Script trigger Rule

    This is all what is need to trigger a Rule without the need for actual Source Files.

     

    If you need any help with this ‘Trigger a Rule’ feature, please let us know.

    Best Regards,

    Limagito Team

  • 06 Dec

    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

  • 11 Nov

    Pascal Script Xml Functions added to Limagito File Mover

    Pascal Script Xml Functions added to Limagito File Mover

    We added two extra Pascal Script functions in version v2020.11.11.0.

    • Function psXMLGetAttribute(Const aXML, aRootNode, aChildNode, aAttrName: String): String;
    • Function psXMLSetAttribute(Const aXML, aRootNode, aChildNode, aAttrName, aAttrValue: String): String;

    These functions allow you to Get and Set Xml Attributes. aRootNode or aChildNode can be empty. We prepared the Pascal Script engine to be ready for other Xml requests users may have. Don’t hesitate to ask for extra Xml features.

    We added these functions because we received the following request:

    Currently I have different XML-Files which more or less will have static file contents besides that it would be needed to update one field with the current date of the day. Scheduler will be used and set to run every weekday at approx. 23:59:59.  In the files the XML-field document > date need to be updated in date format YYYY-MM-DD.

    Example for today (2020-11-11):

    <document level=”01-01-xx-xx-xx” date=”2020-11-11″ name=”davinci”>

    Rest of the file contents stays unchanged.

     

    • In the following example will change the value of a node attribute. The Source will be a Xml file (WIN as Source).

    Limagito File Mover WIN as Source

    • The Destination is Pascal Script. The Script will use these new function and write the adjusted Xml content to a new file.

    Limagito File Mover Pascal Script as Destination

    • Don’t forget to adjust the Const ctDest to the path you need the adjusted xml to be saved in.

    Var
      iList: Integer;
      tmpDateStr: String;
      tmpList: TStringList;
      tmpPos: Integer;
      tmpXml: String;
    Const
      ctDest = 'C:\Test\In\Patrick\Out\';
    Begin
      psExitCode:= 0;
      // ... add your code here
      // <!--?xml version="1.0" encoding="ISO-8859-1"?-->
      // 
      // 
      tmpList := TStringList.Create;
      Try
        Try
          // Load Xml File
          psLogWrite(1, '', 'Loading ' + psFilePath + psFileName);
          tmpList.LoadFromFile(psFilePath + psFileName);
          // Prepare Date as String
          tmpDateStr := FormatDateTime('YYYY-MM-DD', Now); // i.e. 2020-11-10
          // Function psXMLGetAttribute(Const aXML, aRootNode, aChildNode, aAttrName): String;
          tmpXml := psXMLGetAttribute(Trim(tmpList.Text), 'document', '', 'date');
          psLogWrite(1, '', 'XML Get Date Attr Value: ' + tmpXML);
          // Function psXMLSetAttribute(Const aXML, aRootNode, aChildNode, aAttrName, aAttrValue: String): String;
          psLogWrite(1, '', 'XML Set Date Attr Valuet ' + tmpDateStr);
          tmpXml := psXMLSetAttribute(Trim(tmpList.Text), 'document', '', 'date', tmpDateStr);
          // Save To File
          // psLogWrite(1, '', 'XML Result: ' + tmpXml);
          tmpList.Text := Trim(tmpXML);
          Try
            tmpList.SaveToFile(ctDest + psFileName);
            psLogWrite(1, '', 'SaveToFile: ' + psFilePath + psFileName + ' Successful');
            // Set Result
            psExitCode:= 1;
          Except
            psLogWrite(1, '', 'SaveToFile:' + psFilePath + psFileName + ' Error');
          End;
        Except
          psLogWrite(1, '', 'LoadFromFile: ' + psFilePath + psFileName + ' Error');
        End;
      Finally
        tmpList.Free;
      End;
    End.

     

    • Original Source Xml file contains a Date attribute with value “2018-11-30”:

    Limagito File Mover Xml Source example

    • The new Destination Xml file contains the adjusted Date attribute with value “2020-11-11”:

    Limagito File Mover Xml Destination Example

    • RunTime log result:

    Limagito File Mover Xml RunTime Log

    If you need any help with these Pascal Script ‘Xml functions’, please let us know.

    Best Regards,

    Limagito Team

1 2 3 4 5 6 8