Monkeybread Software - MBS FileMaker Plugin: WebHook Chat

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

MBS FileMaker Plugin Example Databases

WebHook Chat

All examples are included with download of MBS FileMaker Plugin.

WebHook Chat.fmp12

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

File Options
Default custom menu set	[Standard FileMaker Menus]
When opening file
Minimum allowed version	12.0
Login using	Off
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
WebHook Chat	14 fields defined, 1 record	WebHook Chat

Fields

Table Name: WebHook Chat - 14 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
PrimaryKey	Normal, Text	Auto-Enter: Context table: WebHook Chat 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: Creation account name 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: Modification account name 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
IP	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: Minimal Automatically create indexes as needed Index Language: German		WebHook Chat		Setup Cleanup Send Message Send Ping
ComputerName	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		WebHook Chat		Setup
Port	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		WebHook Chat		Setup Send Message Send Ping
User	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		WebHook Chat		Setup
FileMaker Version	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		WebHook Chat		Setup
Plugin Version	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		WebHook Chat		Setup
Message	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Global Repetitions: 1 Index Language: German		WebHook Chat		Send Message Close File
WebHook	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Global Repetitions: 1 Index Language: German		WebHook Chat		Setup Cleanup Close File
My IP	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Global Repetitions: 1 Index Language: German		WebHook Chat		Setup Cleanup Send Message Send Ping Close File

Layout Objects: WebHook Chat

Regular Fields

Field Name: WebHook Chat::IP

Layout Name:

WebHook Chat

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: WebHook Chat::ComputerName

Layout Name:

WebHook Chat

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: WebHook Chat::Port

Layout Name:

WebHook Chat

Top: 114 pt
Left: 515 pt
Bottom: 145 pt
Right: 768 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: WebHook Chat::User

Layout Name:

WebHook Chat

Top: 149 pt
Left: 515 pt
Bottom: 180 pt
Right: 768 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: WebHook Chat::FileMaker Version

Layout Name:

WebHook Chat

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: WebHook Chat::Plugin Version

Layout Name:

WebHook Chat

Top: 184 pt
Left: 515 pt
Bottom: 215 pt
Right: 768 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: WebHook Chat::Message

Layout Name:

WebHook Chat

Top: 70 pt
Left: 138 pt
Bottom: 101 pt
Right: 768 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: WebHook Chat::WebHook

Layout Name:

WebHook Chat

Top: 227 pt
Left: 138 pt
Bottom: 258 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Field Name: WebHook Chat::My IP

Layout Name:

WebHook Chat

Top: 227 pt
Left: 515 pt
Bottom: 258 pt
Right: 768 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Type:

Text: Send Message

Layout Name:

WebHook Chat

Top: 120 pt
Left: 787 pt
Bottom: 149 pt
Right: 994 pt

Anchoring: Left, Top

Perform Script [ “Send Message” ]

Scripts:

Send Message

Button Properties

Coordinates

Script/Script Step

Type:

Text: Send Ping

Layout Name:

WebHook Chat

Top: 172 pt
Left: 787 pt
Bottom: 201 pt
Right: 994 pt

Anchoring: Left, Top

Perform Script [ “Send Ping” ]

Scripts:

Send Ping

Next Script: [Cleanup]

Script Name	Setup
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	#Setup for WebHook #we create a webhook on a local random port and add it to the database on the server Set Error Capture [ On ] Allow User Abort [ Off ] Set Variable [ $$WebHooks; Value:MBS("WebHook.Create") ] If [ MBS("IsError") ≠ 0 ] Show Custom Dialog [ Title: "Failed to create WebHook"; Message: $$webHooks; Default Button: “OK”, Commit: “Yes” ] Exit Script [ ] End If #listen on random port Set Variable [ $r; Value:MBS("WebHook.Listen"; $$WebHooks; 0) ] #set script to run Set Variable [ $r; Value:MBS("WebHook.SetScript"; $$WebHooks; Get(FileName); "WebHookReceived") ] Set Variable [ $IP; Value:Get(SystemIPAddress) ] Set Variable [ $IP; Value:MBS( "List.MatchesPrefix"; $IP; "192"; 1) ] Set Field [ WebHook Chat::My IP; $IP ] Set Field [ WebHook Chat::WebHook; $$WebHooks ] If [ Length ( WebHook Chat::My IP ) > 0 ] #delete old record, if exists Go to Layout [ “WebHook Chat” ] Enter Find Mode [ ] Set Field [ WebHook Chat::IP; WebHook Chat::My IP ] Perform Find [ ] If [ Get(LastError) = 401 ] #record not found Else If [ Get(LastError) ≠ 0 ] Show Custom Dialog [ Title: "Find failed?"; Message: Get(LastError) & ": " & Get(LastExternalErrorDetail); Default Button: “OK”, Commit: “Yes” ] Else If [ Get(FoundCount) > 0 ] Delete Record/Request [ No dialog ] End If Show All Records End If Go to Layout [ “WebHook Chat” ] New Record/Request #now show IP and Port Set Field [ WebHook Chat::Port; MBS( "WebHook.GetPort"; $$WebHooks ) ] Set Field [ WebHook Chat::IP; $IP ] Set Field [ WebHook Chat::ComputerName; MBS("SystemInfo.ComputerName") ] Set Field [ WebHook Chat::User; MBS("SystemInfo.UserName") ] Set Field [ WebHook Chat::FileMaker Version; Get(ApplicationVersion) ] Set Field [ WebHook Chat::Plugin Version; MBS("Version") ] Commit Records/Requests [ No dialog ]
Fields used in this script	WebHook Chat::My IP WebHook Chat::WebHook WebHook Chat::IP WebHook Chat::Port WebHook Chat::ComputerName WebHook Chat::User WebHook Chat::FileMaker Version WebHook Chat::Plugin Version
Scripts used in this script
Layouts used in this script	WebHook Chat
Tables used in this script	WebHook Chat
Table occurrences used by this script	WebHook Chat
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Setup]

Next Script: [WebHookReceived]

Script Name	Cleanup
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	#Cleanup for WebHook Set Error Capture [ On ] Allow User Abort [ Off ] #free webhook If [ not IsEmpty ( $$WebHooks ) ] Set Variable [ $r; Value:MBS("WebHook.Release"; $$WebHooks) ] Set Variable [ $$WebHooks; Value:"" ] Set Field [ WebHook Chat::WebHook; "" ] End If If [ Length ( WebHook Chat::My IP ) > 0 ] #delete our record Go to Layout [ “WebHook Chat” ] Enter Find Mode [ ] Set Field [ WebHook Chat::IP; WebHook Chat::My IP ] Perform Find [ ] If [ Get(LastError) = 401 ] #record not found Else If [ Get(LastError) ≠ 0 ] Show Custom Dialog [ Title: "Find failed?"; Message: Get(LastError) & ": " & Get(LastExternalErrorDetail); Default Button: “OK”, Commit: “Yes” ] Else If [ Get(FoundCount) > 0 ] Delete Record/Request [ No dialog ] End If Show All Records End If
Fields used in this script	WebHook Chat::WebHook WebHook Chat::My IP WebHook Chat::IP
Scripts used in this script
Layouts used in this script	WebHook Chat
Tables used in this script	WebHook Chat
Table occurrences used by this script	WebHook Chat
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Cleanup]

Next Script: [Send Message]

Script Name	WebHookReceived
Run script with full access privileges	Off
Include In Menu	No
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	#Which request triggered this? Set Variable [ $WebRequest; Value:Get(ScriptParameter) ] #Parse parameters from the URL Set Variable [ $URLComponents; Value:MBS( "WebRequest.URLComponents"; $WebRequest ) ] Set Variable [ $Path; Value:JSONGetElement ( $URLComponents ; "Path" ) ] If [ $Path = "/message" ] #we can move several Megabytes of Data in the body Set Variable [ $Message; Value:MBS( "WebRequest.GetBody"; $WebRequest; "UTF-8") ] Set Variable [ $FromIP; Value:MBS( "WebRequest.GetRemoteIP"; $WebRequest) ] Show Custom Dialog [ Title: "Received message from " & $FromIP; Message: $Message; Default Button: “OK”, Commit: “Yes” ] Else If [ $Path = "/ping" ] #nothing to do End If
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: [WebHookReceived]

Next Script: [Send Ping]

Script Name	Send Message
Run script with full access privileges	Off
Include In Menu	No
Layouts that use this script	WebHook Chat
Scripts that use this script
Script Definition
Script Steps	#Send message request via CURL functions in MBS plugin without wating for result If [ WebHook Chat::IP = WebHook Chat::My IP ] Show Custom Dialog [ Title: "Failed"; Message: "Send to myself? That won't work."; Default Button: “OK”, Commit: “Yes” ] Exit Script [ ] End If Set Variable [ $URL; Value:"http://" & WebHook Chat::IP & ":" & WebHook Chat::Port & "/message" ] #Start new session Set Variable [ $curl; Value:MBS("CURL.New") ] Set Variable [ $r; Value:MBS("CURL.SetOptionURL"; $curl; $URL) ] Set Variable [ $r; Value:MBS("CURL.SetOptionConnectionTimeout"; $curl; 5) ] Set Variable [ $r; Value:MBS("CURL.SetOptionTimeout"; $curl; 30) ] Set Variable [ $r; Value:MBS("CURL.SetOptionPostFields"; $curl; WebHook Chat::Message; "UTF-8") ] #RUN now Set Variable [ $r; Value:MBS("CURL.Perform"; $curl) ] #Check result Set Variable [ $result; Value:MBS("CURL.GetResultAsText"; $curl; "UTF8") ] Set Variable [ $debug; Value:MBS("CURL.GetDebugAsText"; $curl; "UTF8") ] #Cleanup Set Variable [ $result; Value:MBS("CURL.Release"; $curl) ] Exit Script [ Result: $result ]
Fields used in this script	WebHook Chat::IP WebHook Chat::My IP WebHook Chat::Port WebHook Chat::Message
Scripts used in this script
Layouts used in this script
Tables used in this script	WebHook Chat
Table occurrences used by this script	WebHook Chat
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Send Message]

Next Script: [Start Script]

Script Name	Send Ping
Run script with full access privileges	Off
Include In Menu	No
Layouts that use this script	WebHook Chat
Scripts that use this script
Script Definition
Script Steps	#Send ping request via CURL functions in MBS plugin without wating for result If [ WebHook Chat::IP = WebHook Chat::My IP ] Show Custom Dialog [ Title: "Failed"; Message: "Send to myself? That won't work."; Default Button: “OK”, Commit: “Yes” ] Exit Script [ ] End If Set Variable [ $URL; Value:"http://" & WebHook Chat::IP & ":" & WebHook Chat::Port & "/ping" ] #Start new session Set Variable [ $curl; Value:MBS("CURL.New") ] Set Variable [ $r; Value:MBS("CURL.SetOptionURL"; $curl; $URL) ] Set Variable [ $r; Value:MBS("CURL.SetOptionConnectionTimeout"; $curl; 5) ] Set Variable [ $r; Value:MBS("CURL.SetOptionTimeout"; $curl; 10) ] #RUN now Set Variable [ $r; Value:MBS("CURL.Perform"; $curl) ] #Check result Set Variable [ $result; Value:MBS("CURL.GetResultAsText"; $curl; "UTF8") ] Set Variable [ $debug; Value:MBS("CURL.GetDebugAsText"; $curl; "UTF8") ] If [ $r = "OK" ] Show Custom Dialog [ Title: "Ping"; Message: "Machine responded."; Default Button: “OK”, Commit: “Yes” ] Else Show Custom Dialog [ Title: "Ping"; Message: "Failed to ping: " & $r; Default Button: “OK”, Commit: “Yes” ] End If #Cleanup Set Variable [ $result; Value:MBS("CURL.Release"; $curl) ] Exit Script [ Result: $result ]
Fields used in this script	WebHook Chat::IP WebHook Chat::My IP WebHook Chat::Port
Scripts used in this script
Layouts used in this script
Tables used in this script	WebHook Chat
Table occurrences used by this script	WebHook Chat
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Send Ping]

Next Script: [Close File]

Script Name	Start Script
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	If [ Get(HostApplicationVersion) = "" ] Show Custom Dialog [ Title: "Server needed"; Message: "Please put this example on a FileMaker or Claris Server."; Default Button: “OK”, Commit: “Yes” ] Exit Script [ ] End If If [ GetAsText ( MBS("Version")) = "?" ] Show Custom Dialog [ Title: "Plugin missing"; Message: "Please install MBS Plugin"; Default Button: “OK”, Commit: “Yes” ] Exit Script [ ] End If
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: [Start Script]

Script Name	Close File
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	Set Error Capture [ On ] Allow User Abort [ Off ] Set Field [ WebHook Chat::My IP; "" ] Set Field [ WebHook Chat::WebHook; "" ] Set Field [ WebHook Chat::Message; "" ] Commit Records/Requests [ No dialog ]
Fields used in this script	WebHook Chat::My IP WebHook Chat::WebHook WebHook Chat::Message
Scripts used in this script
Layouts used in this script
Tables used in this script	WebHook Chat
Table occurrences used by this script	WebHook Chat
Custom Functions used by this script
Custom menu set used by this script

Download example: WebHook Chat

Used functions: