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