Pascal Script

  • 30 Dec

    Q&A 38: I would like to log the create date of the file being moved

    Q: I would like to log the create date of the file being moved. Can you please advise if there is a way filemover can be setup to log the create date of the file being moved. As of now we don’t see this info in the log file. Is there a setting in the app that we can tweak to control what all is logged in the log file?
    A: We added some extra Pascal Script functions in version v2020.12.30.0 to achieve this.

    Please open the Pascal Script option of your Rule:

    Limagito File Mover Pascal Script option

    Enable and Add the following ‘On Destination’ Pascal Script:

    Var
      tmpDateTime: TDateTime;
      tmpDateStr: String;
    Begin
      psExitCode:= 1;
     
      // Creation Time
      tmpDateTime := psGetCreationTime(psFilePath + psFileName);
      tmpDateStr := FormatDateTime('YYYY-MM-DD HH:NN:SS', tmpDateTime);
      psLogWrite(1, '', 'Creation Time of ' + psFilePath + psFileName + ': ' + tmpDateStr);
     
      // Creation Time Utc
      tmpDateTime := psGetCreationTimeUtc(psFilePath + psFileName);
      tmpDateStr := FormatDateTime('YYYY-MM-DD HH:NN:SS', tmpDateTime);
      psLogWrite(1, '', 'Creation Time Utc of ' + psFilePath + psFileName + ': ' + tmpDateStr);
     
      // Last Access Time
      tmpDateTime := psGetLastAccessTime(psFilePath + psFileName);
      tmpDateStr := FormatDateTime('YYYY-MM-DD HH:NN:SS', tmpDateTime);
      psLogWrite(1, '', 'Last Access Time of ' + psFilePath + psFileName + ': ' + tmpDateStr);
     
      // Last Access Time Utc
      tmpDateTime := psGetLastAccessTimeUtc(psFilePath + psFileName);
      tmpDateStr := FormatDateTime('YYYY-MM-DD HH:NN:SS', tmpDateTime);
      psLogWrite(1, '', 'Last Access Utc Time of ' + psFilePath + psFileName + ': ' + tmpDateStr);
     
      // Last Write Time
      tmpDateTime := psGetLastWriteTime(psFilePath + psFileName);
      tmpDateStr := FormatDateTime('YYYY-MM-DD HH:NN:SS', tmpDateTime);
      psLogWrite(1, '', 'Last Write Time of ' + psFilePath + psFileName + ': ' + tmpDateStr);
     
      // Last Write Time Utc
      tmpDateTime := psGetLastWriteTimeUtc(psFilePath + psFileName);
      tmpDateStr := FormatDateTime('YYYY-MM-DD HH:NN:SS', tmpDateTime);
      psLogWrite(1, '', 'Last Write Utc Time of ' + psFilePath + psFileName + ': ' + tmpDateStr);
    End.

    Limagito File Mover Pascal Script Get Creation Time

    RunTime Log Result:

    Limagito File Mover RunTime log

    In the example we added ‘Creation Time (Utc)’, ‘Last Access Time (Utc)’ and ‘Last Write Time (Utc)’. You can, of course, remove the parts you do not need from the Pascal Script.

    If you need any help with this ‘log the create date’ request, please let us know.

    Best Regards,

    Limagito Team

  • 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

1 2 3 4 7