pimd/pimd.c

   1 /*
   2   PIM for Quagga
   3   Copyright (C) 2008  Everton da Silva Marques
   4
   5   This program is free software; you can redistribute it and/or modify
   6   it under the terms of the GNU General Public License as published by
   7   the Free Software Foundation; either version 2 of the License, or
   8   (at your option) any later version.
   9
  10   This program is distributed in the hope that it will be useful, but
  11   WITHOUT ANY WARRANTY; without even the implied warranty of
  12   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13   General Public License for more details.
  14
  15   You should have received a copy of the GNU General Public License
  16   along with this program; see the file COPYING; if not, write to the
  17   Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
  18   MA 02110-1301 USA
  19 */
  20
  21 #include <zebra.h>
  22
  23 #include "log.h"
  24 #include "memory.h"
  25 #include "if.h"
  26 #include "prefix.h"
  27 #include "vty.h"
  28 #include "plist.h"
  29 #include "hash.h"
  30 #include "jhash.h"
  31
  32 #include "pimd.h"
  33 #include "pim_cmd.h"
  34 #include "pim_iface.h"
  35 #include "pim_zebra.h"
  36 #include "pim_str.h"
  37 #include "pim_oil.h"
  38 #include "pim_pim.h"
  39 #include "pim_upstream.h"
  40 #include "pim_rpf.h"
  41 #include "pim_ssmpingd.h"
  42 #include "pim_static.h"
  43 #include "pim_rp.h"
  44 #include "pim_ssm.h"
  45 #include "pim_zlookup.h"
  46 #include "pim_nht.h"
  47
  48 const char *const PIM_ALL_SYSTEMS      = MCAST_ALL_SYSTEMS;
  49 const char *const PIM_ALL_ROUTERS      = MCAST_ALL_ROUTERS;
  50 const char *const PIM_ALL_PIM_ROUTERS  = MCAST_ALL_PIM_ROUTERS;
  51 const char *const PIM_ALL_IGMP_ROUTERS = MCAST_ALL_IGMP_ROUTERS;
  52
  53 struct thread_master     *master = NULL;
  54 uint32_t                  qpim_debugs = 0;
  55 int                       qpim_mroute_socket_fd = -1;
  56 int64_t                   qpim_mroute_socket_creation = 0; /* timestamp of creation */
  57 int                       qpim_t_periodic = PIM_DEFAULT_T_PERIODIC; /* Period between Join/Prune Messages */
  58 struct pim_assert_metric  qpim_infinite_assert_metric;
  59 long                      qpim_rpf_cache_refresh_delay_msec = 50;
  60 struct thread            *qpim_rpf_cache_refresher = NULL;
  61 int64_t                   qpim_rpf_cache_refresh_requests = 0;
  62 int64_t                   qpim_rpf_cache_refresh_events = 0;
  63 int64_t                   qpim_rpf_cache_refresh_last =  0;
  64 struct in_addr            qpim_inaddr_any;
  65 struct list              *qpim_ssmpingd_list = NULL;
  66 struct in_addr            qpim_ssmpingd_group_addr;
  67 int64_t                   qpim_scan_oil_events = 0;
  68 int64_t                   qpim_scan_oil_last = 0;
  69 int64_t                   qpim_mroute_add_events = 0;
  70 int64_t                   qpim_mroute_add_last = 0;
  71 int64_t                   qpim_mroute_del_events = 0;
  72 int64_t                   qpim_mroute_del_last = 0;
  73 struct list              *qpim_static_route_list = NULL;
  74 unsigned int              qpim_keep_alive_time = PIM_KEEPALIVE_PERIOD;
  75 signed int                qpim_rp_keep_alive_time = 0;
  76 int64_t                   qpim_nexthop_lookups = 0;
  77 int                       qpim_packet_process = PIM_DEFAULT_PACKET_PROCESS;
  78 struct pim_instance          *pimg = NULL;
  79
  80 int32_t qpim_register_suppress_time = PIM_REGISTER_SUPPRESSION_TIME_DEFAULT;
  81 int32_t qpim_register_probe_time = PIM_REGISTER_PROBE_TIME_DEFAULT;
  82
  83 static struct pim_instance *pim_instance_init (vrf_id_t vrf_id, afi_t afi);
  84 static void pim_instance_terminate (void);
  85
  86 static int
  87 pim_vrf_new (struct vrf *vrf)
  88 {
  89   zlog_debug ("VRF Created: %s(%d)", vrf->name, vrf->vrf_id);
  90   return 0;
  91 }
  92
  93 static int
  94 pim_vrf_delete (struct vrf *vrf)
  95 {
  96   zlog_debug ("VRF Deletion: %s(%d)", vrf->name, vrf->vrf_id);
  97   return 0;
  98 }
  99
 100 static int
 101 pim_vrf_enable (struct vrf *vrf)
 102 {
 103
 104   if (!vrf) // unexpected
 105     return -1;
 106
 107   if (vrf->vrf_id == VRF_DEFAULT)
 108     {
 109       pimg = pim_instance_init (VRF_DEFAULT, AFI_IP);
 110       if (pimg == NULL)
 111         zlog_err ("%s %s: pim class init failure ", __FILE__,
 112               __PRETTY_FUNCTION__);
 113
 114       pimg->send_v6_secondary = 1;
 115     }
 116   return 0;
 117 }
 118
 119 static int
 120 pim_vrf_disable (struct vrf *vrf)
 121 {
 122   if (vrf->vrf_id == VRF_DEFAULT)
 123     return 0;
 124
 125   if (vrf->vrf_id == VRF_DEFAULT)
 126     pim_instance_terminate ();
 127
 128   /* Note: This is a callback, the VRF will be deleted by the caller. */
 129   return 0;
 130 }
 131
 132 void
 133 pim_vrf_init (void)
 134 {
 135   vrf_add_hook (VRF_NEW_HOOK, pim_vrf_new);
 136   vrf_add_hook (VRF_ENABLE_HOOK, pim_vrf_enable);
 137   vrf_add_hook (VRF_DISABLE_HOOK, pim_vrf_disable);
 138   vrf_add_hook (VRF_DELETE_HOOK, pim_vrf_delete);
 139
 140   vrf_init ();
 141 }
 142
 143 static void
 144 pim_vrf_terminate (void)
 145 {
 146   vrf_add_hook (VRF_NEW_HOOK, NULL);
 147   vrf_add_hook (VRF_ENABLE_HOOK, NULL);
 148   vrf_add_hook (VRF_DISABLE_HOOK, NULL);
 149   vrf_add_hook (VRF_DELETE_HOOK, NULL);
 150
 151   vrf_terminate ();
 152 }
 153
 154 /* Key generate for pim->rpf_hash */
 155 static unsigned int
 156 pim_rpf_hash_key (void *arg)
 157 {
 158   struct pim_nexthop_cache *r = (struct pim_nexthop_cache *) arg;
 159
 160   return jhash_1word (r->rpf.rpf_addr.u.prefix4.s_addr, 0);
 161 }
 162
 163 /* Compare pim->rpf_hash node data */
 164 static int
 165 pim_rpf_equal (const void *arg1, const void *arg2)
 166 {
 167   const struct pim_nexthop_cache *r1 =
 168     (const struct pim_nexthop_cache *) arg1;
 169   const struct pim_nexthop_cache *r2 =
 170     (const struct pim_nexthop_cache *) arg2;
 171
 172   return prefix_same (&r1->rpf.rpf_addr, &r2->rpf.rpf_addr);
 173 }
 174
 175 /* Cleanup pim->rpf_hash each node data */
 176 static void
 177 pim_rp_list_hash_clean (void *data)
 178 {
 179   struct pim_nexthop_cache *pnc;
 180
 181   pnc = (struct pim_nexthop_cache *) data;
 182   if (pnc->rp_list->count)
 183     list_delete_all_node (pnc->rp_list);
 184   if (pnc->upstream_list->count)
 185     list_delete_all_node (pnc->upstream_list);
 186 }
 187
 188 void
 189 pim_prefix_list_update (struct prefix_list *plist)
 190 {
 191     pim_rp_prefix_list_update (plist);
 192     pim_ssm_prefix_list_update (plist);
 193 }
 194
 195 static void
 196 pim_instance_terminate (void)
 197 {
 198   /* Traverse and cleanup rpf_hash */
 199   if (pimg && pimg->rpf_hash)
 200     {
 201       hash_clean (pimg->rpf_hash, (void *) pim_rp_list_hash_clean);
 202       hash_free (pimg->rpf_hash);
 203     }
 204   pim_ssm_terminate (pimg->ssm_info);
 205
 206   XFREE (MTYPE_PIM_PIM_INSTANCE, pimg);
 207 }
 208
 209 static void pim_free()
 210 {
 211   pim_ssmpingd_destroy();
 212
 213   pim_oil_terminate ();
 214
 215   pim_upstream_terminate ();
 216
 217   if (qpim_static_route_list)
 218      list_free(qpim_static_route_list);
 219
 220   pim_if_terminate ();
 221   pim_rp_free ();
 222
 223   pim_route_map_terminate();
 224
 225   zclient_lookup_free ();
 226
 227   zprivs_terminate(&pimd_privs);
 228 }
 229
 230 static struct pim_instance *
 231 pim_instance_init (vrf_id_t vrf_id, afi_t afi)
 232 {
 233   struct pim_instance *pim;
 234
 235   pim = XCALLOC (MTYPE_PIM_PIM_INSTANCE, sizeof (struct pim_instance));
 236   if (!pim)
 237     return NULL;
 238
 239   pim->vrf_id = vrf_id;
 240   pim->afi = afi;
 241
 242   pim->rpf_hash = hash_create_size (256, pim_rpf_hash_key, pim_rpf_equal);
 243
 244   if (PIM_DEBUG_ZEBRA)
 245     zlog_debug ("%s: NHT rpf hash init ", __PRETTY_FUNCTION__);
 246
 247   pim->ssm_info = pim_ssm_init (vrf_id);
 248   if (!pim->ssm_info) {
 249     pim_instance_terminate ();
 250     return NULL;
 251   }
 252
 253   return pim;
 254 }
 255
 256 void pim_init()
 257 {
 258   qpim_rp_keep_alive_time = PIM_RP_KEEPALIVE_PERIOD;
 259
 260   pim_rp_init ();
 261
 262   if (!inet_aton(PIM_ALL_PIM_ROUTERS, &qpim_all_pim_routers_addr)) {
 263     zlog_err("%s %s: could not solve %s to group address: errno=%d: %s",
 264              __FILE__, __PRETTY_FUNCTION__,
 265              PIM_ALL_PIM_ROUTERS, errno, safe_strerror(errno));
 266     zassert(0);
 267     return;
 268   }
 269
 270   pim_oil_init ();
 271
 272   pim_upstream_init ();
 273
 274   qpim_static_route_list = list_new();
 275   if (!qpim_static_route_list) {
 276     zlog_err("%s %s: failure: static_route_list=list_new()",
 277         __FILE__, __PRETTY_FUNCTION__);
 278     return;
 279   }
 280   qpim_static_route_list->del = (void (*)(void *)) pim_static_route_free;
 281
 282   pim_mroute_socket_enable();
 283
 284   qpim_inaddr_any.s_addr = PIM_NET_INADDR_ANY;
 285
 286   /*
 287     RFC 4601: 4.6.3.  Assert Metrics
 288
 289     assert_metric
 290     infinite_assert_metric() {
 291     return {1,infinity,infinity,0}
 292     }
 293   */
 294   qpim_infinite_assert_metric.rpt_bit_flag      = 1;
 295   qpim_infinite_assert_metric.metric_preference = PIM_ASSERT_METRIC_PREFERENCE_MAX;
 296   qpim_infinite_assert_metric.route_metric      = PIM_ASSERT_ROUTE_METRIC_MAX;
 297   qpim_infinite_assert_metric.ip_address        = qpim_inaddr_any;
 298
 299   pim_if_init();
 300   pim_cmd_init();
 301   pim_ssmpingd_init();
 302 }
 303
 304 void pim_terminate()
 305 {
 306   pim_free();
 307
 308   /* reverse prefix_list_init */
 309   prefix_list_add_hook (NULL);
 310   prefix_list_delete_hook (NULL);
 311   prefix_list_reset ();
 312
 313   pim_vrf_terminate ();
 314 }