task-manager-v1: Clear retransmit alert on request retransmit
[strongswan.git] / src / libcharon / sa / trap_manager.c
index 424d9e7..148df39 100644 (file)
@@ -1,7 +1,7 @@
 /*
- * Copyright (C) 2011-2015 Tobias Brunner
+ * Copyright (C) 2011-2017 Tobias Brunner
  * Copyright (C) 2009 Martin Willi
- * Hochschule fuer Technik Rapperswil
+ * HSR Hochschule fuer Technik Rapperswil
  *
  * This program is free software; you can redistribute it and/or modify it
  * under the terms of the GNU General Public License as published by the
@@ -16,7 +16,6 @@
 
 #include "trap_manager.h"
 
-#include <hydra.h>
 #include <daemon.h>
 #include <threading/mutex.h>
 #include <threading/rwlock.h>
@@ -105,6 +104,8 @@ typedef struct {
        peer_cfg_t *peer_cfg;
        /** ref to instantiated CHILD_SA (i.e the trap policy) */
        child_sa_t *child_sa;
+       /** TRUE in case of wildcard Transport Mode SA */
+       bool wildcard;
 } entry_t;
 
 /**
@@ -114,7 +115,9 @@ typedef struct {
        /** pending IKE_SA connecting upon acquire */
        ike_sa_t *ike_sa;
        /** reqid of pending trap policy */
-       u_int32_t reqid;
+       uint32_t reqid;
+       /** destination address (wildcard case) */
+       host_t *dst;
 } acquire_t;
 
 /**
@@ -133,20 +136,55 @@ static void destroy_entry(entry_t *this)
  */
 static void destroy_acquire(acquire_t *this)
 {
+       DESTROY_IF(this->dst);
        free(this);
 }
 
+CALLBACK(acquire_by_reqid, bool,
+       acquire_t *this, va_list args)
+{
+       uint32_t reqid;
+
+       VA_ARGS_VGET(args, reqid);
+       return this->reqid == reqid;
+}
+
+CALLBACK(acquire_by_dst, bool,
+       acquire_t *this, va_list args)
+{
+       host_t *dst;
+
+       VA_ARGS_VGET(args, dst);
+       return this->dst && this->dst->ip_equals(this->dst, dst);
+}
+
 /**
- * match an acquire entry by reqid
+ * Check if any remote TS are dynamic
  */
-static bool acquire_by_reqid(acquire_t *this, u_int32_t *reqid)
+static bool dynamic_remote_ts(child_cfg_t *child)
 {
-       return this->reqid == *reqid;
+       enumerator_t *enumerator;
+       linked_list_t *other_ts;
+       traffic_selector_t *ts;
+       bool found = FALSE;
+
+       other_ts = child->get_traffic_selectors(child, FALSE, NULL, NULL, FALSE);
+       enumerator = other_ts->create_enumerator(other_ts);
+       while (enumerator->enumerate(enumerator, &ts))
+       {
+               if (ts->is_dynamic(ts))
+               {
+                       found = TRUE;
+                       break;
+               }
+       }
+       enumerator->destroy(enumerator);
+       other_ts->destroy_offset(other_ts, offsetof(traffic_selector_t, destroy));
+       return found;
 }
 
-METHOD(trap_manager_t, install, u_int32_t,
-       private_trap_manager_t *this, peer_cfg_t *peer, child_cfg_t *child,
-       u_int32_t reqid)
+METHOD(trap_manager_t, install, bool,
+       private_trap_manager_t *this, peer_cfg_t *peer, child_cfg_t *child)
 {
        entry_t *entry, *found = NULL;
        ike_cfg_t *ike_cfg;
@@ -158,27 +196,49 @@ METHOD(trap_manager_t, install, u_int32_t,
        linked_list_t *proposals;
        proposal_t *proposal;
        protocol_id_t proto = PROTO_ESP;
+       bool result = FALSE, wildcard = FALSE;
 
        /* try to resolve addresses */
        ike_cfg = peer->get_ike_cfg(peer);
        other = ike_cfg->resolve_other(ike_cfg, AF_UNSPEC);
-       if (!other || other->is_anyaddr(other))
+       if (other && other->is_anyaddr(other) &&
+               child->get_mode(child) == MODE_TRANSPORT)
        {
-               DESTROY_IF(other);
-               DBG1(DBG_CFG, "installing trap failed, remote address unknown");
-               return 0;
+               /* allow wildcard for Transport Mode SAs */
+               me = host_create_any(other->get_family(other));
+               wildcard = TRUE;
        }
-       me = ike_cfg->resolve_me(ike_cfg, other->get_family(other));
-       if (!me || me->is_anyaddr(me))
+       else if (other && other->is_anyaddr(other))
        {
-               DESTROY_IF(me);
-               me = hydra->kernel_interface->get_source_addr(
-                                                                       hydra->kernel_interface, other, NULL);
+               other->destroy(other);
+               DBG1(DBG_CFG, "installing trap failed, remote address unknown");
+               return FALSE;
+       }
+       else
+       {       /* depending on the traffic selectors we don't really need a remote
+                * host yet, but we might fail later if no IP can be resolved */
+               if (!other && dynamic_remote_ts(child))
+               {       /* with dynamic TS we do need a host, otherwise 0.0.0.0/0 is used,
+                        * which is probably not what users expect*/
+                       DBG1(DBG_CFG, "installing trap failed, remote address unknown with "
+                                "dynamic traffic selector");
+                       return FALSE;
+               }
+               me = ike_cfg->resolve_me(ike_cfg, other ? other->get_family(other)
+                                                                                               : AF_UNSPEC);
+               if (!other)
+               {
+                       other = host_create_any(me ? me->get_family(me) : AF_INET);
+               }
+               other->set_port(other, ike_cfg->get_other_port(ike_cfg));
+               if ((!me || me->is_anyaddr(me)) && !other->is_anyaddr(other))
+               {
+                       DESTROY_IF(me);
+                       me = charon->kernel->get_source_addr(charon->kernel, other, NULL);
+               }
                if (!me)
                {
-                       DBG1(DBG_CFG, "installing trap failed, local address unknown");
-                       other->destroy(other);
-                       return 0;
+                       me = host_create_any(other->get_family(other));
                }
                me->set_port(me, ike_cfg->get_my_port(ike_cfg));
        }
@@ -187,12 +247,16 @@ METHOD(trap_manager_t, install, u_int32_t,
        if (this->installing == INSTALL_DISABLED)
        {       /* flush() has been called */
                this->lock->unlock(this->lock);
-               return 0;
+               other->destroy(other);
+               me->destroy(me);
+               return FALSE;
        }
        enumerator = this->traps->create_enumerator(this->traps);
        while (enumerator->enumerate(enumerator, &entry))
        {
-               if (streq(entry->name, child->get_name(child)))
+               if (streq(entry->name, child->get_name(child)) &&
+                       streq(entry->peer_cfg->get_name(entry->peer_cfg),
+                                 peer->get_name(peer)))
                {
                        found = entry;
                        if (entry->child_sa)
@@ -210,16 +274,18 @@ METHOD(trap_manager_t, install, u_int32_t,
                {
                        DBG1(DBG_CFG, "CHILD_SA '%s' is already being routed", found->name);
                        this->lock->unlock(this->lock);
-                       return 0;
+                       other->destroy(other);
+                       me->destroy(me);
+                       return FALSE;
                }
                /* config might have changed so update everything */
                DBG1(DBG_CFG, "updating already routed CHILD_SA '%s'", found->name);
-               reqid = found->child_sa->get_reqid(found->child_sa);
        }
 
        INIT(entry,
                .name = strdup(child->get_name(child)),
                .peer_cfg = peer->get_ref(peer),
+               .wildcard = wildcard,
        );
        this->traps->insert_first(this->traps, entry);
        this->installing++;
@@ -227,14 +293,14 @@ METHOD(trap_manager_t, install, u_int32_t,
        this->lock->unlock(this->lock);
 
        /* create and route CHILD_SA */
-       child_sa = child_sa_create(me, other, child, reqid, FALSE, 0, 0);
+       child_sa = child_sa_create(me, other, child, 0, FALSE, 0, 0);
 
        list = linked_list_create_with_items(me, NULL);
-       my_ts = child->get_traffic_selectors(child, TRUE, NULL, list);
+       my_ts = child->get_traffic_selectors(child, TRUE, NULL, list, FALSE);
        list->destroy_offset(list, offsetof(host_t, destroy));
 
        list = linked_list_create_with_items(other, NULL);
-       other_ts = child->get_traffic_selectors(child, FALSE, NULL, list);
+       other_ts = child->get_traffic_selectors(child, FALSE, NULL, list, FALSE);
        list->destroy_offset(list, offsetof(host_t, destroy));
 
        /* We don't know the finally negotiated protocol (ESP|AH), we install
@@ -247,7 +313,8 @@ METHOD(trap_manager_t, install, u_int32_t,
        proposals->destroy_offset(proposals, offsetof(proposal_t, destroy));
        child_sa->set_protocol(child_sa, proto);
        child_sa->set_mode(child_sa, child->get_mode(child));
-       status = child_sa->add_policies(child_sa, my_ts, other_ts);
+       child_sa->set_policies(child_sa, my_ts, other_ts);
+       status = child_sa->install_policies(child_sa);
        my_ts->destroy_offset(my_ts, offsetof(traffic_selector_t, destroy));
        other_ts->destroy_offset(other_ts, offsetof(traffic_selector_t, destroy));
        if (status != SUCCESS)
@@ -258,14 +325,13 @@ METHOD(trap_manager_t, install, u_int32_t,
                this->lock->unlock(this->lock);
                entry->child_sa = child_sa;
                destroy_entry(entry);
-               reqid = 0;
        }
        else
        {
-               reqid = child_sa->get_reqid(child_sa);
                this->lock->write_lock(this->lock);
                entry->child_sa = child_sa;
                this->lock->unlock(this->lock);
+               result = TRUE;
        }
        if (found)
        {
@@ -276,11 +342,11 @@ METHOD(trap_manager_t, install, u_int32_t,
        this->installing--;
        this->condvar->signal(this->condvar);
        this->lock->unlock(this->lock);
-       return reqid;
+       return result;
 }
 
 METHOD(trap_manager_t, uninstall, bool,
-       private_trap_manager_t *this, u_int32_t reqid)
+       private_trap_manager_t *this, char *peer, char *child)
 {
        enumerator_t *enumerator;
        entry_t *entry, *found = NULL;
@@ -289,8 +355,8 @@ METHOD(trap_manager_t, uninstall, bool,
        enumerator = this->traps->create_enumerator(this->traps);
        while (enumerator->enumerate(enumerator, &entry))
        {
-               if (entry->child_sa &&
-                       entry->child_sa->get_reqid(entry->child_sa) == reqid)
+               if (streq(entry->name, child) &&
+                  (!peer || streq(peer, entry->peer_cfg->get_name(entry->peer_cfg))))
                {
                        this->traps->remove_at(this->traps, enumerator);
                        found = entry;
@@ -302,32 +368,38 @@ METHOD(trap_manager_t, uninstall, bool,
 
        if (!found)
        {
-               DBG1(DBG_CFG, "trap %d not found to uninstall", reqid);
                return FALSE;
        }
        destroy_entry(found);
        return TRUE;
 }
 
-/**
- * convert enumerated entries to peer_cfg, child_sa
- */
-static bool trap_filter(rwlock_t *lock, entry_t **entry, peer_cfg_t **peer_cfg,
-                                               void *none, child_sa_t **child_sa)
+CALLBACK(trap_filter, bool,
+       rwlock_t *lock, enumerator_t *orig, va_list args)
 {
-       if (!(*entry)->child_sa)
-       {       /* skip entries that are currently being installed */
-               return FALSE;
-       }
-       if (peer_cfg)
-       {
-               *peer_cfg = (*entry)->peer_cfg;
-       }
-       if (child_sa)
+       entry_t *entry;
+       peer_cfg_t **peer_cfg;
+       child_sa_t **child_sa;
+
+       VA_ARGS_VGET(args, peer_cfg, child_sa);
+
+       while (orig->enumerate(orig, &entry))
        {
-               *child_sa = (*entry)->child_sa;
+               if (!entry->child_sa)
+               {       /* skip entries that are currently being installed */
+                       continue;
+               }
+               if (peer_cfg)
+               {
+                       *peer_cfg = entry->peer_cfg;
+               }
+               if (child_sa)
+               {
+                       *child_sa = entry->child_sa;
+               }
+               return TRUE;
        }
-       return TRUE;
+       return FALSE;
 }
 
 METHOD(trap_manager_t, create_enumerator, enumerator_t*,
@@ -335,37 +407,12 @@ METHOD(trap_manager_t, create_enumerator, enumerator_t*,
 {
        this->lock->read_lock(this->lock);
        return enumerator_create_filter(this->traps->create_enumerator(this->traps),
-                                                                       (void*)trap_filter, this->lock,
+                                                                       trap_filter, this->lock,
                                                                        (void*)this->lock->unlock);
 }
 
-METHOD(trap_manager_t, find_reqid, u_int32_t,
-       private_trap_manager_t *this, child_cfg_t *child)
-{
-       enumerator_t *enumerator;
-       entry_t *entry;
-       u_int32_t reqid = 0;
-
-       this->lock->read_lock(this->lock);
-       enumerator = this->traps->create_enumerator(this->traps);
-       while (enumerator->enumerate(enumerator, &entry))
-       {
-               if (streq(entry->name, child->get_name(child)))
-               {
-                       if (entry->child_sa)
-                       {
-                               reqid = entry->child_sa->get_reqid(entry->child_sa);
-                       }
-                       break;
-               }
-       }
-       enumerator->destroy(enumerator);
-       this->lock->unlock(this->lock);
-       return reqid;
-}
-
 METHOD(trap_manager_t, acquire, void,
-       private_trap_manager_t *this, u_int32_t reqid,
+       private_trap_manager_t *this, uint32_t reqid,
        traffic_selector_t *src, traffic_selector_t *dst)
 {
        enumerator_t *enumerator;
@@ -374,6 +421,8 @@ METHOD(trap_manager_t, acquire, void,
        peer_cfg_t *peer;
        child_cfg_t *child;
        ike_sa_t *ike_sa;
+       host_t *host;
+       bool wildcard, ignore = FALSE;
 
        this->lock->read_lock(this->lock);
        enumerator = this->traps->create_enumerator(this->traps);
@@ -390,38 +439,94 @@ METHOD(trap_manager_t, acquire, void,
 
        if (!found)
        {
-               DBG1(DBG_CFG, "trap not found, unable to acquire reqid %d",reqid);
+               DBG1(DBG_CFG, "trap not found, unable to acquire reqid %d", reqid);
                this->lock->unlock(this->lock);
                return;
        }
        reqid = found->child_sa->get_reqid(found->child_sa);
+       wildcard = found->wildcard;
 
        this->mutex->lock(this->mutex);
-       if (this->acquires->find_first(this->acquires, (void*)acquire_by_reqid,
-                                                                 (void**)&acquire, &reqid) == SUCCESS)
-       {
-               DBG1(DBG_CFG, "ignoring acquire, connection attempt pending");
-               this->mutex->unlock(this->mutex);
-               this->lock->unlock(this->lock);
-               return;
+       if (wildcard)
+       {       /* for wildcard acquires we check that we don't have a pending acquire
+                * with the same peer */
+               uint8_t mask;
+
+               dst->to_subnet(dst, &host, &mask);
+               if (this->acquires->find_first(this->acquires, acquire_by_dst,
+                                                                         (void**)&acquire, host))
+               {
+                       host->destroy(host);
+                       ignore = TRUE;
+               }
+               else
+               {
+                       INIT(acquire,
+                               .dst = host,
+                               .reqid = reqid,
+                       );
+                       this->acquires->insert_last(this->acquires, acquire);
+               }
        }
        else
        {
-               INIT(acquire,
-                       .reqid = reqid,
-               );
-               this->acquires->insert_last(this->acquires, acquire);
+               if (this->acquires->find_first(this->acquires, acquire_by_reqid,
+                                                                         (void**)&acquire, reqid))
+               {
+                       ignore = TRUE;
+               }
+               else
+               {
+                       INIT(acquire,
+                               .reqid = reqid,
+                       );
+                       this->acquires->insert_last(this->acquires, acquire);
+               }
        }
        this->mutex->unlock(this->mutex);
-
+       if (ignore)
+       {
+               DBG1(DBG_CFG, "ignoring acquire, connection attempt pending");
+               this->lock->unlock(this->lock);
+               return;
+       }
        peer = found->peer_cfg->get_ref(found->peer_cfg);
        child = found->child_sa->get_config(found->child_sa);
        child = child->get_ref(child);
        /* don't hold the lock while checking out the IKE_SA */
        this->lock->unlock(this->lock);
 
-       ike_sa = charon->ike_sa_manager->checkout_by_config(
+       if (wildcard)
+       {       /* the peer config would match IKE_SAs with other peers */
+               ike_sa = charon->ike_sa_manager->checkout_new(charon->ike_sa_manager,
+                                                                                       peer->get_ike_version(peer), TRUE);
+               if (ike_sa)
+               {
+                       ike_cfg_t *ike_cfg;
+                       uint16_t port;
+                       uint8_t mask;
+
+                       ike_sa->set_peer_cfg(ike_sa, peer);
+                       ike_cfg = ike_sa->get_ike_cfg(ike_sa);
+
+                       port = ike_cfg->get_other_port(ike_cfg);
+                       dst->to_subnet(dst, &host, &mask);
+                       host->set_port(host, port);
+                       ike_sa->set_other_host(ike_sa, host);
+
+                       port = ike_cfg->get_my_port(ike_cfg);
+                       src->to_subnet(src, &host, &mask);
+                       host->set_port(host, port);
+                       ike_sa->set_my_host(ike_sa, host);
+
+                       charon->bus->set_sa(charon->bus, ike_sa);
+               }
+       }
+       else
+       {
+               ike_sa = charon->ike_sa_manager->checkout_by_config(
                                                                                        charon->ike_sa_manager, peer);
+       }
        if (ike_sa)
        {
                if (ike_sa->get_peer_cfg(ike_sa) == NULL)
@@ -476,9 +581,17 @@ static void complete(private_trap_manager_t *this, ike_sa_t *ike_sa,
                {
                        continue;
                }
-               if (child_sa && child_sa->get_reqid(child_sa) != acquire->reqid)
+               if (child_sa)
                {
-                       continue;
+                       if (acquire->dst)
+                       {
+                               /* since every wildcard acquire results in a separate IKE_SA
+                                * there is no need to compare the destination address */
+                       }
+                       else if (child_sa->get_reqid(child_sa) != acquire->reqid)
+                       {
+                               continue;
+                       }
                }
                this->acquires->remove_at(this->acquires, enumerator);
                destroy_acquire(acquire);
@@ -553,7 +666,6 @@ trap_manager_t *trap_manager_create(void)
                        .install = _install,
                        .uninstall = _uninstall,
                        .create_enumerator = _create_enumerator,
-                       .find_reqid = _find_reqid,
                        .acquire = _acquire,
                        .flush = _flush,
                        .destroy = _destroy,