Pharo Smalltalk SSH/SFTP Client

gistfile1.st

"Set the following variables, some of which have reasonable defaults, for your environment"
The required expect file lives at https://gist.github.com/seandenigris/4945436"
command := 'sftp'. "Tested with ssh and sftp"
userName := 'root'.
ipAddress := ''.
password := ''.
prompt := 'sftp> '.
expectFilePath := '/path/to/expect_file.exp'.

escapedPassword := password copyReplaceAll: '"' with: '\"'.
p := PipeableOSProcess command: '/usr/bin/expect "', expectFilePath, '" ', escapedPassword, ' ', ipAddress, ' ', command.
"Must be non-blocking, or #upToEnd hangs the image"
p setNonBlockingOutput.

"Skip login response from the server"
[ | output |
	output := p upToEnd.
	lines := output lines.
	lines size > 0 and: [ lines last beginsWith: prompt ] ] whileFalse.

p nextPutAll: 'pwd', Character cr asString.
p upToEnd.

"p errorUpToEnd."