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 realiza correspondências com expressões regulares em busca de sequências-chave
# na saída obtida do comando que foi executado. Neste caso
# Estou apenas informando o tipo de erro, mas outras medidas podem ser tomadas
# também. Eu também verifico apenas dois erros. Existem outros. Você terá
# para adicioná-los à medida que os encontrar.
#
proc checkforerrors {buf cmd} {
se [regexp {.*não encontrado} $buf] {
exibe “$cmd FALHA: não encontrado”
retornar 1
}
if [regexp {.*Permissão negada} $buf] {
exibe “$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 como -1

# iniciar sftp
iniciar sftp [email protected]

# aguardar o prompt do SFTP, mas se recebermos um prompt de autenticação, terminando em
# sim/não: relatar um problema de segurança e sair.
expect {
“sim/não?” { puts
“nnnConectamos ao servidor errado ou o servidor foi reiniciado.”
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 testes
send “cd sftp_test”
expect {
eof { goteof “cd sftp_test” }
sftp>
}

# Chamar a função `checkforerrors`, passando todos os caracteres coletados no prompt `
` # `sftp>`. Também o comando que foi enviado ao `sftp.` Se o procedimento `
` # `checkforerrors` retornar 1, sair do script. Novamente, você pode `
` # realizar outras ações. `
` if {[checkforerrors $expect_out(buffer) “cd sftp_test”] == 1} { exit }

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

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

enviar “quitr”
esperar eof
imprimir “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> get bar
Não foi possível acessar o arquivo remoto: Arquivo ou diretório inexistente
Arquivo “/SysAdmin/Noah_Davids/sftp_test/bar” não encontrado.
sftp> get bar FALHA: arquivo não encontrado 10:42:11