Pascal Script Archives - Page 15 of 26 - File transfer tool from Limagito

23 Mar
Keep a number of files in a specific delete Folder I’m watching in
Q: Is there any option for a delete rule to keep a number of files, e.g. keep the last 10 Files, in the specific delete Folder I’m watching in?
We’re trying to handle our LOG Folder with Limagito. These LOG Files are not written permanently within a specific timeslot so it would be great to have this Log Rotation Option. Maybe there is a scriptsolution?
A: Yes this is indeed possible with Pascal Script (we tested this with version v2022.3.18.0).
1.Function is set to Delete
2.Source must be a Windows Folder or share
3. Set ‘Source File Sort Order’ to ‘File last write date ascending (Old to New)
4.Open Pascal Script setup:
5.Enable and add the following ‘On Destination’ Pascal Script (you can adjust the Const values of ctKeepFiles, ctSearchExt and ctSearchSubDirs):
Var tmpCount: Integer; Const ctKeepFiles = 10; ctSearchExt = '*.log'; ctSearchSubDirs = True; // True or False Begin // ... add your code here tmpCount := psCountFiles(psFilePath, ctSearchExt, ctSearchSubDirs); // Check If tmpCount > ctKeepFiles Then Begin psExitCode := 1; End Else Begin psLogWrite(1, '', 'Skip Delete, Minimum count reached'); psExitCode := -2; End; End.
You’ll find ‘Skip Delete’ in the RunTime Log when the minimum amout of log files needed is reached. Further deletes will be skipped.
#Filetransfer
If you need any info about this ‘keep a number of files’ request, please let us know.
Best regards,
Limagito Team
By Limagito-Team Pascal Script keep, rotating log
20 Mar
Q&A 48: Get an actual Rule Report for all Rules we currently have
Q: I have been asked the second time now if it is possible that I got out an actual Rule Report for all Rules we currently have in Limagito. It`s just all the reporting and documentation obligations our company has to follow. Of course it would be possible to print that on a per Rule-Basis. It would be great if there is an option to generate all Rule-Reports for all Rules at once
A: Yes this is possible using some Pascal Script. We added some screenshots to get you started.
1. Add the following Pascal Script as Source (do not forget to adjust the ctDestPath). Our Report output path will be C:\Test\Reports\.
Var tmpInfo: String; Const ctDestPath = 'C:\Test\Reports\'; Begin psExitCode:= 1; // ... add your code here tmpInfo := psSaveRuleReportsAsHTML(ctDestPath); psLogWrite(1, '', tmpInfo); End.
2. In this example we disabled the scan timers because we will trigger the rule manually:
3. No Destinations are needed:
4. We enabled the Rule and clicked the trigger button (small green arrow on he right of the enable/status button):
5. Result in the output folder, all the rule reports are saved as html:
#Filetransfer
If you need any info about this ‘Rule Report for all Rules’ option, please let us know.
Best regards,
Limagito Team
By Limagito-Team Pascal Script Q&A psSaveRuleReportsAsHTML, rule reports, save rule reports, SaveRuleReportsAsHTML
19 Mar
Notificate the windows application log if a certain error occurs?
Q: is it possible notificate in the windows application log if the following error occurs?
17.03.2022 14:29:35 Connect IMAP4, OAuth2 Authorization Failed, Error:
RefreshAccessToken:
..
    fullRequestGetResponse:
      Reading response header…
      responseStatusCode: 400
      Reading response body …
    –fullRequestGetResponse
    finalResponse: {“error”:”invalid_grant”,”error_description”:”AADSTS700082: The refresh token has expired due to inactivity. The token was issued on 2021-11-18T10:09:31.0508889Z and was inactive for 90.00:00:00.\..
–RefreshAccessToken
17.03.2022 14:29:35 Connect IMAP4, CK Login to outlook.office365.com Error:
Connect_Imap:
A: Yes this is possible using the following setup.
1. Open ‘Logging’ setup and enable the ‘Clear Log at Rule Begin’ option in the ‘RunTime Log’ tab. Since we are going to use the RunTime log as content to check, we want to keep it unique for each time the Rule is started.
2. Open ‘Rule Events’
3. Enable the ‘On .. Error’ event and enable the ‘Enable Event Log’ option. Add %VSE ( Var String E ) to the ‘Event Log’ setup. Be sure the ‘On Error’ event stays selected during the setup of the other options.
Important, in the ‘Options’ tab:
Enable ‘Include connect errors in on error event’
Enable ‘Use Pascal Script as Event Precondition’
4. Enable ‘Enable Pascal Script’ for the ‘On Error’ event. Add the following ‘Pascal Script’.
Const ctErrorToFind = 'AADSTS700082'; Begin // ... add your code here psExitCode := 0; If Pos(ctErrorToFind, psLRT) <> 0 Then Begin psLogWrite(1, '', 'Write Error To Event Log, ' + ctErrorToFind); psExitCode := 1; End Else psExitCode := 0; // Put LogRunTime information in psVSE var psVSE := psLRT; End.
Summary:
The RunTime Log is cleared each time the Rule is triggered/started.
If an error (connect or others) occurs then we’ll use the Pascal Script option of the Rule Events to check if the content of the RunTime Log includes a certain text ( ‘AADSTS700082’ ).
If this text is available then we’ll put the RunTime Log content into the Windows Application Log.
#Filetransfer
If you need any info about this ‘windows application log’ request, please let us know.
Best regards,
Limagito Team
By Limagito-Team Logging Pascal Script application log, event log, windows application log, windows log