better logging, fixed bug with crash when removing client
[radsecproxy.git] / udp.c
diff --git a/udp.c b/udp.c
index 470e6d8..6b49e49 100644 (file)
--- a/udp.c
+++ b/udp.c
 #include "radsecproxy.h"
 #include "tls.h"
 
+static int client4_sock = -1;
+static int client6_sock = -1;
+static struct queue *server_replyq = NULL;
+
 /* exactly one of client and server must be non-NULL */
 /* return who we received from in *client or *server */
 /* return from in sa if not NULL */
-unsigned char *radudpget(int s, struct client **client, struct server **server, struct sockaddr_storage *sa) {
+unsigned char *radudpget(int s, struct client **client, struct server **server, uint16_t *port) {
     int cnt, len;
     unsigned char buf[4], *rad = NULL;
     struct sockaddr_storage from;
+    struct sockaddr *fromcopy;
     socklen_t fromlen = sizeof(from);
     struct clsrvconf *p;
     struct list_node *node;
@@ -67,7 +72,7 @@ unsigned char *radudpget(int s, struct client **client, struct server **server,
            ? find_clconf(RAD_UDP, (struct sockaddr *)&from, NULL)
            : find_srvconf(RAD_UDP, (struct sockaddr *)&from, NULL);
        if (!p) {
-           debug(DBG_WARN, "radudpget: got packet from wrong or unknown UDP peer %s, ignoring", addr2string((struct sockaddr *)&from, fromlen));
+           debug(DBG_WARN, "radudpget: got packet from wrong or unknown UDP peer %s, ignoring", addr2string((struct sockaddr *)&from));
            recv(s, buf, 4, 0);
            continue;
        }
@@ -87,7 +92,7 @@ unsigned char *radudpget(int s, struct client **client, struct server **server,
        }
        
        cnt = recv(s, rad, len, MSG_TRUNC);
-       debug(DBG_DBG, "radudpget: got %d bytes from %s", cnt, addr2string((struct sockaddr *)&from, fromlen));
+       debug(DBG_DBG, "radudpget: got %d bytes from %s", cnt, addr2string((struct sockaddr *)&from));
 
        if (cnt < len) {
            debug(DBG_WARN, "radudpget: packet smaller than length field in radius header");
@@ -97,16 +102,34 @@ unsigned char *radudpget(int s, struct client **client, struct server **server,
            debug(DBG_DBG, "radudpget: packet was padded with %d bytes", cnt - len);
 
        if (client) {
-           node = list_first(p->clients);
-           *client = node ? (struct client *)node->data : addclient(p);
-           if (!*client)
+           pthread_mutex_lock(p->lock);
+           for (node = list_first(p->clients); node; node = list_next(node))
+               if (addr_equal((struct sockaddr *)&from, ((struct client *)node->data)->addr))
+                   break;
+           if (node) {
+               *client = (struct client *)node->data;
+               pthread_mutex_unlock(p->lock);
+               break;
+           }
+           fromcopy = addr_copy((struct sockaddr *)&from);
+           if (!fromcopy) {
+               pthread_mutex_unlock(p->lock);
+               continue;
+           }
+           *client = addclient(p, 0);
+           if (!*client) {
+               free(fromcopy);
+               pthread_mutex_unlock(p->lock);
                continue;
+           }
+           (*client)->addr = fromcopy;
+           pthread_mutex_unlock(p->lock);
        } else if (server)
            *server = p->servers;
        break;
     }
-    if (sa)
-       *sa = from;
+    if (port)
+       *port = port_get((struct sockaddr *)&from);
     return rad;
 }
 
@@ -115,32 +138,20 @@ int clientradputudp(struct server *server, unsigned char *rad) {
     struct sockaddr_storage sa;
     struct sockaddr *sap;
     struct clsrvconf *conf = server->conf;
-    in_port_t *port = NULL;
+    uint16_t port;
     
     len = RADLEN(rad);
+    port = port_get(conf->addrinfo->ai_addr);
     
     if (*rad == RAD_Accounting_Request) {
        sap = (struct sockaddr *)&sa;
        memcpy(sap, conf->addrinfo->ai_addr, conf->addrinfo->ai_addrlen);
+       port_set(sap, ++port);
     } else
        sap = conf->addrinfo->ai_addr;
-    
-    switch (sap->sa_family) {
-    case AF_INET:
-       port = &((struct sockaddr_in *)sap)->sin_port;
-       break;
-    case AF_INET6:
-       port = &((struct sockaddr_in6 *)sap)->sin6_port;
-       break;
-    default:
-       return 0;
-    }
 
-    if (*rad == RAD_Accounting_Request)
-       *port = htons(ntohs(*port) + 1);
-    
     if (sendto(server->sock, rad, len, 0, sap, conf->addrinfo->ai_addrlen) >= 0) {
-       debug(DBG_DBG, "clienradputudp: sent UDP of length %d to %s port %d", len, conf->host, ntohs(*port));
+       debug(DBG_DBG, "clienradputudp: sent UDP of length %d to %s port %d", len, conf->host, port);
        return 1;
     }
 
@@ -156,41 +167,89 @@ void *udpclientrd(void *arg) {
     for (;;) {
        server = NULL;
        buf = radudpget(*s, NULL, &server, NULL);
-       if (!replyh(server, buf))
-           free(buf);
+       replyh(server, buf);
     }
 }
 
 void *udpserverrd(void *arg) {
-    struct request rq;
+    struct request *rq;
     int *sp = (int *)arg;
     
     for (;;) {
-       memset(&rq, 0, sizeof(struct request));
-       rq.buf = radudpget(*sp, &rq.from, NULL, &rq.fromsa);
-       rq.fromudpsock = *sp;
-       radsrv(&rq);
+       rq = newrequest();
+       if (!rq) {
+           sleep(5); /* malloc failed */
+           continue;
+       }
+       rq->buf = radudpget(*sp, &rq->from, NULL, &rq->udpport);
+       rq->udpsock = *sp;
+       radsrv(rq);
     }
     free(sp);
 }
 
 void *udpserverwr(void *arg) {
     struct queue *replyq = (struct queue *)arg;
-    struct reply *reply;
+    struct request *reply;
+    struct sockaddr_storage to;
     
     for (;;) {
        pthread_mutex_lock(&replyq->mutex);
-       while (!(reply = (struct reply *)list_shift(replyq->entries))) {
+       while (!(reply = (struct request *)list_shift(replyq->entries))) {
            debug(DBG_DBG, "udp server writer, waiting for signal");
            pthread_cond_wait(&replyq->cond, &replyq->mutex);
            debug(DBG_DBG, "udp server writer, got signal");
        }
        pthread_mutex_unlock(&replyq->mutex);
 
-       if (sendto(reply->toudpsock, reply->buf, RADLEN(reply->buf), 0,
-                  (struct sockaddr *)&reply->tosa, SOCKADDR_SIZE(reply->tosa)) < 0)
-           debug(DBG_WARN, "sendudp: send failed");
-       free(reply->buf);
-       free(reply);
+       memcpy(&to, reply->from->addr, SOCKADDRP_SIZE(reply->from->addr));
+       port_set((struct sockaddr *)&to, reply->udpport);
+       if (sendto(reply->udpsock, reply->replybuf, RADLEN(reply->replybuf), 0, (struct sockaddr *)&to, SOCKADDR_SIZE(to)) < 0)
+           debug(DBG_WARN, "udpserverwr: send failed");
+       freerq(reply);
+    }
+}
+
+void addclientudp(struct client *client) {
+    client->replyq = server_replyq;
+}
+
+void addserverextraudp(struct clsrvconf *conf) {
+    switch (conf->addrinfo->ai_family) {
+    case AF_INET:
+       if (client4_sock < 0) {
+           client4_sock = bindtoaddr(getsrcprotores(RAD_UDP), AF_INET, 0, 1);
+           if (client4_sock < 0)
+               debugx(1, DBG_ERR, "addserver: failed to create client socket for server %s", conf->host);
+       }
+       conf->servers->sock = client4_sock;
+       break;
+    case AF_INET6:
+       if (client6_sock < 0) {
+           client6_sock = bindtoaddr(getsrcprotores(RAD_UDP), AF_INET6, 0, 1);
+           if (client6_sock < 0)
+               debugx(1, DBG_ERR, "addserver: failed to create client socket for server %s", conf->host);
+       }
+       conf->servers->sock = client6_sock;
+       break;
+    default:
+       debugx(1, DBG_ERR, "addserver: unsupported address family");
+    }
+}
+
+void initextraudp() {
+    pthread_t cl4th, cl6th, srvth;
+    
+    if (client4_sock >= 0)
+       if (pthread_create(&cl4th, NULL, udpclientrd, (void *)&client4_sock))
+           debugx(1, DBG_ERR, "pthread_create failed");
+    if (client6_sock >= 0)
+       if (pthread_create(&cl6th, NULL, udpclientrd, (void *)&client6_sock))
+           debugx(1, DBG_ERR, "pthread_create failed");
+
+    if (find_clconf_type(RAD_UDP, NULL)) {
+       server_replyq = newqueue();
+       if (pthread_create(&srvth, NULL, udpserverwr, (void *)server_replyq))
+           debugx(1, DBG_ERR, "pthread_create failed");
     }
 }