programs/pluto/state.c

/* routines for state objects
 * Copyright (C) 1997 Angelos D. Keromytis.
 * Copyright (C) 1998-2001  D. Hugh Redelmeier.
 * Copyright (C) 2003-2008 Michael C Richardson <mcr@xelerance.com> 
 * Copyright (C) 2003-2009 Paul Wouters <paul@xelerance.com> 
 * Copyright (C) 2008-2009 David McCullough <david_mccullough@securecomputing.com>
 * Copyright (C) 2009 Avesh Agarwal <avagarwa@redhat.com>
 *
 * 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
 * Free Software Foundation; either version 2 of the License, or (at your
 * option) any later version.  See <http://www.fsf.org/copyleft/gpl.txt>.
 *
 * This program is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
 * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
 * for more details.
 *
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <fcntl.h>

#include <openswan.h>

#include "sysdep.h"
#include "constants.h"
#include "defs.h"
#include "id.h"
#include "x509.h"
#include "pgp.h"
#include "certs.h"
#ifdef XAUTH_USEPAM
#include <security/pam_appl.h>
#endif
#include "connections.h"        /* needs id.h */
#include "state.h"
#include "kernel.h"     /* needs connections.h */
#include "log.h"
#include "packet.h"     /* so we can calculate sizeof(struct isakmp_hdr) */
#include "keys.h"       /* for free_public_key */
#include "rnd.h"
#include "timer.h"
#include "whack.h"
#include "demux.h"      /* needs packet.h */
#include "pending.h"
#include "ipsec_doi.h"  /* needs demux.h and state.h */

#include "sha1.h"
#include "md5.h"
#include "cookie.h"
#include "crypto.h" /* requires sha1.h and md5.h */
#include "spdb.h"

#ifdef HAVE_LIBNSS
# include <nss.h>
# include <pk11pub.h>
# include <keyhi.h>
#endif

/*
 * Global variables: had to go somewhere, might as well be this file.
 */

u_int16_t pluto_port = IKE_UDP_PORT;    /* Pluto's port */

/*
 * This file has the functions that handle the
 * state hash table and the Message ID list.
 */

/* Message-IDs
 *
 * A Message ID is contained in each IKE message header.
 * For Phase 1 exchanges (Main and Aggressive), it will be zero.
 * For other exchanges, which must be under the protection of an
 * ISAKMP SA, the Message ID must be unique within that ISAKMP SA.
 * Effectively, this labels the message as belonging to a particular
 * exchange.
 * BTW, we feel this uniqueness allows rekeying to be somewhat simpler
 * than specified by draft-jenkins-ipsec-rekeying-06.txt.
 *
 * A MessageID is a 32 bit unsigned number.  We represent the value
 * internally in network order -- they are just blobs to us.
 * They are unsigned numbers to make hashing and comparing easy.
 *
 * The following mechanism is used to allocate message IDs.  This
 * requires that we keep track of which numbers have already been used
 * so that we don't allocate one in use.
 */

struct msgid_list
{
    msgid_t               msgid; /* network order */
    struct msgid_list     *next;
};

bool
unique_msgid(struct state *isakmp_sa, msgid_t msgid)
{
    struct msgid_list *p;

    passert(msgid != MAINMODE_MSGID);
    passert(IS_ISAKMP_ENCRYPTED(isakmp_sa->st_state));

    for (p = isakmp_sa->st_used_msgids; p != NULL; p = p->next)
        if (p->msgid == msgid)
            return FALSE;

    return TRUE;
}

void
reserve_msgid(struct state *isakmp_sa, msgid_t msgid)
{
    struct msgid_list *p;

    p = alloc_thing(struct msgid_list, "msgid");
    p->msgid = msgid;
    p->next = isakmp_sa->st_used_msgids;
    isakmp_sa->st_used_msgids = p;
}

msgid_t
generate_msgid(struct state *isakmp_sa)
{
    int timeout = 100;  /* only try so hard for unique msgid */
    msgid_t msgid;

    passert(IS_ISAKMP_ENCRYPTED(isakmp_sa->st_state));

    for (;;)
    {
        get_rnd_bytes((void *) &msgid, sizeof(msgid));
        if (msgid != 0 && unique_msgid(isakmp_sa, msgid))
            break;

        if (--timeout == 0)
        {
            openswan_log("gave up looking for unique msgid; using 0x%08lx"
                , (unsigned long) msgid);
            break;
        }
    }
    return msgid;
}


/* state table functions */

#define STATE_TABLE_SIZE 32

static struct state *statetable[STATE_TABLE_SIZE];

static struct state **
state_hash(const u_char *icookie, const u_char *rcookie, int *bucketp)
{
    u_int i = 0, j;

    if(bucketp) *bucketp = -1;

    DBG(DBG_RAW | DBG_CONTROL,
        DBG_dump("ICOOKIE:", icookie, COOKIE_SIZE);
        DBG_dump("RCOOKIE:", rcookie, COOKIE_SIZE));

    /* XXX the following hash is pretty pathetic */

    for (j = 0; j < COOKIE_SIZE; j++)
        i = i * 407 + icookie[j] + rcookie[j];

    i = i % STATE_TABLE_SIZE;

    DBG(DBG_CONTROL, DBG_log("state hash entry %d", i));
    if(bucketp) *bucketp = i;

    return &statetable[i];
}

/* Get a state object.
 * Caller must schedule an event for this object so that it doesn't leak.
 * Caller must insert_state().
 */
struct state *
new_state(void)
{
    static const struct state blank_state;      /* initialized all to zero & NULL */
    static so_serial_t next_so = SOS_FIRST;
    struct state *st;

    st = clone_thing(blank_state, "struct state in new_state()");
    st->st_serialno = next_so++;
    passert(next_so > SOS_FIRST);       /* overflow can't happen! */
    st->st_whack_sock = NULL_FD;
    
    anyaddr(AF_INET, &st->hidden_variables.st_nat_oa);
    anyaddr(AF_INET, &st->hidden_variables.st_natd);

    DBG(DBG_CONTROL, DBG_log("creating state object #%lu at %p"
                             , st->st_serialno, (void *) st));
    return st;
}

/*
 * Initialize the state table (and mask*).
 */
void
init_states(void)
{
    int i;

    for (i = 0; i < STATE_TABLE_SIZE; i++)
        statetable[i] = (struct state *) NULL;
}

/* Find the state object with this serial number.
 * This allows state object references that don't turn into dangerous
 * dangling pointers: reference a state by its serial number.
 * Returns NULL if there is no such state.
 * If this turns out to be a significant CPU hog, it could be
 * improved to use a hash table rather than sequential seartch.
 */
struct state *
state_with_serialno(so_serial_t sn)
{
    if (sn >= SOS_FIRST)
    {
        struct state *st;
        int i;

        for (i = 0; i < STATE_TABLE_SIZE; i++)
            for (st = statetable[i]; st != NULL; st = st->st_hashchain_next)
                if (st->st_serialno == sn)
                    return st;
    }
    return NULL;
}

/* Insert a state object in the hash table. The object is inserted
 * at the begining of list.
 * Needs cookies, connection, and msgid.
 */
void
insert_state(struct state *st)
{
    int bucketno;
    struct state **p = state_hash(st->st_icookie, st->st_rcookie, &bucketno);

    passert(st->st_hashchain_prev == NULL && st->st_hashchain_next == NULL);

    DBG(DBG_CONTROL
        , DBG_log("inserting state object #%lu on chain %u"
                  , st->st_serialno, bucketno));

    if (*p != NULL)
    {
        passert((*p)->st_hashchain_prev == NULL);
        (*p)->st_hashchain_prev = st;
    }
    st->st_hashchain_next = *p;
    *p = st;

    /* Ensure that somebody is in charge of killing this state:
     * if no event is scheduled for it, schedule one to discard the state.
     * If nothing goes wrong, this event will be replaced by
     * a more appropriate one.
     */
    if (st->st_event == NULL)
        event_schedule(EVENT_SO_DISCARD, 0, st);

        refresh_state(st);
}

/*
 * unlink a state object from the hash table that had a zero
 * rcookie before, and rehash it into the right place
 */
void
rehash_state(struct state *st)
{
    /* unlink from forward chain */
    int bucketno = -1;
    struct state **p = st->st_hashchain_prev == NULL
        ? state_hash(st->st_icookie, zero_cookie, &bucketno)
        : &st->st_hashchain_prev->st_hashchain_next;

    DBG(DBG_CONTROL
        , DBG_log("rehashing state object #%lu, removed from chain %d"
                             , st->st_serialno, bucketno));

    /* unlink from forward chain */
    passert(*p == st);
    *p = st->st_hashchain_next;

    /* unlink from backward chain */
    if (st->st_hashchain_next != NULL)
    {
        passert(st->st_hashchain_next->st_hashchain_prev == st);
        st->st_hashchain_next->st_hashchain_prev = st->st_hashchain_prev;
    }

    st->st_hashchain_next = st->st_hashchain_prev = NULL;

    /* now, re-insert */
    insert_state(st);
}

/* unlink a state object from the hash table, but don't free it
 */
void
unhash_state(struct state *st)
{
    /* unlink from forward chain */
    struct state **p;

    if(st->st_hashchain_prev == NULL) {
        p = state_hash(st->st_icookie, st->st_rcookie, NULL);
        if(*p != st) {
            p = state_hash(st->st_icookie, zero_cookie, NULL);
        }
    } else {
        p = &st->st_hashchain_prev->st_hashchain_next;
    }

    /* unlink from forward chain */
    passert(*p == st);
    *p = st->st_hashchain_next;

    /* unlink from backward chain */
    if (st->st_hashchain_next != NULL)
    {
        passert(st->st_hashchain_next->st_hashchain_prev == st);
        st->st_hashchain_next->st_hashchain_prev = st->st_hashchain_prev;
    }

    st->st_hashchain_next = st->st_hashchain_prev = NULL;
}

/* Free the Whack socket file descriptor.
 * This has the side effect of telling Whack that we're done.
 */
void
release_whack(struct state *st)
{
    close_any(st->st_whack_sock);
}

/* delete a state object */
void
delete_state(struct state *st)
{
    struct connection *const c = st->st_connection;
    struct state *old_cur_state = cur_state == st? NULL : cur_state;

    DBG(DBG_CONTROL, DBG_log("deleting state #%lu", st->st_serialno));


    /* If DPD is enabled on this state object, clear any pending events */
    if(st->st_dpd_event != NULL)
            delete_dpd_event(st);

    /* if there is a suspended state transition, disconnect us */
    if (st->st_suspended_md != NULL)
    {
        passert(st->st_suspended_md->st == st);
        DBG(DBG_CONTROL, DBG_log("disconnecting state #%lu from md",
            st->st_serialno));
        st->st_suspended_md->st = NULL;
    }

    /* tell the other side of any IPSEC SAs that are going down */
    if (IS_IPSEC_SA_ESTABLISHED(st->st_state)
    || IS_ISAKMP_SA_ESTABLISHED(st->st_state))
        send_delete(st);

    delete_event(st);   /* delete any pending timer event */

    /* Ditch anything pending on ISAKMP SA being established.
     * Note: this must be done before the unhash_state to prevent
     * flush_pending_by_state inadvertently and prematurely
     * deleting our connection.
     */
    flush_pending_by_state(st);

    /* if there is anything in the cryptographic queue, then remove this
     * state from it.
     */
    delete_cryptographic_continuation(st);

    /* effectively, this deletes any ISAKMP SA that this state represents */
    unhash_state(st);

    /* tell kernel to delete any IPSEC SA
     * ??? we ought to tell peer to delete IPSEC SAs
     */
    if (IS_IPSEC_SA_ESTABLISHED(st->st_state)
        || IS_CHILD_SA_ESTABLISHED(st))
        delete_ipsec_sa(st, FALSE);
    else if (IS_ONLY_INBOUND_IPSEC_SA_ESTABLISHED(st->st_state))
        delete_ipsec_sa(st, TRUE);
 
    if (c->newest_ipsec_sa == st->st_serialno)
        c->newest_ipsec_sa = SOS_NOBODY;

    if (c->newest_isakmp_sa == st->st_serialno)
        c->newest_isakmp_sa = SOS_NOBODY;

    /*
     * fake a state change here while we are still associated with a
     * connection.  Without this the state logging (when enabled) cannot
     * work out what happened.
     */
    fake_state(st, STATE_UNDEFINED);

    st->st_connection = NULL;   /* we might be about to free it */
    cur_state = old_cur_state;  /* without st_connection, st isn't complete */
    connection_discard(c);

    change_state(st, STATE_UNDEFINED);

    release_whack(st);

    /* from here on we are just freeing RAM */

    {
        struct msgid_list *p = st->st_used_msgids;

        while (p != NULL)
        {
            struct msgid_list *q = p;
            p = p->next;
            pfree(q);
        }
    }

    unreference_key(&st->st_peer_pubkey);

    free_sa(st->st_sadb);
    st->st_sadb=NULL;

    if (st->st_sec_in_use) {
#ifdef HAVE_LIBNSS
        SECKEYPrivateKey *privk;
        SECKEYPublicKey   *pubk;
        memcpy(&pubk,st->pubk.ptr,st->pubk.len);
        SECKEY_DestroyPublicKey(pubk);
        freeanychunk(st->pubk);
        memcpy(&privk,st->st_sec_chunk.ptr,st->st_sec_chunk.len);
        SECKEY_DestroyPrivateKey(privk);        
#else
        mpz_clear(&(st->st_sec));
#endif
        pfreeany(st->st_sec_chunk.ptr);
    }

    freeanychunk(st->st_firstpacket_me);
    freeanychunk(st->st_firstpacket_him);
    freeanychunk(st->st_tpacket);
    freeanychunk(st->st_rpacket);
    freeanychunk(st->st_p1isa);
    freeanychunk(st->st_gi);
    freeanychunk(st->st_gr);
    freeanychunk(st->st_shared);
    freeanychunk(st->st_ni);
    freeanychunk(st->st_nr);
#ifdef HAVE_LIBNSS
    free_osw_nss_symkey(st->st_skeyid);
    free_osw_nss_symkey(st->st_skey_d);
    free_osw_nss_symkey(st->st_skey_ai);
    free_osw_nss_symkey(st->st_skey_ar);
    free_osw_nss_symkey(st->st_skey_ei);
    free_osw_nss_symkey(st->st_skey_er);
    free_osw_nss_symkey(st->st_skey_pi);
    free_osw_nss_symkey(st->st_skey_pr);
    free_osw_nss_symkey(st->st_enc_key);

    if(st->st_ah.our_keymat!=NULL)
    memset(st->st_ah.our_keymat, 0, st->st_ah.keymat_len);

    if(st->st_ah.peer_keymat!=NULL)
    memset(st->st_ah.peer_keymat, 0, st->st_ah.keymat_len);

    if(st->st_esp.our_keymat!=NULL)
    memset(st->st_esp.our_keymat, 0, st->st_esp.keymat_len);

    if(st->st_esp.peer_keymat!=NULL)
    memset(st->st_esp.peer_keymat, 0, st->st_esp.keymat_len);
#endif
    freeanychunk(st->st_skeyid);
    freeanychunk(st->st_skey_d);
    freeanychunk(st->st_skey_ai);
    freeanychunk(st->st_skey_ar);
    freeanychunk(st->st_skey_ei);
    freeanychunk(st->st_skey_er);
    freeanychunk(st->st_skey_pi);
    freeanychunk(st->st_skey_pr);
    freeanychunk(st->st_enc_key);
    pfreeany(st->st_ah.our_keymat);
    pfreeany(st->st_ah.peer_keymat);
    pfreeany(st->st_esp.our_keymat);
    pfreeany(st->st_esp.peer_keymat);
    freeanychunk(st->st_xauth_password);
    pfree(st);
}

/*
 * Is a connection in use by some state?
 */
bool
states_use_connection(struct connection *c)
{
    /* are there any states still using it? */
    struct state *st = NULL;
    int i;

    for (i = 0; st == NULL && i < STATE_TABLE_SIZE; i++)
        for (st = statetable[i]; st != NULL; st = st->st_hashchain_next)
            if (st->st_connection == c)
                return TRUE;

    return FALSE;
}

/*
 * delete all states that were created for a given connection,
 * additionally delete any states for which func(st, arg)
 * returns true.
 */
static void
foreach_states_by_connection_func(struct connection *c
                                  , bool (*comparefunc)(struct state *st, struct connection *c, void *arg, int pass)
                                 , void (*successfunc)(struct state *st, struct connection *c, void *arg)
                                 , void *arg)
{
    int pass;
    /* this kludge avoids an n^2 algorithm */

    /* We take two passes so that we delete any ISAKMP SAs last.
     * This allows Delete Notifications to be sent.
     * ?? We could probably double the performance by caching any
     * ISAKMP SA states found in the first pass, avoiding a second.
     */
    for (pass = 0; pass != 2; pass++)
    {
        int i;

        /* For each hash chain... */
        for (i = 0; i < STATE_TABLE_SIZE; i++)
        {
            struct state *st;

            /* For each state in the hash chain... */
            for (st = statetable[i]; st != NULL; )
            {
                struct state *this = st;

                st = st->st_hashchain_next;     /* before this is deleted */

                /* on pass 2, ignore phase2 states */
                if(pass == 1 && IS_ISAKMP_SA_ESTABLISHED(this->st_state)) {
                    continue;
                }

                /* call comparison function */
                if ((*comparefunc)(this, c, arg, pass))
                {
                    struct state *old_cur_state
                        = cur_state == this? NULL : cur_state;
#ifdef DEBUG
                    lset_t old_cur_debugging = cur_debugging;
#endif

    set_cur_state(this);
                    (*successfunc)(this, c, arg);

                    cur_state = old_cur_state;
#ifdef DEBUG
                    set_debugging(old_cur_debugging);
#endif
                }
            }
        }
    }
}

static void delete_state_function(struct state *this
                                  , struct connection *c UNUSED
                                  , void *arg UNUSED)
{
    openswan_log("deleting state (%s)"
                 , enum_show(&state_names, this->st_state));

    if(this->st_event != NULL) delete_event(this);
    delete_state(this);
}

/*
 * delete all states that were created for a given connection.
 * if relations == TRUE, then also delete states that share
 * the same phase 1 SA.
 */
static bool same_phase1_sa_relations(struct state *this
                                     , struct connection *c, void *arg
                                     , int pass UNUSED)
{
    so_serial_t *pparent_sa = (so_serial_t *)arg;
    so_serial_t parent_sa = *pparent_sa;

    return (this->st_connection == c
            || (parent_sa != SOS_NOBODY 
                && this->st_clonedfrom == parent_sa));
}

/*
 * Delete all states that have somehow not ben deleted yet
 * but using interfaces that are going down
 */
 
void delete_states_dead_interfaces(void)
{
    struct state *st = NULL;
    int i;

    for (i = 0; st == NULL && i < STATE_TABLE_SIZE; i++)
        for (st = statetable[i]; st != NULL;){
            struct state *this = st;
            st = st->st_hashchain_next; /* before this is deleted */
            if (this->st_interface && this->st_interface->change == IFN_DELETE )
            {
                openswan_log("deleting lasting state #%lu on interface (%s) which is shutting down",
                        this->st_serialno,
                        this->st_interface->ip_dev->id_vname);
                delete_state(this);
            }
        }
}

/*
 * delete all states that were created for a given connection.
 * if relations == TRUE, then also delete states that share
 * the same phase 1 SA.
 */
static bool same_phase1_sa(struct state *this,
                           struct connection *c
                           , void *arg UNUSED
                           , int pass UNUSED)
{
    return (this->st_connection == c);
}

void
delete_states_by_connection(struct connection *c, bool relations)
{
    so_serial_t parent_sa = c->newest_isakmp_sa;
    enum connection_kind ck = c->kind;
    struct spd_route *sr;

    /* save this connection's isakmp SA,
     * since it will get set to later SOS_NOBODY */
    if (ck == CK_INSTANCE)
        c->kind = CK_GOING_AWAY;

    if(relations) {
        foreach_states_by_connection_func(c, same_phase1_sa_relations
                                          , delete_state_function
                                          , &parent_sa);
    } else {
        foreach_states_by_connection_func(c, same_phase1_sa
                                          , delete_state_function
                                          , &parent_sa);
    }

    /*
     * Seems to dump here because 1 of the states is NULL.  Removing the Assert
     * makes things work.  We should fix this eventually.
     *
     *  passert(c->newest_ipsec_sa == SOS_NOBODY
     *  && c->newest_isakmp_sa == SOS_NOBODY);
     *
     */

    sr = &c->spd;
    while (sr != NULL)
    {
        passert(sr->eroute_owner == SOS_NOBODY);
        passert(sr->routing != RT_ROUTED_TUNNEL);
        sr = sr->next;
    }

    if (ck == CK_INSTANCE)
    {
        c->kind = ck;
        delete_connection(c, relations);
    }
}

/*
 * delete_p2states_by_connection - deletes only the phase 2 of conn
 *
 * @c - the connection whose states need to be removed.
 *
 * This is like delete_states_by_connection with relations=TRUE,
 * but it only deletes phase 2 states.
 */
static bool same_phase1_no_phase2(struct state *this
                                  , struct connection *c
                                  , void *arg
                                  , int pass)
{
    if(pass == 2) return FALSE;

    if(IS_ISAKMP_SA_ESTABLISHED(this->st_state)) {
        return FALSE;
    } else {
        return same_phase1_sa_relations(this, c, arg, pass);
    }
}

void
delete_p2states_by_connection(struct connection *c)
{
    so_serial_t parent_sa = c->newest_isakmp_sa;
    enum connection_kind ck = c->kind;

    /* save this connection's isakmp SA,
     * since it will get set to later SOS_NOBODY */
    if (ck == CK_INSTANCE)
        c->kind = CK_GOING_AWAY;

    foreach_states_by_connection_func(c, same_phase1_no_phase2
                                      , delete_state_function
                                      , &parent_sa);
    if (ck == CK_INSTANCE)
    {
        c->kind = ck;
        delete_connection(c, TRUE);
    }
}

/*
 * rekey_p2states_by_connection - rekeys all the phase 2 of conn
 *
 * @c - the connection whose states need to be rekeyed
 *
 * This is like delete_states_by_connection with relations=TRUE,
 * but instead of removing the states, is scheduled them for rekey.
 */
static void rekey_state_function(struct state *this
                                 , struct connection *c UNUSED
                                 , void *arg UNUSED)
{
    openswan_log("rekeying state (%s)"
                 , enum_show(&state_names, this->st_state));

    delete_event(this);
    delete_dpd_event(this);
    event_schedule(EVENT_SA_REPLACE, 0, this);

    /*
     * but, remove the actual phase2 SA from the kernel, replacing
     * with a %trap.
     */
    delete_ipsec_sa(this, FALSE);
}

void
rekey_p2states_by_connection(struct connection *c)
{
    so_serial_t parent_sa = c->newest_isakmp_sa;
    enum connection_kind ck = c->kind;

    /* save this connection's isakmp SA,
     * since it will get set to later SOS_NOBODY */
    if (ck == CK_INSTANCE)
        c->kind = CK_GOING_AWAY;

    foreach_states_by_connection_func(c, same_phase1_no_phase2
                                      , rekey_state_function
                                      , &parent_sa);
    if (ck == CK_INSTANCE)
    {
        c->kind = ck;
        delete_connection(c, TRUE);
    }
}


/*
 * Walk through the state table, and delete each state whose phase 1 (IKE)
 * peer is among those given.
 * TODO: This function is only called for ipsec whack --crash peer, but
 * it currently does not work for IKEv2, since IS_PHASE1() only works on IKEv1
 * Filed as bug http://bugs.xelerance.com/view.php?id=971
 */
void
delete_states_by_peer(ip_address *peer)
{
    char peerstr[ADDRTOT_BUF];
    int i, ph1;

    addrtot(peer, 0, peerstr, sizeof(peerstr));

    whack_log(RC_COMMENT, "restarting peer %s\n", peerstr);

    /* first restart the phase1s */
    for(ph1=0; ph1 < 2; ph1++) {
        /* For each hash chain... */
        for (i = 0; i < STATE_TABLE_SIZE; i++) {
            struct state *st;
                
            /* For each state in the hash chain... */
            for (st = statetable[i]; st != NULL; ) {
                struct state *this = st;
                struct connection *c = this->st_connection;
                char ra[ADDRTOT_BUF];
                
                st = st->st_hashchain_next;     /* before this is deleted */

                addrtot(&this->st_remoteaddr, 0, ra, sizeof(ra));
                DBG_log("comparing %s to %s\n", ra, peerstr);

                if(sameaddr(&this->st_remoteaddr, peer)) {
                    if(ph1==0 && IS_PHASE1(this->st_state)) {
                        
                        whack_log(RC_COMMENT
                                  , "peer %s for connection %s crashed, replacing"
                                  , peerstr
                                  , c->name);
                        ipsecdoi_replace(this, LEMPTY, LEMPTY, 1);
                    } else {
                        delete_event(this);
                        event_schedule(EVENT_SA_REPLACE, 0, this);
                    }
                }
            }
        }
    }
}

/* Duplicate a Phase 1 state object, to create a Phase 2 object.
 * Caller must schedule an event for this object so that it doesn't leak.
 * Caller must insert_state().
 */
struct state *
duplicate_state(struct state *st)
{
    struct state *nst;

    DBG(DBG_CONTROL, DBG_log("duplicating state object #%lu",
        st->st_serialno));

    /* record use of the Phase 1 state */
    st->st_outbound_count++;
    st->st_outbound_time = now();

    nst = new_state();
    
    memcpy(nst->st_icookie, st->st_icookie, COOKIE_SIZE);
    memcpy(nst->st_rcookie, st->st_rcookie, COOKIE_SIZE);
    nst->st_connection = st->st_connection;

    nst->st_doi = st->st_doi;
    nst->st_situation = st->st_situation;
    nst->quirks = st->quirks;
    nst->hidden_variables = st->hidden_variables;
    nst->st_remoteaddr = st->st_remoteaddr;
    nst->st_remoteport = st->st_remoteport;
    nst->st_localaddr  = st->st_localaddr;
    nst->st_localport  = st->st_localport;
    nst->st_interface  = st->st_interface;
    nst->st_clonedfrom = st->st_serialno;
    nst->st_import     = st->st_import;
    nst->st_ikev2      = st->st_ikev2;
    nst->st_event      = NULL;

#   define clone_chunk(ch, name) \
        clonetochunk(nst->ch, st->ch.ptr, st->ch.len, name)

#if 0
    clone_chunk(st_skeyid_d, "st_skeyid_d in duplicate_state");
    clone_chunk(st_skeyid_a, "st_skeyid_a in duplicate_state");
    clone_chunk(st_skeyid_e, "st_skeyid_e in duplicate_state");
#endif

#ifdef HAVE_LIBNSS
    dup_osw_nss_symkey(st->st_skeyseed);
    dup_osw_nss_symkey(st->st_skey_d);
    dup_osw_nss_symkey(st->st_skey_ai);
    dup_osw_nss_symkey(st->st_skey_ar);
    dup_osw_nss_symkey(st->st_skey_ei);
    dup_osw_nss_symkey(st->st_skey_er);
    dup_osw_nss_symkey(st->st_skey_pi);
    dup_osw_nss_symkey(st->st_skey_pr);
    dup_osw_nss_symkey(st->st_enc_key);
#endif

    clone_chunk(st_enc_key,  "st_enc_key in duplicate_state");

    /* v2 duplication of state */
    clone_chunk(st_skeyseed, "st_skeyseed in duplicate_state");
    clone_chunk(st_skey_d,   "st_skey_d in duplicate_state");
    clone_chunk(st_skey_ai,  "st_skey_ai in duplicate_state");
    clone_chunk(st_skey_ar,  "st_skey_ar in duplicate_state");
    clone_chunk(st_skey_ei,  "st_skey_ei in duplicate_state");
    clone_chunk(st_skey_er,  "st_skey_er in duplicate_state");
    clone_chunk(st_skey_pi,  "st_skey_pi in duplicate_state");
    clone_chunk(st_skey_pr,  "st_skey_pr in duplicate_state");
    clone_chunk(st_ni,       "st_ni in duplicate_state");
    clone_chunk(st_nr,       "st_nr in duplicate_state");

#   undef clone_chunk

    nst->st_oakley = st->st_oakley;

    return nst;
}

#if 1
void for_each_state(void *(f)(struct state *, void *data), void *data)
{
        struct state *st, *ocs = cur_state;
        int i;
        for (i=0; i<STATE_TABLE_SIZE; i++) {
                for (st = statetable[i]; st != NULL; st = st->st_hashchain_next) {
                        set_cur_state(st);
                        f(st, data);
                }
        }
        cur_state = ocs;
}
#endif

/*
 * Find a state object for an IKEv1 state
 */
struct state *
find_state_ikev1(const u_char *icookie
                 , const u_char *rcookie
                 , const ip_address *peer UNUSED
                 , msgid_t /*network order*/ msgid)
{
    struct state *st = *state_hash(icookie, rcookie, NULL);

    while (st != (struct state *) NULL)
    {
        if (memcmp(icookie, st->st_icookie, COOKIE_SIZE) == 0
            && memcmp(rcookie, st->st_rcookie, COOKIE_SIZE) == 0
            && st->st_ikev2 == FALSE)
        {
            DBG(DBG_CONTROL,
                DBG_log("v1 peer and cookies match on #%ld, provided msgid %08lx vs %08lx"
                        , st->st_serialno
                        , (long unsigned)ntohl(msgid)
                        , (long unsigned)ntohl(st->st_msgid)));
            if(msgid == st->st_msgid)
                break;
        }
        st = st->st_hashchain_next;
    }

    DBG(DBG_CONTROL,
        if (st == NULL)
            DBG_log("v1 state object not found");
        else
            DBG_log("v1 state object #%lu found, in %s"
                , st->st_serialno
                , enum_show(&state_names, st->st_state)));

    return st;
}

/*
 * Find a state object for an IKEv2 state.
 * Note: only finds parent states.
 */
struct state *
find_state_ikev2_parent(const u_char *icookie
                        , const u_char *rcookie)
{
    struct state *st = *state_hash(icookie, rcookie, NULL);

    while (st != (struct state *) NULL)
    {
        if (memcmp(icookie, st->st_icookie, COOKIE_SIZE) == 0
            && memcmp(rcookie, st->st_rcookie, COOKIE_SIZE) == 0
            && st->st_ikev2 == TRUE
            && st->st_clonedfrom == 0)
        {
            DBG(DBG_CONTROL,
                DBG_log("v2 peer and cookies match on #%ld"
                        , st->st_serialno));
            break;
        }
        st = st->st_hashchain_next;
    }

    DBG(DBG_CONTROL,
        if (st == NULL)
            DBG_log("v2 state object not found");
        else
            DBG_log("v2 state object #%lu found, in %s"
                , st->st_serialno
                , enum_show(&state_names, st->st_state)));

    return st;
}

/*
 * Find a state object for an IKEv2 state, looking by icookie only.
 * Note: only finds parent states.
 */
struct state *
find_state_ikev2_parent_init(const u_char *icookie)
{
    struct state *st = *state_hash(icookie, zero_cookie, NULL);

    while (st != (struct state *) NULL)
    {
        if (memcmp(icookie, st->st_icookie, COOKIE_SIZE) == 0
            && st->st_ikev2 == TRUE
            && st->st_clonedfrom == 0)
        {
            DBG(DBG_CONTROL,
                DBG_log("v2 peer and cookies match on #%ld"
                        , st->st_serialno));
            break;
        }
        st = st->st_hashchain_next;
    }

    DBG(DBG_CONTROL,
        if (st == NULL)
            DBG_log("v2 state object not found");
        else
            DBG_log("v2 state object #%lu found, in %s"
                , st->st_serialno
                , enum_show(&state_names, st->st_state)));

    return st;
}

/*
 * Find a state object for an IKEv2 state, a response that includes a msgid.
 */
struct state *
find_state_ikev2_child(const u_char *icookie
                       , const u_char *rcookie
                       , msgid_t msgid)
{
    struct state *st = *state_hash(icookie, rcookie, NULL);

    while (st != (struct state *) NULL)
    {
        if (memcmp(icookie, st->st_icookie, COOKIE_SIZE) == 0
            && memcmp(rcookie, st->st_rcookie, COOKIE_SIZE) == 0
            && st->st_ikev2 == TRUE
            && st->st_msgid == msgid)
        {
            DBG(DBG_CONTROL,
                DBG_log("v2 peer, cookies and msgid match on #%ld"
                        , st->st_serialno));
            break;
        }
        st = st->st_hashchain_next;
    }

    DBG(DBG_CONTROL,
        if (st == NULL)
            DBG_log("v2 state object not found");
        else
            DBG_log("v2 state object #%lu found, in %s"
                , st->st_serialno
                , enum_show(&state_names, st->st_state)));

    return st;
}

/*
 * Find a state object.
 */
struct state *
find_info_state(const u_char *icookie
                , const u_char *rcookie
                , const ip_address *peer UNUSED
                , msgid_t /*network order*/ msgid)
{
    struct state *st = *state_hash(icookie, rcookie, NULL);

    while (st != (struct state *) NULL)
    {
        if (memcmp(icookie, st->st_icookie, COOKIE_SIZE) == 0
            && memcmp(rcookie, st->st_rcookie, COOKIE_SIZE) == 0)
        {
            DBG(DBG_CONTROL,
                DBG_log("peer and cookies match on #%ld, provided msgid %08lx vs %08lx/%08lx"
                        , st->st_serialno
                        , (long unsigned)ntohl(msgid)
                        , (long unsigned)ntohl(st->st_msgid)
                        , (long unsigned)ntohl(st->st_msgid_phase15)));
            if((st->st_msgid_phase15!=0 && msgid == st->st_msgid_phase15)
               || msgid == st->st_msgid)
                break;
        }
        st = st->st_hashchain_next;
    }

    DBG(DBG_CONTROL,
        if (st == NULL)
            DBG_log("p15 state object not found");
        else
            DBG_log("p15 state object #%lu found, in %s"
                , st->st_serialno
                , enum_show(&state_names, st->st_state)));

    return st;
}


/* Find the state that sent a packet
 * ??? this could be expensive -- it should be rate-limited to avoid DoS
 */
struct state *
find_sender(size_t packet_len, u_char *packet)
{
    int i;
    struct state *st;

    if (packet_len >= sizeof(struct isakmp_hdr))
        for (i = 0; i < STATE_TABLE_SIZE; i++)
            for (st = statetable[i]; st != NULL; st = st->st_hashchain_next)
                if (st->st_tpacket.ptr != NULL
                && st->st_tpacket.len == packet_len
                && memcmp(st->st_tpacket.ptr, packet, packet_len) == 0)
                    return st;

    return NULL;
}

struct state *
find_phase2_state_to_delete(const struct state *p1st
, u_int8_t protoid
, ipsec_spi_t spi
, bool *bogus)
{
    struct state *st;
    int i;

    *bogus = FALSE;
    for (i = 0; i < STATE_TABLE_SIZE; i++)
    {
        for (st = statetable[i]; st != NULL; st = st->st_hashchain_next)
        {
            if (IS_IPSEC_SA_ESTABLISHED(st->st_state)
            && p1st->st_connection->host_pair == st->st_connection->host_pair
            && same_peer_ids(p1st->st_connection, st->st_connection, NULL))
            {
                struct ipsec_proto_info *pr = protoid == PROTO_IPSEC_AH
                    ? &st->st_ah : &st->st_esp;

                if (pr->present)
                {
                    if (pr->attrs.spi == spi)
                        return st;
                    if (pr->our_spi == spi)
                        *bogus = TRUE;
                }
            }
        }
    }
    return NULL;
}

/* Find newest Phase 1 negotiation state object for suitable for connection c
 */
struct state *
find_phase1_state(const struct connection *c, lset_t ok_states)
{
    struct state
        *st,
        *best = NULL;
    int i;

    for (i = 0; i < STATE_TABLE_SIZE; i++) {
        for (st = statetable[i]; st != NULL; st = st->st_hashchain_next) {
            if (LHAS(ok_states, st->st_state) 
                && c->host_pair == st->st_connection->host_pair
                && same_peer_ids(c, st->st_connection, NULL)
                && (best == NULL
                    || best->st_serialno < st->st_serialno))
                {
                    best = st;
                }
        }
    }

    return best;
}

void
state_eroute_usage(ip_subnet *ours, ip_subnet *his
, unsigned long count, time_t nw)
{
    struct state *st;
    int i;

    for (i = 0; i < STATE_TABLE_SIZE; i++)
    {
        for (st = statetable[i]; st != NULL; st = st->st_hashchain_next)
        {
            struct connection *c = st->st_connection;

            /* XXX spd-enum */
            if (IS_IPSEC_SA_ESTABLISHED(st->st_state)
                && c->spd.eroute_owner == st->st_serialno
                && c->spd.routing == RT_ROUTED_TUNNEL
                && samesubnet(&c->spd.this.client, ours)
                && samesubnet(&c->spd.that.client, his))
            {
                if (st->st_outbound_count != count)
                {
                    st->st_outbound_count = count;
                    st->st_outbound_time = nw;
                }
                return;
            }
        }
    }
    DBG(DBG_CONTROL,
        {
            char ourst[SUBNETTOT_BUF];
            char hist[SUBNETTOT_BUF];

            subnettot(ours, 0, ourst, sizeof(ourst));
            subnettot(his, 0, hist, sizeof(hist));
            DBG_log("unknown tunnel eroute %s -> %s found in scan"
                , ourst, hist);
        });
}

void fmt_state(struct state *st, time_t n
, char *state_buf, size_t state_buf_len
, char *state_buf2, size_t state_buf2_len)
{
    /* what the heck is interesting about a state? */
    const struct connection *c = st->st_connection;
    long delta;
    char inst[CONN_INST_BUF];
    char dpdbuf[128];
    const char *np1 = c->newest_isakmp_sa == st->st_serialno
        ? "; newest ISAKMP" : "";
    const char *np2 = c->newest_ipsec_sa == st->st_serialno
        ? "; newest IPSEC" : "";
    /* XXX spd-enum */
    const char *eo = c->spd.eroute_owner == st->st_serialno
        ? "; eroute owner" : "";
    const char *idlestr;

    fmt_conn_instance(c, inst);

    if(st->st_event) {
        delta = st->st_event->ev_time >= n
            ? (long)(st->st_event->ev_time - n)
            : -(long)(n - st->st_event->ev_time);
    } else {
        delta = -1;
    }

    if (IS_IPSEC_SA_ESTABLISHED(st->st_state))
    {
        dpdbuf[0]='\0';
        snprintf(dpdbuf, sizeof(dpdbuf), "; isakmp#%lu", (unsigned long)st->st_clonedfrom);
    } else {
        if(st->hidden_variables.st_dpd) {
            time_t tn = time(NULL);
            snprintf(dpdbuf, sizeof(dpdbuf), "; lastdpd=%lds(seq in:%u out:%u)"
                     , st->st_last_dpd !=0 ? tn - st->st_last_dpd : (long)-1
                     , st->st_dpd_seqno
                     , st->st_dpd_expectseqno);
        } else {
            snprintf(dpdbuf, sizeof(dpdbuf), "; nodpd");
        }
    }
    
    if(st->st_calculating) {
        idlestr = "crypto_calculating";
    } else if(st->st_suspended_md) {
        idlestr = "crypto/dns-lookup";
    } else {
        idlestr = "idle";
    }
        
    snprintf(state_buf, state_buf_len
             , "#%lu: \"%s\"%s:%u %s (%s); %s in %lds%s%s%s%s; %s; %s"
             , st->st_serialno
             , c->name, inst
             , st->st_remoteport
             , enum_name(&state_names, st->st_state)
             , state_story[st->st_state - STATE_MAIN_R0]
             , st->st_event ? enum_name(&timer_event_names, st->st_event->ev_type) : "none"
             , delta
             , np1, np2, eo, dpdbuf
             , idlestr
             , enum_name(&pluto_cryptoimportance_names, st->st_import));

    /* print out SPIs if SAs are established */
    if (state_buf2_len != 0)
        state_buf2[0] = '\0';   /* default to empty */
    if (IS_IPSEC_SA_ESTABLISHED(st->st_state))
    {
        char lastused[40];      /* should be plenty long enough */
        char buf[SATOT_BUF*6 + 1];
        char *p = buf;

#       define add_said(adst, aspi, aproto) { \
            ip_said s; \
            \
            initsaid(adst, aspi, aproto, &s); \
            if (p < &buf[sizeof(buf)-1]) \
            { \
                *p++ = ' '; \
                p += satot(&s, 0, p, &buf[sizeof(buf)] - p) - 1; \
            } \
        }

        /* XXX - mcr last used is really an attribute of the connection */
        lastused[0] = '\0';
        if (c->spd.eroute_owner == st->st_serialno
            && st->st_outbound_count != 0)
        {
            snprintf(lastused, sizeof(lastused)
                , " used %lus ago;"
                , (unsigned long) (now() - st->st_outbound_time));
        }

        *p = '\0';
        if (st->st_ah.present)
        {
            add_said(&c->spd.that.host_addr, st->st_ah.attrs.spi, SA_AH);
            add_said(&c->spd.this.host_addr, st->st_ah.our_spi, SA_AH);
        }
        if (st->st_esp.present)
        {
            time_t ago;

            add_said(&c->spd.that.host_addr, st->st_esp.attrs.spi, SA_ESP);
/* needs proper fix, via kernel_ops? */
#if defined(linux) && defined(NETKEY_SUPPORT)
            if (get_sa_info(st, FALSE, &ago))
            {
                snprintf(state_buf2, state_buf2_len,
                  " (%'u bytes)" , st->st_esp.peer_bytes);
            }
#endif
            add_said(&c->spd.this.host_addr, st->st_esp.our_spi, SA_ESP);
#if defined(linux) && defined(NETKEY_SUPPORT)
            if (get_sa_info(st, TRUE, &ago))
            {
                snprintf(state_buf2, state_buf2_len,
                  " (%'u bytes)" , st->st_esp.our_bytes);
            }
#endif

        }
        if (st->st_ipcomp.present)
        {
            add_said(&c->spd.that.host_addr, st->st_ipcomp.attrs.spi, SA_COMP);
            add_said(&c->spd.this.host_addr, st->st_ipcomp.our_spi, SA_COMP);
        }
#ifdef KLIPS
        if (st->st_ah.attrs.encapsulation == ENCAPSULATION_MODE_TUNNEL
            || st->st_esp.attrs.encapsulation == ENCAPSULATION_MODE_TUNNEL
            || st->st_ipcomp.attrs.encapsulation == ENCAPSULATION_MODE_TUNNEL)
        {
            add_said(&c->spd.that.host_addr, st->st_tunnel_out_spi, SA_IPIP);
            add_said(&c->spd.this.host_addr, st->st_tunnel_in_spi, SA_IPIP);
        }
#endif
        snprintf(state_buf2, state_buf2_len
            , "#%lu: \"%s\"%s%s%s ref=%lu refhim=%lu"
            , st->st_serialno
            , c->name, inst
            , lastused
            , buf
                 , (unsigned long)st->st_ref, (unsigned long)st->st_refhim);

#       undef add_said
    }
}

/*
 * sorting logic is:
 *
 *  name
 *  type
 *  instance#
 *  isakmp_sa (XXX probably wrong)
 *
 */
static int
state_compare(const void *a, const void *b)
{
    const struct state *sap = *(const struct state *const *)a;
    struct connection *ca = sap->st_connection;
    const struct state *sbp = *(const struct state *const *)b;
    struct connection *cb = sbp->st_connection;

    /* DBG_log("comparing %s to %s", ca->name, cb->name); */

    return connection_compare(ca, cb);
}

void
show_states_status(void)
{
    time_t n = now();
    int i;
    char state_buf[LOG_WIDTH];
    char state_buf2[LOG_WIDTH];
    int count;
    struct state **array;

    /* make count of states */
    count = 0;
    for (i = 0; i < STATE_TABLE_SIZE; i++)
    {
        struct state *st;

        for (st = statetable[i]; st != NULL; st = st->st_hashchain_next)
        {
            count++;
        }
    }

    if (count != 0)
    {
        /* build the array */
        array = alloc_bytes(sizeof(struct state *)*count, "state array");
        count = 0;
        for (i = 0; i < STATE_TABLE_SIZE; i++)
        {
           struct state *st;

           for (st = statetable[i]; st != NULL; st = st->st_hashchain_next)
           {
              array[count++]=st;
           }
        }

         /* sort it! */
         qsort(array, count, sizeof(struct state *), state_compare);

         /* now print sorted results */
        for (i = 0; i < count; i++)
        {
          struct state *st;
          st = array[i];
          fmt_state(st, n, state_buf, sizeof(state_buf)
                , state_buf2, sizeof(state_buf2));
          whack_log(RC_COMMENT, state_buf);
          if (state_buf2[0] != '\0')
                whack_log(RC_COMMENT, state_buf2);

          /* show any associated pending Phase 2s */
          if (IS_PHASE1(st->st_state))
                show_pending_phase2(st->st_connection, st);
        }

        /* free the array */
        pfree(array);
    }
}

/* Given that we've used up a range of unused CPI's,
 * search for a new range of currently unused ones.
 * Note: this is very expensive when not trivial!
 * If we can't find one easily, choose 0 (a bad SPI,
 * no matter what order) indicating failure.
 */
void
find_my_cpi_gap(cpi_t *latest_cpi, cpi_t *first_busy_cpi)
{
    int tries = 0;
    cpi_t base = *latest_cpi;
    cpi_t closest;
    int i;

startover:
    closest = ~0;       /* not close at all */
    for (i = 0; i < STATE_TABLE_SIZE; i++)
    {
        struct state *st;

        for (st = statetable[i]; st != NULL; st = st->st_hashchain_next)
        {
            if (st->st_ipcomp.present)
            {
                cpi_t c = ntohl(st->st_ipcomp.our_spi) - base;

                if (c < closest)
                {
                    if (c == 0)
                    {
                        /* oops: next spot is occupied; start over */
                        if (++tries == 20)
                        {
                            /* FAILURE */
                            *latest_cpi = *first_busy_cpi = 0;
                            return;
                        }
                        base++;
                        if (base > IPCOMP_LAST_NEGOTIATED)
                            base = IPCOMP_FIRST_NEGOTIATED;
                        goto startover; /* really a tail call */
                    }
                    closest = c;
                }
            }
        }
    }
    *latest_cpi = base; /* base is first in next free range */
    *first_busy_cpi = closest + base;   /* and this is the roof */
}

/* Muck with high-order 16 bits of this SPI in order to make
 * the corresponding SAID unique.
 * Its low-order 16 bits hold a well-known IPCOMP CPI.
 * Oh, and remember that SPIs are stored in network order.
 * Kludge!!!  So I name it with the non-English word "uniquify".
 * If we can't find one easily, return 0 (a bad SPI,
 * no matter what order) indicating failure.
 */
ipsec_spi_t
uniquify_his_cpi(ipsec_spi_t cpi, struct state *st)
{
    int tries = 0;
    int i;

startover:

    /* network order makes first two bytes our target */
    get_rnd_bytes((u_char *)&cpi, 2);

    /* Make sure that the result is unique.
     * Hard work.  If there is no unique value, we'll loop forever!
     */
    for (i = 0; i < STATE_TABLE_SIZE; i++)
    {
        struct state *s;

        for (s = statetable[i]; s != NULL; s = s->st_hashchain_next)
        {
            if (s->st_ipcomp.present
            && sameaddr(&s->st_connection->spd.that.host_addr
              , &st->st_connection->spd.that.host_addr)
            && cpi == s->st_ipcomp.attrs.spi)
            {
                if (++tries == 20)
                    return 0;   /* FAILURE */
                goto startover;
            }
        }
    }
    return cpi;
}


/* 
 * Immediately schedule a replace event for all states for a peer.
 */
void replace_states_by_peer(ip_address *peer)
{
    struct state *st = NULL;
    int i;
    /* struct event *ev;     currently unused */

    for (i = 0; st == NULL && i < STATE_TABLE_SIZE; i++)
        for (st = statetable[i]; st != NULL; st = st->st_hashchain_next)
            /* Only replace if it already has a replace event. */
            if (sameaddr(&st->st_connection->spd.that.host_addr, peer)
                    && (IS_ISAKMP_SA_ESTABLISHED(st->st_state) || IS_IPSEC_SA_ESTABLISHED(st->st_state))
                    && st->st_event->ev_type == EVENT_SA_REPLACE)
            {
                delete_event(st);
                delete_dpd_event(st);
                event_schedule(EVENT_SA_REPLACE, 0, st);
            }
}

void copy_quirks(struct isakmp_quirks *dq
                 , struct isakmp_quirks *sq)
{
    dq->xauth_ack_msgid   |= sq->xauth_ack_msgid;
    dq->modecfg_pull_mode |= sq->modecfg_pull_mode;
    dq->nat_traversal_vid |= sq->nat_traversal_vid;
}

void set_state_ike_endpoints(struct state *st
                             , struct connection *c)
{
    /* reset our choice of interface */
    c->interface = NULL;
    orient(c);

    st->st_localaddr  = c->spd.this.host_addr;
    st->st_localport  = c->spd.this.host_port;
    st->st_remoteaddr = c->spd.that.host_addr;
    st->st_remoteport = c->spd.that.host_port;

    st->st_interface = c->interface;
}

/*
 * Local Variables:
 * c-basic-offset:4
 * End:
 */