kenmirrors/freeswitch
1
0
Fork 0
mirror of https://github.com/signalwire/freeswitch.git synced 2025-08-13 01:26:58 +00:00
Code Issues Projects Releases Wiki Activity

tcl example thanks Mark Mann

Browse Source 
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@16307 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Brian West
2010-01-14 14:39:57 +00:00
parent fceb1ffe82
commit 0d2d07d066
2 changed files with 33 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
libs/esl/tcl/single_command.tcl Executable file
View File

@@ -0,0 +1,22 @@
lappend auto_path .
package require esl
if { $argc < 1 } {
puts "Usage: tclsh $argv0 command arg(s)"
puts "Example: tclsh $argv0 status"
exit
}
#
# Open connection to FreeSWITCH ESL
# (FreeSWITCH must be running for this to work)
#
ESLconnection esl {127.0.0.1} 8021 {ClueCon}
#
# Send request (given as args to sendRecv)
# Get answer from FreeSWITCH (return value from sendRecv)
# Translate reponse to text (getBody command)
# Print it (puts)
#
puts [ESLevent_getBody [esl sendRecv {api status}]]