Pascal Script Archives - Page 18 of 29 - File transfer tool from Limagito

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
19 Mar
Move a file and send email with filename and line count
Q: Move a file and send email with filename and line count.
Can you help me with the following question.
I want to move a file and in an email state the file name (always a text file .csv, .txt) and a line count
Test.txt – 12 lines
Can this be done?
A: Yes this is possible. We have created a Pascal Script for you to achieve this.
1. It is important that you’ll only handle txt and csv files (text based files). We added a File Name Include File Filter, just to be sure:
2. Open our ‘Pascal Script’ option:
Add and enable the following ‘On Destination’ Pascal Script. This script will load the txt/csv file and will put the line count information into our %VSA parameter which can be use within our notification email.
Var tmpCount: Integer; tmpList: TStringList; Begin psExitCode:= 0; // ... add your code here tmpList := TStringList.Create; Try Try // Load Source File tmpList.LoadFromFile(psFilePath + psFileName); // Count Lines tmpCount := tmpList.Count; // Info to be used in email psVSA := psFileName + ' - ' + IntToStr(tmpCount) + ' lines'; psLogWrite(1, '', 'Information: ' + psVSA); // Set Result OK psExitCode := 1; Except psLogWrite(1, '', 'Error loading: ' + psFilePath + psFileName); End; Finally tmpList.Free; End; End.
3. Now you can use the %VSA as parameter within the email setup:
4. Email Result:

#Filetransfer
If you need any info about this option, please let us know.
Best regards,
Limagito Team
By Limagito-Team Email Pascal Script line count
10 Feb
Send different on success or failure notifications based on file type
Q: Is it possible in the same moving rule to have it send different on success or failure notifications based on file type. For example I only want it to send a notification if it is a pdf file extension. Other files in the job would still copy but only notify on the pdfs. I am working on a group wide project and it would help out a lot. The PDF file extension was just an example and would be other file formats.
A: We added a new option ‘Use Pascal Script as event Precondition’ in Version v2022.2.9.0
– Open Rule Events Setup
– Select the Event you want to setup (in our example this is the ‘On Success’ event) > Options Tab > Enable ‘Use Pascal Script as event Precondition’
– Switch to ‘Pascal Script’ Tab and Enable Pascal Script.
– Add the following script to include only .pdf files for the ‘On Success’ event. This is just a simple example but can be extended to meet all your needs.
Begin // ... add your code here If SameText(ExtractFileExt(psFileName), '.pdf') Then psExitCode := 1 Else psExitCode := 0; End.
#Filetransfer
If you need any info about this ‘notifications based on file type’ option, please let us know.
Best regards,
Limagito Team
By Limagito-Team Pascal Script WIN notifications, precondition