#######################################################################
## 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;
}

