Mercurial > emacs
comparison src/process.c @ 49111:32c767302a23
(server_accept_connection): Fixed recording of new
connection's local address in :local property of contact info.
(Fmake_network_process): Record local network address for new
client processes in :local property of contact info.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Wed, 08 Jan 2003 10:38:06 +0000 |
parents | 8e86004e885e |
children | c87af62cc6b4 |
comparison
equal
deleted
inserted
replaced
49110:756931f84374 | 49111:32c767302a23 |
---|---|
3064 bcopy (lres->ai_addr, datagram_address[s].sa, lres->ai_addrlen); | 3064 bcopy (lres->ai_addr, datagram_address[s].sa, lres->ai_addrlen); |
3065 } | 3065 } |
3066 #endif | 3066 #endif |
3067 contact = Fplist_put (contact, QCaddress, | 3067 contact = Fplist_put (contact, QCaddress, |
3068 conv_sockaddr_to_lisp (lres->ai_addr, lres->ai_addrlen)); | 3068 conv_sockaddr_to_lisp (lres->ai_addr, lres->ai_addrlen)); |
3069 #ifdef HAVE_GETSOCKNAME | |
3070 if (!is_server) | |
3071 { | |
3072 struct sockaddr_in sa1; | |
3073 int len1 = sizeof (sa1); | |
3074 if (getsockname (s, (struct sockaddr *)&sa1, &len1) == 0) | |
3075 contact = Fplist_put (contact, QClocal, | |
3076 conv_sockaddr_to_lisp (&sa1, len1)); | |
3077 } | |
3078 #endif | |
3069 } | 3079 } |
3070 | 3080 |
3071 #ifdef HAVE_GETADDRINFO | 3081 #ifdef HAVE_GETADDRINFO |
3072 if (res != &ai) | 3082 if (res != &ai) |
3073 freeaddrinfo (res); | 3083 freeaddrinfo (res); |
3546 contact = Fplist_put (contact, QCservice, service); | 3556 contact = Fplist_put (contact, QCservice, service); |
3547 contact = Fplist_put (contact, QCremote, | 3557 contact = Fplist_put (contact, QCremote, |
3548 conv_sockaddr_to_lisp (&saddr.sa, len)); | 3558 conv_sockaddr_to_lisp (&saddr.sa, len)); |
3549 #ifdef HAVE_GETSOCKNAME | 3559 #ifdef HAVE_GETSOCKNAME |
3550 len = sizeof saddr; | 3560 len = sizeof saddr; |
3551 if (getsockname (channel, &saddr.sa, &len) == 0) | 3561 if (getsockname (s, &saddr.sa, &len) == 0) |
3552 contact = Fplist_put (contact, QClocal, | 3562 contact = Fplist_put (contact, QClocal, |
3553 conv_sockaddr_to_lisp (&saddr.sa, len)); | 3563 conv_sockaddr_to_lisp (&saddr.sa, len)); |
3554 #endif | 3564 #endif |
3555 | 3565 |
3556 p->childp = contact; | 3566 p->childp = contact; |