Automatisation des transferts de fichiers avec le 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
}# Cette procédure fait des correspondances d'expression régulière en recherchant des chaînes de caractères clés
# dans la sortie collectée de la commande qui a été exécutée. Dans ce cas
# Je ne fais que signaler le type d'erreur, mais d'autres choses peuvent être faites
# aussi. Je ne vérifie également que deux erreurs. Il y en a d'autres. Vous aurez
# pour les ajouter au fur et à mesure que vous les trouvez.
#
proc checkforerrors {buf cmd} {
if [regexp {.*not found} $buf] {
met "$cmd FAILED : not foundnnn"
retour 1
}
if [regexp {.*Permission refusée} $buf] {
met "$cmd FAILED : problèmes d'accèsnnn
retour 1
}
retour 0
}# Réglez le délai d'attente sur -1 pour qu'il n'y ait pas de délai d'attente. La valeur par défaut est de 10 secondes
# et la plupart des transferts de fichiers prennent plus de temps que cela. J'ai décidé de ne pas mettre
# timeout, vous pouvez changer ça.
régler le délai d'attente -1

# start sftp
spawn sftp [email protected]

# attendre l'invite sftp mais si nous obtenons une invite d'authentification, se terminant par
# oui/non, signaler un problème de sécurité et quitter.
attend {
"oui/non ?" { puts
"nnnNous nous sommes connectés au mauvais serveur ou le serveur a été rechargé".
puts
"La clé du serveur doit être validée avant que ce script puisse être exécuté à nouveau.nnn"
exit }
sftp>
}

# changer de répertoire pour les tests
send "cd sftp_testr"
expectant {
eof { goteof "cd sftp_test" }
sftp>
}

# appeler vérifier les erreurs en passant tous les caractères collectés jusqu'à l'
# sftp> prompt. Aussi la commande qui a été envoyée à sftp. Si la procédure
# checkforerrors renvoie 1, quittez le script. Encore une fois, vous pouvez
# faire d'autres choses.
si {[checkforerrors $expect_out(buffer) "cd sftp_test"] == 1} { exit }

send "put foor" (mettre le pied)
expectation {
eof { goteof "put foo" }
sftp>
}
si {[checkforerrors $expect_out(buffer) "put foo"] == 1} { exit }

send "get barr"
expectation {
eof { goteof "get bar" }
sftp>
}
if {[checkforerrors $expect_out(buffer) "get bar"] == 1} { exit }

envoyer "quitr
attendre eof
met "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
Impossible de statuer sur le fichier distant : Aucun fichier ou répertoire de ce type
Fichier "/SysAdmin/Noah_Davids/sftp_test/bar" non trouvé.
sftp> get bar FAILED : not foundready 10:42:11