####################################################################### ## proc send_only ## ## Copyright (c) David L. Fisher, 1999 ## ## This software is copyrighted David L. Fisher. The following ## terms apply to all files associated with the software unless explicitly ## disclaimed in individual files. ## ## The author hereby grants permission to use, copy, modify, distribute, ## and license this software and its documentation for any purpose, provided ## that existing copyright notices are retained in all copies and that this ## notice is included verbatim in any distributions. No written agreement, ## license, or royalty fee is required for any of the authorized uses. ## Modifications to this software may be copyrighted by their authors ## and need not follow the licensing terms described here, provided that ## the new terms are clearly indicated on the first page of each file where ## they apply. ## ## IN NO EVENT SHALL THE AUTHOR OR DISTRIBUTORS BE LIABLE TO ANY PARTY ## FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ## ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY ## DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE ## POSSIBILITY OF SUCH DAMAGE. ## ## THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES, ## INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY, ## FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT. THIS SOFTWARE ## IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE ## NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR ## MODIFICATIONS. ## ## GOVERNMENT USE: If you are acquiring this software on behalf of the ## U.S. government, the Government shall have only "Restricted Rights" ## in the software and related documentation as defined in the Federal ## Acquisition Regulations (FARs) in Clause 52.227.19 (c) (2). If you ## are acquiring the software on behalf of the Department of Defense, the ## software shall be classified as "Commercial Computer Software" and the ## Government shall have only "Restricted Rights" as defined in Clause ## 252.227-7013 (c) (1) of DFARs. Notwithstanding the foregoing, the ## authors grant the U.S. Government and others acting in its behalf ## permission to use and distribute the software in accordance with the ## terms specified in this license. ## ####################################################################### ####################################################################### ## NAME ## send_only ## ## DESCRIPTION ## Send a string to a remote system ## ## INPUTS ## id - spawn id of the remote process ## command - command string to send (default is blank) ## updateHistory - flag to indicate that the history file ## should be updated ## ## OUTPUTS ## On success, returns 0 ## On failure, returns the return value from the catch statement ## ## NOTES ## See send_expect ## ####################################################################### proc send_only { id {command ""} } { global sendGlobals; global ch; global sessions; ##----------------------------------------------------------------- ## send the string to the named process using the send_slow variable ##----------------------------------------------------------------- set retval [catch "exp_send -i $id $sendGlobals(ssFlag) -- \ \"$command\"" sendGlobals(errMessage)]; if { $retval } { ## let's see if it's a dead spawn_id if { [regexp "spawn_id=(\[0-9]+)" $sendGlobals(errMessage) \ temp dead_spawn_id] } { puts stderr "Spawn ID $dead_spawn_id lost for session:"; } } incr sendGlobals(caught) $retval; return $retval; }