X-Git-Url: https://git.saurik.com/apple/xnu.git/blobdiff_plain/0c530ab8987f0ae6a1a3d9284f40182b88852816..2d21ac55c334faf3a56e5634905ed6987fc787d4:/bsd/netinet/in_bootp.c diff --git a/bsd/netinet/in_bootp.c b/bsd/netinet/in_bootp.c deleted file mode 100644 index 903262d4c..000000000 --- a/bsd/netinet/in_bootp.c +++ /dev/null @@ -1,612 +0,0 @@ -/* - * Copyright (c) 2000-2004 Apple Computer, Inc. All rights reserved. - * - * @APPLE_LICENSE_HEADER_START@ - * - * The contents of this file constitute Original Code as defined in and - * are subject to the Apple Public Source License Version 1.1 (the - * "License"). You may not use this file except in compliance with the - * License. Please obtain a copy of the License at - * http://www.apple.com/publicsource and read it before using this file. - * - * This Original Code and all software distributed under the License are - * distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, EITHER - * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES, - * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT. Please see the - * License for the specific language governing rights and limitations - * under the License. - * - * @APPLE_LICENSE_HEADER_END@ - */ -/* - * Copyright (c) 1988-1999 Apple Computer, Inc. All Rights Reserved - */ - -/* - * bootp.c - * - be a BOOTP client over a particular interface to retrieve - * the IP address, netmask, and router - */ - -/* - * Modification History - * - * February 19, 1999 Dieter Siegmund (dieter@apple.com) - * - completely rewritten - */ - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -#include -#include - -#ifdef BOOTP_DEBUG -#define dprintf(x) printf x; -#else /* !BOOTP_DEBUG */ -#define dprintf(x) -#endif /* BOOTP_DEBUG */ - -int bootp(struct ifnet * ifp, struct in_addr * iaddr_p, int max_try, - struct in_addr * netmask_p, struct in_addr * router_p, - struct proc * procp); -struct mbuf * ip_pkt_to_mbuf(caddr_t pkt, int pktsize); -int receive_packet(struct socket * so, caddr_t pp, int psize, int * actual_size); - - -/* ip address formatting macros */ -#define IP_FORMAT "%d.%d.%d.%d" -#define IP_CH(ip) ((u_char *)ip) -#define IP_LIST(ip) IP_CH(ip)[0],IP_CH(ip)[1],IP_CH(ip)[2],IP_CH(ip)[3] - -static __inline__ struct sockaddr_in -blank_sin() -{ - struct sockaddr_in blank = { sizeof(struct sockaddr_in), AF_INET }; - return (blank); -} - -static __inline__ void -print_reply(struct bootp *bp, __unused int bp_len) -{ - int i, j, len; - - printf("bp_op = "); - if (bp->bp_op == BOOTREQUEST) printf("BOOTREQUEST\n"); - else if (bp->bp_op == BOOTREPLY) printf("BOOTREPLY\n"); - else - { - i = bp->bp_op; - printf("%d\n", i); - } - - i = bp->bp_htype; - printf("bp_htype = %d\n", i); - - len = bp->bp_hlen; - printf("bp_hlen = %d\n", len); - - i = bp->bp_hops; - printf("bp_hops = %d\n", i); - - printf("bp_xid = %lu\n", bp->bp_xid); - - printf("bp_secs = %u\n", bp->bp_secs); - - printf("bp_ciaddr = " IP_FORMAT "\n", IP_LIST(&bp->bp_ciaddr)); - printf("bp_yiaddr = " IP_FORMAT "\n", IP_LIST(&bp->bp_yiaddr)); - printf("bp_siaddr = " IP_FORMAT "\n", IP_LIST(&bp->bp_siaddr)); - printf("bp_giaddr = " IP_FORMAT "\n", IP_LIST(&bp->bp_giaddr)); - - printf("bp_chaddr = "); - for (j = 0; j < len; j++) - { - i = bp->bp_chaddr[j]; - printf("%0x", i); - if (j < (len - 1)) printf(":"); - } - printf("\n"); - - printf("bp_sname = %s\n", bp->bp_sname); - printf("bp_file = %s\n", bp->bp_file); -} - -static __inline__ void -print_reply_short(struct bootp *bp, __unused int bp_len) -{ - printf("bp_yiaddr = " IP_FORMAT "\n", IP_LIST(&bp->bp_yiaddr)); - printf("bp_sname = %s\n", bp->bp_sname); -} - - -static __inline__ long -random_range(long bottom, long top) -{ - long number = top - bottom + 1; - long range_size = LONG_MAX / number; - return (((long)random()) / range_size + bottom); -} - -/* - * Function: make_bootp_request - * Purpose: - * Create a "blank" bootp packet. - */ -static void -make_bootp_request(struct bootp_packet * pkt, - u_char * hwaddr, u_char hwtype, u_char hwlen) -{ - char rfc_magic[4] = RFC_OPTIONS_MAGIC; - - bzero(pkt, sizeof (*pkt)); - pkt->bp_ip.ip_v = IPVERSION; - pkt->bp_ip.ip_hl = sizeof (struct ip) >> 2; -#ifdef RANDOM_IP_ID - pkt->bp_ip.ip_id = ip_randomid(); -#else - pkt->bp_ip.ip_id = htons(ip_id++); -#endif - pkt->bp_ip.ip_ttl = MAXTTL; - pkt->bp_ip.ip_p = IPPROTO_UDP; - pkt->bp_ip.ip_src.s_addr = 0; - pkt->bp_ip.ip_dst.s_addr = htonl(INADDR_BROADCAST); - pkt->bp_udp.uh_sport = htons(IPPORT_BOOTPC); - pkt->bp_udp.uh_dport = htons(IPPORT_BOOTPS); - pkt->bp_udp.uh_sum = 0; - pkt->bp_bootp.bp_op = BOOTREQUEST; - pkt->bp_bootp.bp_htype = hwtype; - pkt->bp_bootp.bp_hlen = hwlen; - pkt->bp_bootp.bp_ciaddr.s_addr = 0; - bcopy(hwaddr, pkt->bp_bootp.bp_chaddr, hwlen); - bcopy(rfc_magic, pkt->bp_bootp.bp_vend, sizeof(rfc_magic)); - pkt->bp_bootp.bp_vend[4] = dhcptag_end_e; - pkt->bp_udp.uh_ulen = htons(sizeof(pkt->bp_udp) + sizeof(pkt->bp_bootp)); - pkt->bp_ip.ip_len = htons(sizeof(struct ip) + ntohs(pkt->bp_udp.uh_ulen)); - pkt->bp_ip.ip_sum = 0; - return; -} - -/* - * Function: ip_pkt_to_mbuf - * Purpose: - * Put the given IP packet into an mbuf, calculate the - * IP checksum. - */ -struct mbuf * -ip_pkt_to_mbuf(caddr_t pkt, int pktsize) -{ - struct ip * ip; - struct mbuf * m; - - m = (struct mbuf *)m_devget(pkt, pktsize, 0, 0, 0); - if (m == 0) { - printf("bootp: ip_pkt_to_mbuf: m_devget failed\n"); - return 0; - } - m->m_flags |= M_BCAST; - /* Compute the checksum */ - ip = mtod(m, struct ip *); - ip->ip_sum = 0; - ip->ip_sum = in_cksum(m, sizeof (struct ip)); - return (m); -} - -static __inline__ u_char * -link_address(struct sockaddr_dl * dl_p) -{ - return (dl_p->sdl_data + dl_p->sdl_nlen); -} - -static __inline__ void -link_print(struct sockaddr_dl * dl_p) -{ - int i; - -#if 0 - printf("len %d index %d family %d type 0x%x nlen %d alen %d" - " slen %d addr ", dl_p->sdl_len, - dl_p->sdl_index, dl_p->sdl_family, dl_p->sdl_type, - dl_p->sdl_nlen, dl_p->sdl_alen, dl_p->sdl_slen); -#endif - for (i = 0; i < dl_p->sdl_alen; i++) - printf("%s%x", i ? ":" : "", - (link_address(dl_p))[i]); - printf("\n"); - return; -} - -static struct sockaddr_dl * -link_from_ifnet(struct ifnet * ifp) -{ - struct ifaddr * addr; - -/* for (addr = ifp->if_addrlist; addr; addr = addr->ifa_next) */ - - ifnet_lock_shared(ifp); - TAILQ_FOREACH(addr, &ifp->if_addrhead, ifa_link) { - if (addr->ifa_addr->sa_family == AF_LINK) { - struct sockaddr_dl * dl_p = (struct sockaddr_dl *)(addr->ifa_addr); - - ifnet_lock_done(ifp); - return (dl_p); - } - } - ifnet_lock_done(ifp); - return (NULL); -} - -/* - * Function: send_bootp_request - * Purpose: - * Send the request by calling the interface's output routine - * bypassing routing code. - */ -static int -send_bootp_request(struct ifnet * ifp, __unused struct socket * so, - struct bootp_packet * pkt) -{ - struct mbuf * m; - struct sockaddr_in sin; - - /* Address to send to */ - sin = blank_sin(); - sin.sin_port = htons(IPPORT_BOOTPS); - sin.sin_addr.s_addr = INADDR_BROADCAST; - - m = ip_pkt_to_mbuf((caddr_t)pkt, sizeof(*pkt)); - return dlil_output(ifp, PF_INET, m, 0, (struct sockaddr *)&sin, 0); -} - -/* - * Function: receive_packet - * Purpose: - * Return a received packet or an error if none available. - */ -int -receive_packet(struct socket * so, caddr_t pp, int psize, int * actual_size) -{ - uio_t auio; - int rcvflg; - int error; - char uio_buf[ UIO_SIZEOF(1) ]; - - auio = uio_createwithbuffer(1, 0, UIO_SYSSPACE, UIO_READ, - &uio_buf[0], sizeof(uio_buf)); - uio_addiov(auio, CAST_USER_ADDR_T(pp), psize); - rcvflg = MSG_WAITALL; - - error = soreceive(so, (struct sockaddr **) 0, auio, 0, 0, &rcvflg); - *actual_size = psize - uio_resid(auio); - return (error); -} - -/* - * Function: bootp_timeout - * Purpose: - * Wakeup the process waiting for something on a socket. - */ -static void -bootp_timeout(void * arg) -{ - struct socket * * socketflag = (struct socket * *)arg; - struct socket * so = *socketflag; - - dprintf(("bootp: timeout\n")); - - *socketflag = NULL; - socket_lock(so, 1); - sowakeup(so, &so->so_rcv); - socket_unlock(so, 1); - return; -} - -/* - * Function: rate_packet - * Purpose: - * Return an integer point rating value for the given bootp packet. - * If yiaddr non-zero, the packet gets a rating of 1. - * Another point is given if the packet contains the subnet mask, - * and another if the router is present. - */ -#define GOOD_RATING 3 -static __inline__ int -rate_packet(__unused struct bootp * pkt, __unused int pkt_size, dhcpol_t * options_p) -{ - int len; - int rating = 1; - - if (dhcpol_find(options_p, dhcptag_subnet_mask_e, &len, NULL) != NULL) { - rating++; - } - if (dhcpol_find(options_p, dhcptag_router_e, &len, NULL) != NULL) { - rating++; - } - return (rating); -} - -#define INITIAL_WAIT_SECS 4 -#define MAX_WAIT_SECS 64 -#define GATHER_TIME_SECS 2 -#define RAND_TICKS (hz) /* one second */ - -/* - * Function: bootp_loop - * Purpose: - * Do the actual BOOTP protocol. - * The algorithm sends out a packet, waits for a response. - * We try max_try times, waiting in an exponentially increasing - * amount of time. Once we receive a good response, we start - * a new time period called the "gather time", during which we - * either find the perfect packet (one that has ip, mask and router) - * or we continue to gather responses. At the end of the gather period, - * we use the best response gathered. - */ -static int -bootp_loop(struct socket * so, struct ifnet * ifp, int max_try, - struct in_addr * iaddr_p, struct in_addr * netmask_p, - struct in_addr * router_p) -{ - struct timeval current_time; - struct sockaddr_dl * dl_p; - int error = 0; - char * hwaddr; - int hwlen; - char hwtype = 0; - struct bootp_packet * request = NULL; - struct bootp * reply = NULL; - int reply_size = DHCP_PACKET_MIN; - struct timeval start_time; - u_long xid; - int retry; - struct socket * timeflag; - int wait_ticks = INITIAL_WAIT_SECS * hz; - - /* get the hardware address from the interface */ - dl_p = link_from_ifnet(ifp); - if (dl_p == NULL) { - printf("bootp: can't get link address\n"); - return (ENXIO); - } - - printf("bootp: h/w addr "); - link_print(dl_p); - - hwaddr = link_address(dl_p); - hwlen = dl_p->sdl_alen; - switch (dl_p->sdl_type) { - case IFT_ETHER: - hwtype = ARPHRD_ETHER; - break; - default: - printf("bootp: hardware type %d not supported\n", - dl_p->sdl_type); - panic("bootp: hardware type not supported"); - break; - } - - /* set transaction id and remember the start time */ - microtime(&start_time); - current_time = start_time; - xid = random(); - - /* make a request/reply packet */ - request = (struct bootp_packet *)kalloc(sizeof(*request)); - make_bootp_request(request, hwaddr, hwtype, hwlen); - reply = (struct bootp *)kalloc(reply_size); - iaddr_p->s_addr = 0; - printf("bootp: sending request"); - for (retry = 0; retry < max_try; retry++) { - int gather_count = 0; - int last_rating = 0; - - /* Send the request */ - printf("."); - request->bp_bootp.bp_secs = htons((u_short)(current_time.tv_sec - - start_time.tv_sec)); - request->bp_bootp.bp_xid = htonl(xid); - error = send_bootp_request(ifp, so, request); - if (error) - goto cleanup; - - timeflag = so; - wait_ticks += random_range(-RAND_TICKS, RAND_TICKS); - dprintf(("bootp: waiting %d ticks\n", wait_ticks)); - timeout((timeout_fcn_t)bootp_timeout, &timeflag, wait_ticks); - - while (TRUE) { - int n = 0; - - error = receive_packet(so, (caddr_t)reply, reply_size, &n); - if (error == 0) { - dprintf(("\nbootp: received packet\n")); - if (ntohl(reply->bp_xid) == xid - && reply->bp_yiaddr.s_addr - && bcmp(reply->bp_chaddr, hwaddr, hwlen) == 0) { - int rating; - dhcpol_t options; - -#ifdef BOOTP_DEBUG - print_reply_short(reply, n); -#endif /* BOOTP_DEBUG */ - (void)dhcpol_parse_packet(&options, (struct dhcp *)reply, - n, NULL); - rating = rate_packet(reply, n, &options); - if (rating > last_rating) { - struct in_addr * ip; - int len; - - *iaddr_p = reply->bp_yiaddr; - ip = (struct in_addr *) - dhcpol_find(&options, - dhcptag_subnet_mask_e, &len, NULL); - if (ip) { - *netmask_p = *ip; - } - ip = (struct in_addr *) - dhcpol_find(&options, dhcptag_router_e, &len, NULL); - if (ip) { - *router_p = *ip; - } - printf("%sbootp: got " - "response from %s (" IP_FORMAT ")\n", - last_rating == 0 ? "\n" : "", - reply->bp_sname, - IP_LIST(&reply->bp_siaddr)); - } - dhcpol_free(&options); - if (rating >= GOOD_RATING) { - untimeout((timeout_fcn_t)bootp_timeout, &timeflag); - goto done; - } - if (gather_count == 0) { - untimeout((timeout_fcn_t)bootp_timeout, &timeflag); - timeflag = so; - timeout((timeout_fcn_t)bootp_timeout, &timeflag, - hz * GATHER_TIME_SECS); - } - gather_count++; - } - else { - dprintf(("bootp: packet ignored\n")); - } - } - else if ((error != EWOULDBLOCK)) { - break; - } - else if (timeflag == NULL) { /* timed out */ - if (gather_count) { - dprintf(("bootp: gathering time has expired")); - goto done; /* we have a packet */ - } - break; /* retry */ - } - else { - socket_lock(so, 1); - error = sbwait(&so->so_rcv); - socket_unlock(so, 1); - } - } - if (error && (error != EWOULDBLOCK)) { - dprintf(("bootp: failed to receive packets: %d\n", error)); - untimeout((timeout_fcn_t)bootp_timeout, &timeflag); - goto cleanup; - } - wait_ticks *= 2; - if (wait_ticks > (MAX_WAIT_SECS * hz)) - wait_ticks = MAX_WAIT_SECS * hz; - xid++; - microtime(¤t_time); - } - error = ETIMEDOUT; - goto cleanup; - - done: - error = 0; - - cleanup: - if (request) - kfree(request, sizeof (*request)); - if (reply) - kfree(reply, reply_size); - return (error); -} - -/* - * Routine: bootp - * Function: - * Use the BOOTP protocol to resolve what our IP address should be - * on a particular interface. - */ -int bootp(struct ifnet * ifp, struct in_addr * iaddr_p, int max_try, - struct in_addr * netmask_p, struct in_addr * router_p, - struct proc * procp) -{ - boolean_t addr_set = FALSE; - struct ifreq ifr; - int error; - struct socket * so = NULL; - - /* get a socket */ - error = socreate(AF_INET, &so, SOCK_DGRAM, 0); - if (error) { - dprintf(("bootp: socreate failed %d\n", error)); - return (error); - } - - /* assign the all-zeroes address */ - bzero(&ifr, sizeof(ifr)); - sprintf(ifr.ifr_name, "%s%d", ifp->if_name, ifp->if_unit); - *((struct sockaddr_in *)&ifr.ifr_addr) = blank_sin(); - error = ifioctl(so, SIOCSIFADDR, (caddr_t)&ifr, procp); - if (error) { - dprintf(("bootp: SIOCSIFADDR all-zeroes IP failed: %d\n", - error)); - goto cleanup; - } - dprintf(("bootp: all-zeroes IP address assigned\n")); - addr_set = TRUE; - - { /* bind the socket */ - struct sockaddr_in * sin; - - sin = _MALLOC(sizeof(struct sockaddr_in), M_IFADDR, M_WAIT); - if (sin == NULL) { - error = ENOMEM; - goto cleanup; - } - sin->sin_len = sizeof(struct sockaddr_in); - sin->sin_family = AF_INET; - sin->sin_port = htons(IPPORT_BOOTPC); - sin->sin_addr.s_addr = INADDR_ANY; - error = sobind(so, (struct sockaddr *) sin); - - FREE(sin, M_IFADDR); - if (error) { - dprintf(("bootp: sobind failed, %d\n", error)); - goto cleanup; - } - socket_lock(so, 1); - so->so_state |= SS_NBIO; - socket_unlock(so, 1); - } - /* do the protocol */ - error = bootp_loop(so, ifp, max_try, iaddr_p, netmask_p, router_p); - - cleanup: - if (so) { - if (addr_set) { - (void) ifioctl(so, SIOCDIFADDR, (caddr_t) &ifr, procp); - } - soclose(so); - } - return (error); -}