lib/radsec.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3 #include <stdint.h>
   4 #include <string.h>
   5 #include <libgen.h>
   6
   7 #include <freeradius/libradius.h>
   8 #include <event2/event.h>
   9 #include <event2/util.h>
  10 #include "libradsec.h"
  11 #include "libradsec-impl.h"
  12
  13 int
  14 rs_context_create(struct rs_handle **ctx, const char *dict)
  15 {
  16   struct rs_handle *h;
  17
  18   if (ctx)
  19     *ctx = NULL;
  20   h = (struct rs_handle *) malloc (sizeof(struct rs_handle));
  21   if (h)
  22     {
  23       char *buf1 = NULL, *buf2 = NULL;
  24       char *dir, *fn;
  25
  26       buf1 = malloc (strlen (dict) + 1);
  27       buf2 = malloc (strlen (dict) + 1);
  28       if (!buf1 || !buf2)
  29         {
  30           free (h);
  31           if (buf1)
  32             free (buf1);
  33           if (buf2)
  34             free (buf2);
  35           return RSE_NOMEM;
  36         }
  37       strcpy (buf1, dict);
  38       dir = dirname (buf1);
  39       strcpy (buf2, dict);
  40       fn = basename (buf2);
  41       if (dict_init (dir, fn) < 0)
  42         {
  43           free (h);
  44           return RSE_SOME_ERROR;
  45         }
  46       free (buf1);
  47       free (buf2);
  48 #if defined (DEBUG)
  49       fr_log_fp = stderr;
  50       fr_debug_flag = 1;
  51 #endif
  52
  53       memset (h, 0, sizeof(struct rs_handle));
  54       fr_randinit (&h->fr_randctx, 0);
  55       fr_rand_seed (NULL, 0);
  56
  57       if (ctx)
  58         *ctx = h;
  59     }
  60   return h ? RSE_OK : RSE_NOMEM;
  61 }
  62
  63 void rs_context_destroy(struct rs_handle *ctx)
  64 {
  65   free (ctx);
  66 }
  67
  68 int rs_context_set_alloc_scheme(struct rs_handle *ctx, struct rs_alloc_scheme *scheme)
  69 {
  70   return rs_ctx_err_push_fl (ctx, RSE_NOSYS, __FILE__, __LINE__,
  71                              "%s: NYI", __func__);
  72 }
  73
  74 int rs_context_config_read(struct rs_handle *ctx, const char *config_file)
  75 {
  76   return rs_ctx_err_push_fl (ctx, RSE_NOSYS, __FILE__, __LINE__,
  77                              "%s: NYI", __func__);
  78 }
  79
  80 int rs_conn_create(struct rs_handle *ctx, struct rs_connection **conn)
  81 {
  82   struct rs_connection *c;
  83
  84   c = (struct rs_connection *) malloc (sizeof(struct rs_connection));
  85   if (c)
  86     {
  87       memset (c, 0, sizeof(struct rs_connection));
  88       c->ctx = ctx;
  89     }
  90   if (conn)
  91     *conn = c;
  92   return c ? RSE_OK : rs_ctx_err_push (ctx, RSE_NOMEM, NULL);
  93 }
  94
  95 struct addrinfo *
  96 _resolv (struct rs_connection *conn, const char *hostname, int port)
  97 {
  98   int err;
  99   char portstr[6];
 100   struct evutil_addrinfo hints, *res = NULL;
 101
 102   snprintf (portstr, sizeof(portstr), "%d", port);
 103   memset (&hints, 0, sizeof(struct evutil_addrinfo));
 104   //hints.ai_family = AF_UNSPEC;        /* v4 or v6.  */
 105   hints.ai_family = AF_INET;    /* FIXME: v4 only, while debuging */
 106   hints.ai_flags = AI_ADDRCONFIG;
 107   switch (conn->type)
 108     {
 109     case RS_CONN_TYPE_NONE:
 110       rs_conn_err_push_fl (conn, RSE_INVALID_CONN, __FILE__, __LINE__, NULL);
 111       return NULL;
 112     case RS_CONN_TYPE_TCP:
 113     case RS_CONN_TYPE_TLS:
 114       hints.ai_socktype = SOCK_STREAM;
 115       hints.ai_protocol = IPPROTO_TCP;
 116       break;
 117     case RS_CONN_TYPE_UDP:
 118     case RS_CONN_TYPE_DTLS:
 119       hints.ai_socktype = SOCK_DGRAM;
 120       hints.ai_protocol = IPPROTO_UDP;
 121       break;
 122     }
 123   err = evutil_getaddrinfo (hostname, portstr, &hints, &res);
 124   if (err)
 125     rs_conn_err_push_fl (conn, RSE_BADADDR, __FILE__, __LINE__,
 126                          " %s:%d: bad host name or port (%s)",
 127                          hostname, port, evutil_gai_strerror(err));
 128   return res;                   /* Simply use first result.  */
 129 }
 130
 131 int
 132 rs_conn_add_server(struct rs_connection *conn, struct rs_peer **server,
 133                    rs_conn_type_t type, const char *hostname, int port)
 134 {
 135   struct rs_peer *srv;
 136   struct evutil_addrinfo *addr;
 137
 138   if (conn->type == RS_CONN_TYPE_NONE)
 139     conn->type = type;
 140   else if (conn->type != type)
 141     return rs_conn_err_push (conn, RSE_CONN_TYPE_MISMATCH, NULL);
 142
 143   addr = _resolv (conn, hostname, port);
 144   if (!addr)
 145     return -1;
 146
 147   srv = (struct rs_peer *) malloc (sizeof(struct rs_peer));
 148   if (srv)
 149     {
 150       memset (srv, 0, sizeof(struct rs_peer));
 151       srv->conn = conn;
 152       srv->addr = addr;
 153       srv->timeout = 10;
 154       srv->tries = 3;
 155       srv->next = conn->peers;
 156       if (conn->peers)
 157         conn->peers->next = srv;
 158       else
 159         conn->peers = srv;
 160     }
 161   if (*server)
 162     *server = srv;
 163   return srv ? RSE_OK : rs_conn_err_push (conn, RSE_NOMEM, NULL);
 164 }
 165
 166 void rs_server_set_timeout(struct rs_peer *server, int timeout)
 167 {
 168   server->timeout = timeout;
 169 }
 170 void rs_server_set_tries(struct rs_peer *server, int tries)
 171 {
 172   server->tries = tries;
 173 }
 174 int rs_server_set_secret(struct rs_peer *server, const char *secret)
 175 {
 176   if (server->secret)
 177     free (server->secret);
 178   server->secret = (char *) malloc (strlen(secret) + 1);
 179   if (!server->secret)
 180     return rs_conn_err_push (server->conn, RSE_NOMEM, NULL);
 181   strcpy (server->secret, secret);
 182   return RSE_OK;
 183 }
 184
 185 int rs_conn_add_listener(struct rs_connection *conn, rs_conn_type_t type, const char *hostname, int port)
 186 {
 187   return rs_conn_err_push_fl (conn, RSE_NOSYS, __FILE__, __LINE__,
 188                               "%s: NYI", __func__);
 189 }
 190
 191
 192 void
 193 rs_conn_destroy(struct rs_connection *conn)
 194 {
 195   struct rs_peer *p;
 196
 197 #warning "TODO: Disconnect active_peer."
 198
 199   for (p = conn->peers; p; p = p->next)
 200     {
 201       if (p->addr)
 202         evutil_freeaddrinfo (p->addr);
 203       if (p->secret)
 204         rs_free (conn->ctx, p->secret);
 205     }
 206
 207   if (conn->evb)
 208     event_base_free (conn->evb);
 209 }
 210
 211 int rs_conn_set_eventbase(struct rs_connection *conn, struct event_base *eb)
 212 {
 213   return rs_conn_err_push_fl (conn, RSE_NOSYS, __FILE__, __LINE__,
 214                               "%s: NYI", __func__);
 215 }
 216
 217 int rs_conn_set_callbacks(struct rs_connection *conn, struct rs_conn_callbacks *cb)
 218 {
 219   return rs_conn_err_push_fl (conn, RSE_NOSYS, __FILE__, __LINE__,
 220                               "%s: NYI", __func__);
 221 }
 222
 223 int rs_conn_set_server(struct rs_connection *conn, const char *name)
 224 {
 225   return rs_conn_err_push_fl (conn, RSE_NOSYS, __FILE__, __LINE__,
 226                               "%s: NYI", __func__);
 227 }
 228
 229 int rs_conn_get_current_server(struct rs_connection *conn, const char *name, size_t buflen)
 230 {
 231   return rs_conn_err_push_fl (conn, RSE_NOSYS, __FILE__, __LINE__,
 232                               "%s: NYI", __func__);
 233 }
 234
 235 /* Non-public.  */
 236 int
 237 rs_conn_open(struct rs_connection *conn)
 238 {
 239   int s;
 240   struct rs_peer *p;
 241
 242   if (conn->active_peer)
 243     return RSE_OK;
 244   p = conn->peers;
 245   if (!p)
 246     return rs_conn_err_push_fl (conn, RSE_NOPEER, __FILE__, __LINE__, NULL);
 247
 248   s = socket (p->addr->ai_family, p->addr->ai_socktype, p->addr->ai_protocol);
 249   if (s < 0)
 250     return rs_conn_err_push_fl (conn, RSE_SOME_ERROR, __FILE__, __LINE__,
 251                                 strerror (errno));
 252 #if 0                  /* let librevent do this in rs_packet_send() */
 253   if (connect (s, p->addr->ai_addr, p->addr->ai_addrlen))
 254     {
 255       /* TODO: handle nonblocking sockets (EINTR, EAGAIN).  */
 256       EVUTIL_CLOSESOCKET (s);
 257       return rs_conn_err_push_fl (conn, RSE_SOME_ERROR, __FILE__, __LINE__,
 258                                   strerror (errno));
 259     }
 260 #endif
 261
 262   if (!conn->evb)
 263     {
 264 #if defined (DEBUG)
 265       event_enable_debug_mode ();
 266 #endif
 267       conn->evb = event_base_new ();
 268     }
 269
 270   if (!conn->evb)
 271     {
 272       EVUTIL_CLOSESOCKET (s);
 273       return rs_conn_err_push_fl (conn, RSE_EVENT, __FILE__, __LINE__,
 274                                   "event_base_new");
 275     }
 276
 277   p->s = s;
 278   conn->active_peer = p;
 279   return RSE_OK;
 280 }