Preliminary support for trust router code

diff --git a/src/modules/rlm_realm/all.mk b/src/modules/rlm_realm/all.mk
index d726706..c3b5332 100644 (file)
--- a/src/modules/rlm_realm/all.mk
+++ b/src/modules/rlm_realm/all.mk
@@ -1,2 +1,10 @@
 TARGET         := rlm_realm.a
 SOURCES                := rlm_realm.c
+
+#TRUSTROUTER   = yes
+
+ifneq "$(TRUSTROUTER)" ""
+SRC_CFLAGS     += -I /path/to/moonshot/include/ -D HAVE_TRUST_ROUTER_TR_DH_H
+TGT_LDLIBS     += -ltr_tid
+SOURCES                += trustrouter.c
+endif

diff --git a/src/modules/rlm_realm/rlm_realm.c b/src/modules/rlm_realm/rlm_realm.c
index d7d517a..f260460 100644 (file)
--- a/src/modules/rlm_realm/rlm_realm.c
+++ b/src/modules/rlm_realm/rlm_realm.c
@@ -25,6 +25,8 @@ RCSID("$Id$")
 #include <freeradius-devel/radiusd.h>
 #include <freeradius-devel/modules.h>
 
+#include "trustrouter.h"
+
 #define  REALM_FORMAT_PREFIX   0
 #define  REALM_FORMAT_SUFFIX   1
 
@@ -34,6 +36,13 @@ typedef struct realm_config_t {
        char const      *delim;
        bool            ignore_default;
        bool            ignore_null;
+
+#ifdef HAVE_TRUST_ROUTER_TR_DH_H
+       char const      *default_community;
+       char const      *rp_realm;
+       char const      *trust_router;
+       uint32_t        tr_port;
+#endif
 } realm_config_t;
 
 static CONF_PARSER module_config[] = {
@@ -41,6 +50,14 @@ static CONF_PARSER module_config[] = {
   { "delimiter", FR_CONF_OFFSET(PW_TYPE_STRING, realm_config_t, delim), "@" },
   { "ignore_default", FR_CONF_OFFSET(PW_TYPE_BOOLEAN, realm_config_t, ignore_default), "no" },
   { "ignore_null", FR_CONF_OFFSET(PW_TYPE_BOOLEAN, realm_config_t, ignore_null), "no" },
+
+#ifdef HAVE_TRUST_ROUTER_TR_DH_H
+  { "default_community", FR_CONF_OFFSET(PW_TYPE_STRING, realm_config_t,default_community),  "none" },
+  { "rp_realm", FR_CONF_OFFSET(PW_TYPE_STRING, realm_config_t,rp_realm),  "none" },
+  { "trust_router", FR_CONF_OFFSET(PW_TYPE_STRING, realm_config_t,trust_router),  "none" },
+  { "tr_port", FR_CONF_OFFSET(PW_TYPE_INTEGER, realm_config_t,tr_port),  "0" },
+#endif
+
   { NULL, -1, 0, NULL, NULL }    /* end the list */
 };
 
@@ -150,6 +167,13 @@ static int check_for_realm(void *instance, REQUEST *request, REALM **returnrealm
         *      Allow DEFAULT realms unless told not to.
         */
        realm = realm_find(realmname);
+#ifdef HAVE_TRUST_ROUTER_TR_DH_H
+       /*
+        *      Try querying for the dynamic realm.
+        */
+       if (!realm)
+               realm = tr_query_realm(realmname, inst->default_community, inst->rp_realm, inst->trust_router, inst->tr_port);
+#endif
        if (!realm) {
                RDEBUG2("No such realm \"%s\"", (!realmname) ? "NULL" : realmname);
                talloc_free(namebuf);
@@ -343,6 +367,11 @@ static int mod_instantiate(CONF_SECTION *conf, void *instance)
             return -1;
        }
 
+#ifdef HAVE_TRUST_ROUTER_TR_DH_H
+       /* initialize the trust router integration code */
+       if (!tr_init()) return -1;
+#endif
+
        return 0;
 }
 

diff --git a/src/modules/rlm_realm/trustrouter.c b/src/modules/rlm_realm/trustrouter.c
new file mode 100644 (file)
index 0000000..29e8b7f
--- /dev/null
+++ b/src/modules/rlm_realm/trustrouter.c
@@ -0,0 +1,421 @@
+/*
+ *   This program is is free software; you can redistribute it and/or modify
+ *   it under the terms of the GNU General Public License, version 2 if the
+ *   License as published by the Free Software Foundation.
+ *
+ *   This program is distributed in the hope that it will be useful,
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *   GNU General Public License for more details.
+ *
+ *   You should have received a copy of the GNU General Public License
+ *   along with this program; if not, write to the Free Software
+ *   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
+ */
+
+/**
+ * $Id$
+ * @file trustrouter.c
+ * @brief Integration with external trust router code
+ *
+ * @copyright 2014 Network RADIUS SARL
+ */
+#include <trust_router/tid.h>
+#include <freeradius-devel/radiusd.h>
+#include <freeradius-devel/rad_assert.h>
+#include <freeradius-devel/modules.h>
+#include <freeradius-devel/realms.h>
+
+#ifdef HAVE_TRUST_ROUTER_TR_DH_H
+#include "trustrouter.h"
+
+#include <trust_router/tr_dh.h>
+static TIDC_INSTANCE *global_tidc = NULL;
+
+struct resp_opaque {
+       REALM *orig_realm;
+       REALM *output_realm;
+       TID_RC result;
+       char err_msg[1024];
+       char *fr_realm_name;
+};
+
+
+bool tr_init(void) 
+{
+       if (global_tidc) return true;
+
+       global_tidc = tidc_create();
+       if (!global_tidc) {
+               DEBUG2( "tr_init: Error creating global TIDC instance.\n");
+               return false;
+       }
+
+       if (!tidc_set_dh(global_tidc, tr_create_dh_params(NULL, 0))) {
+               DEBUG2( "tr_init: Error creating client DH params.\n");
+               return false;
+       }
+
+       return true;
+}
+
+static fr_tls_server_conf_t *construct_tls(TIDC_INSTANCE *inst,
+                                          home_server_t *hs,
+                                          TID_SRVR_BLK *server)
+{
+       fr_tls_server_conf_t *tls;
+       unsigned char *key_buf = NULL;
+       ssize_t keylen;
+       char *hexbuf = NULL;
+       DH *aaa_server_dh;
+
+       tls = talloc_zero( hs, fr_tls_server_conf_t);
+       if (!tls) return NULL;
+
+       aaa_server_dh = tid_srvr_get_dh(server);
+       keylen = tr_compute_dh_key(&key_buf, aaa_server_dh->pub_key,
+                                  tidc_get_dh(inst));
+       if (keylen <= 0) {
+               DEBUG2("DH error");
+               goto error;
+       }
+
+       hexbuf = talloc_size(tls, keylen*2 + 1);
+       if (!hexbuf) goto error;
+
+       tr_bin_to_hex(key_buf, keylen, hexbuf, 2*keylen + 1);
+
+       tls->psk_password = hexbuf;
+       tls->psk_identity = talloc_strdup(tls, tid_srvr_get_key_name(server)->buf);
+
+       tls->cipher_list = talloc_strdup(tls, "PSK");
+       tls->fragment_size = 4200;
+       tls->ctx = tls_init_ctx(tls, 1);
+       if (!tls->ctx) goto error;
+
+       memset(key_buf, 0, keylen);
+       tr_dh_free(key_buf);
+       return tls;
+
+error:
+       if (key_buf) {
+               memset(key_buf, 0, keylen);
+               tr_dh_free(key_buf);
+       }
+       if (hexbuf) memset(hexbuf, 0, keylen*2);
+
+       if (tls) talloc_free(tls);
+       return NULL;
+}
+  
+static char *build_pool_name(TALLOC_CTX *ctx, TID_RESP *resp)
+{
+       size_t index, sa_len, sl;
+       TID_SRVR_BLK *server;
+       char *pool_name = NULL;
+       char addr_buf[256];
+       const struct sockaddr *sa;
+       pool_name = talloc_strdup(ctx, "hp-");
+
+       tid_resp_servers_foreach(resp, server, index) {
+               tid_srvr_get_address(server, &sa, &sa_len);
+               if (0 != getnameinfo(sa, sa_len,
+                                    addr_buf, sizeof(addr_buf)-1,
+                                    NULL, 0, NI_NUMERICHOST)) {
+                       DEBUG2("getnameinfo failed");
+                       return NULL;
+               }
+
+               sl = strlen(addr_buf);
+               rad_assert(sl+2 <= sizeof(addr_buf));
+
+               addr_buf[sl] = '-';
+               addr_buf[sl+1] = '\0';
+
+               pool_name = talloc_strdup_append(pool_name, addr_buf);
+       }
+
+       return pool_name;
+}
+
+static home_server_t *srvr_blk_to_home_server(TALLOC_CTX *ctx,
+                                             TIDC_INSTANCE *inst,
+                                             TID_SRVR_BLK *blk,
+                                             char const *realm_name)
+{
+       home_server_t *hs = NULL;
+       const struct sockaddr *sa = NULL;
+       size_t sa_len = 0;
+       fr_ipaddr_t home_server_ip;
+       uint16_t port;
+       char nametemp[256];
+
+       rad_assert(blk != NULL);
+       tid_srvr_get_address(blk, &sa, &sa_len);
+       switch(sa->sa_family) {
+
+       case AF_INET: {
+               const struct sockaddr_in *sin = (const struct sockaddr_in *) sa;
+               home_server_ip.af = AF_INET;
+               home_server_ip.scope = 0;
+               home_server_ip.ipaddr.ip4addr = sin->sin_addr;
+               port = ntohs(sin->sin_port);
+               break;
+       }
+
+       case AF_INET6: {
+               const struct sockaddr_in6 *sin6 = (const struct sockaddr_in6 *) sa;
+               home_server_ip.af = AF_INET6;
+               home_server_ip.scope = sin6->sin6_scope_id;
+               home_server_ip.ipaddr.ip6addr = sin6->sin6_addr;
+               break;
+       }
+
+       default:
+               DEBUG2("Unknown address family in tid srvr block");
+               return NULL;
+       }
+  
+       if (0 != getnameinfo(sa, sa_len,
+                            nametemp,
+                            sizeof nametemp,
+                            NULL, 0,
+                            NI_NUMERICHOST)) {
+               DEBUG2("getnameinfo failed");
+               return NULL;
+       }
+
+       hs = talloc_zero(ctx, home_server_t);
+       if (!hs) return NULL;
+
+       /*
+        *      All dynamic home servers are for authentication.
+        */
+       hs->type = HOME_TYPE_AUTH;
+       hs->ipaddr = home_server_ip;
+       hs->src_ipaddr.af = home_server_ip.af;
+       hs->name = talloc_asprintf(hs, "%s-for-%s", nametemp, realm_name);
+       hs->hostname = talloc_strdup(hs, nametemp);
+       hs->port = port;
+       hs->proto = IPPROTO_TCP;
+       hs->secret = talloc_strdup(hs, "radsec");
+       hs->response_window.tv_sec = 30;
+       hs->last_packet_recv = time(NULL);
+
+       hs->tls = construct_tls(inst, hs, blk);
+       if (!hs->tls) goto error;
+
+       realm_home_server_sanitize(hs, NULL);
+
+       return hs;
+error:
+       talloc_free(hs);
+       return NULL;
+}
+
+static home_pool_t *servers_to_pool(TALLOC_CTX *ctx,
+                                   TIDC_INSTANCE *inst,
+                                   TID_RESP *resp,
+                                   const char *realm_name)
+{
+       home_pool_t *pool = NULL;
+       size_t num_servers = 0, index;
+       TID_SRVR_BLK *server = NULL;
+
+       num_servers = tid_resp_get_num_servers(resp);
+
+       pool = talloc_zero_size(ctx, sizeof(*pool) + num_servers *sizeof(home_server_t *));
+       if (!pool) goto error;
+
+       pool->type = HOME_POOL_CLIENT_PORT_BALANCE;
+       pool->server_type = HOME_TYPE_AUTH;
+
+       pool->name = build_pool_name(pool, resp);
+       if (!pool->name) goto error;
+
+       pool->num_home_servers = num_servers;
+
+       tid_resp_servers_foreach(resp, server, index) {
+               home_server_t *hs;
+
+               hs = srvr_blk_to_home_server(pool, inst, server, realm_name);
+               if (!hs) goto error;
+               pool->servers[index] = hs;
+       }
+
+       return pool;
+
+error:
+       if (pool) talloc_free(pool);
+
+       return NULL;
+}
+
+static void tr_response_func( TIDC_INSTANCE *inst,
+                             UNUSED TID_REQ *req, TID_RESP *resp,
+                             void *cookie)
+{
+       struct resp_opaque  *opaque = (struct resp_opaque *) cookie;
+       REALM *nr = opaque->orig_realm;
+
+       if (tid_resp_get_result(resp) != TID_SUCCESS) {
+
+               size_t err_msg_len;
+               opaque->result = tid_resp_get_result(resp);
+               memset(opaque->err_msg, 0, sizeof(opaque->err_msg));
+
+               if (tid_resp_get_err_msg(resp)) {
+                       TR_NAME *err_msg = tid_resp_get_err_msg(resp);
+                       err_msg_len = err_msg->len+1;
+                       if (err_msg_len > sizeof(opaque->err_msg))
+                               err_msg_len = sizeof(opaque->err_msg);
+                       strlcpy(opaque->err_msg, err_msg->buf, err_msg_len);
+               }
+               return;
+       }
+               
+       if (!nr) {
+               nr = talloc_zero(NULL, REALM);
+               if (!nr) goto error;
+               nr->name = talloc_move(nr, &opaque->fr_realm_name);
+               nr->auth_pool = servers_to_pool(nr, inst, resp, opaque->fr_realm_name);
+               if (!realm_realm_add(nr, NULL)) goto error;
+
+       } else {
+               home_pool_t *old_pool = nr->auth_pool;
+               home_pool_t *new_pool;
+
+               new_pool = servers_to_pool(nr, inst, resp, opaque->fr_realm_name);
+               if (!new_pool) {
+                       ERROR("Unable to recreate pool for %s", opaque->fr_realm_name);
+                       goto error;
+               }
+               nr->auth_pool = new_pool;
+
+               /*      FIXME: Really we want to free this a few
+                 *     seconds from now, so that anyone who is load
+                 *     balancing in the new pool has gotten this
+                 *     update to avoid the race or at least make it
+                 *     basically unlikely to ever happen.
+                */
+               talloc_free(old_pool);
+       }
+
+       opaque->output_realm = nr;
+       return;
+               
+error:
+       if (nr && !opaque->orig_realm) {
+               talloc_free(nr);
+       }
+
+       return;
+}
+
+static bool update_required(REALM const *r)
+{
+       const home_pool_t *pool;
+       int i;
+       const home_server_t *server;
+       time_t now = time(NULL);
+
+       /*
+        *      No pool.  Not our realm.
+        */
+       if (!r->auth_pool) return false;
+
+       pool = r->auth_pool;
+
+       for (i = 0; i < pool->num_home_servers; i++) {
+               server = pool->servers[i];
+
+               /*
+                *      The realm was loaded from the configuration
+                *      files.
+                */
+               if (server->cs) return false;
+
+               /*
+                *      These values don't make sense.
+                */
+               if ((server->last_packet_recv > (now + 5)) || 
+                   (server->last_failed_open > (now + 5))) {
+                       continue;
+               }
+
+               /*
+                *      This server has received a packet in the last
+                *      5 minutes.  It doesn't need an update.
+                */
+               if ((now - server->last_packet_recv) < 300) {
+                       return false;
+               }
+
+               /*
+                *      If we've opened in the last 10 minutes, then
+                *      open rather than update.
+                */
+               if ((now - server->last_failed_open) > 600) {
+                       return false;
+               }
+       }
+
+       return true;
+}
+
+    
+
+REALM *tr_query_realm(char const *realm,
+                     char const  *community,
+                     char const *rprealm,
+                     char const *trustrouter,
+                     unsigned int port)
+{
+       int conn = 0;
+       int rcode;
+       gss_ctx_id_t gssctx;
+       struct resp_opaque cookie;
+
+       if (!realm) return NULL;
+
+       /* clear the cookie structure */
+       memset (&cookie, 0, sizeof(cookie));
+
+       cookie.fr_realm_name = talloc_asprintf(NULL,
+                                              "%s%%%s",
+                                              community, realm);
+
+       cookie.orig_realm = cookie.output_realm = realm_find(cookie.fr_realm_name);
+
+       if (cookie.orig_realm && !update_required(cookie.orig_realm)) {
+               talloc_free(cookie.fr_realm_name);
+               return cookie.orig_realm;
+       }
+    
+       /* Set-up TID connection */
+       DEBUG2("Opening TIDC connection to %s:%u", trustrouter, port);
+
+       conn = tidc_open_connection(global_tidc, (char *)trustrouter, port, &gssctx);
+       if (conn < 0) {
+               /* Handle error */
+               DEBUG2("Error in tidc_open_connection.\n");
+               goto cleanup;
+       }
+
+       /* Send a TID request */
+       rcode = tidc_send_request(global_tidc, conn, gssctx, (char *)rprealm, 
+                                 (char *) realm, (char *)community, 
+                                 &tr_response_func, &cookie);
+       if (rcode < 0) {
+               /* Handle error */
+               DEBUG2("Error in tidc_send_request, rc = %d.\n", rcode);
+               goto cleanup;
+       }
+
+cleanup:
+       if (cookie.fr_realm_name)
+               talloc_free(cookie.fr_realm_name);
+
+       return cookie.output_realm;
+}
+#endif /* HAVE_TRUST_ROUTER_TR_DH_H */

diff --git a/src/modules/rlm_realm/trustrouter.h b/src/modules/rlm_realm/trustrouter.h
new file mode 100644 (file)
index 0000000..40cc800
--- /dev/null
+++ b/src/modules/rlm_realm/trustrouter.h
@@ -0,0 +1,37 @@
+/*
+ *   This program is is free software; you can redistribute it and/or modify
+ *   it under the terms of the GNU General Public License, version 2 if the
+ *   License as published by the Free Software Foundation.
+ *
+ *   This program is distributed in the hope that it will be useful,
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *   GNU General Public License for more details.
+ *
+ *   You should have received a copy of the GNU General Public License
+ *   along with this program; if not, write to the Free Software
+ *   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
+ */
+
+/**
+ * $Id$
+ * @file trustrouter.h
+ * @brief Headers for trust router code
+ *
+ * @copyright 2014 Network RADIUS SARL
+ */
+#ifndef TRUSTROUTER_INTEG_H
+#define TRUSTROUTER_INTEG_H
+
+#include <freeradius-devel/radiusd.h>
+#include <freeradius-devel/modules.h>
+
+REALM *tr_query_realm(char const *realm,
+                     char const *community,
+                     char const *rprealm,
+                     char const *trustrouter,
+                     unsigned int port);
+
+bool tr_init(void);
+
+#endif