allowing build with only specific transports
[libradsec.git] / radsecproxy.c
index fdb2838..2417baa 100644 (file)
 */
 
 /* Bugs:
- * TCP accounting not yet supported
- * We are not removing client requests from dynamic servers, see removeclientrqs()
- * Need to remove UDP clients when no activity for a while...
+ * May segfault when dtls connections go down? More testing needed
  * Remove expired stuff from clients request list?
+ * Multiple outgoing connections if not enough IDs? (multiple servers per conf?)
+ * Useful for TCP accounting? Now we require separate server config for alt port
  */
 
 #include <signal.h>
@@ -82,15 +82,14 @@ static struct list *clconfs, *srvconfs;
 struct list *realms;
 struct hash *tlsconfs, *rewriteconfs;
 
-static struct addrinfo *srcprotores[4] = { NULL, NULL, NULL, NULL };
-
 static pthread_mutex_t *ssl_locks = NULL;
 static long *ssl_lock_count;
 extern int optind;
 extern char *optarg;
+static const struct protodefs *protodefs[RAD_PROTOCOUNT];
 
 /* minimum required declarations to avoid reordering code */
-void adddynamicrealmserver(struct realm *realm, struct clsrvconf *conf, char *id);
+struct realm *adddynamicrealmserver(struct realm *realm, struct clsrvconf *conf, char *id);
 int dynamicconfig(struct server *server);
 int confserver_cb(struct gconffile **cf, void *arg, char *block, char *opt, char *val);
 void freerealm(struct realm *realm);
@@ -99,88 +98,15 @@ void freerq(struct request *rq);
 void freerqoutdata(struct rqout *rqout);
 void rmclientrq(struct request *rq, uint8_t id);
 
-static const struct protodefs protodefs[] = {
-    {   "udp", /* UDP, assuming RAD_UDP defined as 0 */
-       NULL, /* secretdefault */
-       SOCK_DGRAM, /* socktype */
-       "1812", /* portdefault */
-       REQUEST_RETRY_COUNT, /* retrycountdefault */
-       10, /* retrycountmax */
-       REQUEST_RETRY_INTERVAL, /* retryintervaldefault */
-       60, /* retryintervalmax */
-       DUPLICATE_INTERVAL, /* duplicateintervaldefault */
-       udpserverrd, /* listener */
-       &options.sourceudp, /* srcaddrport */
-       NULL, /* connecter */
-       NULL, /* clientconnreader */
-       clientradputudp, /* clientradput */
-       addclientudp, /* addclient */
-       addserverextraudp, /* addserverextra */
-       initextraudp /* initextra */
-    },
-    {   "tls", /* TLS, assuming RAD_TLS defined as 1 */
-       "mysecret", /* secretdefault */
-       SOCK_STREAM, /* socktype */
-       "2083", /* portdefault */
-       0, /* retrycountdefault */
-       0, /* retrycountmax */
-       REQUEST_RETRY_INTERVAL * REQUEST_RETRY_COUNT, /* retryintervaldefault */
-       60, /* retryintervalmax */
-       DUPLICATE_INTERVAL, /* duplicateintervaldefault */
-       tlslistener, /* listener */
-       &options.sourcetls, /* srcaddrport */
-       tlsconnect, /* connecter */
-       tlsclientrd, /* clientconnreader */
-       clientradputtls, /* clientradput */
-       NULL, /* addclient */
-       NULL, /* addserverextra */
-       NULL /* initextra */
-    },
-    {   "tcp", /* TCP, assuming RAD_TCP defined as 2 */
-       NULL, /* secretdefault */
-       SOCK_STREAM, /* socktype */
-       "1812", /* portdefault */
-       0, /* retrycountdefault */
-       0, /* retrycountmax */
-       REQUEST_RETRY_INTERVAL * REQUEST_RETRY_COUNT, /* retryintervaldefault */
-       60, /* retryintervalmax */
-       DUPLICATE_INTERVAL, /* duplicateintervaldefault */
-       tcplistener, /* listener */
-       &options.sourcetcp, /* srcaddrport */
-       tcpconnect, /* connecter */
-       tcpclientrd, /* clientconnreader */
-       clientradputtcp, /* clientradput */
-       NULL, /* addclient */
-       NULL, /* addserverextra */
-       NULL /* initextra */
-    },
-    {   "dtls", /* DTLS, assuming RAD_DTLS defined as 3 */
-       "mysecret", /* secretdefault */
-       SOCK_DGRAM, /* socktype */
-       "2083", /* portdefault */
-       REQUEST_RETRY_COUNT, /* retrycountdefault */
-       10, /* retrycountmax */
-       REQUEST_RETRY_INTERVAL, /* retryintervaldefault */
-       60, /* retryintervalmax */
-       DUPLICATE_INTERVAL, /* duplicateintervaldefault */
-       udpdtlsserverrd, /* listener */
-       &options.sourcedtls, /* srcaddrport */
-       dtlsconnect, /* connecter */
-       dtlsclientrd, /* clientconnreader */
-       clientradputdtls, /* clientradput */
-       NULL, /* addclient */
-       addserverextradtls, /* addserverextra */
-       initextradtls /* initextra */
-    },
-    {   NULL
-    }
-};
+static const struct protodefs *(*protoinits[])(uint8_t) = { udpinit, tlsinit, tcpinit, dtlsinit };
 
 uint8_t protoname2int(const char *name) {
-    int i;
+    uint8_t i;
 
-    for (i = 0; protodefs[i].name && strcasecmp(protodefs[i].name, name); i++);
-    return i;
+    for (i = 0; i < RAD_PROTOCOUNT; i++)
+       if (protodefs[i] && protodefs[i]->name && !strcasecmp(protodefs[i]->name, name))
+           return i;
+    return 255;
 }
     
 /* callbacks for making OpenSSL thread safe */
@@ -205,49 +131,57 @@ static int pem_passwd_cb(char *buf, int size, int rwflag, void *userdata) {
 }
 
 static int verify_cb(int ok, X509_STORE_CTX *ctx) {
-  char buf[256];
-  X509 *err_cert;
-  int err, depth;
-
-  err_cert = X509_STORE_CTX_get_current_cert(ctx);
-  err = X509_STORE_CTX_get_error(ctx);
-  depth = X509_STORE_CTX_get_error_depth(ctx);
-
-  if (depth > MAX_CERT_DEPTH) {
-      ok = 0;
-      err = X509_V_ERR_CERT_CHAIN_TOO_LONG;
-      X509_STORE_CTX_set_error(ctx, err);
-  }
-
-  if (!ok) {
-      X509_NAME_oneline(X509_get_subject_name(err_cert), buf, 256);
-      debug(DBG_WARN, "verify error: num=%d:%s:depth=%d:%s", err, X509_verify_cert_error_string(err), depth, buf);
-
-      switch (err) {
-      case X509_V_ERR_UNABLE_TO_GET_ISSUER_CERT:
-         X509_NAME_oneline(X509_get_issuer_name(ctx->current_cert), buf, 256);
-         debug(DBG_WARN, "\tIssuer=%s", buf);
-         break;
-      case X509_V_ERR_CERT_NOT_YET_VALID:
-      case X509_V_ERR_ERROR_IN_CERT_NOT_BEFORE_FIELD:
-         debug(DBG_WARN, "\tCertificate not yet valid");
-         break;
-      case X509_V_ERR_CERT_HAS_EXPIRED:
-         debug(DBG_WARN, "Certificate has expired");
-         break;
-      case X509_V_ERR_ERROR_IN_CERT_NOT_AFTER_FIELD:
-         debug(DBG_WARN, "Certificate no longer valid (after notAfter)");
-         break;
-      }
-  }
+    char *buf = NULL;
+    X509 *err_cert;
+    int err, depth;
+
+    err_cert = X509_STORE_CTX_get_current_cert(ctx);
+    err = X509_STORE_CTX_get_error(ctx);
+    depth = X509_STORE_CTX_get_error_depth(ctx);
+
+    if (depth > MAX_CERT_DEPTH) {
+       ok = 0;
+       err = X509_V_ERR_CERT_CHAIN_TOO_LONG;
+       X509_STORE_CTX_set_error(ctx, err);
+    }
+
+    if (!ok) {
+       if (err_cert)
+           buf = X509_NAME_oneline(X509_get_subject_name(err_cert), NULL, 0);
+       debug(DBG_WARN, "verify error: num=%d:%s:depth=%d:%s", err, X509_verify_cert_error_string(err), depth, buf ? buf : "");
+       free(buf);
+       buf = NULL;
+       
+       switch (err) {
+       case X509_V_ERR_UNABLE_TO_GET_ISSUER_CERT:
+           if (err_cert) {
+               buf = X509_NAME_oneline(X509_get_issuer_name(err_cert), NULL, 0);
+               if (buf) {
+                   debug(DBG_WARN, "\tIssuer=%s", buf);
+                   free(buf);
+                   buf = NULL;
+               }
+           }
+           break;
+       case X509_V_ERR_CERT_NOT_YET_VALID:
+       case X509_V_ERR_ERROR_IN_CERT_NOT_BEFORE_FIELD:
+           debug(DBG_WARN, "\tCertificate not yet valid");
+           break;
+       case X509_V_ERR_CERT_HAS_EXPIRED:
+           debug(DBG_WARN, "Certificate has expired");
+           break;
+       case X509_V_ERR_ERROR_IN_CERT_NOT_AFTER_FIELD:
+           debug(DBG_WARN, "Certificate no longer valid (after notAfter)");
+           break;
+       case X509_V_ERR_NO_EXPLICIT_POLICY:
+           debug(DBG_WARN, "No Explicit Certificate Policy");
+           break;
+       }
+    }
 #ifdef DEBUG  
-  printf("certificate verify returns %d\n", ok);
+    printf("certificate verify returns %d\n", ok);
 #endif  
-  return ok;
-}
-
-struct addrinfo *getsrcprotores(uint8_t type) {
-    return srcprotores[type];
+    return ok;
 }
 
 int resolvepeer(struct clsrvconf *conf, int ai_flags) {
@@ -310,7 +244,7 @@ int resolvepeer(struct clsrvconf *conf, int ai_flags) {
                freeaddrinfo(addrinfo);
                return 0;
            }
-           conf->prefixlen = plen;
+           conf->prefixlen = (uint8_t)plen;
        } else
            conf->prefixlen = 255;
     }
@@ -366,7 +300,7 @@ struct clsrvconf *resolve_hostport(uint8_t type, char *lconf, char *default_port
        debugx(1, DBG_ERR, "malloc failed");
     memset(conf, 0, sizeof(struct clsrvconf));
     conf->type = type;
-    conf->pdef = &protodefs[conf->type];
+    conf->pdef = protodefs[conf->type];
     if (lconf) {
        parsehostport(lconf, conf, default_port);
        if (!strcmp(conf->host, "*")) {
@@ -388,56 +322,21 @@ void freeclsrvres(struct clsrvconf *res) {
     free(res);
 }
 
-int bindtoaddr(struct addrinfo *addrinfo, int family, int reuse, int v6only) {
-    int s, on = 1;
-    struct addrinfo *res;
+struct addrinfo *resolve_hostport_addrinfo(uint8_t type, char *hostport) {
+    struct addrinfo *ai;
+    struct clsrvconf *res;
 
-    for (res = addrinfo; res; res = res->ai_next) {
-       if (family != AF_UNSPEC && family != res->ai_family)
-           continue;
-       s = socket(res->ai_family, res->ai_socktype, res->ai_protocol);
-       if (s < 0) {
-           debug(DBG_WARN, "bindtoaddr: socket failed");
-           continue;
-       }
-       if (reuse)
-           setsockopt(s, SOL_SOCKET, SO_REUSEADDR, &on, sizeof(on));
-#ifdef IPV6_V6ONLY
-       if (v6only)
-           setsockopt(s, IPPROTO_IPV6, IPV6_V6ONLY, &on, sizeof(on));
-#endif
-       if (!bind(s, res->ai_addr, res->ai_addrlen))
-           return s;
-       debug(DBG_WARN, "bindtoaddr: bind failed");
-       close(s);
-    }
-    return -1;
+    res = resolve_hostport(type, hostport, NULL);
+    ai = res->addrinfo;
+    res->addrinfo = NULL;
+    freeclsrvres(res);
+    return ai;
 }
-       
-int connecttcp(struct addrinfo *addrinfo, struct addrinfo *src) {
-    int s;
-    struct addrinfo *res;
-
-    s = -1;
-    for (res = addrinfo; res; res = res->ai_next) {
-       s = bindtoaddr(src, res->ai_family, 1, 1);
-        if (s < 0) {
-            debug(DBG_WARN, "connecttoserver: socket failed");
-            continue;
-        }
-        if (connect(s, res->ai_addr, res->ai_addrlen) == 0)
-            break;
-        debug(DBG_WARN, "connecttoserver: connect failed");
-        close(s);
-        s = -1;
-    }
-    return s;
-}        
-
+    
 /* returns 1 if the len first bits are equal, else 0 */
 int prefixmatch(void *a1, void *a2, uint8_t len) {
     static uint8_t mask[] = { 0, 0x80, 0xc0, 0xe0, 0xf0, 0xf8, 0xfc, 0xfe };
-    int r, l = len / 8;
+    uint8_t r, l = len / 8;
     if (l && memcmp(a1, a2, l))
        return 0;
     r = len % 8;
@@ -577,7 +476,6 @@ struct client *addclient(struct clsrvconf *conf, uint8_t lock) {
     }
     
     memset(new, 0, sizeof(struct client));
-    pthread_mutex_init(&new->lock, NULL);
     new->conf = conf;
     if (conf->pdef->addclient)
        conf->pdef->addclient(new);
@@ -589,43 +487,60 @@ struct client *addclient(struct clsrvconf *conf, uint8_t lock) {
     return new;
 }
 
-void removeclient(struct client *client) {
+void removeclientrqs_sendrq_freeserver_lock(uint8_t wantlock) {
+    static pthread_mutex_t lock = PTHREAD_MUTEX_INITIALIZER;
+
+    if (wantlock)
+       pthread_mutex_lock(&lock);
+    else
+       pthread_mutex_unlock(&lock);
+}
+    
+void removeclientrqs(struct client *client) {
+    struct request *rq;
+    struct rqout *rqout;
+    int i;
+
+    removeclientrqs_sendrq_freeserver_lock(1);
+    for (i = 0; i < MAX_REQUESTS; i++) {
+       rq = client->rqs[i];
+       if (!rq)
+           continue;
+       if (rq->to) {
+           rqout = rq->to->requests + rq->newid;
+           pthread_mutex_lock(rqout->lock);
+           if (rqout->rq == rq) /* still pointing to our request */
+               freerqoutdata(rqout);
+           pthread_mutex_unlock(rqout->lock);
+       }
+       freerq(rq);
+    }
+    removeclientrqs_sendrq_freeserver_lock(0);
+}
+
+void removelockedclient(struct client *client) {
     struct clsrvconf *conf;
     
-    if (!client)
-       return;
     conf = client->conf;
-    pthread_mutex_lock(conf->lock);
     if (conf->clients) {
-       pthread_mutex_lock(&client->lock);
+       removeclientrqs(client);
        removequeue(client->replyq);
        list_removedata(conf->clients, client);
-       pthread_mutex_unlock(&client->lock);
-       pthread_mutex_destroy(&client->lock);
        free(client->addr);
        free(client);
     }
-    pthread_mutex_unlock(conf->lock);
 }
 
-void removeclientrqs(struct client *client) {
-    struct list_node *entry;
-    struct server *server;
-    struct rqout *rqout;
-    int i;
+void removeclient(struct client *client) {
+    struct clsrvconf *conf;
     
-    for (entry = list_first(srvconfs); entry; entry = list_next(entry)) {
-       server = ((struct clsrvconf *)entry->data)->servers;
-       if (!server)
-           continue;
-       for (i = 0; i < MAX_REQUESTS; i++) {
-           rqout = server->requests + i;
-           pthread_mutex_lock(rqout->lock);
-           if (rqout->rq && rqout->rq->from == client)
-               freerqoutdata(rqout);
-           pthread_mutex_unlock(rqout->lock);
-       }
-    }
+    if (!client)
+       return;
+
+    conf = client->conf;
+    pthread_mutex_lock(conf->lock);
+    removelockedclient(client);
+    pthread_mutex_unlock(conf->lock);
 }
 
 void freeserver(struct server *server, uint8_t destroymutex) {
@@ -634,9 +549,12 @@ void freeserver(struct server *server, uint8_t destroymutex) {
     if (!server)
        return;
 
+    removeclientrqs_sendrq_freeserver_lock(1);
     if (server->requests) {
        rqout = server->requests;
        for (end = rqout + MAX_REQUESTS; rqout < end; rqout++) {
+           if (rqout->rq)
+               rqout->rq->to = NULL;
            freerqoutdata(rqout);
            pthread_mutex_destroy(rqout->lock);
            free(rqout->lock);
@@ -653,11 +571,11 @@ void freeserver(struct server *server, uint8_t destroymutex) {
        pthread_cond_destroy(&server->newrq_cond);
        pthread_mutex_destroy(&server->newrq_mutex);
     }
+    removeclientrqs_sendrq_freeserver_lock(0);
     free(server);
 }
 
 int addserver(struct clsrvconf *conf) {
-    struct clsrvconf *res;
     uint8_t type;
     int i;
     
@@ -676,13 +594,8 @@ int addserver(struct clsrvconf *conf) {
     type = conf->type;
     if (type == RAD_DTLS)
        conf->servers->rbios = newqueue();
-    
-    if (!srcprotores[type]) {
-       res = resolve_hostport(type, *conf->pdef->srcaddrport, NULL);
-       srcprotores[type] = res->addrinfo;
-       res->addrinfo = NULL;
-       freeclsrvres(res);
-    }
+
+    conf->pdef->setsrcres();
 
     conf->servers->sock = -1;
     if (conf->pdef->addserverextra)
@@ -929,6 +842,12 @@ unsigned char *attrget(unsigned char *attrs, int length, uint8_t type) {
     return NULL;
 }
 
+struct request *newrqref(struct request *rq) {
+    if (rq)
+       rq->refcount++;
+    return rq;
+}
+
 void freerq(struct request *rq) {
     if (!rq)
        return;
@@ -950,6 +869,10 @@ void freerqoutdata(struct rqout *rqout) {
     if (!rqout)
        return;
     if (rqout->rq) {
+       if (rqout->rq->buf) {
+           free(rqout->rq->buf);
+           rqout->rq->buf = NULL;
+       }
        freerq(rqout->rq);
        rqout->rq = NULL;
     }
@@ -957,21 +880,30 @@ void freerqoutdata(struct rqout *rqout) {
     memset(&rqout->expiry, 0, sizeof(struct timeval));
 }
 
-void sendrq(struct server *to, struct request *rq) {
-    int i;
+void sendrq(struct request *rq) {
+    int i, start;
+    struct server *to;
+
+    removeclientrqs_sendrq_freeserver_lock(1);
+    to = rq->to;
+    if (!to)
+       goto errexit;
     
+    start = to->conf->statusserver ? 1 : 0;
     pthread_mutex_lock(&to->newrq_mutex);
-    /* might simplify if only try nextid, might be ok */
-    for (i = to->nextid; i < MAX_REQUESTS; i++) {
-       if (!to->requests[i].rq) {
-           pthread_mutex_lock(to->requests[i].lock);
-           if (!to->requests[i].rq)
-               break;
-           pthread_mutex_unlock(to->requests[i].lock);
+    if (start && rq->msg->code == RAD_Status_Server) {
+       pthread_mutex_lock(to->requests[0].lock);
+       if (to->requests[0].rq) {
+           pthread_mutex_unlock(to->requests[0].lock);
+           debug(DBG_WARN, "sendrq: status server already in queue, dropping request");
+           goto errexit;
        }
-    }
-    if (i == MAX_REQUESTS) {
-       for (i = 0; i < to->nextid; i++) {
+       i = 0;
+    } else {
+       if (!to->nextid)
+           to->nextid = start;
+       /* might simplify if only try nextid, might be ok */
+       for (i = to->nextid; i < MAX_REQUESTS; i++) {
            if (!to->requests[i].rq) {
                pthread_mutex_lock(to->requests[i].lock);
                if (!to->requests[i].rq)
@@ -979,28 +911,35 @@ void sendrq(struct server *to, struct request *rq) {
                pthread_mutex_unlock(to->requests[i].lock);
            }
        }
-       if (i == to->nextid) {
-           debug(DBG_WARN, "sendrq: no room in queue, dropping request");
-           rmclientrq(rq, rq->msg->id);
-           freerq(rq);
-           goto exit;
+       if (i == MAX_REQUESTS) {
+           for (i = start; i < to->nextid; i++) {
+               if (!to->requests[i].rq) {
+                   pthread_mutex_lock(to->requests[i].lock);
+                   if (!to->requests[i].rq)
+                       break;
+                   pthread_mutex_unlock(to->requests[i].lock);
+               }
+           }
+           if (i == to->nextid) {
+               debug(DBG_WARN, "sendrq: no room in queue, dropping request");
+               goto errexit;
+           }
        }
     }
-
+    rq->newid = (uint8_t)i;
     rq->msg->id = (uint8_t)i;
     rq->buf = radmsg2buf(rq->msg, (uint8_t *)to->conf->secret);
     if (!rq->buf) {
        pthread_mutex_unlock(to->requests[i].lock);
        debug(DBG_ERR, "sendrq: radmsg2buf failed");
-       rmclientrq(rq, rq->msg->id);
-       freerq(rq);
-       goto exit;
+       goto errexit;
     }
     
     debug(DBG_DBG, "sendrq: inserting packet with id %d in queue for %s", i, to->conf->host);
     to->requests[i].rq = rq;
     pthread_mutex_unlock(to->requests[i].lock);
-    to->nextid = i + 1;
+    if (i >= start) /* i is not reserved for statusserver */
+       to->nextid = i + 1;
 
     if (!to->newrq) {
        to->newrq = 1;
@@ -1008,8 +947,16 @@ void sendrq(struct server *to, struct request *rq) {
        pthread_cond_signal(&to->newrq_cond);
     }
 
- exit:
     pthread_mutex_unlock(&to->newrq_mutex);
+    removeclientrqs_sendrq_freeserver_lock(0);
+    return;
+
+ errexit:
+    if (rq->from)
+       rmclientrq(rq, rq->msg->id);
+    freerq(rq);
+    pthread_mutex_unlock(&to->newrq_mutex);
+    removeclientrqs_sendrq_freeserver_lock(0);
 }
 
 void sendreply(struct request *rq) {
@@ -1247,19 +1194,30 @@ int msmppdecrypt(uint8_t *text, uint8_t len, uint8_t *shared, uint8_t sharedlen,
     return 1;
 }
 
+struct realm *newrealmref(struct realm *r) {
+    if (r)
+       r->refcount++;
+    return r;
+}
+
+/* returns with lock on realm */
 struct realm *id2realm(struct list *realmlist, char *id) {
     struct list_node *entry;
-    struct realm *realm, *subrealm = NULL;
+    struct realm *realm, *subrealm;
 
     /* need to do locking for subrealms and check subrealm timers */
     for (entry = list_first(realmlist); entry; entry = list_next(entry)) {
        realm = (struct realm *)entry->data;
        if (!regexec(&realm->regex, id, 0, NULL, 0)) {
-           pthread_mutex_lock(&realm->subrealms_mutex);
-           if (realm->subrealms)
+           pthread_mutex_lock(&realm->mutex);
+           if (realm->subrealms) {
                subrealm = id2realm(realm->subrealms, id);
-           pthread_mutex_unlock(&realm->subrealms_mutex);
-           return subrealm ? subrealm : realm;
+               if (subrealm) {
+                   pthread_mutex_unlock(&realm->mutex);
+                   return subrealm;
+               }
+           }
+           return newrealmref(realm);
        }
     }
     return NULL;
@@ -1267,13 +1225,18 @@ struct realm *id2realm(struct list *realmlist, char *id) {
 
 /* helper function, only used by removeserversubrealms() */
 void _internal_removeserversubrealms(struct list *realmlist, struct clsrvconf *srv) {
-    struct list_node *entry;
+    struct list_node *entry, *entry2;
     struct realm *realm;
-    
+
     for (entry = list_first(realmlist); entry;) {
-       realm = (struct realm *)entry->data;
+       realm = newrealmref((struct realm *)entry->data);
+       pthread_mutex_lock(&realm->mutex);
        entry = list_next(entry);
+
        if (realm->srvconfs) {
+           for (entry2 = list_first(realm->srvconfs); entry2; entry2 = list_next(entry2))
+               if (entry2->data == srv)
+                   freerealm(realm);
            list_removedata(realm->srvconfs, srv);
            if (!list_first(realm->srvconfs)) {
                list_destroy(realm->srvconfs);
@@ -1281,6 +1244,9 @@ void _internal_removeserversubrealms(struct list *realmlist, struct clsrvconf *s
            }
        }
        if (realm->accsrvconfs) {
+           for (entry2 = list_first(realm->accsrvconfs); entry2; entry2 = list_next(entry2))
+               if (entry2->data == srv)
+                   freerealm(realm);
            list_removedata(realm->accsrvconfs, srv);
            if (!list_first(realm->accsrvconfs)) {
                list_destroy(realm->accsrvconfs);
@@ -1289,10 +1255,11 @@ void _internal_removeserversubrealms(struct list *realmlist, struct clsrvconf *s
        }
 
        /* remove subrealm if no servers */
-       if (!realm->srvconfs && !realm->accsrvconfs) {
+       if (!realm->srvconfs && !realm->accsrvconfs)
            list_removedata(realmlist, realm);
-           freerealm(realm);
-       }
+
+       pthread_mutex_unlock(&realm->mutex);
+       freerealm(realm);
     }
 }
 
@@ -1302,7 +1269,7 @@ void removeserversubrealms(struct list *realmlist, struct clsrvconf *srv) {
     
     for (entry = list_first(realmlist); entry; entry = list_next(entry)) {
        realm = (struct realm *)entry->data;
-       pthread_mutex_lock(&realm->subrealms_mutex);
+       pthread_mutex_lock(&realm->mutex);
        if (realm->subrealms) {
            _internal_removeserversubrealms(realm->subrealms, srv);
            if (!list_first(realm->subrealms)) {
@@ -1310,7 +1277,7 @@ void removeserversubrealms(struct list *realmlist, struct clsrvconf *srv) {
                realm->subrealms = NULL;
            }
        }
-       pthread_mutex_unlock(&realm->subrealms_mutex);
+       pthread_mutex_unlock(&realm->mutex);
     }
 }
                        
@@ -1352,14 +1319,14 @@ int pwdrecrypt(uint8_t *pwd, uint8_t len, char *oldsecret, char *newsecret, uint
     return 1;
 }
 
-int msmpprecrypt(uint8_t *msmpp, uint8_t len, char *oldsecret, char *newsecret, unsigned char *oldauth, char *newauth) {
+int msmpprecrypt(uint8_t *msmpp, uint8_t len, char *oldsecret, char *newsecret, uint8_t *oldauth, uint8_t *newauth) {
     if (len < 18)
        return 0;
-    if (!msmppdecrypt(msmpp + 2, len - 2, (unsigned char *)oldsecret, strlen(oldsecret), oldauth, msmpp)) {
+    if (!msmppdecrypt(msmpp + 2, len - 2, (uint8_t *)oldsecret, strlen(oldsecret), oldauth, msmpp)) {
        debug(DBG_WARN, "msmpprecrypt: failed to decrypt msppe key");
        return 0;
     }
-    if (!msmppencrypt(msmpp + 2, len - 2, (unsigned char *)newsecret, strlen(newsecret), (unsigned char *)newauth, msmpp)) {
+    if (!msmppencrypt(msmpp + 2, len - 2, (uint8_t *)newsecret, strlen(newsecret), newauth, msmpp)) {
        debug(DBG_WARN, "msmpprecrypt: failed to encrypt msppe key");
        return 0;
     }
@@ -1372,7 +1339,7 @@ int msmppe(unsigned char *attrs, int length, uint8_t type, char *attrtxt, struct
     
     for (attr = attrs; (attr = attrget(attr, length - (attr - attrs), type)); attr += ATTRLEN(attr)) {
        debug(DBG_DBG, "msmppe: Got %s", attrtxt);
-       if (!msmpprecrypt(ATTRVAL(attr), ATTRVALLEN(attr), oldsecret, newsecret, rq->buf + 4, rq->origauth))
+       if (!msmpprecrypt(ATTRVAL(attr), ATTRVALLEN(attr), oldsecret, newsecret, rq->buf + 4, rq->rqauth))
            return 0;
     }
     return 1;
@@ -1570,6 +1537,100 @@ int rewriteusername(struct request *rq, struct tlv *attr) {
     return 1;
 }
 
+int addvendorattr(struct radmsg *msg, uint32_t vendor, struct tlv *attr) {
+    struct tlv *vattr;
+    uint8_t l, *v;
+
+    l = attr->l + 6;
+    v = malloc(l);
+    if (v) {
+       vendor = htonl(vendor);
+       memcpy(v, &vendor, 4);
+       tlv2buf(v + 4, attr);
+       v[5] += 2;
+       vattr = maketlv(RAD_Attr_Vendor_Specific, l, v);
+       if (vattr && radmsg_add(msg, vattr))
+           return 1;
+       freetlv(vattr);
+    }
+    return 0;
+}
+
+void addttlattr(struct radmsg *msg, uint32_t *attrtype, uint8_t addttl) {
+    uint8_t ttl[4];
+    struct tlv *attr;
+
+    memset(ttl, 0, 4);
+    ttl[3] = addttl;
+    
+    if (attrtype[1] == -1) { /* not vendor */
+       attr = maketlv(attrtype[0], 4, ttl);
+       if (attr && !radmsg_add(msg, attr))
+           freetlv(attr);
+    } else {
+       attr = maketlv(attrtype[1], 4, ttl);
+       if (attr) {
+           addvendorattr(msg, attrtype[0], attr);
+           freetlv(attr);
+       }
+    }
+}
+
+int decttl(uint8_t l, uint8_t *v) {
+    int i;
+
+    i = l - 1;
+    if (v[i]) {
+       if (--v[i--])
+           return 1;
+       while (i >= 0 && !v[i])
+           i--;
+       return i >= 0;
+    }
+    for (i--; i >= 0 && !v[i]; i--);
+    if (i < 0)
+       return 0;
+    v[i]--;
+    while (++i < l)
+       v[i] = 255;
+    return 1;
+}
+
+/* returns -1 if no ttl, 0 if exceeded, 1 if ok */
+int checkttl(struct radmsg *msg, uint32_t *attrtype) {
+    uint8_t alen, *subattrs;
+    struct tlv *attr;
+    struct list_node *node;
+    uint32_t vendor;
+    int sublen;
+    
+    if (attrtype[1] == -1) { /* not vendor */
+       attr = radmsg_gettype(msg, attrtype[0]);
+       if (attr)
+           return decttl(attr->l, attr->v);
+    } else
+       for (node = list_first(msg->attrs); node; node = list_next(node)) {
+           attr = (struct tlv *)node->data;
+           if (attr->t != RAD_Attr_Vendor_Specific || attr->l <= 4)
+               continue;
+           memcpy(&vendor, attr->v, 4);
+           if (ntohl(vendor) != attrtype[0])
+               continue;
+           sublen = attr->l - 4;
+           subattrs = attr->v + 4;  
+           if (!attrvalidate(subattrs, sublen))
+               continue;
+           while (sublen > 1) {
+               if (ATTRTYPE(subattrs) == attrtype[1])
+                   return decttl(ATTRVALLEN(subattrs), ATTRVAL(subattrs));
+               alen = ATTRLEN(subattrs);
+               sublen -= alen;
+               subattrs += alen;
+           }
+       }
+    return -1;
+}
+         
 const char *radmsgtype2string(uint8_t code) {
     static const char *rad_msg_names[] = {
        "", "Access-Request", "Access-Accept", "Access-Reject",
@@ -1656,8 +1717,7 @@ void respond(struct request *rq, uint8_t code, char *message) {
     radmsg_free(rq->msg);
     rq->msg = msg;
     debug(DBG_DBG, "respond: sending %s to %s", radmsgtype2string(msg->code), rq->from->conf->host);
-    rq->refcount++;
-    sendreply(rq);
+    sendreply(newrqref(rq));
 }
 
 struct clsrvconf *choosesrvconf(struct list *srvconfs) {
@@ -1684,27 +1744,37 @@ struct clsrvconf *choosesrvconf(struct list *srvconfs) {
     return best ? best : first;
 }
 
+/* returns with lock on realm, protects from server changes while in use by radsrv/sendrq */
 struct server *findserver(struct realm **realm, struct tlv *username, uint8_t acc) {
     struct clsrvconf *srvconf;
+    struct realm *subrealm;
+    struct server *server = NULL;
     char *id = (char *)tlv2str(username);
     
     if (!id)
        return NULL;
+    /* returns with lock on realm */
     *realm = id2realm(realms, id);
-    if (!*realm) {
-       free(id);
-       return NULL;
-    }
+    if (!*realm)
+       goto exit;
     debug(DBG_DBG, "found matching realm: %s", (*realm)->name);
     srvconf = choosesrvconf(acc ? (*realm)->accsrvconfs : (*realm)->srvconfs);
-    if (!srvconf) {
-       free(id);
-       return NULL;
-    }
-    if (!acc && !srvconf->servers)
-       adddynamicrealmserver(*realm, srvconf, id);
+    if (!srvconf)
+       goto exit;
+    server = srvconf->servers;
+    if (!acc && !(*realm)->parent && !srvconf->servers) {
+       subrealm = adddynamicrealmserver(*realm, srvconf, id);
+       if (subrealm) {
+           pthread_mutex_lock(&subrealm->mutex);
+           pthread_mutex_unlock(&(*realm)->mutex);
+           freerealm(*realm);
+           *realm = subrealm;
+           server = ((struct clsrvconf *)subrealm->srvconfs->first->data)->servers;
+       }
+    }
+ exit:    
     free(id);
-    return srvconf->servers;
+    return server;
 }
 
 
@@ -1722,45 +1792,37 @@ struct request *newrequest() {
     return rq;
 }
 
-int addclientrq(struct request *rq, uint8_t id) {
+int addclientrq(struct request *rq) {
     struct request *r;
     struct timeval now;
-
-    pthread_mutex_lock(&rq->from->lock);
-    gettimeofday(&now, NULL);
-    r = rq->from->rqs[id];
+    
+    r = rq->from->rqs[rq->rqid];
     if (r) {
-       if (now.tv_sec - r->created.tv_sec < r->from->conf->dupinterval) {
-#if 0
-           later           
-           if (r->replybuf) {
-               debug(DBG_INFO, "radsrv: already sent reply to request with id %d from %s, resending", id, r->from->conf->host);
-               r->refcount++;
-               sendreply(r);
-           } else
-#endif         
-               debug(DBG_INFO, "radsrv: already got request with id %d from %s, ignoring", id, r->from->conf->host);           
-           pthread_mutex_unlock(&rq->from->lock);
-           return 0;
+       if (rq->udpport == r->udpport && !memcmp(rq->rqauth, r->rqauth, 16)) {
+           gettimeofday(&now, NULL);
+           if (now.tv_sec - r->created.tv_sec < r->from->conf->dupinterval) {
+               if (r->replybuf) {
+                   debug(DBG_INFO, "addclientrq: already sent reply to request with id %d from %s, resending", rq->rqid, addr2string(r->from->addr));
+                   sendreply(newrqref(r));
+               } else
+                   debug(DBG_INFO, "addclientrq: already got request with id %d from %s, ignoring", rq->rqid, addr2string(r->from->addr));
+               return 0;
+           }
        }
        freerq(r);
     }
-    rq->refcount++;
-    rq->from->rqs[id] = rq;
-    pthread_mutex_unlock(&rq->from->lock);
+    rq->from->rqs[rq->rqid] = newrqref(rq);
     return 1;
 }
 
 void rmclientrq(struct request *rq, uint8_t id) {
     struct request *r;
 
-    pthread_mutex_lock(&rq->from->lock);
     r = rq->from->rqs[id];
     if (r) {
        freerq(r);
        rq->from->rqs[id] = NULL;
     }
-    pthread_mutex_unlock(&rq->from->lock);
 }
 
 /* returns 0 if validation/authentication fails, else 1 */
@@ -1768,10 +1830,10 @@ int radsrv(struct request *rq) {
     struct radmsg *msg = NULL;
     struct tlv *attr;
     uint8_t *userascii = NULL;
-    unsigned char newauth[16];
     struct realm *realm = NULL;
     struct server *to = NULL;
     struct client *from = rq->from;
+    int ttlres;
     
     msg = buf2radmsg(rq->buf, (uint8_t *)from->conf->secret, NULL);
     free(rq->buf);
@@ -1784,13 +1846,16 @@ int radsrv(struct request *rq) {
     }
     
     rq->msg = msg;
+    rq->rqid = msg->id;
+    memcpy(rq->rqauth, msg->auth, 16);
+
     debug(DBG_DBG, "radsrv: code %d, id %d", msg->code, msg->id);
     if (msg->code != RAD_Access_Request && msg->code != RAD_Status_Server && msg->code != RAD_Accounting_Request) {
        debug(DBG_INFO, "radsrv: server currently accepts only access-requests, accounting-requests and status-server, ignoring");      
        goto exit;
     }
     
-    if (!addclientrq(rq, msg->id))
+    if (!addclientrq(rq))
        goto exit;
 
     if (msg->code == RAD_Status_Server) {
@@ -1803,6 +1868,12 @@ int radsrv(struct request *rq) {
     if (from->conf->rewritein && !dorewrite(msg, from->conf->rewritein))
        goto rmclrqexit;
 
+    ttlres = checkttl(msg, options.ttlattrtype);
+    if (!ttlres) {
+       debug(DBG_WARN, "radsrv: ignoring request from client %s (%s), ttl exceeded", from->conf->name, addr2string(from->addr));
+       goto exit;
+    }
+       
     attr = radmsg_gettype(msg, RAD_Attr_User_Name);
     if (!attr) {
        if (msg->code == RAD_Accounting_Request) {
@@ -1823,6 +1894,7 @@ int radsrv(struct request *rq) {
        goto rmclrqexit;
     debug(DBG_DBG, "%s with username: %s", radmsgtype2string(msg->code), userascii);
 
+    /* will return with lock on the realm */
     to = findserver(&realm, attr, msg->code == RAD_Accounting_Request);
     if (!realm) {
        debug(DBG_INFO, "radsrv: ignoring request, don't know where to send it");
@@ -1841,16 +1913,16 @@ int radsrv(struct request *rq) {
     }
     
     if (options.loopprevention && !strcmp(from->conf->name, to->conf->name)) {
-       debug(DBG_INFO, "radsrv: Loop prevented, not forwarding request from client %s to server %s, discarding",
-             from->conf->name, to->conf->name);
+       debug(DBG_INFO, "radsrv: Loop prevented, not forwarding request from client %s (%s) to server %s, discarding",
+             from->conf->name, addr2string(from->addr), to->conf->name);
        goto exit;
     }
 
-    if (msg->code != RAD_Accounting_Request) {
-       if (!RAND_bytes(newauth, 16)) {
-           debug(DBG_WARN, "radsrv: failed to generate random auth");
-           goto rmclrqexit;
-       }
+    if (msg->code == RAD_Accounting_Request)
+       memset(msg->auth, 0, 16);
+    else if (!RAND_bytes(msg->auth, 16)) {
+       debug(DBG_WARN, "radsrv: failed to generate random auth");
+       goto rmclrqexit;
     }
     
 #ifdef DEBUG
@@ -1860,26 +1932,28 @@ int radsrv(struct request *rq) {
     attr = radmsg_gettype(msg, RAD_Attr_User_Password);
     if (attr) {
        debug(DBG_DBG, "radsrv: found userpwdattr with value length %d", attr->l);
-       if (!pwdrecrypt(attr->v, attr->l, from->conf->secret, to->conf->secret, msg->auth, newauth))
+       if (!pwdrecrypt(attr->v, attr->l, from->conf->secret, to->conf->secret, rq->rqauth, msg->auth))
            goto rmclrqexit;
     }
 
     attr = radmsg_gettype(msg, RAD_Attr_Tunnel_Password);
     if (attr) {
        debug(DBG_DBG, "radsrv: found tunnelpwdattr with value length %d", attr->l);
-       if (!pwdrecrypt(attr->v, attr->l, from->conf->secret, to->conf->secret, msg->auth, newauth))
+       if (!pwdrecrypt(attr->v, attr->l, from->conf->secret, to->conf->secret, rq->rqauth, msg->auth))
            goto rmclrqexit;
     }
 
-    rq->origid = msg->id;
-    memcpy(rq->origauth, msg->auth, 16);
-    memcpy(msg->auth, newauth, 16);    
-
     if (to->conf->rewriteout && !dorewrite(msg, to->conf->rewriteout))
        goto rmclrqexit;
     
+    if (ttlres == -1 && (options.addttl || to->conf->addttl))
+       addttlattr(msg, options.ttlattrtype, to->conf->addttl ? to->conf->addttl : options.addttl);
+    
     free(userascii);
-    sendrq(to, rq);
+    rq->to = to;
+    sendrq(rq);
+    pthread_mutex_unlock(&realm->mutex);
+    freerealm(realm);
     return 1;
     
  rmclrqexit:
@@ -1887,13 +1961,17 @@ int radsrv(struct request *rq) {
  exit:
     freerq(rq);
     free(userascii);
+    if (realm) {
+       pthread_mutex_unlock(&realm->mutex);
+       freerealm(realm);
+    }
     return 1;
 }
 
 void replyh(struct server *server, unsigned char *buf) {
     struct client *from;
     struct rqout *rqout;
-    int sublen;
+    int sublen, ttlres;
     unsigned char *subattrs;
     uint8_t *username, *stationid, *replymsg;
     struct radmsg *msg = NULL;
@@ -1942,6 +2020,12 @@ void replyh(struct server *server, unsigned char *buf) {
        goto errunlock;
     }
     
+    ttlres = checkttl(msg, options.ttlattrtype);
+    if (!ttlres) {    
+       debug(DBG_WARN, "replyh: ignoring reply from server %s, ttl exceeded", server->conf->host);
+       goto errunlock;
+    }
+    
     /* MS MPPE */
     for (node = list_first(msg->attrs); node; node = list_next(node)) {
        attr = (struct tlv *)node->data;
@@ -1993,8 +2077,8 @@ void replyh(struct server *server, unsigned char *buf) {
        }
     }
 
-    msg->id = (char)rqout->rq->origid;
-    memcpy(msg->auth, rqout->rq->origauth, 16);
+    msg->id = (char)rqout->rq->rqid;
+    memcpy(msg->auth, rqout->rq->rqauth, 16);
 
 #ifdef DEBUG   
     printfchars(NULL, "origauth/buf+4", "%02x ", buf + 4, 16);
@@ -2012,12 +2096,14 @@ void replyh(struct server *server, unsigned char *buf) {
        debug(DBG_WARN, "replyh: rewriteout failed");
        goto errunlock;
     }
+    
+    if (ttlres == -1 && (options.addttl || from->conf->addttl))
+       addttlattr(msg, options.ttlattrtype, from->conf->addttl ? from->conf->addttl : options.addttl);
 
-    debug(DBG_INFO, "replyh: passing reply to client %s", from->conf->name);
+    debug(DBG_INFO, "replyh: passing reply to client %s (%s)", from->conf->name, addr2string(from->addr));
     radmsg_free(rqout->rq->msg);
     rqout->rq->msg = msg;
-    rqout->rq->refcount++;
-    sendreply(rqout->rq);
+    sendreply(newrqref(rqout->rq));
     freerqoutdata(rqout);
     pthread_mutex_unlock(rqout->lock);
     return;
@@ -2057,7 +2143,8 @@ void *clientwr(void *arg) {
     struct server *server = (struct server *)arg;
     struct rqout *rqout = NULL;
     pthread_t clientrdth;
-    int i, secs, dynconffail = 0;
+    int i, dynconffail = 0;
+    time_t secs;
     uint8_t rnd;
     struct timeval now, laststatsrv;
     struct timespec timeout;
@@ -2103,6 +2190,8 @@ void *clientwr(void *arg) {
            rnd /= 32;
            if (conf->statusserver) {
                secs = server->lastrcv.tv_sec > laststatsrv.tv_sec ? server->lastrcv.tv_sec : laststatsrv.tv_sec;
+               if (now.tv_sec - secs > STATUS_SERVER_PERIOD)
+                   secs = now.tv_sec;
                if (!timeout.tv_sec || timeout.tv_sec > secs + STATUS_SERVER_PERIOD + rnd)
                    timeout.tv_sec = secs + STATUS_SERVER_PERIOD + rnd;
            } else {
@@ -2178,15 +2267,16 @@ void *clientwr(void *arg) {
            conf->pdef->clientradput(server, rqout->rq->buf);
            pthread_mutex_unlock(rqout->lock);
        }
-       if (conf->statusserver) {
+       if (conf->statusserver && server->connectionok) {
            secs = server->lastrcv.tv_sec > laststatsrv.tv_sec ? server->lastrcv.tv_sec : laststatsrv.tv_sec;
            gettimeofday(&now, NULL);
            if (now.tv_sec - secs > STATUS_SERVER_PERIOD) {
                laststatsrv = now;
                statsrvrq = createstatsrvrq();
                if (statsrvrq) {
+                   statsrvrq->to = server;
                    debug(DBG_DBG, "clientwr: sending status server to %s", conf->host);
-                   sendrq(server, statsrvrq);
+                   sendrq(statsrvrq);
                }
            }
        }
@@ -2211,7 +2301,7 @@ void createlistener(uint8_t type, char *arg) {
     struct addrinfo *res;
     int s = -1, on = 1, *sp = NULL;
     
-    listenres = resolve_hostport(type, arg, protodefs[type].portdefault);
+    listenres = resolve_hostport(type, arg, protodefs[type]->portdefault);
     if (!listenres)
        debugx(1, DBG_ERR, "createlistener: failed to resolve %s", arg);
     
@@ -2237,21 +2327,23 @@ void createlistener(uint8_t type, char *arg) {
         if (!sp)
             debugx(1, DBG_ERR, "malloc failed");
        *sp = s;
-       if (pthread_create(&th, NULL, protodefs[type].listener, (void *)sp))
+       if (pthread_create(&th, NULL, protodefs[type]->listener, (void *)sp))
             debugx(1, DBG_ERR, "pthread_create failed");
        pthread_detach(th);
     }
     if (!sp)
        debugx(1, DBG_ERR, "createlistener: socket/bind failed");
     
-    debug(DBG_WARN, "createlistener: listening for %s on %s:%s", protodefs[type].name,
+    debug(DBG_WARN, "createlistener: listening for %s on %s:%s", protodefs[type]->name,
          listenres->host ? listenres->host : "*", listenres->port);
     freeclsrvres(listenres);
 }
 
-void createlisteners(uint8_t type, char **args) {
+void createlisteners(uint8_t type) {
     int i;
+    char **args;
 
+    args = protodefs[type]->getlistenerargs();
     if (args)
        for (i = 0; args[i]; i++)
            createlistener(type, args[i]);
@@ -2288,41 +2380,117 @@ void ssl_info_callback(const SSL *ssl, int where, int ret) {
 }
 #endif
 
-SSL_CTX *tlscreatectx(uint8_t type, struct tls *conf) {
-    SSL_CTX *ctx = NULL;
+void sslinit() {
+    int i;
+    time_t t;
+    pid_t pid;
+    
+    ssl_locks = calloc(CRYPTO_num_locks(), sizeof(pthread_mutex_t));
+    ssl_lock_count = OPENSSL_malloc(CRYPTO_num_locks() * sizeof(long));
+    for (i = 0; i < CRYPTO_num_locks(); i++) {
+       ssl_lock_count[i] = 0;
+       pthread_mutex_init(&ssl_locks[i], NULL);
+    }
+    CRYPTO_set_id_callback(ssl_thread_id);
+    CRYPTO_set_locking_callback(ssl_locking_callback);
+
+    SSL_load_error_strings();
+    SSL_library_init();
+
+    while (!RAND_status()) {
+       t = time(NULL);
+       pid = getpid();
+       RAND_seed((unsigned char *)&t, sizeof(time_t));
+       RAND_seed((unsigned char *)&pid, sizeof(pid));
+    }
+}
+
+X509_VERIFY_PARAM *createverifyparams(char **poids) {
+    X509_VERIFY_PARAM *pm;
+    ASN1_OBJECT *pobject;
+    int i;
+    
+    pm = X509_VERIFY_PARAM_new();
+    if (!pm)
+       return NULL;
+    
+    for (i = 0; poids[i]; i++) {
+       pobject = OBJ_txt2obj(poids[i], 0);
+       if (!pobject) {
+           X509_VERIFY_PARAM_free(pm);
+           return NULL;
+       }
+       X509_VERIFY_PARAM_add0_policy(pm, pobject);
+    }
+
+    X509_VERIFY_PARAM_set_flags(pm, X509_V_FLAG_POLICY_CHECK | X509_V_FLAG_EXPLICIT_POLICY);
+    return pm;
+}
+
+int tlsaddcacrl(SSL_CTX *ctx, struct tls *conf) {
     STACK_OF(X509_NAME) *calist;
     X509_STORE *x509_s;
-    int i;
     unsigned long error;
 
-    if (!ssl_locks) {
-       ssl_locks = calloc(CRYPTO_num_locks(), sizeof(pthread_mutex_t));
-       ssl_lock_count = OPENSSL_malloc(CRYPTO_num_locks() * sizeof(long));
-       for (i = 0; i < CRYPTO_num_locks(); i++) {
-           ssl_lock_count[i] = 0;
-           pthread_mutex_init(&ssl_locks[i], NULL);
+    if (!SSL_CTX_load_verify_locations(ctx, conf->cacertfile, conf->cacertpath)) {
+       while ((error = ERR_get_error()))
+           debug(DBG_ERR, "SSL: %s", ERR_error_string(error, NULL));
+       debug(DBG_ERR, "tlsaddcacrl: Error updating TLS context %s", conf->name);
+       return 0;
+    }
+
+    calist = conf->cacertfile ? SSL_load_client_CA_file(conf->cacertfile) : NULL;
+    if (!conf->cacertfile || calist) {
+       if (conf->cacertpath) {
+           if (!calist)
+               calist = sk_X509_NAME_new_null();
+           if (!SSL_add_dir_cert_subjects_to_stack(calist, conf->cacertpath)) {
+               sk_X509_NAME_free(calist);
+               calist = NULL;
+           }
        }
-       CRYPTO_set_id_callback(ssl_thread_id);
-       CRYPTO_set_locking_callback(ssl_locking_callback);
+    }
+    if (!calist) {
+       while ((error = ERR_get_error()))
+           debug(DBG_ERR, "SSL: %s", ERR_error_string(error, NULL));
+       debug(DBG_ERR, "tlsaddcacrl: Error adding CA subjects in TLS context %s", conf->name);
+       return 0;
+    }
+    ERR_clear_error(); /* add_dir_cert_subj returns errors on success */
+    SSL_CTX_set_client_CA_list(ctx, calist);
 
-       SSL_load_error_strings();
-       SSL_library_init();
+    SSL_CTX_set_verify(ctx, SSL_VERIFY_PEER | SSL_VERIFY_FAIL_IF_NO_PEER_CERT, verify_cb);
+    SSL_CTX_set_verify_depth(ctx, MAX_CERT_DEPTH + 1);
 
-       while (!RAND_status()) {
-           time_t t = time(NULL);
-           pid_t pid = getpid();
-           RAND_seed((unsigned char *)&t, sizeof(time_t));
-           RAND_seed((unsigned char *)&pid, sizeof(pid));
-       }
+    if (conf->crlcheck || conf->vpm) {
+       x509_s = SSL_CTX_get_cert_store(ctx);
+       if (conf->crlcheck)
+           X509_STORE_set_flags(x509_s, X509_V_FLAG_CRL_CHECK | X509_V_FLAG_CRL_CHECK_ALL);
+       if (conf->vpm)
+           X509_STORE_set1_param(x509_s, conf->vpm);
     }
 
+    debug(DBG_DBG, "tlsaddcacrl: updated TLS context %s", conf->name);
+    return 1;
+}
+
+SSL_CTX *tlscreatectx(uint8_t type, struct tls *conf) {
+    SSL_CTX *ctx = NULL;
+    unsigned long error;
+
+    if (!ssl_locks)
+       sslinit();
+
     switch (type) {
+#ifdef RADPROT_TLS     
     case RAD_TLS:
        ctx = SSL_CTX_new(TLSv1_method());
 #ifdef DEBUG   
        SSL_CTX_set_info_callback(ctx, ssl_info_callback);
 #endif 
        break;
+#endif 
+#ifdef RADPROT_DTLS    
     case RAD_DTLS:
        ctx = SSL_CTX_new(DTLSv1_method());
 #ifdef DEBUG   
@@ -2330,6 +2498,7 @@ SSL_CTX *tlscreatectx(uint8_t type, struct tls *conf) {
 #endif 
        SSL_CTX_set_read_ahead(ctx, 1);
        break;
+#endif 
     }
     if (!ctx) {
        debug(DBG_ERR, "tlscreatectx: Error initialising SSL/TLS in TLS context %s", conf->name);
@@ -2342,8 +2511,7 @@ SSL_CTX *tlscreatectx(uint8_t type, struct tls *conf) {
     }
     if (!SSL_CTX_use_certificate_chain_file(ctx, conf->certfile) ||
        !SSL_CTX_use_PrivateKey_file(ctx, conf->certkeyfile, SSL_FILETYPE_PEM) ||
-       !SSL_CTX_check_private_key(ctx) ||
-       !SSL_CTX_load_verify_locations(ctx, conf->cacertfile, conf->cacertpath)) {
+       !SSL_CTX_check_private_key(ctx)) {
        while ((error = ERR_get_error()))
            debug(DBG_ERR, "SSL: %s", ERR_error_string(error, NULL));
        debug(DBG_ERR, "tlscreatectx: Error initialising SSL/TLS in TLS context %s", conf->name);
@@ -2351,58 +2519,77 @@ SSL_CTX *tlscreatectx(uint8_t type, struct tls *conf) {
        return NULL;
     }
 
-    calist = conf->cacertfile ? SSL_load_client_CA_file(conf->cacertfile) : NULL;
-    if (!conf->cacertfile || calist) {
-       if (conf->cacertpath) {
-           if (!calist)
-               calist = sk_X509_NAME_new_null();
-           if (!SSL_add_dir_cert_subjects_to_stack(calist, conf->cacertpath)) {
-               sk_X509_NAME_free(calist);
-               calist = NULL;
+    if (conf->policyoids) {
+       if (!conf->vpm) {
+           conf->vpm = createverifyparams(conf->policyoids);
+           if (!conf->vpm) {
+               debug(DBG_ERR, "tlsaddcacrl: Failed to add policyOIDs in TLS context %s", conf->name);
+               SSL_CTX_free(ctx);
+               return NULL;
            }
        }
     }
-    if (!calist) {
-       while ((error = ERR_get_error()))
-           debug(DBG_ERR, "SSL: %s", ERR_error_string(error, NULL));
-       debug(DBG_ERR, "tlscreatectx: Error adding CA subjects in TLS context %s", conf->name);
+
+    if (!tlsaddcacrl(ctx, conf)) {
+       if (conf->vpm) {
+           X509_VERIFY_PARAM_free(conf->vpm);
+           conf->vpm = NULL;
+       }
        SSL_CTX_free(ctx);
        return NULL;
     }
-    ERR_clear_error(); /* add_dir_cert_subj returns errors on success */
-    SSL_CTX_set_client_CA_list(ctx, calist);
-    
-    SSL_CTX_set_verify(ctx, SSL_VERIFY_PEER | SSL_VERIFY_FAIL_IF_NO_PEER_CERT, verify_cb);
-    SSL_CTX_set_verify_depth(ctx, MAX_CERT_DEPTH + 1);
-
-    if (conf->crlcheck) {
-       x509_s = SSL_CTX_get_cert_store(ctx);
-       X509_STORE_set_flags(x509_s, X509_V_FLAG_CRL_CHECK | X509_V_FLAG_CRL_CHECK_ALL);
-    }
 
     debug(DBG_DBG, "tlscreatectx: created TLS context %s", conf->name);
     return ctx;
 }
 
-SSL_CTX *tlsgetctx(uint8_t type, char *alt1, char *alt2) {
+struct tls *tlsgettls(char *alt1, char *alt2) {
     struct tls *t;
 
     t = hash_read(tlsconfs, alt1, strlen(alt1));
-    if (!t) {
+    if (!t)
        t = hash_read(tlsconfs, alt2, strlen(alt2));
-       if (!t)
-           return NULL;
-    }
+    return t;
+}
 
+SSL_CTX *tlsgetctx(uint8_t type, struct tls *t) {
+    struct timeval now;
+    
+    if (!t)
+       return NULL;
+    gettimeofday(&now, NULL);
+    
     switch (type) {
+#ifdef RADPROT_TLS
     case RAD_TLS:
-       if (!t->tlsctx)
+       if (t->tlsexpiry && t->tlsctx) {
+           if (t->tlsexpiry < now.tv_sec) {
+               t->tlsexpiry = now.tv_sec + t->cacheexpiry;
+               tlsaddcacrl(t->tlsctx, t);
+           }
+       }
+       if (!t->tlsctx) {
            t->tlsctx = tlscreatectx(RAD_TLS, t);
+           if (t->cacheexpiry)
+               t->tlsexpiry = now.tv_sec + t->cacheexpiry;
+       }
        return t->tlsctx;
+#endif
+#ifdef RADPROT_DTLS
     case RAD_DTLS:
-       if (!t->dtlsctx)
+       if (t->dtlsexpiry && t->dtlsctx) {
+           if (t->dtlsexpiry < now.tv_sec) {
+               t->dtlsexpiry = now.tv_sec + t->cacheexpiry;
+               tlsaddcacrl(t->dtlsctx, t);
+           }
+       }
+       if (!t->dtlsctx) {
            t->dtlsctx = tlscreatectx(RAD_DTLS, t);
+           if (t->cacheexpiry)
+               t->dtlsexpiry = now.tv_sec + t->cacheexpiry;
+       }
        return t->dtlsctx;
+#endif
     }
     return NULL;
 }
@@ -2446,22 +2633,21 @@ struct list *addsrvconfs(char *value, char **names) {
 void freerealm(struct realm *realm) {
     if (!realm)
        return;
+    debug(DBG_DBG, "freerealm: called with refcount %d", realm->refcount);
+    if (--realm->refcount)
+       return;
+
     free(realm->name);
     free(realm->message);
     regfree(&realm->regex);
-    pthread_mutex_destroy(&realm->subrealms_mutex);
-    if (realm->subrealms)
-       list_destroy(realm->subrealms);
-    if (realm->srvconfs) {
-       /* emptying list without freeing data */
-       while (list_shift(realm->srvconfs));
-       list_destroy(realm->srvconfs);
-    }
-    if (realm->accsrvconfs) {
-       /* emptying list without freeing data */
-       while (list_shift(realm->accsrvconfs));
-       list_destroy(realm->accsrvconfs);
-    }
+    pthread_mutex_destroy(&realm->mutex);
+    /* if refcount == 0, all subrealms gone */
+    list_destroy(realm->subrealms);
+    /* if refcount == 0, all srvconfs gone */
+    list_destroy(realm->srvconfs);
+    /* if refcount == 0, all accsrvconfs gone */
+    list_destroy(realm->accsrvconfs);
+    freerealm(realm->parent);
     free(realm);
 }
 
@@ -2509,7 +2695,7 @@ struct realm *addrealm(struct list *realmlist, char *value, char **servers, char
     }
     memset(realm, 0, sizeof(struct realm));
     
-    if (pthread_mutex_init(&realm->subrealms_mutex, NULL)) {
+    if (pthread_mutex_init(&realm->mutex, NULL)) {
        debug(DBG_ERR, "mutex init failed");
        free(realm);
        realm = NULL;
@@ -2547,7 +2733,7 @@ struct realm *addrealm(struct list *realmlist, char *value, char **servers, char
 
     if (!list_push(realmlist, realm)) {
        debug(DBG_ERR, "malloc failed");
-       pthread_mutex_destroy(&realm->subrealms_mutex);
+       pthread_mutex_destroy(&realm->mutex);
        goto errexit;
     }
     
@@ -2555,52 +2741,51 @@ struct realm *addrealm(struct list *realmlist, char *value, char **servers, char
     goto exit;
 
  errexit:
+    while (list_shift(realm->srvconfs));
+    while (list_shift(realm->accsrvconfs));
     freerealm(realm);
     realm = NULL;
-    
  exit:
     free(regex);
     if (servers) {
-       for (n = 0; servers[n]; n++)
-           free(servers[n]);
-       free(servers);
+       if (realm)
+           for (n = 0; servers[n]; n++)
+               newrealmref(realm);
+       freegconfmstr(servers);
     }
     if (accservers) {
-       for (n = 0; accservers[n]; n++)
-           free(accservers[n]);
-       free(accservers);
+       if (realm)
+           for (n = 0; accservers[n]; n++)
+               newrealmref(realm);
+       freegconfmstr(accservers);
     }
-    return realm;
+    return newrealmref(realm);
 }
 
-void adddynamicrealmserver(struct realm *realm, struct clsrvconf *conf, char *id) {
+struct realm *adddynamicrealmserver(struct realm *realm, struct clsrvconf *conf, char *id) {
     struct clsrvconf *srvconf;
     struct realm *newrealm = NULL;
     char *realmname, *s;
     pthread_t clientth;
     
     if (!conf->dynamiclookupcommand)
-       return;
+       return NULL;
 
     /* create dynamic for the realm (string after last @, exit if nothing after @ */
     realmname = strrchr(id, '@');
     if (!realmname)
-       return;
+       return NULL;
     realmname++;
     if (!*realmname)
-       return;
+       return NULL;
     for (s = realmname; *s; s++)
        if (*s != '.' && *s != '-' && !isalnum((int)*s))
-           return;
+           return NULL;
     
-    pthread_mutex_lock(&realm->subrealms_mutex);
-    /* exit if we now already got a matching subrealm */
-    if (id2realm(realm->subrealms, id))
-       goto exit;
     srvconf = malloc(sizeof(struct clsrvconf));
     if (!srvconf) {
        debug(DBG_ERR, "malloc failed");
-       goto exit;
+       return NULL;
     }
     *srvconf = *conf;
     if (!addserver(srvconf))
@@ -2613,27 +2798,35 @@ void adddynamicrealmserver(struct realm *realm, struct clsrvconf *conf, char *id
     newrealm = addrealm(realm->subrealms, realmname, NULL, NULL, NULL, 0);
     if (!newrealm)
        goto errexit;
-
+    newrealm->parent = newrealmref(realm);
+    
     /* add server and accserver to newrealm */
     newrealm->srvconfs = list_create();
     if (!newrealm->srvconfs || !list_push(newrealm->srvconfs, srvconf)) {
        debug(DBG_ERR, "malloc failed");
        goto errexit;
     }
+    newrealmref(newrealm);
     newrealm->accsrvconfs = list_create();
     if (!newrealm->accsrvconfs || !list_push(newrealm->accsrvconfs, srvconf)) {
        debug(DBG_ERR, "malloc failed");
+       list_shift(realm->srvconfs);
+       freerealm(newrealm);
        goto errexit;
     }
+    newrealmref(newrealm);
 
     srvconf->servers->dynamiclookuparg = stringcopy(realmname, 0);
-
     if (pthread_create(&clientth, NULL, clientwr, (void *)(srvconf->servers))) {
        debug(DBG_ERR, "pthread_create failed");
+       list_shift(realm->srvconfs);
+       freerealm(newrealm);
+       list_shift(realm->accsrvconfs);
+       freerealm(newrealm);
        goto errexit;
     }
     pthread_detach(clientth);
-    goto exit;
+    return newrealm;
     
  errexit:
     if (newrealm) {
@@ -2647,9 +2840,7 @@ void adddynamicrealmserver(struct realm *realm, struct clsrvconf *conf, char *id
     freeserver(srvconf->servers, 1);
     free(srvconf);
     debug(DBG_ERR, "failed to create dynamic server");
-
- exit:
-    pthread_mutex_unlock(&realm->subrealms_mutex);
+    return NULL;
 }
 
 int dynamicconfig(struct server *server) {
@@ -2875,12 +3066,10 @@ void addrewrite(char *value, char **rmattrs, char **rmvattrs, char **addattrs, c
        if (!rma)
            debugx(1, DBG_ERR, "malloc failed");
     
-       for (i = 0; i < n; i++) {
+       for (i = 0; i < n; i++)
            if (!(rma[i] = attrname2val(rmattrs[i])))
                debugx(1, DBG_ERR, "addrewrite: invalid attribute %s", rmattrs[i]);
-           free(rmattrs[i]);
-       }
-       free(rmattrs);
+       freegconfmstr(rmattrs);
        rma[i] = 0;
     }
     
@@ -2890,12 +3079,10 @@ void addrewrite(char *value, char **rmattrs, char **rmvattrs, char **addattrs, c
        if (!rmva)
            debugx(1, DBG_ERR, "malloc failed");
     
-       for (p = rmva, i = 0; i < n; i++, p += 2) {
+       for (p = rmva, i = 0; i < n; i++, p += 2)
            if (!vattrname2val(rmvattrs[i], p, p + 1))
                debugx(1, DBG_ERR, "addrewrite: invalid vendor attribute %s", rmvattrs[i]);
-           free(rmvattrs[i]);
-       }
-       free(rmvattrs);
+       freegconfmstr(rmvattrs);
        *p = 0;
     }
     
@@ -2907,11 +3094,10 @@ void addrewrite(char *value, char **rmattrs, char **rmvattrs, char **addattrs, c
            a = extractattr(addattrs[i]);
            if (!a)
                debugx(1, DBG_ERR, "addrewrite: invalid attribute %s", addattrs[i]);
-           free(addattrs[i]);
            if (!list_push(adda, a))
                debugx(1, DBG_ERR, "malloc failed");
        }
-       free(addattrs);
+       freegconfmstr(addattrs);
     }
 
     if (modattrs) {
@@ -2922,11 +3108,10 @@ void addrewrite(char *value, char **rmattrs, char **rmvattrs, char **addattrs, c
            m = extractmodattr(modattrs[i]);
            if (!m)
                debugx(1, DBG_ERR, "addrewrite: invalid attribute %s", modattrs[i]);
-           free(modattrs[i]);
            if (!list_push(moda, m))
                debugx(1, DBG_ERR, "malloc failed");
        }
-       free(modattrs);
+       freegconfmstr(modattrs);
     }
        
     if (rma || rmva || adda || moda) {
@@ -2944,6 +3129,16 @@ void addrewrite(char *value, char **rmattrs, char **rmvattrs, char **addattrs, c
     debug(DBG_DBG, "addrewrite: added rewrite block %s", value);
 }
 
+int setttlattr(struct options *opts, char *defaultattr) {
+    char *ttlattr = opts->ttlattr ? opts->ttlattr : defaultattr;
+     
+    if (vattrname2val(ttlattr, opts->ttlattrtype, opts->ttlattrtype + 1) &&
+       (opts->ttlattrtype[1] != -1 || opts->ttlattrtype[0] < 256))
+       return 1;
+    debug(DBG_ERR, "setttlattr: invalid TTLAttribute value %s", ttlattr);
+    return 0;
+}
+
 void freeclsrvconf(struct clsrvconf *conf) {
     free(conf->name);
     free(conf->host);
@@ -3021,7 +3216,7 @@ int mergesrvconf(struct clsrvconf *dst, struct clsrvconf *src) {
 int confclient_cb(struct gconffile **cf, void *arg, char *block, char *opt, char *val) {
     struct clsrvconf *conf;
     char *conftype = NULL, *rewriteinalias = NULL;
-    long int dupinterval = LONG_MIN;
+    long int dupinterval = LONG_MIN, addttl = LONG_MIN;
     
     debug(DBG_DBG, "confclient_cb called for %s", block);
 
@@ -3032,18 +3227,19 @@ int confclient_cb(struct gconffile **cf, void *arg, char *block, char *opt, char
     conf->certnamecheck = 1;
     
     if (!getgenericconfig(cf, block,
-                    "type", CONF_STR, &conftype,
-                    "host", CONF_STR, &conf->host,
-                    "secret", CONF_STR, &conf->secret,
-                    "tls", CONF_STR, &conf->tls,
-                    "matchcertificateattribute", CONF_STR, &conf->matchcertattr,
-                    "CertificateNameCheck", CONF_BLN, &conf->certnamecheck,
-                    "DuplicateInterval", CONF_LINT, &dupinterval,
-                    "rewrite", CONF_STR, &rewriteinalias,
-                    "rewriteIn", CONF_STR, &conf->confrewritein,
-                    "rewriteOut", CONF_STR, &conf->confrewriteout,
-                    "rewriteattribute", CONF_STR, &conf->confrewriteusername,
-                    NULL
+                         "type", CONF_STR, &conftype,
+                         "host", CONF_STR, &conf->host,
+                         "secret", CONF_STR, &conf->secret,
+                         "tls", CONF_STR, &conf->tls,
+                         "matchcertificateattribute", CONF_STR, &conf->matchcertattr,
+                         "CertificateNameCheck", CONF_BLN, &conf->certnamecheck,
+                         "DuplicateInterval", CONF_LINT, &dupinterval,
+                         "addTTL", CONF_LINT, &addttl,
+                         "rewrite", CONF_STR, &rewriteinalias,
+                         "rewriteIn", CONF_STR, &conf->confrewritein,
+                         "rewriteOut", CONF_STR, &conf->confrewriteout,
+                         "rewriteattribute", CONF_STR, &conf->confrewriteusername,
+                         NULL
                          ))
        debugx(1, DBG_ERR, "configuration error");
     
@@ -3056,14 +3252,14 @@ int confclient_cb(struct gconffile **cf, void *arg, char *block, char *opt, char
     if (!conftype)
        debugx(1, DBG_ERR, "error in block %s, option type missing", block);
     conf->type = protoname2int(conftype);
-    conf->pdef = &protodefs[conf->type];
-    if (!conf->pdef->name)
+    if (conf->type == 255)
        debugx(1, DBG_ERR, "error in block %s, unknown transport %s", block, conftype);
     free(conftype);
+    conf->pdef = protodefs[conf->type];
     
     if (conf->type == RAD_TLS || conf->type == RAD_DTLS) {
-       conf->ssl_ctx = conf->tls ? tlsgetctx(conf->type, conf->tls, NULL) : tlsgetctx(conf->type, "defaultclient", "default");
-       if (!conf->ssl_ctx)
+       conf->tlsconf = conf->tls ? tlsgettls(conf->tls, NULL) : tlsgettls("defaultclient", "default");
+       if (!conf->tlsconf)
            debugx(1, DBG_ERR, "error in block %s, no tls context defined", block);
        if (conf->matchcertattr && !addmatchcertattr(conf))
            debugx(1, DBG_ERR, "error in block %s, invalid MatchCertificateAttributeValue", block);
@@ -3076,6 +3272,12 @@ int confclient_cb(struct gconffile **cf, void *arg, char *block, char *opt, char
     } else
        conf->dupinterval = conf->pdef->duplicateintervaldefault;
     
+    if (addttl != LONG_MIN) {
+       if (addttl < 1 || addttl > 255)
+           debugx(1, DBG_ERR, "error in block %s, value of option addTTL is %d, must be 1-255", block, addttl);
+       conf->addttl = (uint8_t)addttl;
+    }
+    
     if (!conf->confrewritein)
        conf->confrewritein = rewriteinalias;
     else
@@ -3113,8 +3315,8 @@ int confclient_cb(struct gconffile **cf, void *arg, char *block, char *opt, char
 
 int compileserverconfig(struct clsrvconf *conf, const char *block) {
     if (conf->type == RAD_TLS || conf->type == RAD_DTLS) {
-       conf->ssl_ctx = conf->tls ? tlsgetctx(conf->type, conf->tls, NULL) : tlsgetctx(conf->type, "defaultserver", "default");
-       if (!conf->ssl_ctx) {
+       conf->tlsconf = conf->tls ? tlsgettls(conf->tls, NULL) : tlsgettls("defaultserver", "default");
+       if (!conf->tlsconf) {
            debug(DBG_ERR, "error in block %s, no tls context defined", block);
            return 0;
        }
@@ -3133,9 +3335,9 @@ int compileserverconfig(struct clsrvconf *conf, const char *block) {
     }
     
     if (conf->retryinterval == 255)
-       conf->retryinterval = protodefs[conf->type].retryintervaldefault;
+       conf->retryinterval = conf->pdef->retryintervaldefault;
     if (conf->retrycount == 255)
-       conf->retrycount = protodefs[conf->type].retrycountdefault;
+       conf->retrycount = conf->pdef->retrycountdefault;
     
     conf->rewritein = conf->confrewritein ? getrewrite(conf->confrewritein, NULL) : getrewrite("defaultserver", "default");
     if (conf->confrewriteout)
@@ -3163,7 +3365,7 @@ int compileserverconfig(struct clsrvconf *conf, const char *block) {
 int confserver_cb(struct gconffile **cf, void *arg, char *block, char *opt, char *val) {
     struct clsrvconf *conf, *resconf;
     char *conftype = NULL, *rewriteinalias = NULL;
-    long int retryinterval = LONG_MIN, retrycount = LONG_MIN;
+    long int retryinterval = LONG_MIN, retrycount = LONG_MIN, addttl = LONG_MIN;
     
     debug(DBG_DBG, "confserver_cb called for %s", block);
 
@@ -3187,6 +3389,7 @@ int confserver_cb(struct gconffile **cf, void *arg, char *block, char *opt, char
                          "secret", CONF_STR, &conf->secret,
                          "tls", CONF_STR, &conf->tls,
                          "MatchCertificateAttribute", CONF_STR, &conf->matchcertattr,
+                         "addTTL", CONF_LINT, &addttl,
                          "rewrite", CONF_STR, &rewriteinalias,
                          "rewriteIn", CONF_STR, &conf->confrewritein,
                          "rewriteOut", CONF_STR, &conf->confrewriteout,
@@ -3217,13 +3420,14 @@ int confserver_cb(struct gconffile **cf, void *arg, char *block, char *opt, char
     if (!conftype)
        debugx(1, DBG_ERR, "error in block %s, option type missing", block);
     conf->type = protoname2int(conftype);
-    conf->pdef = &protodefs[conf->type];
-    if (!conf->pdef->name) {
+    if (conf->type == 255) {
        debug(DBG_ERR, "error in block %s, unknown transport %s", block, conftype);
        goto errexit;
     }
     free(conftype);
     conftype = NULL;
+       
+    conf->pdef = protodefs[conf->type];
 
     if (!conf->confrewritein)
        conf->confrewritein = rewriteinalias;
@@ -3249,6 +3453,14 @@ int confserver_cb(struct gconffile **cf, void *arg, char *block, char *opt, char
     } else
        conf->retrycount = 255;
     
+    if (addttl != LONG_MIN) {
+       if (addttl < 1 || addttl > 255) {
+           debug(DBG_ERR, "error in block %s, value of option addTTL is %d, must be 1-255", block, addttl);
+           goto errexit;
+       }
+       conf->addttl = (uint8_t)addttl;
+    }
+    
     if (resconf) {
        if (!mergesrvconf(resconf, conf))
            goto errexit;
@@ -3288,11 +3500,11 @@ int confrealm_cb(struct gconffile **cf, void *arg, char *block, char *opt, char
     debug(DBG_DBG, "confrealm_cb called for %s", block);
     
     if (!getgenericconfig(cf, block,
-                    "server", CONF_MSTR, &servers,
-                    "accountingServer", CONF_MSTR, &accservers,
-                    "ReplyMessage", CONF_STR, &msg,
-                    "AccountingResponse", CONF_BLN, &accresp,
-                    NULL
+                         "server", CONF_MSTR, &servers,
+                         "accountingServer", CONF_MSTR, &accservers,
+                         "ReplyMessage", CONF_STR, &msg,
+                         "AccountingResponse", CONF_BLN, &accresp,
+                         NULL
                          ))
        debugx(1, DBG_ERR, "configuration error");
 
@@ -3302,6 +3514,7 @@ int confrealm_cb(struct gconffile **cf, void *arg, char *block, char *opt, char
 
 int conftls_cb(struct gconffile **cf, void *arg, char *block, char *opt, char *val) {
     struct tls *conf;
+    long int expiry = LONG_MIN;
     
     debug(DBG_DBG, "conftls_cb called for %s", block);
     
@@ -3313,13 +3526,15 @@ int conftls_cb(struct gconffile **cf, void *arg, char *block, char *opt, char *v
     memset(conf, 0, sizeof(struct tls));
     
     if (!getgenericconfig(cf, block,
-                    "CACertificateFile", CONF_STR, &conf->cacertfile,
-                    "CACertificatePath", CONF_STR, &conf->cacertpath,
-                    "CertificateFile", CONF_STR, &conf->certfile,
-                    "CertificateKeyFile", CONF_STR, &conf->certkeyfile,
-                    "CertificateKeyPassword", CONF_STR, &conf->certkeypwd,
-                    "CRLCheck", CONF_BLN, &conf->crlcheck,
-                    NULL
+                         "CACertificateFile", CONF_STR, &conf->cacertfile,
+                         "CACertificatePath", CONF_STR, &conf->cacertpath,
+                         "CertificateFile", CONF_STR, &conf->certfile,
+                         "CertificateKeyFile", CONF_STR, &conf->certkeyfile,
+                         "CertificateKeyPassword", CONF_STR, &conf->certkeypwd,
+                         "CacheExpiry", CONF_LINT, &expiry,
+                         "CRLCheck", CONF_BLN, &conf->crlcheck,
+                         "PolicyOID", CONF_MSTR, &conf->policyoids,
+                         NULL
                          )) {
        debug(DBG_ERR, "conftls_cb: configuration error in block %s", val);
        goto errexit;
@@ -3332,6 +3547,13 @@ int conftls_cb(struct gconffile **cf, void *arg, char *block, char *opt, char *v
        debug(DBG_ERR, "conftls_cb: CA Certificate file or path need to be specified in block %s", val);
        goto errexit;
     }
+    if (expiry != LONG_MIN) {
+       if (expiry < 0) {
+           debug(DBG_ERR, "error in block %s, value of option CacheExpiry is %ld, may not be negative", val, expiry);
+           goto errexit;
+       }
+       conf->cacheexpiry = expiry;
+    }    
 
     conf->name = stringcopy(val, 0);
     if (!conf->name) {
@@ -3343,7 +3565,8 @@ int conftls_cb(struct gconffile **cf, void *arg, char *block, char *opt, char *v
        debug(DBG_ERR, "conftls_cb: malloc failed");
        goto errexit;
     }
-           
+    if (!tlsgetctx(RAD_TLS, conf))
+       debug(DBG_ERR, "conftls_cb: error creating ctx for TLS block %s", val);
     debug(DBG_DBG, "conftls_cb: added TLS block %s", val);
     return 1;
 
@@ -3353,6 +3576,7 @@ int conftls_cb(struct gconffile **cf, void *arg, char *block, char *opt, char *v
     free(conf->certfile);
     free(conf->certkeyfile);
     free(conf->certkeypwd);
+    freegconfmstr(conf->policyoids);
     free(conf);
     return 0;
 }
@@ -3363,23 +3587,41 @@ int confrewrite_cb(struct gconffile **cf, void *arg, char *block, char *opt, cha
     debug(DBG_DBG, "confrewrite_cb called for %s", block);
     
     if (!getgenericconfig(cf, block,
-                    "removeAttribute", CONF_MSTR, &rmattrs,
-                    "removeVendorAttribute", CONF_MSTR, &rmvattrs,
-                    "addAttribute", CONF_MSTR, &addattrs,
-                    "modifyAttribute", CONF_MSTR, &modattrs,
-                    NULL
+                         "removeAttribute", CONF_MSTR, &rmattrs,
+                         "removeVendorAttribute", CONF_MSTR, &rmvattrs,
+                         "addAttribute", CONF_MSTR, &addattrs,
+                         "modifyAttribute", CONF_MSTR, &modattrs,
+                         NULL
                          ))
        debugx(1, DBG_ERR, "configuration error");
     addrewrite(val, rmattrs, rmvattrs, addattrs, modattrs);
     return 1;
 }
 
+int setprotoopts(uint8_t type, char **listenargs, char *sourcearg) {
+    struct commonprotoopts *protoopts;
+
+    protoopts = malloc(sizeof(struct commonprotoopts));
+    if (!protoopts)
+       return 0;
+    memset(protoopts, 0, sizeof(struct commonprotoopts));
+    protoopts->listenargs = listenargs;
+    protoopts->sourcearg = sourcearg;
+    protodefs[type]->setprotoopts(protoopts);
+    return 1;
+}
+
 void getmainconfig(const char *configfile) {
-    long int loglevel = LONG_MIN;
+    long int addttl = LONG_MIN, loglevel = LONG_MIN;
     struct gconffile *cfs;
-
+    char **listenargs[RAD_PROTOCOUNT];
+    char *sourcearg[RAD_PROTOCOUNT];
+    int i;
+    
     cfs = openconfigfile(configfile);
     memset(&options, 0, sizeof(options));
+    memset(&listenargs, 0, sizeof(listenargs));
+    memset(&sourcearg, 0, sizeof(sourcearg));
     
     clconfs = list_create();
     if (!clconfs)
@@ -3402,15 +3644,32 @@ void getmainconfig(const char *configfile) {
        debugx(1, DBG_ERR, "malloc failed");    
  
     if (!getgenericconfig(&cfs, NULL,
-                         "ListenUDP", CONF_MSTR, &options.listenudp,
-                         "ListenTCP", CONF_MSTR, &options.listentcp,
-                         "ListenTLS", CONF_MSTR, &options.listentls,
-                         "ListenDTLS", CONF_MSTR, &options.listendtls,
-                         "ListenAccountingUDP", CONF_MSTR, &options.listenaccudp,
-                         "SourceUDP", CONF_STR, &options.sourceudp,
-                         "SourceTCP", CONF_STR, &options.sourcetcp,
-                         "SourceTLS", CONF_STR, &options.sourcetls,
-                         "SourceDTLS", CONF_STR, &options.sourcedtls,
+#ifdef RADPROT_UDP                       
+                         "ListenUDP", CONF_MSTR, &listenargs[RAD_UDP],
+#endif                   
+#ifdef RADPROT_TCP                       
+                         "ListenTCP", CONF_MSTR, &listenargs[RAD_TCP],
+#endif                   
+#ifdef RADPROT_TLS
+                         "ListenTLS", CONF_MSTR, &listenargs[RAD_TLS],
+#endif                   
+#ifdef RADPROT_DTLS
+                         "ListenDTLS", CONF_MSTR, &listenargs[RAD_DTLS],
+#endif                   
+#ifdef RADPROT_UDP                       
+                         "SourceUDP", CONF_STR, &sourcearg[RAD_UDP],
+#endif                   
+#ifdef RADPROT_TCP                       
+                         "SourceTCP", CONF_STR, &sourcearg[RAD_TCP],
+#endif                   
+#ifdef RADPROT_TLS
+                         "SourceTLS", CONF_STR, &sourcearg[RAD_TLS],
+#endif                   
+#ifdef RADPROT_DTLS
+                         "SourceDTLS", CONF_STR, &sourcearg[RAD_DTLS],
+#endif                   
+                         "TTLAttribute", CONF_STR, &options.ttlattr,
+                         "addTTL", CONF_LINT, &addttl,
                          "LogLevel", CONF_LINT, &loglevel,
                          "LogDestination", CONF_STR, &options.logdestination,
                          "LoopPrevention", CONF_BLN, &options.loopprevention,
@@ -3428,6 +3687,17 @@ void getmainconfig(const char *configfile) {
            debugx(1, DBG_ERR, "error in %s, value of option LogLevel is %d, must be 1, 2, 3 or 4", configfile, loglevel);
        options.loglevel = (uint8_t)loglevel;
     }
+    if (addttl != LONG_MIN) {
+       if (addttl < 1 || addttl > 255)
+           debugx(1, DBG_ERR, "error in %s, value of option addTTL is %d, must be 1-255", configfile, addttl);
+       options.addttl = (uint8_t)addttl;
+    }
+    if (!setttlattr(&options, DEFAULT_TTL_ATTR))
+       debugx(1, DBG_ERR, "Failed to set TTLAttribute, exiting");
+
+    for (i = 0; i < RAD_PROTOCOUNT; i++)
+       if (listenargs[i] || sourcearg[i])
+           setprotoopts(i, listenargs[i], sourcearg[i]);
 }
 
 void getargs(int argc, char **argv, uint8_t *foreground, uint8_t *pretend, uint8_t *loglevel, char **configfile) {
@@ -3512,6 +3782,9 @@ int main(int argc, char **argv) {
     
     debug_init("radsecproxy");
     debug_set_level(DEBUG_LEVEL);
+
+    for (i = 0; i < RAD_PROTOCOUNT; i++)
+       protodefs[i] = protoinits[i](i);
     
     getargs(argc, argv, &foreground, &pretend, &loglevel, &configfile);
     if (loglevel)
@@ -3536,6 +3809,7 @@ int main(int argc, char **argv) {
     if (!foreground && (daemon(0, 0) < 0))
        debugx(1, DBG_ERR, "daemon() failed: %s", strerror(errno));
     
+    debug_timestamp_on();
     debug(DBG_INFO, "radsecproxy revision $Rev$ starting");
 
     sigemptyset(&sigset);
@@ -3554,29 +3828,14 @@ int main(int argc, char **argv) {
                           (void *)(srvconf->servers)))
            debugx(1, DBG_ERR, "pthread_create failed");
     }
-    /* srcprotores for UDP no longer needed */
-    if (srcprotores[RAD_UDP]) {
-       freeaddrinfo(srcprotores[RAD_UDP]);
-       srcprotores[RAD_UDP] = NULL;
-    }
 
-    for (i = 0; protodefs[i].name; i++)
-       if (protodefs[i].initextra)
-           protodefs[i].initextra();
-    
-    if (find_clconf_type(RAD_TCP, NULL))
-       createlisteners(RAD_TCP, options.listentcp);
-    
-    if (find_clconf_type(RAD_TLS, NULL))
-       createlisteners(RAD_TLS, options.listentls);
-    
-    if (find_clconf_type(RAD_DTLS, NULL))
-       createlisteners(RAD_DTLS, options.listendtls);
-    
-    if (find_clconf_type(RAD_UDP, NULL)) {
-       createlisteners(RAD_UDP, options.listenudp);
-       if (options.listenaccudp)
-           createlisteners(RAD_UDP, options.listenaccudp);
+    for (i = 0; i < RAD_PROTOCOUNT; i++) {
+       if (!protodefs[i])
+           continue;
+       if (protodefs[i]->initextra)
+           protodefs[i]->initextra();
+        if (find_clconf_type(i, NULL))
+           createlisteners(i);
     }
     
     /* just hang around doing nothing, anything to do here? */