• [^] # Re: C'est une feature, pas un bug

    Posté par . En réponse au message Fermer proprement un socket. Évalué à 2.

    Salut,

    J'avais déjà testé le "setsockopt" mais je n'avais pas réussi à le faire fonctionner. Et bien cette fois ci ça y est.
    Merci bien...

    Le shutdown ne résoud pas le problème. Voilà le code d'ouverture du socket qui va bien :)

    [code]
    socket(ACCES_SERVEUR,AF_INET,SOCK_STREAM,$protocole) || die("Ouverture de socket: $!");
    $TSAP_serveur = pack('SnA4x8', AF_INET, $port, INADDR_ANY);
    setsockopt(ACCES_SERVEUR, SOL_SOCKET, SO_REUSEADDR,1) || die "setsockopt() failed: $!\n";
    bind(ACCES_SERVEUR,$TSAP_serveur) || die("Accrochage socket: $!");
    listen(ACCES_SERVEUR, SOMAXCONN) || die("Ecoute socket: $!");
    [/code]