HELP! Besoin d'un pro sur l'utilisation de "socket"

Marsh Posté le 02-05-2005 à 17:22:58

Bonjour à tous :hello:

Voila, je dois réaliser un programme permettant de lancer des commandes sur une machine distante et on m'a conseillé d'utiliser "socket".
De ce que je comprend sur les sockets, c'est qu'il faut en déclarer 2 : 1 socket serveur et l'autre client.
Seulement ma machine distante ne comprend que le langage TL1 :ouch: , donc la configuration des sockets doit se faire depuis la machine locale.
Alors je voudrais connaitre l'avis de personne maitrisant socket... si c'est possible, et si oui quelques conseils :ange:

Merci d'avance !!!

Reply

Marsh Posté le 02-05-2005 à 17:22:58

Reply

Marsh Posté le 02-05-2005 à 18:22:18

:heink: pour moi un socket c'est IP+port.
Mais là je ne vois pas ce que tu veux dire.Tu veux refaire un BackOriffice ? :heink:

Reply

Marsh Posté le 02-05-2005 à 20:11:25

kill9 a écrit :

:heink: pour moi un socket c'est IP+port.
Mais là je ne vois pas ce que tu veux dire.Tu veux refaire un BackOriffice ? :heink:

oui c bienIP+port socket @ip num_port mais il faut deux socket pour effectuer une communication non? (socket client et socket server)
et je demande si le socket server et le socket client peut etre défini sur une même machine, dans un même script... Ou alors il faut lancer en tâche de fond le socket server grâce a un script sur la machine distante.
Si c'est le cas je ne peut pas utiliser la solution socket puisque ma machine distante ne "comprend" que des commandes TL1.

Reply

Marsh Posté le 04-05-2005 à 09:24:40

Un socket est juste une interface d'abstraction pour "attaquer" le réseau
Après faut te programmer ton appli en utilisant ces sockets

Reply

Marsh Posté le 04-05-2005 à 14:33:39

FLo14 a écrit :

Un socket est juste une interface d'abstraction pour "attaquer" le réseau
Après faut te programmer ton appli en utilisant ces sockets

Bon ca y est !!! j'ai enfin réussi à faire une procédure (en Tcl) qui lance des commandes à ma machine distante.
Par contre, maintenant je voudrais récupérer les messages de réponse (de la machine distante) à ces commandes... :pfff:
Si vous avez des idées, voici ma procédure :

Code :

#-------------------------------------------------
# Envoi de commande à la machine distante
#-------------------------------------------------
proc sendCmdToMachineDistante {cmd} {
global cfg
if {[catch {
# Ouvre une connexion vers le CMS Remote
set cfg(sock_cms) [socket $cfg(ADDR_IP) $cfg(NUM_PORT)]
# Configuration non-blocking port
fconfigure $cfg(sock_cms) -blocking 0
# Associate a reader with the channel
fileevent $cfg(sock_cms) readable
} status] == 1} {
# Récupération de l'erreur d'ouverture de connection
set Id [open "C:/Tcl/Erreur_commande_CMS_Remote.txt" "a"]
puts $Id "Failed to open connection :"
puts $Id " error : $status"
close $Id
}
# Lancement de la commande
if {[catch {
puts -nonewline $cfg(sock_cms) "$cmd"
# Vidage buffer
flush $cfg(sock_cms)
# Attente --> filevents
after 10000 {set done 1}
vwait done
} status] == 1} {
set Id [open "C:/Tcl/Erreur_commande.txt" "w"]
puts $Id "Failed to send command :"
puts $Id " --> $cmd"
puts $Id " error : $status"
close $Id
# Fermeture de la connection
try {
close $cfg(sock_cms)
} {
# Récupération de l'erreur de fermeture de connection
set Id [open "C:/Tcl/Erreur_commande.txt" "a"]
puts $Id "Failed to close the connection"
close $Id
flush stdout
}
unset cfg(sock_cms)
}
}

Reply

Marsh Posté le 04-05-2005 à 17:06:40

Va voir en cat prog

Reply

HELP! Besoin d'un pro sur l'utilisation de "socket"

Sujets relatifs:

Leave a Replay