Added: freeswitch/trunk/libs/esl/tcl/pkgIndex.tcl (0 => 16307)
--- freeswitch/trunk/libs/esl/tcl/pkgIndex.tcl (rev 0)
+++ freeswitch/trunk/libs/esl/tcl/pkgIndex.tcl 2010-01-14 14:39:57 UTC (rev 16307)
@@ -0,0 +1,11 @@
+# Tcl package index file, version 1.1
+# This file is generated by the "pkg_mkIndex" command
+# and sourced either when an application starts up or
+# by a "package unknown" script. It invokes the
+# "package ifneeded" command to set up package-related
+# information so that packages will be loaded automatically
+# in response to "package require" commands. When this
+# script is sourced, the variable $dir must contain the
+# full path name of this file's directory.
+
+package ifneeded esl 0.0 [list load [file join $dir ESL.so]]
Added: freeswitch/trunk/libs/esl/tcl/single_command.tcl (0 => 16307)
--- freeswitch/trunk/libs/esl/tcl/single_command.tcl (rev 0)
+++ freeswitch/trunk/libs/esl/tcl/single_command.tcl 2010-01-14 14:39:57 UTC (rev 16307)
@@ -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}]]
Property changes on: freeswitch/trunk/libs/esl/tcl/single_command.tcl
___________________________________________________________________
Name: svn:executable
+ *