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