Monkeybread Software - MBS FileMaker Plugin: Terminal

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

MBS FileMaker Plugin Example Databases

Terminal

All examples are included with download of MBS FileMaker Plugin.

Terminal.fmp12

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

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
Terminal	2 fields defined, 1 record	Terminal

Fields

Table Name: Terminal - 2 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
Output	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Terminal		Start DataAvailable
Input	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Terminal		Start SendCommand CheckKey

Layout Objects: Terminal

Regular Fields

Field Name: Terminal::Output

Layout Name:

Terminal

Top: 56 pt
Left: 12 pt
Bottom: 226 pt
Right: 573 pt

Anchoring: Left and Right, Top and Bottom

Field Format:

Edit Box
Include vertical scrollbar

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: Terminal::Input

Layout Name:

Terminal

OnObjectKeystroke

Script: CheckKey
Modes: Browse

Top: 234 pt
Left: 11 pt
Bottom: 256 pt
Right: 572 pt

Anchoring: Left and Right, 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

Type:

Text: Clear

Layout Name:

Terminal

Top: 11 pt
Left: 488 pt
Bottom: 43 pt
Right: 573 pt

Anchoring: Right, Top

Set Field [ Terminal::Output; "" ]

Fields:

Terminal::Output

Next Script: [ShellClosed]

Script Name	Start
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	#close existing shell if any If [ Length ( $$Shell ) > 0 ] Set Variable [ $r; Value:MBS("Shell.Release"; $$Shell) ] Set Variable [ $$Shell; Value:"" ] End If #start new shell Set Field [ Terminal::Output; "" ] Set Variable [ $$shell; Value:MBS( "Shell.New" ) ] If [ MBS("IsWindows") ] Set Variable [ $s; Value:MBS( "Shell.Execute"; $$shell; "C:\Windows\System32\cmd.exe"; "/K") ] Else Set Variable [ $s; Value:MBS( "Shell.Execute"; $$shell; "/bin/sh"; "-i"; "-l") ] End If If [ $s ≠ "OK" ] Show Custom Dialog [ Title: "Failed to run shell"; Message: $s; Default Button: “OK”, Commit: “Yes” ] Else Set Variable [ $r; Value:MBS( "Shell.SetDataAvailableScript"; $$shell; Get(FileName); "DataAvailable" ) ] Set Variable [ $r; Value:MBS( "Shell.SetCompletedScript"; $$shell; Get(FileName); "ShellClosed" ) ] #set command for you to try... If [ MBS("IsWindows") ] Set Field [ Terminal::Input; "ping -n 5 mbsplugins.de" ] Else Set Field [ Terminal::Input; "ping -c 5 mbsplugins.de" ] End If End If
Fields used in this script	Terminal::Output Terminal::Input
Scripts used in this script
Layouts used in this script
Tables used in this script	Terminal
Table occurrences used by this script	Terminal
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Start]

Next Script: [SendCommand]

Script Name	ShellClosed
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	Show Custom Dialog [ Message: "Shell was closed."; Default Button: “OK”, Commit: “Yes” ]
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: [ShellClosed]

Next Script: [DataAvailable]

Script Name	SendCommand
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script	CheckKey
Script Definition
Script Steps	Set Variable [ $Input; Value:Terminal::Input & Char(13) ] Set Variable [ $$LastInput; Value:$Input ] If [ MBS("IsWindows") ] #for Windows add extra LF Set Variable [ $Input; Value:$Input & Char(10) ] End If Set Variable [ $s; Value:MBS( "Shell.WriteInputText"; $$shell; $Input; "UTF-8") ]
Fields used in this script	Terminal::Input
Scripts used in this script
Layouts used in this script
Tables used in this script	Terminal
Table occurrences used by this script	Terminal
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [SendCommand]

Next Script: [Close]

Script Name	DataAvailable
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	#check error output Set Variable [ $error; Value:MBS( "Shell.ReadErrorText"; $$shell; "UTF-8") ] #convert line endings. Mac and Linux use LF, Windows does CRLF and we need CR for FileMaker Set Variable [ $error; Value:MBS( "Text.ReplaceNewline"; $error; 1) ] #check normal output Set Variable [ $result; Value:MBS( "Shell.ReadOutputText"; $$shell; "UTF-8") ] #convert line endings. Mac and Linux use LF, Windows does CRLF and we need CR for FileMaker Set Variable [ $result; Value:MBS( "Text.ReplaceNewline"; $result; 1) ] #check if we get input echod, Mac in $error and Win in $result If [ MBS("IsWindows") ] If [ Length ( $result ) > 0 ] #check if there is input If [ Length($$LastInput) > 0 and Left ( $result ; Length($$LastInput) ) = $$LastInput ] Set Field [ Terminal::Output; Terminal::Output & TextColor ( Left ( $result ; Length($$LastInput) ); /* gray / RGB ( 200 ; 200 ; 0 ) ) ] Set Variable [ $result; Value:Middle( $result ; Length($$LastInput); Length($result) ) ] Set Variable [ $$LastInput; Value:"" ] End If End If If [ Length ( $error ) > 0 ] Set Field [ Terminal::Output; Terminal::Output & TextColor ( $error ; / red / RGB ( 255 ; 0 ; 0 ) ) ] End If If [ Length ( $result ) > 0 ] Set Field [ Terminal::Output; Terminal::Output & TextColor ( $result; / white / RGB ( 255 ; 255 ; 255 ) ) ] End If Else If [ Length ( $error ) > 0 ] #check if there is input If [ Length($$LastInput) > 0 and Left ( $error ; Length($$LastInput) ) = $$LastInput ] Set Field [ Terminal::Output; Terminal::Output & TextColor ( Left ( $error ; Length($$LastInput) ); / gray / RGB ( 200 ; 200 ; 0 ) ) ] Set Variable [ $error; Value:Middle( $error ; Length($$LastInput); Length($error) ) ] Set Variable [ $$LastInput; Value:"" ] End If End If If [ Length ( $result ) > 0 ] Set Field [ Terminal::Output; Terminal::Output & TextColor ( $result; / white / RGB ( 255 ; 255 ; 255 ) ) ] End If If [ Length ( $error ) > 0 ] Set Field [ Terminal::Output; Terminal::Output & TextColor ( $error ; / red */ RGB ( 255 ; 0 ; 0 ) ) ] End If End If
Fields used in this script	Terminal::Output
Scripts used in this script
Layouts used in this script
Tables used in this script	Terminal
Table occurrences used by this script	Terminal
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [DataAvailable]

Next Script: [CheckKey]

Script Name	Close
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 [ Length ( $$Shell ) > 0 ] Set Variable [ $r; Value:MBS("Shell.Release"; $$Shell) ] Set Variable [ $$Shell; Value:"" ] 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: [Close]

Script Name	CheckKey
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	#check for return or enter keys Set Variable [ $key; Value:Code ( Get ( TriggerKeystroke ) ) ] If [ $key = 13 or $key = 10 ] Perform Script [ “SendCommand” ] Set Field [ Terminal::Input; "" ] Exit Script [ Result: False ] End If
Fields used in this script	Terminal::Input
Scripts used in this script	SendCommand
Layouts used in this script
Tables used in this script	Terminal
Table occurrences used by this script	Terminal
Custom Functions used by this script
Custom menu set used by this script

Download example: Terminal

Used functions: