crypto/dist/ipsec-tools/src/racoon/kmpstat.c

   1 /*      $NetBSD: kmpstat.c,v 1.5 2007/05/30 21:02:40 manu Exp $ */
   2
   3 /*      $KAME: kmpstat.c,v 1.33 2004/08/16 08:20:28 itojun Exp $        */
   4
   5 /*
   6  * Copyright (C) 1995, 1996, 1997, and 1998 WIDE Project.
   7  * All rights reserved.
   8  *
   9  * Redistribution and use in source and binary forms, with or without
  10  * modification, are permitted provided that the following conditions
  11  * are met:
  12  * 1. Redistributions of source code must retain the above copyright
  13  *    notice, this list of conditions and the following disclaimer.
  14  * 2. Redistributions in binary form must reproduce the above copyright
  15  *    notice, this list of conditions and the following disclaimer in the
  16  *    documentation and/or other materials provided with the distribution.
  17  * 3. Neither the name of the project nor the names of its contributors
  18  *    may be used to endorse or promote products derived from this software
  19  *    without specific prior written permission.
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
  22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
  25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31  * SUCH DAMAGE.
  32  */
  33
  34 #include "config.h"
  35
  36 #include <sys/types.h>
  37 #include <sys/param.h>
  38 #include <sys/socket.h>
  39 #include <sys/un.h>
  40
  41 #include <netinet/in.h>
  42 #include <arpa/inet.h>
  43 #include <net/pfkeyv2.h>
  44
  45 #include <stdlib.h>
  46 #include <stdio.h>
  47 #include <string.h>
  48 #include <errno.h>
  49 #if TIME_WITH_SYS_TIME
  50 # include <sys/time.h>
  51 # include <time.h>
  52 #else
  53 # if HAVE_SYS_TIME_H
  54 #  include <sys/time.h>
  55 # else
  56 #  include <time.h>
  57 # endif
  58 #endif
  59 #include <netdb.h>
  60 #ifdef HAVE_UNISTD_H
  61 #include <unistd.h>
  62 #endif
  63 #include <err.h>
  64 #include <sys/ioctl.h>
  65 #include <resolv.h>
  66
  67 #include "libpfkey.h"
  68
  69 #include "var.h"
  70 #include "misc.h"
  71 #include "vmbuf.h"
  72 #include "plog.h"
  73 #include "debug.h"
  74 #include "sockmisc.h"
  75
  76 #include "racoonctl.h"
  77 #include "admin.h"
  78 #include "schedule.h"
  79 #include "isakmp_var.h"
  80 #include "isakmp.h"
  81 #include "isakmp_xauth.h"
  82 #include "isakmp_var.h"
  83 #include "isakmp_cfg.h"
  84 #include "oakley.h"
  85 #include "handler.h"
  86 #include "pfkey.h"
  87 #include "admin.h"
  88 #include "evt.h"
  89 #include "admin_var.h"
  90 #include "ipsec_doi.h"
  91
  92 u_int32_t racoonctl_interface = RACOONCTL_INTERFACE;
  93 u_int32_t racoonctl_interface_major = RACOONCTL_INTERFACE_MAJOR;
  94
  95 static int so;
  96 u_int32_t loglevel = 0;
  97
  98 int
  99 com_init()
 100 {
 101         struct sockaddr_un name;
 102
 103         memset(&name, 0, sizeof(name));
 104         name.sun_family = AF_UNIX;
 105         snprintf(name.sun_path, sizeof(name.sun_path),
 106                 "%s", adminsock_path);
 107
 108         so = socket(AF_UNIX, SOCK_STREAM, 0);
 109         if (so < 0)
 110                 return -1;
 111
 112         if (connect(so, (struct sockaddr *)&name, sizeof(name)) < 0) {
 113                 (void)close(so);
 114                 return -1;
 115         }
 116
 117         return 0;
 118 }
 119
 120 int
 121 com_send(combuf)
 122         vchar_t *combuf;
 123 {
 124         int len;
 125
 126         if ((len = send(so, combuf->v, combuf->l, 0)) == -1) {
 127                 perror("send");
 128                 (void)close(so);
 129                 return -1;
 130         }
 131
 132         return 0;
 133 }
 134
 135 int
 136 com_recv(combufp)
 137         vchar_t **combufp;
 138 {
 139         struct admin_com h, *com;
 140         caddr_t buf;
 141         int len;
 142         int l = 0;
 143         caddr_t p;
 144
 145         if (combufp == NULL)
 146                 return -1;
 147
 148         /* receive by PEEK */
 149         if ((len = recv(so, &h, sizeof(h), MSG_PEEK)) == -1)
 150                 goto bad1;
 151
 152         /* sanity check */
 153         if (len < sizeof(h))
 154                 goto bad1;
 155
 156         if (h.ac_errno) {
 157                 errno = h.ac_errno;
 158                 goto bad1;
 159         }
 160
 161         /* allocate buffer */
 162         if ((*combufp = vmalloc(h.ac_len)) == NULL)
 163                 goto bad1;
 164
 165         /* read real message */
 166         p = (*combufp)->v;
 167         while (l < len) {
 168                 if ((len = recv(so, p, h.ac_len, 0)) < 0) {
 169                         perror("recv");
 170                         goto bad2;
 171                 }
 172                 l += len;
 173                 p += len;
 174         }
 175
 176         return 0;
 177
 178 bad2:
 179         vfree(*combufp);
 180 bad1:
 181         *combufp = NULL;
 182         return -1;
 183 }
 184
 185 /*
 186  * Dumb plog functions (used by sockmisc.c)
 187  */
 188 void
 189 _plog(int pri, const char *func, struct sockaddr *sa, const char *fmt, ...)
 190 {
 191         va_list ap;
 192
 193         va_start(ap, fmt);
 194         vprintf(fmt, ap);
 195         va_end(ap);
 196 }
 197
 198 void
 199 plogdump(pri, data, len)
 200         int pri;
 201         void *data;
 202         size_t len;
 203 {
 204         return;
 205 }
 206
 207 struct sockaddr *
 208 get_sockaddr(family, name, port)
 209         int family;
 210         char *name, *port;
 211 {
 212         struct addrinfo hint, *ai;
 213         int error;
 214
 215         memset(&hint, 0, sizeof(hint));
 216         hint.ai_family = PF_UNSPEC;
 217         hint.ai_family = family;
 218         hint.ai_socktype = SOCK_STREAM;
 219
 220         error = getaddrinfo(name, port, &hint, &ai);
 221         if (error != 0) {
 222                 printf("%s: %s/%s\n", gai_strerror(error), name, port);
 223                 return NULL;
 224         }
 225
 226         return ai->ai_addr;
 227 }