tr/tr_main.c

   1 /*
   2  * Copyright (c) 2012, 2015, JANET(UK)
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  *
   9  * 1. Redistributions of source code must retain the above copyright
  10  *    notice, this list of conditions and the following disclaimer.
  11  *
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * 3. Neither the name of JANET(UK) nor the names of its contributors
  17  *    may be used to endorse or promote products derived from this software
  18  *    without specific prior written permission.
  19  *
  20  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
  21  * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
  22  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
  23  * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
  24  * COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
  25  * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
  26  * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
  27  * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
  29  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  30  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
  31  * OF THE POSSIBILITY OF SUCH DAMAGE.
  32  *
  33  */
  34
  35 #include <stdio.h>
  36 #include <stdlib.h>
  37 #include <jansson.h>
  38 #include <argp.h>
  39 #include <event2/event.h>
  40 #include <talloc.h>
  41 #include <sys/time.h>
  42
  43 #include <tr.h>
  44 #include <tid_internal.h>
  45 #include <tr_tid.h>
  46 #include <tr_trp.h>
  47 #include <tr_config.h>
  48 #include <tr_event.h>
  49 #include <tr_cfgwatch.h>
  50 #include <tr_debug.h>
  51
  52 #define TALLOC_DEBUG_ENABLE 1
  53
  54 /***** command-line option handling / setup *****/
  55
  56 /* Strip trailing / from a path name.*/
  57 static void remove_trailing_slash(char *s) {
  58   size_t n;
  59
  60   n=strlen(s);
  61   if(s[n-1]=='/') {
  62     s[n-1]='\0';
  63   }
  64 }
  65
  66 /* argp global parameters */
  67 const char *argp_program_bug_address=PACKAGE_BUGREPORT; /* bug reporting address */
  68
  69 /* doc strings */
  70 static const char doc[]=PACKAGE_NAME " - Moonshot Trust Router";
  71 static const char arg_doc[]=""; /* string describing arguments, if any */
  72
  73 /* define the options here. Fields are:
  74  * { long-name, short-name, variable name, options, help description } */
  75 static const struct argp_option cmdline_options[] = {
  76     { "config-dir", 'c', "DIR", 0, "Specify configuration file location (default is current directory)"},
  77     { NULL }
  78 };
  79
  80 /* structure for communicating with option parser */
  81 struct cmdline_args {
  82   char *config_dir;
  83 };
  84
  85 /* parser for individual options - fills in a struct cmdline_args */
  86 static error_t parse_option(int key, char *arg, struct argp_state *state)
  87 {
  88   /* get a shorthand to the command line argument structure, part of state */
  89   struct cmdline_args *arguments=state->input;
  90
  91   switch (key) {
  92   case 'c':
  93     if (arg == NULL) {
  94       /* somehow we got called without an argument */
  95       return ARGP_ERR_UNKNOWN;
  96     }
  97     arguments->config_dir=arg;
  98     break;
  99
 100   default:
 101     return ARGP_ERR_UNKNOWN;
 102   }
 103
 104   return 0; /* success */
 105 }
 106
 107 /* assemble the argp parser */
 108 static struct argp argp = {cmdline_options, parse_option, arg_doc, doc};
 109
 110
 111 /***** talloc error handling *****/
 112 /* called when talloc tries to abort */
 113 static void tr_abort(const char *reason)
 114 {
 115   tr_crit("tr_abort: Critical error, talloc aborted. Reason: %s", reason);
 116   abort();
 117 }
 118
 119 #if TALLOC_DEBUG_ENABLE
 120 static void tr_talloc_log(const char *msg)
 121 {
 122   tr_debug("talloc: %s", msg);
 123 }
 124 #endif /* TALLOC_DEBUG_ENABLE */
 125
 126
 127 #if DEBUG_PING_SELF
 128 struct thingy {
 129   TRPS_INSTANCE *trps;
 130   struct event *ev;
 131 };
 132
 133 static void debug_ping(evutil_socket_t fd, short what, void *arg)
 134 {
 135   TALLOC_CTX *tmp_ctx=talloc_new(NULL);
 136   struct thingy *thingy=(struct thingy *)arg;
 137   TRPS_INSTANCE *trps=thingy->trps;
 138   TRP_REQ *req=NULL;
 139   TR_MSG msg;
 140   char *encoded=NULL;
 141   struct timeval interval={1, 0};
 142   static int count=10;
 143   TR_NAME *name=NULL;
 144
 145   tr_debug("debug_ping entered");
 146   if (trps->trpc==NULL)
 147     tr_trpc_initiate(trps, trps->hostname, trps->port);
 148
 149   /* create a TRP route request msg */
 150   req=trp_req_new(tmp_ctx);
 151   name=tr_new_name("community");
 152   trp_req_set_comm(req, name);
 153   name=tr_new_name("realm");
 154   trp_req_set_realm(req, name);
 155   tr_msg_set_trp_req(&msg, req);
 156   encoded=tr_msg_encode(&msg);
 157   if (encoded==NULL)
 158     tr_err("debug_ping: error encoding TRP message.");
 159   else {
 160     tr_debug("debug_ping: sending message");
 161     trps_send_msg(trps, NULL, encoded);
 162     tr_msg_free_encoded(encoded);
 163   }
 164   if (count-- > 0)
 165     evtimer_add(thingy->ev, &interval);
 166 }
 167 #endif /* DEBUG_PING_SELF */
 168
 169 int main(int argc, char *argv[])
 170 {
 171   TALLOC_CTX *main_ctx=NULL;
 172
 173   TR_INSTANCE *tr = NULL;
 174   struct cmdline_args opts;
 175   struct event_base *ev_base;
 176   struct tr_socket_event tids_ev;
 177   TR_TRPS_EVENTS *trps_ev;
 178   struct event *cfgwatch_ev;
 179 #if DEBUG_PING_SELF
 180   struct event *debug_ping_ev;
 181   struct timeval notime={0, 0};
 182   struct thingy thingy={NULL};
 183 #endif /* DEBUG_PING_SELF */
 184
 185   /* we're going to be multithreaded, so disable null context tracking */
 186   talloc_set_abort_fn(tr_abort);
 187   talloc_disable_null_tracking();
 188 #if TALLOC_DEBUG_ENABLE
 189   talloc_set_log_fn(tr_talloc_log);
 190 #endif /* TALLOC_DEBUG_ENABLE */
 191   main_ctx=talloc_new(NULL);
 192
 193   /* Use standalone logging */
 194   tr_log_open();
 195
 196   /***** parse command-line arguments *****/
 197   /* set defaults */
 198   opts.config_dir=".";
 199
 200   /* parse the command line*/
 201   argp_parse(&argp, argc, argv, 0, 0, &opts);
 202
 203   /* process options */
 204   remove_trailing_slash(opts.config_dir);
 205
 206   /***** create a Trust Router instance *****/
 207   if (NULL == (tr = tr_create(main_ctx))) {
 208     tr_crit("Unable to create Trust Router instance, exiting.");
 209     return 1;
 210   }
 211
 212   /***** process configuration *****/
 213   tr->cfgwatch=tr_cfgwatch_create(tr);
 214   if (tr->cfgwatch == NULL) {
 215     tr_crit("Unable to create configuration watcher object, exiting.");
 216     return 1;
 217   }
 218   tr->cfgwatch->config_dir=opts.config_dir;
 219   tr->cfgwatch->cfg_mgr=tr->cfg_mgr;
 220   if (0 != tr_read_and_apply_config(tr->cfgwatch)) {
 221     tr_crit("Error reading configuration, exiting.");
 222     return 1;
 223   }
 224
 225   /***** initialize the trust path query server instance *****/
 226   if (NULL == (tr->tids = tids_create (tr))) {
 227     tr_crit("Error initializing Trust Path Query Server instance.");
 228     return 1;
 229   }
 230
 231   /***** initialize the trust router protocol server instance *****/
 232   if (NULL == (tr->trps = trps_new(tr))) {
 233     tr_crit("Error initializing Trust Router Protocol Server instance.");
 234     return 1;
 235   }
 236
 237   /***** Set up the event loop *****/
 238   ev_base=tr_event_loop_init(); /* Set up the event loop */
 239   if (ev_base==NULL) {
 240     tr_crit("Error initializing event loop.");
 241     return 1;
 242   }
 243
 244   /* install configuration file watching events */
 245   tr->cfgwatch->poll_interval=(struct timeval) {1,0}; /* set poll interval in {sec, usec} */
 246   tr->cfgwatch->settling_time=(struct timeval) {5,0}; /* delay for changes to settle before updating */
 247   /* TODO: pull these settings out of the configuration files */
 248
 249   /* already set config_dir, fstat_list and n_files earlier */
 250   if (0 != tr_cfgwatch_event_init(ev_base, tr->cfgwatch, &cfgwatch_ev)) {
 251     tr_crit("Error initializing configuration file watcher.");
 252     return 1;
 253   }
 254
 255   /*tr_status_event_init();*/ /* install status reporting events */
 256
 257   /* install TID server events */
 258   if (0 != tr_tids_event_init(ev_base,
 259                               tr->tids,
 260                               tr->cfg_mgr,
 261                              &tids_ev)) {
 262     tr_crit("Error initializing Trust Path Query Server instance.");
 263     return 1;
 264   }
 265
 266   /* install TRP handler events */
 267   trps_ev=tr_trps_events_new(main_ctx);
 268   if (0 != tr_trps_event_init(ev_base,
 269                               tr->trps,
 270                               tr->cfg_mgr,
 271                               trps_ev)) {
 272     tr_crit("Error initializing Trust Path Query Server instance.");
 273     return 1;
 274   }
 275
 276 #if DEBUG_PING_SELF
 277   /* for debugging, send a message to peers on a timer */
 278   debug_ping_ev=evtimer_new(ev_base, debug_ping, (void *)&thingy);
 279   thingy.trps=tr->trps;
 280   thingy.ev=debug_ping_ev;
 281   evtimer_add(debug_ping_ev, &notime);
 282 #endif /* DEBUG_PING_SELF */
 283
 284   tr_event_loop_run(ev_base); /* does not return until we are done */
 285
 286   /* TODO: ensure talloc is properly used so this actually works */
 287   tr_destroy(tr); /* thanks to talloc, should destroy everything */
 288
 289   talloc_free(main_ctx);
 290   return 0;
 291 }