Automatizando transferências 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 faz correspondências de expressões regulares procurando por strings-chave
# na saída coletada do comando que foi executado. Neste caso
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 à medida que os encontrar.
#
proc verificar erros {buf cmd} {
if [regexp {.*não encontrado} $buf] {
coloca "$cmd FALHA: não encontrado"
retornar 1
}
if [regexp {.*Permissão negada} $buf] {
coloca “$cmd FALHA: problemas de acesso”
retornar 1
}
retornar 0
}# defina o tempo limite como -1 para que não haja tempo limite. O padrão é 10 segundos.
# e a maioria das transferências de arquivos leva mais tempo do que isso. Decidi não definir
# tempo limite, você pode alterar isso.
definir tempo limite -1

# iniciar sftp
spawn sftp [email protected]

# aguarde o prompt sftp, mas se recebermos um prompt de autenticação, terminando em
# sim/não, relate um problema de segurança e saia.
expect {
“sim/não?” { puts
“nnnNós nos conectamos ao servidor errado ou o servidor foi recarregado.”
puts
“A chave do servidor deve ser validada antes que este script possa ser executado novamente.nnn”
exit }
sftp>
}

# mude para um diretório conveniente para teste
envie “cd sftp_testr”
espere {
eof { goteof “cd sftp_test” }
sftp>
}

# verificação de erros passando todos os caracteres coletados para o prompt
# sftp>. Também o comando que foi enviado para sftp. Se o procedimento
# checkforerrors retornar 1, saia do script. Novamente, você pode
# fazer outras coisas.
if {[checkforerrors $expect_out(buffer) “cd sftp_test”] == 1} { exit }

enviar “put foor”
esperar {
eof {goteof “put foo”}
sftp>
}
if {[checkforerrors $expect_out(buffer) “put foo”] == 1} {exit}

enviar “get barr”
esperar {
eof { goteof “get bar” }
sftp>
}
if {[checkforerrors $expect_out(buffer) “get bar”] == 1} { sair }

enviar “quitr”
esperar eof
colocar “script concluído”

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> obter barra
Não foi possível localizar o arquivo remoto: Não existe tal arquivo ou diretório
Arquivo “/SysAdmin/Noah_Davids/sftp_test/bar” não encontrado.
sftp> obter barra FALHA: não encontrado pronto 10:42:11