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;