Pascal Script Archives - Page 21 of 27 - File transfer tool from Limagito

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:
Add the following Pascal Script (Copy / Paste):
Begin psExitCode:= 1; // ... add your code here psAddToSourceFiles(psCreateDummyTxtFile(psRuleTempPath)); End.
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
By Limagito-Team Pascal Script Script, trigger

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

— 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?

Thank you very much for your kind words. I’ve added an alternative Pascal Script. This will exclude those rules who have the ctExclude word in their description. In my example it would exclude all rule that have the word “test” in their description. The ctExlude Const is not case sensitive.

Var
  iList: Integer;
  tmpEntry, tmpInfo: String;
  tmpList: TStringList;
Const
  ctExclude = 'test';
  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
        // 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;
        // 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;
    Except
      psLogWrite(1, '', 'Save File ' + psRuleTempPath + ctFileName + ' Exception');
    End;
  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);

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-Team Pascal Script Q&A disabled, monitor

← 1 … 18 19 20 21 22 23 24 … 27 →

Contact Us Now

Pascal Script

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

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

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

SEARCH

CATEGORIES

ARCHIVES

TAGS

DISCOVER OUR SITE