Automação de transferência de arquivos com SFTP

# If we get an end-of-file (eof) it means that the sftp process
# terminated. Report the last command that was sent.
#
proc goteof {cmd} {
puts "sftp connection unexpectedly closed n"
puts "last text received wasn"
puts "<<"
puts $cmd
puts ">>nnn"
exit
}# Este procedimento combina com a expressão regular de procura de cordões-chave
# na saída coletada do comando que foi executado. Neste caso, o
# Estou apenas relatando o tipo de erro, mas outras coisas podem ser feitas
# também. Eu também verifico apenas 2 erros. Existem outros. Você terá
# para adicioná-los conforme você os encontrar.
#
proc proc proc procerrors {buf cmd} {
se [regexp {.*não foi encontrado] $buf] {
coloca "$cmd FAILED : não encontradonnn"
retorno 1
}
se [regexp {.*Permissao negada} $buf] {
coloca "$cmd FAILED : problemas de acessonnn".
retorno 1
}
retornar 0
}# definir o tempo limite para -1 para que não haja tempo limite. O tempo limite padrão é de 10 segundos
# e a maioria das transferências de arquivos demora mais do que isso. Eu decidi não
# tempo esgotado, você pode mudar isso.
tempo limite -1

# start sftp
spawn sftp [email protected]

# esperar pelo prompt de roubo, mas se tivermos um prompt de autenticação, terminando em
# sim/não informar um problema de segurança e saída.
esperar {
"sim/não?" { coloca
"nnnConectamo-nos ao servidor errado ou o servidor foi recarregado".
coloca
"A chave do servidor deve ser validada antes que este script possa ser executado novamente.nnn".
saída }
sftp>
}

# mudar para um diretório conviente para testes
enviar "cd sftp_testr"
esperar {
eof { goteof "cd sftp_test" }
sftp>
}

# chamar a verificação de erros passando todos os caracteres coletados para cima do
# sftp> pronto. Também o comando que foi enviado para sftp. Se o
# procedimento checkforerrors devolve 1 saída do roteiro. Novamente, você pode
# fazer outras coisas.
if {[checkforerrors $expect_out(buffer) "cd sftp_test"] == 1} {saída }

enviar "put foor"
esperar {
eof { goteof "put foo" }
sftp>
}
if {[checkforerrors $expect_out(buffer) "put foo"] == 1} {saída }

enviar "get barr
esperar {
eof { goteof "get bar" }
sftp>
}
if {[checkforerrors $expect_out(buffer) "get bar"] == 1} {saída }

enviar "quitr
esperar eof
coloca "script donenn"

expect sftp3.exp
spawn sftp [email protected]
Connecting to 172.16.1.116...
sftp> cd sftp_test
sftp> put foo
Uploading foo to /SysAdmin/Noah_Davids/sftp_test/foosftp> get bar
Não foi possível estabelecer um arquivo remoto: Nenhum arquivo ou diretório deste tipo
Arquivo "/SysAdmin/Noah_Davids/sftp_test/bar" não encontrado.
sftp> get bar FAILED : not foundready 10:42:11