forked from Mirrors/freeswitch
a5afd7cd3b
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@16651 d0543943-73ff-0310-b7d9-9358b9ac24b2
24 lines
558 B
Tcl
Executable File
24 lines
558 B
Tcl
Executable File
#!/usr/bin/tclsh
|
|
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}]]
|