1a17240f2Sderaadt /* $NetBSD: mapper.c,v 1.3 1995/12/10 11:12:04 mycroft Exp $ */ 2df930be7Sderaadt 3df930be7Sderaadt /* Mapper for connections between MRouteD multicast routers. 4df930be7Sderaadt * Written by Pavel Curtis <Pavel@PARC.Xerox.Com> 5df930be7Sderaadt */ 6df930be7Sderaadt 7df930be7Sderaadt /* 81d7a61deSderaadt * Copyright (c) 1992, 2001 Xerox Corporation. All rights reserved. 9df930be7Sderaadt * 101d7a61deSderaadt * Redistribution and use in source and binary forms, with or without modification, 111d7a61deSderaadt * are permitted provided that the following conditions are met: 12df930be7Sderaadt * 131d7a61deSderaadt * Redistributions of source code must retain the above copyright notice, 141d7a61deSderaadt * this list of conditions and the following disclaimer. 15df930be7Sderaadt * 161d7a61deSderaadt * Redistributions in binary form must reproduce the above copyright notice, 171d7a61deSderaadt * this list of conditions and the following disclaimer in the documentation 181d7a61deSderaadt * and/or other materials provided with the distribution. 191d7a61deSderaadt * 201d7a61deSderaadt * Neither name of the Xerox, PARC, nor the names of its contributors may be used 211d7a61deSderaadt * to endorse or promote products derived from this software 221d7a61deSderaadt * without specific prior written permission. 231d7a61deSderaadt * 241d7a61deSderaadt * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS'' 251d7a61deSderaadt * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, 261d7a61deSderaadt * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 271d7a61deSderaadt * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE XEROX CORPORATION OR CONTRIBUTORS 281d7a61deSderaadt * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 291d7a61deSderaadt * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 301d7a61deSderaadt * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; 311d7a61deSderaadt * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 321d7a61deSderaadt * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR 331d7a61deSderaadt * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, 341d7a61deSderaadt * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 35df930be7Sderaadt */ 36df930be7Sderaadt 37df930be7Sderaadt #include <string.h> 38df930be7Sderaadt #include <netdb.h> 39df930be7Sderaadt #include <sys/time.h> 40df930be7Sderaadt #include "defs.h" 41a17240f2Sderaadt #include <arpa/inet.h> 42a17240f2Sderaadt #ifdef __STDC__ 43a17240f2Sderaadt #include <stdarg.h> 44a17240f2Sderaadt #else 45a17240f2Sderaadt #include <varargs.h> 46a17240f2Sderaadt #endif 47df930be7Sderaadt 48df930be7Sderaadt #define DEFAULT_TIMEOUT 2 /* How long to wait before retrying requests */ 49df930be7Sderaadt #define DEFAULT_RETRIES 1 /* How many times to ask each router */ 50df930be7Sderaadt 51df930be7Sderaadt 52df930be7Sderaadt /* All IP addresses are stored in the data structure in NET order. */ 53df930be7Sderaadt 54df930be7Sderaadt typedef struct neighbor { 55df930be7Sderaadt struct neighbor *next; 56df930be7Sderaadt u_int32_t addr; /* IP address in NET order */ 57df930be7Sderaadt u_char metric; /* TTL cost of forwarding */ 58df930be7Sderaadt u_char threshold; /* TTL threshold to forward */ 59df930be7Sderaadt u_short flags; /* flags on connection */ 60df930be7Sderaadt #define NF_PRESENT 0x8000 /* True if flags are meaningful */ 61df930be7Sderaadt } Neighbor; 62df930be7Sderaadt 63df930be7Sderaadt typedef struct interface { 64df930be7Sderaadt struct interface *next; 65df930be7Sderaadt u_int32_t addr; /* IP address of the interface in NET order */ 66df930be7Sderaadt Neighbor *neighbors; /* List of neighbors' IP addresses */ 67df930be7Sderaadt } Interface; 68df930be7Sderaadt 69df930be7Sderaadt typedef struct node { 70df930be7Sderaadt u_int32_t addr; /* IP address of this entry in NET order */ 71df930be7Sderaadt u_int32_t version; /* which mrouted version is running */ 72df930be7Sderaadt int tries; /* How many requests sent? -1 for aliases */ 73df930be7Sderaadt union { 74df930be7Sderaadt struct node *alias; /* If alias, to what? */ 75df930be7Sderaadt struct interface *interfaces; /* Else, neighbor data */ 76df930be7Sderaadt } u; 77df930be7Sderaadt struct node *left, *right; 78df930be7Sderaadt } Node; 79df930be7Sderaadt 80df930be7Sderaadt 81df930be7Sderaadt Node *routers = 0; 82df930be7Sderaadt u_int32_t our_addr, target_addr = 0; /* in NET order */ 83df930be7Sderaadt int debug = 0; 84df930be7Sderaadt int retries = DEFAULT_RETRIES; 85df930be7Sderaadt int timeout = DEFAULT_TIMEOUT; 86df930be7Sderaadt int show_names = TRUE; 87df930be7Sderaadt vifi_t numvifs; /* to keep loader happy */ 88df930be7Sderaadt /* (see COPY_TABLES macro called in kern.c) */ 89df930be7Sderaadt 90a17240f2Sderaadt Node * find_node __P((u_int32_t addr, Node **ptr)); 91a17240f2Sderaadt Interface * find_interface __P((u_int32_t addr, Node *node)); 92a17240f2Sderaadt Neighbor * find_neighbor __P((u_int32_t addr, Node *node)); 93a17240f2Sderaadt int main __P((int argc, char *argv[])); 94a17240f2Sderaadt void ask __P((u_int32_t dst)); 95a17240f2Sderaadt void ask2 __P((u_int32_t dst)); 96a17240f2Sderaadt int retry_requests __P((Node *node)); 97a17240f2Sderaadt char * inet_name __P((u_int32_t addr)); 98a17240f2Sderaadt void print_map __P((Node *node)); 99a17240f2Sderaadt char * graph_name __P((u_int32_t addr, char *buf)); 100a17240f2Sderaadt void graph_edges __P((Node *node)); 101a17240f2Sderaadt void elide_aliases __P((Node *node)); 102a17240f2Sderaadt void graph_map __P((void)); 103a17240f2Sderaadt int get_number __P((int *var, int deflt, char ***pargv, 104a17240f2Sderaadt int *pargc)); 105a17240f2Sderaadt u_int32_t host_addr __P((char *name)); 106a17240f2Sderaadt 107df930be7Sderaadt 108df930be7Sderaadt Node *find_node(addr, ptr) 109df930be7Sderaadt u_int32_t addr; 110df930be7Sderaadt Node **ptr; 111df930be7Sderaadt { 112df930be7Sderaadt Node *n = *ptr; 113df930be7Sderaadt 114df930be7Sderaadt if (!n) { 115df930be7Sderaadt *ptr = n = (Node *) malloc(sizeof(Node)); 116df930be7Sderaadt n->addr = addr; 117df930be7Sderaadt n->version = 0; 118df930be7Sderaadt n->tries = 0; 119df930be7Sderaadt n->u.interfaces = 0; 120df930be7Sderaadt n->left = n->right = 0; 121df930be7Sderaadt return n; 122df930be7Sderaadt } else if (addr == n->addr) 123df930be7Sderaadt return n; 124df930be7Sderaadt else if (addr < n->addr) 125df930be7Sderaadt return find_node(addr, &(n->left)); 126df930be7Sderaadt else 127df930be7Sderaadt return find_node(addr, &(n->right)); 128df930be7Sderaadt } 129df930be7Sderaadt 130df930be7Sderaadt 131df930be7Sderaadt Interface *find_interface(addr, node) 132df930be7Sderaadt u_int32_t addr; 133df930be7Sderaadt Node *node; 134df930be7Sderaadt { 135df930be7Sderaadt Interface *ifc; 136df930be7Sderaadt 137df930be7Sderaadt for (ifc = node->u.interfaces; ifc; ifc = ifc->next) 138df930be7Sderaadt if (ifc->addr == addr) 139df930be7Sderaadt return ifc; 140df930be7Sderaadt 141df930be7Sderaadt ifc = (Interface *) malloc(sizeof(Interface)); 142df930be7Sderaadt ifc->addr = addr; 143df930be7Sderaadt ifc->next = node->u.interfaces; 144df930be7Sderaadt node->u.interfaces = ifc; 145df930be7Sderaadt ifc->neighbors = 0; 146df930be7Sderaadt 147df930be7Sderaadt return ifc; 148df930be7Sderaadt } 149df930be7Sderaadt 150df930be7Sderaadt 151df930be7Sderaadt Neighbor *find_neighbor(addr, node) 152df930be7Sderaadt u_int32_t addr; 153df930be7Sderaadt Node *node; 154df930be7Sderaadt { 155df930be7Sderaadt Interface *ifc; 156df930be7Sderaadt 157df930be7Sderaadt for (ifc = node->u.interfaces; ifc; ifc = ifc->next) { 158df930be7Sderaadt Neighbor *nb; 159df930be7Sderaadt 160df930be7Sderaadt for (nb = ifc->neighbors; nb; nb = nb->next) 161df930be7Sderaadt if (nb->addr == addr) 162df930be7Sderaadt return nb; 163df930be7Sderaadt } 164df930be7Sderaadt 165df930be7Sderaadt return 0; 166df930be7Sderaadt } 167df930be7Sderaadt 168df930be7Sderaadt 169df930be7Sderaadt /* 170df930be7Sderaadt * Log errors and other messages to stderr, according to the severity of the 171df930be7Sderaadt * message and the current debug level. For errors of severity LOG_ERR or 172df930be7Sderaadt * worse, terminate the program. 173df930be7Sderaadt */ 174a17240f2Sderaadt #ifdef __STDC__ 175a17240f2Sderaadt void 176a17240f2Sderaadt log(int severity, int syserr, char *format, ...) 177a17240f2Sderaadt { 178a17240f2Sderaadt va_list ap; 179a17240f2Sderaadt char fmt[100]; 180a17240f2Sderaadt 181a17240f2Sderaadt va_start(ap, format); 182a17240f2Sderaadt #else 183a17240f2Sderaadt /*VARARGS3*/ 184a17240f2Sderaadt void 185a17240f2Sderaadt log(severity, syserr, format, va_alist) 186df930be7Sderaadt int severity, syserr; 187df930be7Sderaadt char *format; 188a17240f2Sderaadt va_dcl 189df930be7Sderaadt { 190a17240f2Sderaadt va_list ap; 191df930be7Sderaadt char fmt[100]; 192df930be7Sderaadt 193a17240f2Sderaadt va_start(ap); 194a17240f2Sderaadt #endif 195a17240f2Sderaadt 196df930be7Sderaadt switch (debug) { 197df930be7Sderaadt case 0: if (severity > LOG_WARNING) return; 198df930be7Sderaadt case 1: if (severity > LOG_NOTICE ) return; 199df930be7Sderaadt case 2: if (severity > LOG_INFO ) return; 200df930be7Sderaadt default: 201df930be7Sderaadt fmt[0] = '\0'; 202df930be7Sderaadt if (severity == LOG_WARNING) 203df930be7Sderaadt strcat(fmt, "warning - "); 204df930be7Sderaadt strncat(fmt, format, 80); 205a17240f2Sderaadt vfprintf(stderr, fmt, ap); 206*24766c54Sderaadt va_end(ap); 207df930be7Sderaadt if (syserr == 0) 208df930be7Sderaadt fprintf(stderr, "\n"); 209df930be7Sderaadt else if (syserr < sys_nerr) 210df930be7Sderaadt fprintf(stderr, ": %s\n", sys_errlist[syserr]); 211df930be7Sderaadt else 212df930be7Sderaadt fprintf(stderr, ": errno %d\n", syserr); 213df930be7Sderaadt } 214df930be7Sderaadt 215df930be7Sderaadt if (severity <= LOG_ERR) 21643ae5fd5Sderaadt exit(1); 217df930be7Sderaadt } 218df930be7Sderaadt 219df930be7Sderaadt 220df930be7Sderaadt /* 221df930be7Sderaadt * Send a neighbors-list request. 222df930be7Sderaadt */ 223df930be7Sderaadt void ask(dst) 224df930be7Sderaadt u_int32_t dst; 225df930be7Sderaadt { 226df930be7Sderaadt send_igmp(our_addr, dst, IGMP_DVMRP, DVMRP_ASK_NEIGHBORS, 227df930be7Sderaadt htonl(MROUTED_LEVEL), 0); 228df930be7Sderaadt } 229df930be7Sderaadt 230df930be7Sderaadt void ask2(dst) 231df930be7Sderaadt u_int32_t dst; 232df930be7Sderaadt { 233df930be7Sderaadt send_igmp(our_addr, dst, IGMP_DVMRP, DVMRP_ASK_NEIGHBORS2, 234df930be7Sderaadt htonl(MROUTED_LEVEL), 0); 235df930be7Sderaadt } 236df930be7Sderaadt 237df930be7Sderaadt 238df930be7Sderaadt /* 239df930be7Sderaadt * Process an incoming group membership report. 240df930be7Sderaadt */ 241a17240f2Sderaadt void accept_group_report(src, dst, group, r_type) 242df930be7Sderaadt u_int32_t src, dst, group; 243a17240f2Sderaadt int r_type; 244df930be7Sderaadt { 245df930be7Sderaadt log(LOG_INFO, 0, "ignoring IGMP group membership report from %s to %s", 246df930be7Sderaadt inet_fmt(src, s1), inet_fmt(dst, s2)); 247df930be7Sderaadt } 248df930be7Sderaadt 249df930be7Sderaadt 250df930be7Sderaadt /* 251df930be7Sderaadt * Process an incoming neighbor probe message. 252df930be7Sderaadt */ 253a17240f2Sderaadt void accept_probe(src, dst, p, datalen, level) 254a17240f2Sderaadt u_int32_t src, dst, level; 255a17240f2Sderaadt char *p; 256a17240f2Sderaadt int datalen; 257df930be7Sderaadt { 258df930be7Sderaadt log(LOG_INFO, 0, "ignoring DVMRP probe from %s to %s", 259df930be7Sderaadt inet_fmt(src, s1), inet_fmt(dst, s2)); 260df930be7Sderaadt } 261df930be7Sderaadt 262df930be7Sderaadt 263df930be7Sderaadt /* 264df930be7Sderaadt * Process an incoming route report message. 265df930be7Sderaadt */ 266a17240f2Sderaadt void accept_report(src, dst, p, datalen, level) 267a17240f2Sderaadt u_int32_t src, dst, level; 268df930be7Sderaadt char *p; 269df930be7Sderaadt int datalen; 270df930be7Sderaadt { 271df930be7Sderaadt log(LOG_INFO, 0, "ignoring DVMRP routing report from %s to %s", 272df930be7Sderaadt inet_fmt(src, s1), inet_fmt(dst, s2)); 273df930be7Sderaadt } 274df930be7Sderaadt 275df930be7Sderaadt 276df930be7Sderaadt /* 277df930be7Sderaadt * Process an incoming neighbor-list request message. 278df930be7Sderaadt */ 279df930be7Sderaadt void accept_neighbor_request(src, dst) 280df930be7Sderaadt u_int32_t src, dst; 281df930be7Sderaadt { 282df930be7Sderaadt if (src != our_addr) 283df930be7Sderaadt log(LOG_INFO, 0, 284df930be7Sderaadt "ignoring spurious DVMRP neighbor request from %s to %s", 285df930be7Sderaadt inet_fmt(src, s1), inet_fmt(dst, s2)); 286df930be7Sderaadt } 287df930be7Sderaadt 288df930be7Sderaadt void accept_neighbor_request2(src, dst) 289df930be7Sderaadt u_int32_t src, dst; 290df930be7Sderaadt { 291df930be7Sderaadt if (src != our_addr) 292df930be7Sderaadt log(LOG_INFO, 0, 293df930be7Sderaadt "ignoring spurious DVMRP neighbor request2 from %s to %s", 294df930be7Sderaadt inet_fmt(src, s1), inet_fmt(dst, s2)); 295df930be7Sderaadt } 296df930be7Sderaadt 297df930be7Sderaadt 298df930be7Sderaadt /* 299df930be7Sderaadt * Process an incoming neighbor-list message. 300df930be7Sderaadt */ 301df930be7Sderaadt void accept_neighbors(src, dst, p, datalen, level) 302df930be7Sderaadt u_int32_t src, dst, level; 303df930be7Sderaadt u_char *p; 304df930be7Sderaadt int datalen; 305df930be7Sderaadt { 306df930be7Sderaadt Node *node = find_node(src, &routers); 307df930be7Sderaadt 308df930be7Sderaadt if (node->tries == 0) /* Never heard of 'em; must have hit them at */ 309df930be7Sderaadt node->tries = 1; /* least once, though...*/ 310df930be7Sderaadt else if (node->tries == -1) /* follow alias link */ 311df930be7Sderaadt node = node->u.alias; 312df930be7Sderaadt 313df930be7Sderaadt #define GET_ADDR(a) (a = ((u_int32_t)*p++ << 24), a += ((u_int32_t)*p++ << 16),\ 314df930be7Sderaadt a += ((u_int32_t)*p++ << 8), a += *p++) 315df930be7Sderaadt 316df930be7Sderaadt /* if node is running a recent mrouted, ask for additional info */ 317df930be7Sderaadt if (level != 0) { 318a17240f2Sderaadt node->version = level; 319a17240f2Sderaadt node->tries = 1; 320df930be7Sderaadt ask2(src); 321df930be7Sderaadt return; 322df930be7Sderaadt } 323df930be7Sderaadt 324df930be7Sderaadt if (debug > 3) { 325df930be7Sderaadt int i; 326df930be7Sderaadt 327df930be7Sderaadt fprintf(stderr, " datalen = %d\n", datalen); 328df930be7Sderaadt for (i = 0; i < datalen; i++) { 329df930be7Sderaadt if ((i & 0xF) == 0) 330df930be7Sderaadt fprintf(stderr, " "); 331df930be7Sderaadt fprintf(stderr, " %02x", p[i]); 332df930be7Sderaadt if ((i & 0xF) == 0xF) 333df930be7Sderaadt fprintf(stderr, "\n"); 334df930be7Sderaadt } 335df930be7Sderaadt if ((datalen & 0xF) != 0xF) 336df930be7Sderaadt fprintf(stderr, "\n"); 337df930be7Sderaadt } 338df930be7Sderaadt 339df930be7Sderaadt while (datalen > 0) { /* loop through interfaces */ 340df930be7Sderaadt u_int32_t ifc_addr; 341df930be7Sderaadt u_char metric, threshold, ncount; 342df930be7Sderaadt Node *ifc_node; 343df930be7Sderaadt Interface *ifc; 344df930be7Sderaadt Neighbor *old_neighbors; 345df930be7Sderaadt 346df930be7Sderaadt if (datalen < 4 + 3) { 347df930be7Sderaadt log(LOG_WARNING, 0, "received truncated interface record from %s", 348df930be7Sderaadt inet_fmt(src, s1)); 349df930be7Sderaadt return; 350df930be7Sderaadt } 351df930be7Sderaadt 352df930be7Sderaadt GET_ADDR(ifc_addr); 353df930be7Sderaadt ifc_addr = htonl(ifc_addr); 354df930be7Sderaadt metric = *p++; 355df930be7Sderaadt threshold = *p++; 356df930be7Sderaadt ncount = *p++; 357df930be7Sderaadt datalen -= 4 + 3; 358df930be7Sderaadt 359df930be7Sderaadt /* Fix up any alias information */ 360df930be7Sderaadt ifc_node = find_node(ifc_addr, &routers); 361df930be7Sderaadt if (ifc_node->tries == 0) { /* new node */ 362df930be7Sderaadt ifc_node->tries = -1; 363df930be7Sderaadt ifc_node->u.alias = node; 364df930be7Sderaadt } else if (ifc_node != node 365df930be7Sderaadt && (ifc_node->tries > 0 || ifc_node->u.alias != node)) { 366df930be7Sderaadt /* must merge two hosts' nodes */ 367df930be7Sderaadt Interface *ifc_i, *next_ifc_i; 368df930be7Sderaadt 369df930be7Sderaadt if (ifc_node->tries == -1) { 370df930be7Sderaadt Node *tmp = ifc_node->u.alias; 371df930be7Sderaadt 372df930be7Sderaadt ifc_node->u.alias = node; 373df930be7Sderaadt ifc_node = tmp; 374df930be7Sderaadt } 375df930be7Sderaadt 376df930be7Sderaadt /* Merge ifc_node (foo_i) into node (foo_n) */ 377df930be7Sderaadt 378df930be7Sderaadt if (ifc_node->tries > node->tries) 379df930be7Sderaadt node->tries = ifc_node->tries; 380df930be7Sderaadt 381df930be7Sderaadt for (ifc_i = ifc_node->u.interfaces; ifc_i; ifc_i = next_ifc_i) { 382df930be7Sderaadt Neighbor *nb_i, *next_nb_i, *nb_n; 383df930be7Sderaadt Interface *ifc_n = find_interface(ifc_i->addr, node); 384df930be7Sderaadt 385df930be7Sderaadt old_neighbors = ifc_n->neighbors; 386df930be7Sderaadt for (nb_i = ifc_i->neighbors; nb_i; nb_i = next_nb_i) { 387df930be7Sderaadt next_nb_i = nb_i->next; 388df930be7Sderaadt for (nb_n = old_neighbors; nb_n; nb_n = nb_n->next) 389df930be7Sderaadt if (nb_i->addr == nb_n->addr) { 390df930be7Sderaadt if (nb_i->metric != nb_n->metric 391a17240f2Sderaadt || nb_i->threshold != nb_n->threshold) 392df930be7Sderaadt log(LOG_WARNING, 0, 393df930be7Sderaadt "inconsistent %s for neighbor %s of %s", 394df930be7Sderaadt "metric/threshold", 395df930be7Sderaadt inet_fmt(nb_i->addr, s1), 396df930be7Sderaadt inet_fmt(node->addr, s2)); 397df930be7Sderaadt free(nb_i); 398df930be7Sderaadt break; 399df930be7Sderaadt } 400df930be7Sderaadt if (!nb_n) { /* no match for this neighbor yet */ 401df930be7Sderaadt nb_i->next = ifc_n->neighbors; 402df930be7Sderaadt ifc_n->neighbors = nb_i; 403df930be7Sderaadt } 404df930be7Sderaadt } 405df930be7Sderaadt 406df930be7Sderaadt next_ifc_i = ifc_i->next; 407df930be7Sderaadt free(ifc_i); 408df930be7Sderaadt } 409df930be7Sderaadt 410df930be7Sderaadt ifc_node->tries = -1; 411df930be7Sderaadt ifc_node->u.alias = node; 412df930be7Sderaadt } 413df930be7Sderaadt 414df930be7Sderaadt ifc = find_interface(ifc_addr, node); 415df930be7Sderaadt old_neighbors = ifc->neighbors; 416df930be7Sderaadt 417df930be7Sderaadt /* Add the neighbors for this interface */ 418df930be7Sderaadt while (ncount--) { 419df930be7Sderaadt u_int32_t neighbor; 420df930be7Sderaadt Neighbor *nb; 421df930be7Sderaadt Node *n_node; 422df930be7Sderaadt 423df930be7Sderaadt if (datalen < 4) { 424df930be7Sderaadt log(LOG_WARNING, 0, "received truncated neighbor list from %s", 425df930be7Sderaadt inet_fmt(src, s1)); 426df930be7Sderaadt return; 427df930be7Sderaadt } 428df930be7Sderaadt 429df930be7Sderaadt GET_ADDR(neighbor); 430df930be7Sderaadt neighbor = htonl(neighbor); 431df930be7Sderaadt datalen -= 4; 432df930be7Sderaadt 433df930be7Sderaadt for (nb = old_neighbors; nb; nb = nb->next) 434df930be7Sderaadt if (nb->addr == neighbor) { 435df930be7Sderaadt if (metric != nb->metric || threshold != nb->threshold) 436df930be7Sderaadt log(LOG_WARNING, 0, 437df930be7Sderaadt "inconsistent %s for neighbor %s of %s", 438df930be7Sderaadt "metric/threshold", 439df930be7Sderaadt inet_fmt(nb->addr, s1), inet_fmt(node->addr, s2)); 440df930be7Sderaadt goto next_neighbor; 441df930be7Sderaadt } 442df930be7Sderaadt 443df930be7Sderaadt nb = (Neighbor *) malloc(sizeof(Neighbor)); 444df930be7Sderaadt nb->next = ifc->neighbors; 445df930be7Sderaadt ifc->neighbors = nb; 446df930be7Sderaadt nb->addr = neighbor; 447df930be7Sderaadt nb->metric = metric; 448df930be7Sderaadt nb->threshold = threshold; 449df930be7Sderaadt nb->flags = 0; 450df930be7Sderaadt 451df930be7Sderaadt n_node = find_node(neighbor, &routers); 452df930be7Sderaadt if (n_node->tries == 0 && !target_addr) { /* it's a new router */ 453df930be7Sderaadt ask(neighbor); 454df930be7Sderaadt n_node->tries = 1; 455df930be7Sderaadt } 456df930be7Sderaadt 457df930be7Sderaadt next_neighbor: ; 458df930be7Sderaadt } 459df930be7Sderaadt } 460df930be7Sderaadt } 461df930be7Sderaadt 462a17240f2Sderaadt void accept_neighbors2(src, dst, p, datalen, level) 463a17240f2Sderaadt u_int32_t src, dst, level; 464df930be7Sderaadt u_char *p; 465df930be7Sderaadt int datalen; 466df930be7Sderaadt { 467df930be7Sderaadt Node *node = find_node(src, &routers); 468a17240f2Sderaadt u_int broken_cisco = ((level & 0xffff) == 0x020a); /* 10.2 */ 469a17240f2Sderaadt /* well, only possibly_broken_cisco, but that's too long to type. */ 470df930be7Sderaadt 471df930be7Sderaadt if (node->tries == 0) /* Never heard of 'em; must have hit them at */ 472df930be7Sderaadt node->tries = 1; /* least once, though...*/ 473df930be7Sderaadt else if (node->tries == -1) /* follow alias link */ 474df930be7Sderaadt node = node->u.alias; 475df930be7Sderaadt 476df930be7Sderaadt while (datalen > 0) { /* loop through interfaces */ 477df930be7Sderaadt u_int32_t ifc_addr; 478df930be7Sderaadt u_char metric, threshold, ncount, flags; 479df930be7Sderaadt Node *ifc_node; 480df930be7Sderaadt Interface *ifc; 481df930be7Sderaadt Neighbor *old_neighbors; 482df930be7Sderaadt 483df930be7Sderaadt if (datalen < 4 + 4) { 484df930be7Sderaadt log(LOG_WARNING, 0, "received truncated interface record from %s", 485df930be7Sderaadt inet_fmt(src, s1)); 486df930be7Sderaadt return; 487df930be7Sderaadt } 488df930be7Sderaadt 489df930be7Sderaadt ifc_addr = *(u_int32_t*)p; 490df930be7Sderaadt p += 4; 491df930be7Sderaadt metric = *p++; 492df930be7Sderaadt threshold = *p++; 493df930be7Sderaadt flags = *p++; 494df930be7Sderaadt ncount = *p++; 495df930be7Sderaadt datalen -= 4 + 4; 496df930be7Sderaadt 497a17240f2Sderaadt if (broken_cisco && ncount == 0) /* dumb Ciscos */ 498a17240f2Sderaadt ncount = 1; 499a17240f2Sderaadt if (broken_cisco && ncount > 15) /* dumb Ciscos */ 500a17240f2Sderaadt ncount = ncount & 0xf; 501a17240f2Sderaadt 502df930be7Sderaadt /* Fix up any alias information */ 503df930be7Sderaadt ifc_node = find_node(ifc_addr, &routers); 504df930be7Sderaadt if (ifc_node->tries == 0) { /* new node */ 505df930be7Sderaadt ifc_node->tries = -1; 506df930be7Sderaadt ifc_node->u.alias = node; 507df930be7Sderaadt } else if (ifc_node != node 508df930be7Sderaadt && (ifc_node->tries > 0 || ifc_node->u.alias != node)) { 509df930be7Sderaadt /* must merge two hosts' nodes */ 510df930be7Sderaadt Interface *ifc_i, *next_ifc_i; 511df930be7Sderaadt 512df930be7Sderaadt if (ifc_node->tries == -1) { 513df930be7Sderaadt Node *tmp = ifc_node->u.alias; 514df930be7Sderaadt 515df930be7Sderaadt ifc_node->u.alias = node; 516df930be7Sderaadt ifc_node = tmp; 517df930be7Sderaadt } 518df930be7Sderaadt 519df930be7Sderaadt /* Merge ifc_node (foo_i) into node (foo_n) */ 520df930be7Sderaadt 521df930be7Sderaadt if (ifc_node->tries > node->tries) 522df930be7Sderaadt node->tries = ifc_node->tries; 523df930be7Sderaadt 524df930be7Sderaadt for (ifc_i = ifc_node->u.interfaces; ifc_i; ifc_i = next_ifc_i) { 525df930be7Sderaadt Neighbor *nb_i, *next_nb_i, *nb_n; 526df930be7Sderaadt Interface *ifc_n = find_interface(ifc_i->addr, node); 527df930be7Sderaadt 528df930be7Sderaadt old_neighbors = ifc_n->neighbors; 529df930be7Sderaadt for (nb_i = ifc_i->neighbors; nb_i; nb_i = next_nb_i) { 530df930be7Sderaadt next_nb_i = nb_i->next; 531df930be7Sderaadt for (nb_n = old_neighbors; nb_n; nb_n = nb_n->next) 532df930be7Sderaadt if (nb_i->addr == nb_n->addr) { 533df930be7Sderaadt if (nb_i->metric != nb_n->metric 534df930be7Sderaadt || nb_i->threshold != nb_i->threshold) 535df930be7Sderaadt log(LOG_WARNING, 0, 536df930be7Sderaadt "inconsistent %s for neighbor %s of %s", 537df930be7Sderaadt "metric/threshold", 538df930be7Sderaadt inet_fmt(nb_i->addr, s1), 539df930be7Sderaadt inet_fmt(node->addr, s2)); 540df930be7Sderaadt free(nb_i); 541df930be7Sderaadt break; 542df930be7Sderaadt } 543df930be7Sderaadt if (!nb_n) { /* no match for this neighbor yet */ 544df930be7Sderaadt nb_i->next = ifc_n->neighbors; 545df930be7Sderaadt ifc_n->neighbors = nb_i; 546df930be7Sderaadt } 547df930be7Sderaadt } 548df930be7Sderaadt 549df930be7Sderaadt next_ifc_i = ifc_i->next; 550df930be7Sderaadt free(ifc_i); 551df930be7Sderaadt } 552df930be7Sderaadt 553df930be7Sderaadt ifc_node->tries = -1; 554df930be7Sderaadt ifc_node->u.alias = node; 555df930be7Sderaadt } 556df930be7Sderaadt 557df930be7Sderaadt ifc = find_interface(ifc_addr, node); 558df930be7Sderaadt old_neighbors = ifc->neighbors; 559df930be7Sderaadt 560df930be7Sderaadt /* Add the neighbors for this interface */ 561a17240f2Sderaadt while (ncount-- && datalen > 0) { 562df930be7Sderaadt u_int32_t neighbor; 563df930be7Sderaadt Neighbor *nb; 564df930be7Sderaadt Node *n_node; 565df930be7Sderaadt 566df930be7Sderaadt if (datalen < 4) { 567df930be7Sderaadt log(LOG_WARNING, 0, "received truncated neighbor list from %s", 568df930be7Sderaadt inet_fmt(src, s1)); 569df930be7Sderaadt return; 570df930be7Sderaadt } 571df930be7Sderaadt 572df930be7Sderaadt neighbor = *(u_int32_t*)p; 573df930be7Sderaadt p += 4; 574df930be7Sderaadt datalen -= 4; 575df930be7Sderaadt if (neighbor == 0) 576df930be7Sderaadt /* make leaf nets point to themselves */ 577df930be7Sderaadt neighbor = ifc_addr; 578df930be7Sderaadt 579df930be7Sderaadt for (nb = old_neighbors; nb; nb = nb->next) 580df930be7Sderaadt if (nb->addr == neighbor) { 581df930be7Sderaadt if (metric != nb->metric || threshold != nb->threshold) 582df930be7Sderaadt log(LOG_WARNING, 0, 583df930be7Sderaadt "inconsistent %s for neighbor %s of %s", 584df930be7Sderaadt "metric/threshold", 585df930be7Sderaadt inet_fmt(nb->addr, s1), inet_fmt(node->addr, s2)); 586df930be7Sderaadt goto next_neighbor; 587df930be7Sderaadt } 588df930be7Sderaadt 589df930be7Sderaadt nb = (Neighbor *) malloc(sizeof(Neighbor)); 590df930be7Sderaadt nb->next = ifc->neighbors; 591df930be7Sderaadt ifc->neighbors = nb; 592df930be7Sderaadt nb->addr = neighbor; 593df930be7Sderaadt nb->metric = metric; 594df930be7Sderaadt nb->threshold = threshold; 595df930be7Sderaadt nb->flags = flags | NF_PRESENT; 596df930be7Sderaadt 597df930be7Sderaadt n_node = find_node(neighbor, &routers); 598df930be7Sderaadt if (n_node->tries == 0 && !target_addr) { /* it's a new router */ 599df930be7Sderaadt ask(neighbor); 600df930be7Sderaadt n_node->tries = 1; 601df930be7Sderaadt } 602df930be7Sderaadt 603df930be7Sderaadt next_neighbor: ; 604df930be7Sderaadt } 605df930be7Sderaadt } 606df930be7Sderaadt } 607df930be7Sderaadt 608df930be7Sderaadt 609df930be7Sderaadt void check_vif_state() 610df930be7Sderaadt { 611df930be7Sderaadt log(LOG_NOTICE, 0, "network marked down..."); 612df930be7Sderaadt } 613df930be7Sderaadt 614df930be7Sderaadt 615df930be7Sderaadt int retry_requests(node) 616df930be7Sderaadt Node *node; 617df930be7Sderaadt { 618df930be7Sderaadt int result; 619df930be7Sderaadt 620df930be7Sderaadt if (node) { 621df930be7Sderaadt result = retry_requests(node->left); 622df930be7Sderaadt if (node->tries > 0 && node->tries < retries) { 623df930be7Sderaadt if (node->version) 624df930be7Sderaadt ask2(node->addr); 625df930be7Sderaadt else 626df930be7Sderaadt ask(node->addr); 627df930be7Sderaadt node->tries++; 628df930be7Sderaadt result = 1; 629df930be7Sderaadt } 630df930be7Sderaadt return retry_requests(node->right) || result; 631df930be7Sderaadt } else 632df930be7Sderaadt return 0; 633df930be7Sderaadt } 634df930be7Sderaadt 635df930be7Sderaadt 636df930be7Sderaadt char *inet_name(addr) 637df930be7Sderaadt u_int32_t addr; 638df930be7Sderaadt { 639df930be7Sderaadt struct hostent *e; 640df930be7Sderaadt 641df930be7Sderaadt e = gethostbyaddr((char *)&addr, sizeof(addr), AF_INET); 642df930be7Sderaadt 643df930be7Sderaadt return e ? e->h_name : 0; 644df930be7Sderaadt } 645df930be7Sderaadt 646df930be7Sderaadt 647df930be7Sderaadt void print_map(node) 648df930be7Sderaadt Node *node; 649df930be7Sderaadt { 650df930be7Sderaadt if (node) { 651df930be7Sderaadt char *name, *addr; 652df930be7Sderaadt 653df930be7Sderaadt print_map(node->left); 654df930be7Sderaadt 655df930be7Sderaadt addr = inet_fmt(node->addr, s1); 656df930be7Sderaadt if (!target_addr 657df930be7Sderaadt || (node->tries >= 0 && node->u.interfaces) 658df930be7Sderaadt || (node->tries == -1 659df930be7Sderaadt && node->u.alias->tries >= 0 660df930be7Sderaadt && node->u.alias->u.interfaces)) { 661df930be7Sderaadt if (show_names && (name = inet_name(node->addr))) 662df930be7Sderaadt printf("%s (%s):", addr, name); 663df930be7Sderaadt else 664df930be7Sderaadt printf("%s:", addr); 665df930be7Sderaadt if (node->tries < 0) 666df930be7Sderaadt printf(" alias for %s\n\n", inet_fmt(node->u.alias->addr, s1)); 667df930be7Sderaadt else if (!node->u.interfaces) 668df930be7Sderaadt printf(" no response to query\n\n"); 669df930be7Sderaadt else { 670df930be7Sderaadt Interface *ifc; 671df930be7Sderaadt 672df930be7Sderaadt if (node->version) 673df930be7Sderaadt printf(" <v%d.%d>", node->version & 0xff, 674df930be7Sderaadt (node->version >> 8) & 0xff); 675df930be7Sderaadt printf("\n"); 676df930be7Sderaadt for (ifc = node->u.interfaces; ifc; ifc = ifc->next) { 677df930be7Sderaadt Neighbor *nb; 678df930be7Sderaadt char *ifc_name = inet_fmt(ifc->addr, s1); 679df930be7Sderaadt int ifc_len = strlen(ifc_name); 680df930be7Sderaadt int count = 0; 681df930be7Sderaadt 682df930be7Sderaadt printf(" %s:", ifc_name); 683df930be7Sderaadt for (nb = ifc->neighbors; nb; nb = nb->next) { 684df930be7Sderaadt if (count > 0) 685df930be7Sderaadt printf("%*s", ifc_len + 5, ""); 686df930be7Sderaadt printf(" %s", inet_fmt(nb->addr, s1)); 687df930be7Sderaadt if (show_names && (name = inet_name(nb->addr))) 688df930be7Sderaadt printf(" (%s)", name); 689df930be7Sderaadt printf(" [%d/%d", nb->metric, nb->threshold); 690df930be7Sderaadt if (nb->flags) { 691df930be7Sderaadt u_short flags = nb->flags; 692df930be7Sderaadt if (flags & DVMRP_NF_TUNNEL) 693df930be7Sderaadt printf("/tunnel"); 694df930be7Sderaadt if (flags & DVMRP_NF_SRCRT) 695df930be7Sderaadt printf("/srcrt"); 696df930be7Sderaadt if (flags & DVMRP_NF_QUERIER) 697df930be7Sderaadt printf("/querier"); 698df930be7Sderaadt if (flags & DVMRP_NF_DISABLED) 699df930be7Sderaadt printf("/disabled"); 700df930be7Sderaadt if (flags & DVMRP_NF_DOWN) 701df930be7Sderaadt printf("/down"); 702df930be7Sderaadt } 703df930be7Sderaadt printf("]\n"); 704df930be7Sderaadt count++; 705df930be7Sderaadt } 706df930be7Sderaadt } 707df930be7Sderaadt printf("\n"); 708df930be7Sderaadt } 709df930be7Sderaadt } 710df930be7Sderaadt print_map(node->right); 711df930be7Sderaadt } 712df930be7Sderaadt } 713df930be7Sderaadt 714df930be7Sderaadt 715df930be7Sderaadt char *graph_name(addr, buf) 716df930be7Sderaadt u_int32_t addr; 717df930be7Sderaadt char *buf; 718df930be7Sderaadt { 719df930be7Sderaadt char *name; 720df930be7Sderaadt 721df930be7Sderaadt if (show_names && (name = inet_name(addr))) 722df930be7Sderaadt strcpy(buf, name); 723df930be7Sderaadt else 724df930be7Sderaadt inet_fmt(addr, buf); 725df930be7Sderaadt 726df930be7Sderaadt return buf; 727df930be7Sderaadt } 728df930be7Sderaadt 729df930be7Sderaadt 730df930be7Sderaadt void graph_edges(node) 731df930be7Sderaadt Node *node; 732df930be7Sderaadt { 733df930be7Sderaadt Interface *ifc; 734df930be7Sderaadt Neighbor *nb; 735df930be7Sderaadt char name[100]; 736df930be7Sderaadt 737df930be7Sderaadt if (node) { 738df930be7Sderaadt graph_edges(node->left); 739df930be7Sderaadt if (node->tries >= 0) { 740df930be7Sderaadt printf(" %d {$ NP %d0 %d0 $} \"%s%s\" \n", 741df930be7Sderaadt (int) node->addr, 742df930be7Sderaadt node->addr & 0xFF, (node->addr >> 8) & 0xFF, 743df930be7Sderaadt graph_name(node->addr, name), 744df930be7Sderaadt node->u.interfaces ? "" : "*"); 745df930be7Sderaadt for (ifc = node->u.interfaces; ifc; ifc = ifc->next) 746df930be7Sderaadt for (nb = ifc->neighbors; nb; nb = nb->next) { 747df930be7Sderaadt Node *nb_node = find_node(nb->addr, &routers); 748df930be7Sderaadt Neighbor *nb2; 749df930be7Sderaadt 750df930be7Sderaadt if (nb_node->tries < 0) 751df930be7Sderaadt nb_node = nb_node->u.alias; 752df930be7Sderaadt 753df930be7Sderaadt if (node != nb_node && 754df930be7Sderaadt (!(nb2 = find_neighbor(node->addr, nb_node)) 755df930be7Sderaadt || node->addr < nb_node->addr)) { 756df930be7Sderaadt printf(" %d \"%d/%d", 757df930be7Sderaadt nb_node->addr, nb->metric, nb->threshold); 758df930be7Sderaadt if (nb2 && (nb2->metric != nb->metric 759df930be7Sderaadt || nb2->threshold != nb->threshold)) 760df930be7Sderaadt printf(",%d/%d", nb2->metric, nb2->threshold); 761df930be7Sderaadt if (nb->flags & NF_PRESENT) 762df930be7Sderaadt printf("%s%s", 763df930be7Sderaadt nb->flags & DVMRP_NF_SRCRT ? "" : 764df930be7Sderaadt nb->flags & DVMRP_NF_TUNNEL ? "E" : "P", 765df930be7Sderaadt nb->flags & DVMRP_NF_DOWN ? "D" : ""); 766df930be7Sderaadt printf("\"\n"); 767df930be7Sderaadt } 768df930be7Sderaadt } 769df930be7Sderaadt printf(" ;\n"); 770df930be7Sderaadt } 771df930be7Sderaadt graph_edges(node->right); 772df930be7Sderaadt } 773df930be7Sderaadt } 774df930be7Sderaadt 775df930be7Sderaadt void elide_aliases(node) 776df930be7Sderaadt Node *node; 777df930be7Sderaadt { 778df930be7Sderaadt if (node) { 779df930be7Sderaadt elide_aliases(node->left); 780df930be7Sderaadt if (node->tries >= 0) { 781df930be7Sderaadt Interface *ifc; 782df930be7Sderaadt 783df930be7Sderaadt for (ifc = node->u.interfaces; ifc; ifc = ifc->next) { 784df930be7Sderaadt Neighbor *nb; 785df930be7Sderaadt 786df930be7Sderaadt for (nb = ifc->neighbors; nb; nb = nb->next) { 787df930be7Sderaadt Node *nb_node = find_node(nb->addr, &routers); 788df930be7Sderaadt 789df930be7Sderaadt if (nb_node->tries < 0) 790df930be7Sderaadt nb->addr = nb_node->u.alias->addr; 791df930be7Sderaadt } 792df930be7Sderaadt } 793df930be7Sderaadt } 794df930be7Sderaadt elide_aliases(node->right); 795df930be7Sderaadt } 796df930be7Sderaadt } 797df930be7Sderaadt 798df930be7Sderaadt void graph_map() 799df930be7Sderaadt { 800df930be7Sderaadt time_t now = time(0); 801df930be7Sderaadt char *nowstr = ctime(&now); 802df930be7Sderaadt 803df930be7Sderaadt nowstr[24] = '\0'; /* Kill the newline at the end */ 804df930be7Sderaadt elide_aliases(routers); 805df930be7Sderaadt printf("GRAPH \"Multicast Router Connectivity: %s\" = UNDIRECTED\n", 806df930be7Sderaadt nowstr); 807df930be7Sderaadt graph_edges(routers); 808df930be7Sderaadt printf("END\n"); 809df930be7Sderaadt } 810df930be7Sderaadt 811df930be7Sderaadt 812df930be7Sderaadt int get_number(var, deflt, pargv, pargc) 813df930be7Sderaadt int *var, *pargc, deflt; 814df930be7Sderaadt char ***pargv; 815df930be7Sderaadt { 816df930be7Sderaadt if ((*pargv)[0][2] == '\0') { /* Get the value from the next argument */ 817df930be7Sderaadt if (*pargc > 1 && isdigit((*pargv)[1][0])) { 818df930be7Sderaadt (*pargv)++, (*pargc)--; 819df930be7Sderaadt *var = atoi((*pargv)[0]); 820df930be7Sderaadt return 1; 821df930be7Sderaadt } else if (deflt >= 0) { 822df930be7Sderaadt *var = deflt; 823df930be7Sderaadt return 1; 824df930be7Sderaadt } else 825df930be7Sderaadt return 0; 826df930be7Sderaadt } else { /* Get value from the rest of this argument */ 827df930be7Sderaadt if (isdigit((*pargv)[0][2])) { 828df930be7Sderaadt *var = atoi((*pargv)[0] + 2); 829df930be7Sderaadt return 1; 830df930be7Sderaadt } else { 831df930be7Sderaadt return 0; 832df930be7Sderaadt } 833df930be7Sderaadt } 834df930be7Sderaadt } 835df930be7Sderaadt 836df930be7Sderaadt 837df930be7Sderaadt u_int32_t host_addr(name) 838df930be7Sderaadt char *name; 839df930be7Sderaadt { 840df930be7Sderaadt struct hostent *e = gethostbyname(name); 841df930be7Sderaadt int addr; 842df930be7Sderaadt 843df930be7Sderaadt if (e) 844df930be7Sderaadt memcpy(&addr, e->h_addr_list[0], e->h_length); 845df930be7Sderaadt else { 846df930be7Sderaadt addr = inet_addr(name); 847df930be7Sderaadt if (addr == -1) 848df930be7Sderaadt addr = 0; 849df930be7Sderaadt } 850df930be7Sderaadt 851df930be7Sderaadt return addr; 852df930be7Sderaadt } 853df930be7Sderaadt 854df930be7Sderaadt 855df930be7Sderaadt int main(argc, argv) 856df930be7Sderaadt int argc; 857df930be7Sderaadt char *argv[]; 858df930be7Sderaadt { 859df930be7Sderaadt int flood = FALSE, graph = FALSE; 860df930be7Sderaadt 861df930be7Sderaadt if (geteuid() != 0) { 862f07d6497Sderaadt fprintf(stderr, "map-mbone: must be root\n"); 863df930be7Sderaadt exit(1); 864df930be7Sderaadt } 865df930be7Sderaadt 866f07d6497Sderaadt init_igmp(); 867f07d6497Sderaadt setuid(getuid()); 868f07d6497Sderaadt 869f07d6497Sderaadt setlinebuf(stderr); 870f07d6497Sderaadt 871df930be7Sderaadt argv++, argc--; 872df930be7Sderaadt while (argc > 0 && argv[0][0] == '-') { 873df930be7Sderaadt switch (argv[0][1]) { 874df930be7Sderaadt case 'd': 875df930be7Sderaadt if (!get_number(&debug, DEFAULT_DEBUG, &argv, &argc)) 876df930be7Sderaadt goto usage; 877df930be7Sderaadt break; 878df930be7Sderaadt case 'f': 879df930be7Sderaadt flood = TRUE; 880df930be7Sderaadt break; 881df930be7Sderaadt case 'g': 882df930be7Sderaadt graph = TRUE; 883df930be7Sderaadt break; 884df930be7Sderaadt case 'n': 885df930be7Sderaadt show_names = FALSE; 886df930be7Sderaadt break; 887df930be7Sderaadt case 'r': 888df930be7Sderaadt if (!get_number(&retries, -1, &argv, &argc)) 889df930be7Sderaadt goto usage; 890df930be7Sderaadt break; 891df930be7Sderaadt case 't': 892df930be7Sderaadt if (!get_number(&timeout, -1, &argv, &argc)) 893df930be7Sderaadt goto usage; 894df930be7Sderaadt break; 895df930be7Sderaadt default: 896df930be7Sderaadt goto usage; 897df930be7Sderaadt } 898df930be7Sderaadt argv++, argc--; 899df930be7Sderaadt } 900df930be7Sderaadt 901df930be7Sderaadt if (argc > 1) { 902df930be7Sderaadt usage: 903df930be7Sderaadt fprintf(stderr, 904df930be7Sderaadt "Usage: map-mbone [-f] [-g] [-n] [-t timeout] %s\n\n", 905df930be7Sderaadt "[-r retries] [-d [debug-level]] [router]"); 906df930be7Sderaadt fprintf(stderr, "\t-f Flood the routing graph with queries\n"); 907df930be7Sderaadt fprintf(stderr, "\t (True by default unless `router' is given)\n"); 908df930be7Sderaadt fprintf(stderr, "\t-g Generate output in GraphEd format\n"); 909df930be7Sderaadt fprintf(stderr, "\t-n Don't look up DNS names for routers\n"); 910df930be7Sderaadt exit(1); 911df930be7Sderaadt } else if (argc == 1 && !(target_addr = host_addr(argv[0]))) { 912df930be7Sderaadt fprintf(stderr, "Unknown host: %s\n", argv[0]); 913df930be7Sderaadt exit(2); 914df930be7Sderaadt } 915df930be7Sderaadt 916df930be7Sderaadt if (debug) 917df930be7Sderaadt fprintf(stderr, "Debug level %u\n", debug); 918df930be7Sderaadt 919df930be7Sderaadt { /* Find a good local address for us. */ 920df930be7Sderaadt int udp; 921df930be7Sderaadt struct sockaddr_in addr; 922df930be7Sderaadt int addrlen = sizeof(addr); 923df930be7Sderaadt 924df930be7Sderaadt addr.sin_family = AF_INET; 925df930be7Sderaadt #if (defined(BSD) && (BSD >= 199103)) 926df930be7Sderaadt addr.sin_len = sizeof addr; 927df930be7Sderaadt #endif 928df930be7Sderaadt addr.sin_addr.s_addr = dvmrp_group; 929df930be7Sderaadt addr.sin_port = htons(2000); /* any port over 1024 will do... */ 930df930be7Sderaadt if ((udp = socket(AF_INET, SOCK_DGRAM, 0)) < 0 931df930be7Sderaadt || connect(udp, (struct sockaddr *) &addr, sizeof(addr)) < 0 932df930be7Sderaadt || getsockname(udp, (struct sockaddr *) &addr, &addrlen) < 0) { 933df930be7Sderaadt perror("Determining local address"); 93443ae5fd5Sderaadt exit(1); 935df930be7Sderaadt } 936df930be7Sderaadt close(udp); 937df930be7Sderaadt our_addr = addr.sin_addr.s_addr; 938df930be7Sderaadt } 939df930be7Sderaadt 940df930be7Sderaadt /* Send initial seed message to all local routers */ 941df930be7Sderaadt ask(target_addr ? target_addr : allhosts_group); 942df930be7Sderaadt 943df930be7Sderaadt if (target_addr) { 944df930be7Sderaadt Node *n = find_node(target_addr, &routers); 945df930be7Sderaadt 946df930be7Sderaadt n->tries = 1; 947df930be7Sderaadt 948df930be7Sderaadt if (flood) 949df930be7Sderaadt target_addr = 0; 950df930be7Sderaadt } 951df930be7Sderaadt 952df930be7Sderaadt /* Main receive loop */ 953df930be7Sderaadt for(;;) { 954df930be7Sderaadt fd_set fds; 955df930be7Sderaadt struct timeval tv; 956df930be7Sderaadt int count, recvlen, dummy = 0; 957df930be7Sderaadt 958df930be7Sderaadt FD_ZERO(&fds); 959df930be7Sderaadt FD_SET(igmp_socket, &fds); 960df930be7Sderaadt 961df930be7Sderaadt tv.tv_sec = timeout; 962df930be7Sderaadt tv.tv_usec = 0; 963df930be7Sderaadt 964df930be7Sderaadt count = select(igmp_socket + 1, &fds, 0, 0, &tv); 965df930be7Sderaadt 966df930be7Sderaadt if (count < 0) { 967df930be7Sderaadt if (errno != EINTR) 968df930be7Sderaadt perror("select"); 969df930be7Sderaadt continue; 970df930be7Sderaadt } else if (count == 0) { 971df930be7Sderaadt log(LOG_DEBUG, 0, "Timed out receiving neighbor lists"); 972df930be7Sderaadt if (retry_requests(routers)) 973df930be7Sderaadt continue; 974df930be7Sderaadt else 975df930be7Sderaadt break; 976df930be7Sderaadt } 977df930be7Sderaadt 978df930be7Sderaadt recvlen = recvfrom(igmp_socket, recv_buf, RECV_BUF_SIZE, 979df930be7Sderaadt 0, NULL, &dummy); 980df930be7Sderaadt if (recvlen >= 0) 981df930be7Sderaadt accept_igmp(recvlen); 982df930be7Sderaadt else if (errno != EINTR) 983df930be7Sderaadt perror("recvfrom"); 984df930be7Sderaadt } 985df930be7Sderaadt 986df930be7Sderaadt printf("\n"); 987df930be7Sderaadt 988df930be7Sderaadt if (graph) 989df930be7Sderaadt graph_map(); 990df930be7Sderaadt else { 991df930be7Sderaadt if (!target_addr) 992df930be7Sderaadt printf("Multicast Router Connectivity:\n\n"); 993df930be7Sderaadt print_map(routers); 994df930be7Sderaadt } 995df930be7Sderaadt 996df930be7Sderaadt exit(0); 997df930be7Sderaadt } 998df930be7Sderaadt 999a17240f2Sderaadt /* dummies */ 1000a17240f2Sderaadt void accept_prune(src, dst, p, datalen) 1001a17240f2Sderaadt u_int32_t src, dst; 1002a17240f2Sderaadt char *p; 1003a17240f2Sderaadt int datalen; 1004df930be7Sderaadt { 1005df930be7Sderaadt } 1006a17240f2Sderaadt void accept_graft(src, dst, p, datalen) 1007a17240f2Sderaadt u_int32_t src, dst; 1008a17240f2Sderaadt char *p; 1009a17240f2Sderaadt int datalen; 1010df930be7Sderaadt { 1011df930be7Sderaadt } 1012a17240f2Sderaadt void accept_g_ack(src, dst, p, datalen) 1013a17240f2Sderaadt u_int32_t src, dst; 1014a17240f2Sderaadt char *p; 1015a17240f2Sderaadt int datalen; 1016df930be7Sderaadt { 1017df930be7Sderaadt } 1018a17240f2Sderaadt void add_table_entry(origin, mcastgrp) 1019a17240f2Sderaadt u_int32_t origin, mcastgrp; 1020df930be7Sderaadt { 1021df930be7Sderaadt } 1022a17240f2Sderaadt void accept_leave_message(src, dst, group) 1023a17240f2Sderaadt u_int32_t src, dst, group; 1024df930be7Sderaadt { 1025df930be7Sderaadt } 1026a17240f2Sderaadt void accept_mtrace(src, dst, group, data, no, datalen) 1027a17240f2Sderaadt u_int32_t src, dst, group; 1028a17240f2Sderaadt char *data; 1029a17240f2Sderaadt u_int no; 1030a17240f2Sderaadt int datalen; 1031df930be7Sderaadt { 1032df930be7Sderaadt } 1033a17240f2Sderaadt void accept_membership_query(src, dst, group, tmo) 1034a17240f2Sderaadt u_int32_t src, dst, group; 1035a17240f2Sderaadt int tmo; 1036a17240f2Sderaadt { 1037a17240f2Sderaadt } 1038a17240f2Sderaadt void accept_info_request(src, dst, p, datalen) 1039a17240f2Sderaadt u_int32_t src, dst; 1040a17240f2Sderaadt u_char *p; 1041a17240f2Sderaadt int datalen; 1042a17240f2Sderaadt { 1043a17240f2Sderaadt } 1044a17240f2Sderaadt void accept_info_reply(src, dst, p, datalen) 1045a17240f2Sderaadt u_int32_t src, dst; 1046a17240f2Sderaadt u_char *p; 1047a17240f2Sderaadt int datalen; 1048df930be7Sderaadt { 1049df930be7Sderaadt } 1050