/[dejagnu]/dejagnu/lib/remote.exp
ViewVC logotype

Diff of /dejagnu/lib/remote.exp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by rsavoye, Fri Apr 26 05:56:50 2002 UTC revision 1.9 by rsavoye, Tue Jul 16 23:06:21 2002 UTC
# Line 779  proc remote_raw_spawn { dest commandline Line 779  proc remote_raw_spawn { dest commandline
779  #  #
780  # The default spawn procedure. Uses rsh to connect to $dest.  # The default spawn procedure. Uses rsh to connect to $dest.
781  #  #
782  proc standard_spawn { dest commandline } {  proc standard_spawn { dest commandline args } {
783      global board_info      global board_info
784    
785      if ![board_info $dest exists rsh_prog] {      if ![board_info $dest exists rsh_prog] {
# Line 795  proc standard_spawn { dest commandline } Line 795  proc standard_spawn { dest commandline }
795      if ![board_info $dest exists username] {      if ![board_info $dest exists username] {
796          set rsh_useropts ""          set rsh_useropts ""
797      } else {      } else {
798          set rsh_useropts "-l $username"          set rsh_useropts "-l [board_info $dest username]"
799      }      }
800    
801      if [board_info $dest exists hostname] {      if [board_info $dest exists hostname] {
# Line 804  proc standard_spawn { dest commandline } Line 804  proc standard_spawn { dest commandline }
804          set remote $dest;          set remote $dest;
805      }      }
806    
807      spawn $RSH $rsh_useropts $remote $commandline;  #    spawn $RSH $rsh_useropts $remote $commandline;
808        spawn "/bin/sh" "-c" "$RSH $rsh_useropts $remote \"$commandline\"";
809      set board_info($dest,fileid) $spawn_id;      set board_info($dest,fileid) $spawn_id;
810      return $spawn_id;      return $spawn_id;
811  }  }

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26