Bonjour,
voici mon problème. Je développe une interface avec Perl/tk et j'utilise le module Net::SSH:: Perl pour lancer si besoin des travaux sur un cluster. Cette interface est destinée à des utilisateurs différents qui devront donc fournir leurs identifiants pour pouvoir se connecter sur le cluster. Je récupère ses identifiants classiquement avec des widgets entry et lorsque ces identifiants sont corrects, tout se passe pour le mieux.
Néanmoins, si l'utilisateur rentre un mot de passe erroné, le programme envoie un message d'erreur au moment du $ssh->login
$ssh->login($username, $password);
et il stoppe son exécution. Cet arrêt m'empèche de gérer l'erreur et d'envoyer un message alertant l'utilisateur qu'il ne s'est pas identifié correctement. Je n'ai pas trouvé de solution à ce pb.
Merci par avance pour toute aide.
Partager