[TCL] Utilisation de socket en TCL : HELP ! ! !

Utilisation de socket en TCL : HELP ! ! ! [TCL] - Divers - Programmation

Marsh Posté le 04-05-2005 à 15:53:03    

Bonjour à tous  :hello:  
Voila mon probleme :
J'utilise socket pour envoyer des commandes à ma machine distante, c'est cool ca fonctionne bien  :wahoo:  
Par contre, je ne sais pas comment faire pour récupérer les réponses de la machine distante à ces commandes...
Merci d'avance pour vos conseils  
 
Voici ma procedure permettant d'envoyer une commande :
 

Code :
  1. #-------------------------------------------------
  2. # Envoi de commande à la machine distante
  3. #-------------------------------------------------
  4. proc sendCmdToMachineDistante {cmd} {
  5.     global cfg
  7.      if {[catch {
  8. # Ouvre une connexion vers le CMS Remote
  9.          set cfg(sock_cms) [socket $cfg(ADDR_IP) $cfg(NUM_PORT)]
  10. # Configuration non-blocking port
  11.          fconfigure $cfg(sock_cms) -blocking 0
  12. # Associate a reader with the channel
  13.          fileevent $cfg(sock_cms) readable
  15.         } status] == 1} {
  16. # Récupération de l'erreur d'ouverture de connection
  17.             set Id [open "C:/Tcl/Erreur_commande_CMS_Remote.txt" "a"]
  18.             puts $Id "Failed to open connection :"
  19.             puts $Id "     error : $status"
  20.             close $Id
  21.       }
  23. # Lancement de la commande
  24.      if {[catch {
  25.          puts -nonewline $cfg(sock_cms) "$cmd"
  26. # Vidage buffer
  27.          flush $cfg(sock_cms)
  28. # Attente --> filevents
  29.          after 10000 {set done 1}
  30.          vwait done
  31.         } status] == 1} {
  32.                   set Id [open "C:/Tcl/Erreur_commande.txt" "w"]
  33.                   puts $Id "Failed to send command :"
  34.                   puts $Id " --> $cmd"
  35.                   puts $Id "     error : $status"
  36.                   close $Id
  37. # Fermeture de la connection
  38.                   try {
  39.                        close $cfg(sock_cms)
  40.                   } {
  41. # Récupération de l'erreur de fermeture de connection
  42.                     set Id [open "C:/Tcl/Erreur_commande.txt" "a"]
  43.                     puts $Id "Failed to close the connection"
  44.                     close $Id
  45.                     flush stdout
  46.                   }
  47.                   unset cfg(sock_cms)
  48.      }
  49. }

Reply

Marsh Posté le 04-05-2005 à 15:53:03   

Reply

Marsh Posté le 21-09-2005 à 11:57:29    

Lut =). Chuis po un crack en tcl, mais je pense pouvoir t'aider ^^.
pour afficher toutes les infos de tonsocket >>>> puts cfg(sock_cms) ;)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed