Monkeybread Software - MBS FileMaker Plugin: CURL and OnWindowTransaction

Components	All	New	MacOS		Windows		Linux		iOS
Examples	Mac & Win		Server	Client	Guides	Statistic	FMM	Blog	Deprecated	Old

MBS FileMaker Plugin Example Databases

CURL and OnWindowTransaction

All examples are included with download of MBS FileMaker Plugin.

CURL and OnWindowTransaction.fmp12

Overview
Tables	1
Relationships	0
Layouts	1
Scripts	3
Value Lists	0
Custom Functions	1
Custom Menus	24

File Options
Default custom menu set	[Standard FileMaker Menus]
When opening file
Minimum allowed version	12.0
Login using	Account Name; Account= Admin
Allow user to save password	Off
Require iOS passcode	Off
Switch to layout	Off
Hide all toolbars	Off
Script triggers
OnFirstWindowOpen	Off
OnLastWindowClose	Off
OnWindowOpen	Off
OnWindowClose	Off
OnFileAVPlayerChange	Off
Thumbnail Settings
Generate Thumbnails	On; Temporary

Tables

Table Name	Statistics	Occurrences in Relationship Graph
Table	12 fields defined, 1 record	Table

Fields

Table Name: Table - 12 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
PrimaryKey	Normal, Text	Auto-Enter: Context table: Table Calculation: Get( UUID ) Validation: Only during data entry Not empty Unique Strict validation Storage: Repetitions: 1 Indexing: Minimal Automatically create indexes as needed Index Language: Unicode Raw	Unique identifier of each record in this table
CreationTimestamp	Normal, Timestamp	Auto-Enter: Creation timestamp Validation: Only during data entry Strict data type: 4 digit year Not empty Strict validation Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German	Date and time each record was created
CreatedBy	Normal, Text	Auto-Enter: Context table: Table Calculation: Get(AccountName) & ": " & Get(UserName) Validation: Only during data entry Not empty Strict validation Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German	Account name of the user who created each record
ModificationTimestamp	Normal, Timestamp	Auto-Enter: Modification timestamp Validation: Only during data entry Strict data type: 4 digit year Not empty Strict validation Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German	Date and time each record was last modified
ModifiedBy	Normal, Text	Auto-Enter: Context table: Table Calculation: Get(AccountName) & ": " & Get(UserName) Validation: Only during data entry Not empty Strict validation Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German	Account name of the user who last modified each record
Test	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Table
NumberField	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Table
DateField	Normal, Date	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Table
TextField	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Table
ContainerField	Normal, Binary	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1		Table
Last Debug Log	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Global Repetitions: 1 Index Language: German		Table		Transfer Finished Clear
AuditJSON	Normal, Text	Auto-Enter: Allow editing Context table: Table Calculation: GatherJSONFields Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Table

Layout Objects: Table

Regular Fields

Field Name: Table::Test

Layout Name:

Table

Top: 114 pt
Left: 138 pt
Bottom: 145 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Table::NumberField

Layout Name:

Table

Top: 149 pt
Left: 138 pt
Bottom: 180 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Table::DateField

Layout Name:

Table

Top: 184 pt
Left: 138 pt
Bottom: 215 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Table::TextField

Layout Name:

Table

Top: 219 pt
Left: 138 pt
Bottom: 344 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Table::ContainerField

Layout Name:

Table

Top: 348 pt
Left: 138 pt
Bottom: 473 pt
Right: 520 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Field Name: Table::Last Debug Log

Layout Name:

Table

Top: 114 pt
Left: 575 pt
Bottom: 742 pt
Right: 1013 pt

Anchoring: Left and Right, Top and Bottom

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Field Name: Table::AuditJSON

Layout Name:

Table

Top: 746 pt
Left: 138 pt
Bottom: 777 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Next Script: [Transfer Finished]

Script Name	OnWindowTransaction
Run script with full access privileges	Off
Siri Shortcut Visible	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	#parameter is the JSON from FileMaker about the change Set Variable [ $json; Value:Get(ScriptParameter) ] Set Variable [ $URL; Value:"https://monkeybreadsoftware.com/filemaker/examples/email.php" ] #start a new curl session Set Variable [ $curl; Value:MBS("CURL.New") ] #configure transfer Set Variable [ $r; Value:MBS("CURL.SetOptionURL"; $curl; $URL) ] Set Variable [ $r; Value:MBS("CURL.SetOptionPostFields"; $curl; $json) ] Set Variable [ $r; Value:MBS("CURL.SetOptionHTTPHeader"; $curl; "Content-Type: application/json") ] #Let the evaluate then free the transfer // Set Variable [ $r; Value:MBS("CURL.SetFinishedEvaluate"; $curl; "MBS(\"CURL.Release\"; $$ID$$)" ) ] #or run a script to handle result Set Variable [ $r; Value:MBS("CURL.SetFinishedScript"; $curl; Get(FileName); "Transfer Finished" ) ] #run in background thread asynchronously Set Variable [ $r; Value:MBS("CURL.PerformInBackground"; $curl) ]
Fields used in this script
Scripts used in this script
Layouts used in this script
Tables used in this script
Table occurrences used by this script
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [OnWindowTransaction]

Next Script: [Clear]

Script Name	Transfer Finished
Run script with full access privileges	Off
Siri Shortcut Visible	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	Set Variable [ $curl; Value:Get(ScriptParameter) ] #check result? Set Variable [ $Error; Value:MBS( "CURL.ErrorCode"; $curl ) ] Set Variable [ $ResponseCode; Value:MBS( "CURL.GetResponseCode"; $curl ) ] Set Variable [ $EffectiveURL; Value:MBS( "CURL.GetEffectiveURL"; $curl ) ] Set Variable [ $DebugMessages; Value:MBS( "CURL.GetDebugMessages"; $curl ) ] #let's put the log in the field. Using a card window to avoid changing context Freeze Window New Window [ Style: Card; Name: "Audit"; Using layout: “Table”; Close: Yes; Minimize: No; Maximize: No; Resize: No; Menu Bar: No; Dim parent window: No; Toolbars: No ] Set Field [ Table::Last Debug Log; $DebugMessages ] Close Window [ Name: "Audit"; Current file ] Set Variable [ $r; Value:MBS("Curl.Release"; $curl) ]
Fields used in this script	Table::Last Debug Log
Scripts used in this script
Layouts used in this script	Table
Tables used in this script	Table
Table occurrences used by this script	Table
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Transfer Finished]

Script Name	Clear
Run script with full access privileges	Off
Siri Shortcut Visible	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	Replace Field Contents [ Table::Last Debug Log; Replace with calculation: "" ] [ No dialog ]
Fields used in this script	Table::Last Debug Log
Scripts used in this script
Layouts used in this script
Tables used in this script	Table
Table occurrences used by this script	Table
Custom Functions used by this script
Custom menu set used by this script

Custom Functions

Function Name	Parameters	Availability	Definition	In Field Definitions	In Scripts
GatherJSONFields		All accounts	// GatherJSONFields ( ) = // Using various functions gather field // names, field values, layout // context, layout database // context, user context, and // current timestamp, then present // the data as JSON Let ( [ quoteReplace = "_0-~@~-0_" ; quote = "\\\"" ; newlineReplace = "_1-~@~-1_" ; newline = "\n" ; lytName = Get ( LayoutName ) ; tblName = Get ( LayoutTableName ) ; user = Get ( UserName ) ; ts = GetAsText ( Get ( CurrentHostTimestamp ) ) ; primaryKeyValue = Evaluate ( tblName & "::PrimaryKey" ) ; tblFields = ExecuteSQL ( "SELECT '''" & quoteReplace & "' + FieldName + '" & quoteReplace & " : " & quoteReplace & "'' + STRVAL(\"' + FieldName + '\") + ''" & quoteReplace & "''' FROM FileMaker_Fields WHERE TableName LIKE '" & tblName & "' AND FieldClass LIKE 'Normal' " ; "" ; ", " ) ; tblValues = ExecuteSQL ( "SELECT " & tblFields & " FROM " &" \"" & tblName & "\" WHERE PrimaryKey = '" & primaryKeyValue & "' " ; newlineReplace ; "" ) ; formattedLayoutName = "\"" & lytName & "\"" ; formattedTableName = "\"" & tblName & "\"" ; formattedValues = Substitute ( tblValues ; "\\" ; "\\\\" ) ; formattedValues = Substitute ( formattedValues ; "\"" ; quote ) ; formattedValues = Substitute ( formattedValues ; quoteReplace ; "\"" ) ; formattedValues = Substitute ( formattedValues ; "¶" ; newline ) ; formattedValues = Substitute ( formattedValues ; newlineReplace ; ", " ) ; formattedValues = "{ " & formattedValues & " }" ; formattedUser = Substitute ( user ; "\\" ; "\\\\" ) ; formattedUser = Substitute ( formattedUser ; "\"" ; quote ) ; formattedUser = Substitute ( formattedUser ; "¶" ; newline ) ; formattedUser = "\"" & formattedUser & "\"" ; formattedTimestamp = Substitute ( ts ; "\\" ; "\\\\" ) ; formattedTimestamp = Substitute ( formattedTimestamp ; "\"" ; quote ) ; formattedTimestamp = Substitute ( formattedTimestamp ; "¶" ; newline ) ; formattedTimestamp = "\"" & formattedTimestamp & "\"" ; JSONData = "{ " & "\"LayoutName\" : " & formattedLayoutName & ", " & "\"TableName\" : " & formattedTableName & ", " & "\"AccessingUser\" : " & formattedUser & ", " & "\"Timestamp\" : " & formattedTimestamp & ", " & "\"Fields\" : " & formattedValues & " }" ] ; JSONFormatElements ( JSONData ) )	Table::AuditJSON

Custom Menu Sets

Menu Sets	Menus	In Scripts	In Layouts	Comments
[Standard FileMaker Menus]	All Standard Menus

Download example: CURL and OnWindowTransaction

Used functions: