xref: /openbmc/u-boot/net/bootp.c (revision e89516f0)
1 /*
2  *	Based on LiMon - BOOTP.
3  *
4  *	Copyright 1994, 1995, 2000 Neil Russell.
5  *	(See License)
6  *	Copyright 2000 Roland Borde
7  *	Copyright 2000 Paolo Scaffardi
8  *	Copyright 2000-2004 Wolfgang Denk, wd@denx.de
9  */
10 
11 #include <common.h>
12 #include <command.h>
13 #include <net.h>
14 #include "bootp.h"
15 #include "tftp.h"
16 #include "nfs.h"
17 #ifdef CONFIG_STATUS_LED
18 #include <status_led.h>
19 #endif
20 
21 #define BOOTP_VENDOR_MAGIC	0x63825363	/* RFC1048 Magic Cookie		*/
22 
23 #define TIMEOUT		5000UL	/* Milliseconds before trying BOOTP again */
24 #ifndef CONFIG_NET_RETRY_COUNT
25 # define TIMEOUT_COUNT	5		/* # of timeouts before giving up  */
26 #else
27 # define TIMEOUT_COUNT	(CONFIG_NET_RETRY_COUNT)
28 #endif
29 
30 #define PORT_BOOTPS	67		/* BOOTP server UDP port		*/
31 #define PORT_BOOTPC	68		/* BOOTP client UDP port		*/
32 
33 #ifndef CONFIG_DHCP_MIN_EXT_LEN		/* minimal length of extension list	*/
34 #define CONFIG_DHCP_MIN_EXT_LEN 64
35 #endif
36 
37 ulong		BootpID;
38 int		BootpTry;
39 #ifdef CONFIG_BOOTP_RANDOM_DELAY
40 ulong		seed1, seed2;
41 #endif
42 
43 #if defined(CONFIG_CMD_DHCP)
44 dhcp_state_t dhcp_state = INIT;
45 unsigned long dhcp_leasetime = 0;
46 IPaddr_t NetDHCPServerIP = 0;
47 static void DhcpHandler(uchar * pkt, unsigned dest, unsigned src, unsigned len);
48 
49 /* For Debug */
50 #if 0
51 static char *dhcpmsg2str(int type)
52 {
53 	switch (type) {
54 	case 1:	 return "DHCPDISCOVER"; break;
55 	case 2:	 return "DHCPOFFER";	break;
56 	case 3:	 return "DHCPREQUEST";	break;
57 	case 4:	 return "DHCPDECLINE";	break;
58 	case 5:	 return "DHCPACK";	break;
59 	case 6:	 return "DHCPNACK";	break;
60 	case 7:	 return "DHCPRELEASE";	break;
61 	default: return "UNKNOWN/INVALID MSG TYPE"; break;
62 	}
63 }
64 #endif
65 
66 #if defined(CONFIG_BOOTP_VENDOREX)
67 extern u8 *dhcp_vendorex_prep (u8 *e); /*rtn new e after add own opts. */
68 extern u8 *dhcp_vendorex_proc (u8 *e); /*rtn next e if mine,else NULL  */
69 #endif
70 
71 #endif
72 
73 static int BootpCheckPkt(uchar *pkt, unsigned dest, unsigned src, unsigned len)
74 {
75 	Bootp_t *bp = (Bootp_t *) pkt;
76 	int retval = 0;
77 
78 	if (dest != PORT_BOOTPC || src != PORT_BOOTPS)
79 		retval = -1;
80 	else if (len < sizeof (Bootp_t) - OPT_SIZE)
81 		retval = -2;
82 	else if (bp->bp_op != OP_BOOTREQUEST &&
83 	    bp->bp_op != OP_BOOTREPLY &&
84 	    bp->bp_op != DHCP_OFFER &&
85 	    bp->bp_op != DHCP_ACK &&
86 	    bp->bp_op != DHCP_NAK ) {
87 		retval = -3;
88 	}
89 	else if (bp->bp_htype != HWT_ETHER)
90 		retval = -4;
91 	else if (bp->bp_hlen != HWL_ETHER)
92 		retval = -5;
93 	else if (NetReadLong((ulong*)&bp->bp_id) != BootpID) {
94 		retval = -6;
95 	}
96 
97 	debug("Filtering pkt = %d\n", retval);
98 
99 	return retval;
100 }
101 
102 /*
103  * Copy parameters of interest from BOOTP_REPLY/DHCP_OFFER packet
104  */
105 static void BootpCopyNetParams(Bootp_t *bp)
106 {
107 	IPaddr_t tmp_ip;
108 
109 	NetCopyIP(&NetOurIP, &bp->bp_yiaddr);
110 #if !defined(CONFIG_BOOTP_SERVERIP)
111 	NetCopyIP(&tmp_ip, &bp->bp_siaddr);
112 	if (tmp_ip != 0)
113 		NetCopyIP(&NetServerIP, &bp->bp_siaddr);
114 	memcpy (NetServerEther, ((Ethernet_t *)NetRxPacket)->et_src, 6);
115 #endif
116 	if (strlen(bp->bp_file) > 0)
117 		copy_filename (BootFile, bp->bp_file, sizeof(BootFile));
118 
119 	debug("Bootfile: %s\n", BootFile);
120 
121 	/* Propagate to environment:
122 	 * don't delete exising entry when BOOTP / DHCP reply does
123 	 * not contain a new value
124 	 */
125 	if (*BootFile) {
126 		setenv ("bootfile", BootFile);
127 	}
128 }
129 
130 static int truncate_sz (const char *name, int maxlen, int curlen)
131 {
132 	if (curlen >= maxlen) {
133 		printf("*** WARNING: %s is too long (%d - max: %d) - truncated\n",
134 			name, curlen, maxlen);
135 		curlen = maxlen - 1;
136 	}
137 	return (curlen);
138 }
139 
140 #if !defined(CONFIG_CMD_DHCP)
141 
142 static void BootpVendorFieldProcess (u8 * ext)
143 {
144 	int size = *(ext + 1);
145 
146 	debug("[BOOTP] Processing extension %d... (%d bytes)\n", *ext,
147 		   *(ext + 1));
148 
149 	NetBootFileSize = 0;
150 
151 	switch (*ext) {
152 		/* Fixed length fields */
153 	case 1:			/* Subnet mask					*/
154 		if (NetOurSubnetMask == 0)
155 			NetCopyIP (&NetOurSubnetMask, (IPaddr_t *) (ext + 2));
156 		break;
157 	case 2:			/* Time offset - Not yet supported		*/
158 		break;
159 		/* Variable length fields */
160 	case 3:			/* Gateways list				*/
161 		if (NetOurGatewayIP == 0) {
162 			NetCopyIP (&NetOurGatewayIP, (IPaddr_t *) (ext + 2));
163 		}
164 		break;
165 	case 4:			/* Time server - Not yet supported		*/
166 		break;
167 	case 5:			/* IEN-116 name server - Not yet supported	*/
168 		break;
169 	case 6:
170 		if (NetOurDNSIP == 0) {
171 			NetCopyIP (&NetOurDNSIP, (IPaddr_t *) (ext + 2));
172 		}
173 #if defined(CONFIG_BOOTP_DNS2)
174 		if ((NetOurDNS2IP == 0) && (size > 4)) {
175 			NetCopyIP (&NetOurDNS2IP, (IPaddr_t *) (ext + 2 + 4));
176 		}
177 #endif
178 		break;
179 	case 7:			/* Log server - Not yet supported		*/
180 		break;
181 	case 8:			/* Cookie/Quote server - Not yet supported	*/
182 		break;
183 	case 9:			/* LPR server - Not yet supported		*/
184 		break;
185 	case 10:		/* Impress server - Not yet supported		*/
186 		break;
187 	case 11:		/* RPL server - Not yet supported		*/
188 		break;
189 	case 12:		/* Host name					*/
190 		if (NetOurHostName[0] == 0) {
191 			size = truncate_sz ("Host Name", sizeof (NetOurHostName), size);
192 			memcpy (&NetOurHostName, ext + 2, size);
193 			NetOurHostName[size] = 0;
194 		}
195 		break;
196 	case 13:		/* Boot file size				*/
197 		if (size == 2)
198 			NetBootFileSize = ntohs (*(ushort *) (ext + 2));
199 		else if (size == 4)
200 			NetBootFileSize = ntohl (*(ulong *) (ext + 2));
201 		break;
202 	case 14:		/* Merit dump file - Not yet supported		*/
203 		break;
204 	case 15:		/* Domain name - Not yet supported		*/
205 		break;
206 	case 16:		/* Swap server - Not yet supported		*/
207 		break;
208 	case 17:		/* Root path					*/
209 		if (NetOurRootPath[0] == 0) {
210 			size = truncate_sz ("Root Path", sizeof (NetOurRootPath), size);
211 			memcpy (&NetOurRootPath, ext + 2, size);
212 			NetOurRootPath[size] = 0;
213 		}
214 		break;
215 	case 18:		/* Extension path - Not yet supported		*/
216 		/*
217 		 * This can be used to send the information of the
218 		 * vendor area in another file that the client can
219 		 * access via TFTP.
220 		 */
221 		break;
222 		/* IP host layer fields */
223 	case 40:		/* NIS Domain name				*/
224 		if (NetOurNISDomain[0] == 0) {
225 			size = truncate_sz ("NIS Domain Name", sizeof (NetOurNISDomain), size);
226 			memcpy (&NetOurNISDomain, ext + 2, size);
227 			NetOurNISDomain[size] = 0;
228 		}
229 		break;
230 		/* Application layer fields */
231 	case 43:		/* Vendor specific info - Not yet supported	*/
232 		/*
233 		 * Binary information to exchange specific
234 		 * product information.
235 		 */
236 		break;
237 		/* Reserved (custom) fields (128..254) */
238 	}
239 }
240 
241 static void BootpVendorProcess (u8 * ext, int size)
242 {
243 	u8 *end = ext + size;
244 
245 	debug("[BOOTP] Checking extension (%d bytes)...\n", size);
246 
247 	while ((ext < end) && (*ext != 0xff)) {
248 		if (*ext == 0) {
249 			ext++;
250 		} else {
251 			u8 *opt = ext;
252 
253 			ext += ext[1] + 2;
254 			if (ext <= end)
255 				BootpVendorFieldProcess (opt);
256 		}
257 	}
258 
259 	debug("[BOOTP] Received fields: \n");
260 	if (NetOurSubnetMask)
261 		debug("NetOurSubnetMask : %pI4\n", &NetOurSubnetMask);
262 
263 	if (NetOurGatewayIP)
264 		debug("NetOurGatewayIP	: %pI4", &NetOurGatewayIP);
265 
266 	if (NetBootFileSize)
267 		debug("NetBootFileSize : %d\n", NetBootFileSize);
268 
269 	if (NetOurHostName[0])
270 		debug("NetOurHostName  : %s\n", NetOurHostName);
271 
272 	if (NetOurRootPath[0])
273 		debug("NetOurRootPath  : %s\n", NetOurRootPath);
274 
275 	if (NetOurNISDomain[0])
276 		debug("NetOurNISDomain : %s\n", NetOurNISDomain);
277 
278 	if (NetBootFileSize)
279 		debug("NetBootFileSize: %d\n", NetBootFileSize);
280 }
281 /*
282  *	Handle a BOOTP received packet.
283  */
284 static void
285 BootpHandler(uchar * pkt, unsigned dest, unsigned src, unsigned len)
286 {
287 	Bootp_t *bp;
288 	char	*s;
289 
290 	debug("got BOOTP packet (src=%d, dst=%d, len=%d want_len=%zu)\n",
291 		src, dest, len, sizeof (Bootp_t));
292 
293 	bp = (Bootp_t *)pkt;
294 
295 	if (BootpCheckPkt(pkt, dest, src, len)) /* Filter out pkts we don't want */
296 		return;
297 
298 	/*
299 	 *	Got a good BOOTP reply.	 Copy the data into our variables.
300 	 */
301 #ifdef CONFIG_STATUS_LED
302 	status_led_set (STATUS_LED_BOOT, STATUS_LED_OFF);
303 #endif
304 
305 	BootpCopyNetParams(bp);		/* Store net parameters from reply */
306 
307 	/* Retrieve extended information (we must parse the vendor area) */
308 	if (NetReadLong((ulong*)&bp->bp_vend[0]) == htonl(BOOTP_VENDOR_MAGIC))
309 		BootpVendorProcess((uchar *)&bp->bp_vend[4], len);
310 
311 	NetSetTimeout(0, (thand_f *)0);
312 
313 	debug("Got good BOOTP\n");
314 
315 	if ((s = getenv("autoload")) != NULL) {
316 		if (*s == 'n') {
317 			/*
318 			 * Just use BOOTP to configure system;
319 			 * Do not use TFTP to load the bootfile.
320 			 */
321 			NetState = NETLOOP_SUCCESS;
322 			return;
323 #if defined(CONFIG_CMD_NFS)
324 		} else if (strcmp(s, "NFS") == 0) {
325 			/*
326 			 * Use NFS to load the bootfile.
327 			 */
328 			NfsStart();
329 			return;
330 #endif
331 		}
332 	}
333 
334 	TftpStart();
335 }
336 #endif
337 
338 /*
339  *	Timeout on BOOTP/DHCP request.
340  */
341 static void
342 BootpTimeout(void)
343 {
344 	if (BootpTry >= TIMEOUT_COUNT) {
345 		puts ("\nRetry count exceeded; starting again\n");
346 		NetStartAgain ();
347 	} else {
348 		NetSetTimeout (TIMEOUT, BootpTimeout);
349 		BootpRequest ();
350 	}
351 }
352 
353 /*
354  *	Initialize BOOTP extension fields in the request.
355  */
356 #if defined(CONFIG_CMD_DHCP)
357 static int DhcpExtended (u8 * e, int message_type, IPaddr_t ServerID, IPaddr_t RequestedIP)
358 {
359 	u8 *start = e;
360 	u8 *cnt;
361 
362 #if defined(CONFIG_BOOTP_VENDOREX)
363 	u8 *x;
364 #endif
365 #if defined(CONFIG_BOOTP_SEND_HOSTNAME)
366 	char *hostname;
367 #endif
368 
369 	*e++ = 99;		/* RFC1048 Magic Cookie */
370 	*e++ = 130;
371 	*e++ = 83;
372 	*e++ = 99;
373 
374 	*e++ = 53;		/* DHCP Message Type */
375 	*e++ = 1;
376 	*e++ = message_type;
377 
378 	*e++ = 57;		/* Maximum DHCP Message Size */
379 	*e++ = 2;
380 	*e++ = (576 - 312 + OPT_SIZE) >> 8;
381 	*e++ = (576 - 312 + OPT_SIZE) & 0xff;
382 
383 	if (ServerID) {
384 		int tmp = ntohl (ServerID);
385 
386 		*e++ = 54;	/* ServerID */
387 		*e++ = 4;
388 		*e++ = tmp >> 24;
389 		*e++ = tmp >> 16;
390 		*e++ = tmp >> 8;
391 		*e++ = tmp & 0xff;
392 	}
393 
394 	if (RequestedIP) {
395 		int tmp = ntohl (RequestedIP);
396 
397 		*e++ = 50;	/* Requested IP */
398 		*e++ = 4;
399 		*e++ = tmp >> 24;
400 		*e++ = tmp >> 16;
401 		*e++ = tmp >> 8;
402 		*e++ = tmp & 0xff;
403 	}
404 #if defined(CONFIG_BOOTP_SEND_HOSTNAME)
405 	if ((hostname = getenv ("hostname"))) {
406 		int hostnamelen = strlen (hostname);
407 
408 		*e++ = 12;	/* Hostname */
409 		*e++ = hostnamelen;
410 		memcpy (e, hostname, hostnamelen);
411 		e += hostnamelen;
412 	}
413 #endif
414 
415 #if defined(CONFIG_BOOTP_VENDOREX)
416 	if ((x = dhcp_vendorex_prep (e)))
417 		return x - start;
418 #endif
419 
420 	*e++ = 55;		/* Parameter Request List */
421 	 cnt = e++;		/* Pointer to count of requested items */
422 	*cnt = 0;
423 #if defined(CONFIG_BOOTP_SUBNETMASK)
424 	*e++  = 1;		/* Subnet Mask */
425 	*cnt += 1;
426 #endif
427 #if defined(CONFIG_BOOTP_TIMEOFFSET)
428 	*e++  = 2;
429 	*cnt += 1;
430 #endif
431 #if defined(CONFIG_BOOTP_GATEWAY)
432 	*e++  = 3;		/* Router Option */
433 	*cnt += 1;
434 #endif
435 #if defined(CONFIG_BOOTP_DNS)
436 	*e++  = 6;		/* DNS Server(s) */
437 	*cnt += 1;
438 #endif
439 #if defined(CONFIG_BOOTP_HOSTNAME)
440 	*e++  = 12;		/* Hostname */
441 	*cnt += 1;
442 #endif
443 #if defined(CONFIG_BOOTP_BOOTFILESIZE)
444 	*e++  = 13;		/* Boot File Size */
445 	*cnt += 1;
446 #endif
447 #if defined(CONFIG_BOOTP_BOOTPATH)
448 	*e++  = 17;		/* Boot path */
449 	*cnt += 1;
450 #endif
451 #if defined(CONFIG_BOOTP_NISDOMAIN)
452 	*e++  = 40;		/* NIS Domain name request */
453 	*cnt += 1;
454 #endif
455 #if defined(CONFIG_BOOTP_NTPSERVER)
456 	*e++  = 42;
457 	*cnt += 1;
458 #endif
459 	/* no options, so back up to avoid sending an empty request list */
460 	if (*cnt == 0)
461 		e -= 2;
462 
463 	*e++  = 255;		/* End of the list */
464 
465 	/* Pad to minimal length */
466 #ifdef	CONFIG_DHCP_MIN_EXT_LEN
467 	while ((e - start) < CONFIG_DHCP_MIN_EXT_LEN)
468 		*e++ = 0;
469 #endif
470 
471 	return e - start;
472 }
473 
474 #else
475 /*
476  *	Warning: no field size check - change CONFIG_BOOTP_* at your own risk!
477  */
478 static int BootpExtended (u8 * e)
479 {
480 	u8 *start = e;
481 
482 	*e++ = 99;		/* RFC1048 Magic Cookie */
483 	*e++ = 130;
484 	*e++ = 83;
485 	*e++ = 99;
486 
487 #if defined(CONFIG_CMD_DHCP)
488 	*e++ = 53;		/* DHCP Message Type */
489 	*e++ = 1;
490 	*e++ = DHCP_DISCOVER;
491 
492 	*e++ = 57;		/* Maximum DHCP Message Size */
493 	*e++ = 2;
494 	*e++ = (576 - 312 + OPT_SIZE) >> 16;
495 	*e++ = (576 - 312 + OPT_SIZE) & 0xff;
496 #endif
497 
498 #if defined(CONFIG_BOOTP_SUBNETMASK)
499 	*e++ = 1;		/* Subnet mask request */
500 	*e++ = 4;
501 	e   += 4;
502 #endif
503 
504 #if defined(CONFIG_BOOTP_GATEWAY)
505 	*e++ = 3;		/* Default gateway request */
506 	*e++ = 4;
507 	e   += 4;
508 #endif
509 
510 #if defined(CONFIG_BOOTP_DNS)
511 	*e++ = 6;		/* Domain Name Server */
512 	*e++ = 4;
513 	e   += 4;
514 #endif
515 
516 #if defined(CONFIG_BOOTP_HOSTNAME)
517 	*e++ = 12;		/* Host name request */
518 	*e++ = 32;
519 	e   += 32;
520 #endif
521 
522 #if defined(CONFIG_BOOTP_BOOTFILESIZE)
523 	*e++ = 13;		/* Boot file size */
524 	*e++ = 2;
525 	e   += 2;
526 #endif
527 
528 #if defined(CONFIG_BOOTP_BOOTPATH)
529 	*e++ = 17;		/* Boot path */
530 	*e++ = 32;
531 	e   += 32;
532 #endif
533 
534 #if defined(CONFIG_BOOTP_NISDOMAIN)
535 	*e++ = 40;		/* NIS Domain name request */
536 	*e++ = 32;
537 	e   += 32;
538 #endif
539 
540 	*e++ = 255;		/* End of the list */
541 
542 	return e - start;
543 }
544 #endif
545 
546 void
547 BootpRequest (void)
548 {
549 	volatile uchar *pkt, *iphdr;
550 	Bootp_t *bp;
551 	int ext_len, pktlen, iplen;
552 
553 #if defined(CONFIG_CMD_DHCP)
554 	dhcp_state = INIT;
555 #endif
556 
557 #ifdef CONFIG_BOOTP_RANDOM_DELAY		/* Random BOOTP delay */
558 	unsigned char bi_enetaddr[6];
559 	int   reg;
560 	ulong tst1, tst2, sum, m_mask, m_value = 0;
561 
562 	if (BootpTry ==0) {
563 		/* get our mac */
564 		eth_getenv_enetaddr("ethaddr", bi_enetaddr);
565 
566 		debug("BootpRequest => Our Mac: ");
567 		for (reg=0; reg<6; reg++)
568 			debug("%x%c", bi_enetaddr[reg], reg==5 ? '\n' : ':');
569 
570 		/* Mac-Manipulation 2 get seed1 */
571 		tst1=0;
572 		tst2=0;
573 		for (reg=2; reg<6; reg++) {
574 			tst1 = tst1 << 8;
575 			tst1 = tst1 | bi_enetaddr[reg];
576 		}
577 		for (reg=0; reg<2; reg++) {
578 			tst2 = tst2 | bi_enetaddr[reg];
579 			tst2 = tst2 << 8;
580 		}
581 
582 		seed1 = tst1^tst2;
583 
584 		/* Mirror seed1*/
585 		m_mask=0x1;
586 		for (reg=1;reg<=32;reg++) {
587 			m_value |= (m_mask & seed1);
588 			seed1 = seed1 >> 1;
589 			m_value = m_value << 1;
590 		}
591 		seed1 = m_value;
592 		seed2 = 0xB78D0945;
593 	}
594 
595 	/* Random Number Generator */
596 
597 	for (reg=0;reg<=0;reg++) {
598 		sum = seed1 + seed2;
599 		if (sum < seed1 || sum < seed2)
600 			sum++;
601 		seed2 = seed1;
602 		seed1 = sum;
603 
604 		if (BootpTry<=2) {	/* Start with max 1024 * 1ms */
605 			sum = sum >> (22-BootpTry);
606 		} else {		/*After 3rd BOOTP request max 8192 * 1ms */
607 			sum = sum >> 19;
608 		}
609 	}
610 
611 	printf ("Random delay: %ld ms...\n", sum);
612 	for (reg=0; reg <sum; reg++) {
613 		udelay(1000); /*Wait 1ms*/
614 	}
615 #endif	/* CONFIG_BOOTP_RANDOM_DELAY */
616 
617 	printf("BOOTP broadcast %d\n", ++BootpTry);
618 	pkt = NetTxPacket;
619 	memset ((void*)pkt, 0, PKTSIZE);
620 
621 	pkt += NetSetEther(pkt, NetBcastAddr, PROT_IP);
622 
623 	/*
624 	 * Next line results in incorrect packet size being transmitted, resulting
625 	 * in errors in some DHCP servers, reporting missing bytes.  Size must be
626 	 * set in packet header after extension length has been determined.
627 	 * C. Hallinan, DS4.COM, Inc.
628 	 */
629 	/* NetSetIP(pkt, 0xFFFFFFFFL, PORT_BOOTPS, PORT_BOOTPC, sizeof (Bootp_t)); */
630 	iphdr = pkt;	/* We need this later for NetSetIP() */
631 	pkt += IP_HDR_SIZE;
632 
633 	bp = (Bootp_t *)pkt;
634 	bp->bp_op = OP_BOOTREQUEST;
635 	bp->bp_htype = HWT_ETHER;
636 	bp->bp_hlen = HWL_ETHER;
637 	bp->bp_hops = 0;
638 	bp->bp_secs = htons(get_timer(0) / 1000);
639 	NetWriteIP(&bp->bp_ciaddr, 0);
640 	NetWriteIP(&bp->bp_yiaddr, 0);
641 	NetWriteIP(&bp->bp_siaddr, 0);
642 	NetWriteIP(&bp->bp_giaddr, 0);
643 	memcpy (bp->bp_chaddr, NetOurEther, 6);
644 	copy_filename (bp->bp_file, BootFile, sizeof(bp->bp_file));
645 
646 	/* Request additional information from the BOOTP/DHCP server */
647 #if defined(CONFIG_CMD_DHCP)
648 	ext_len = DhcpExtended((u8 *)bp->bp_vend, DHCP_DISCOVER, 0, 0);
649 #else
650 	ext_len = BootpExtended((u8 *)bp->bp_vend);
651 #endif
652 
653 	/*
654 	 *	Bootp ID is the lower 4 bytes of our ethernet address
655 	 *	plus the current time in ms.
656 	 */
657 	BootpID = ((ulong)NetOurEther[2] << 24)
658 		| ((ulong)NetOurEther[3] << 16)
659 		| ((ulong)NetOurEther[4] << 8)
660 		| (ulong)NetOurEther[5];
661 	BootpID += get_timer(0);
662 	BootpID	 = htonl(BootpID);
663 	NetCopyLong(&bp->bp_id, &BootpID);
664 
665 	/*
666 	 * Calculate proper packet lengths taking into account the
667 	 * variable size of the options field
668 	 */
669 	pktlen = ((int)(pkt-NetTxPacket)) + BOOTP_HDR_SIZE - sizeof(bp->bp_vend) + ext_len;
670 	iplen = BOOTP_HDR_SIZE - sizeof(bp->bp_vend) + ext_len;
671 	NetSetIP(iphdr, 0xFFFFFFFFL, PORT_BOOTPS, PORT_BOOTPC, iplen);
672 	NetSetTimeout(SELECT_TIMEOUT, BootpTimeout);
673 
674 #if defined(CONFIG_CMD_DHCP)
675 	dhcp_state = SELECTING;
676 	NetSetHandler(DhcpHandler);
677 #else
678 	NetSetHandler(BootpHandler);
679 #endif
680 	NetSendPacket(NetTxPacket, pktlen);
681 }
682 
683 #if defined(CONFIG_CMD_DHCP)
684 static void DhcpOptionsProcess (uchar * popt, Bootp_t *bp)
685 {
686 	uchar *end = popt + BOOTP_HDR_SIZE;
687 	int oplen, size;
688 #if defined(CONFIG_CMD_SNTP) && defined(CONFIG_BOOTP_TIMEOFFSET)
689 	int *to_ptr;
690 #endif
691 
692 	while (popt < end && *popt != 0xff) {
693 		oplen = *(popt + 1);
694 		switch (*popt) {
695 		case 1:
696 			NetCopyIP (&NetOurSubnetMask, (popt + 2));
697 			break;
698 #if defined(CONFIG_CMD_SNTP) && defined(CONFIG_BOOTP_TIMEOFFSET)
699 		case 2:		/* Time offset	*/
700 			to_ptr = &NetTimeOffset;
701 			NetCopyLong ((ulong *)to_ptr, (ulong *)(popt + 2));
702 			NetTimeOffset = ntohl (NetTimeOffset);
703 			break;
704 #endif
705 		case 3:
706 			NetCopyIP (&NetOurGatewayIP, (popt + 2));
707 			break;
708 		case 6:
709 			NetCopyIP (&NetOurDNSIP, (popt + 2));
710 #if defined(CONFIG_BOOTP_DNS2)
711 			if (*(popt + 1) > 4) {
712 				NetCopyIP (&NetOurDNS2IP, (popt + 2 + 4));
713 			}
714 #endif
715 			break;
716 		case 12:
717 			size = truncate_sz ("Host Name", sizeof (NetOurHostName), oplen);
718 			memcpy (&NetOurHostName, popt + 2, size);
719 			NetOurHostName[size] = 0;
720 			break;
721 		case 15:	/* Ignore Domain Name Option */
722 			break;
723 		case 17:
724 			size = truncate_sz ("Root Path", sizeof (NetOurRootPath), oplen);
725 			memcpy (&NetOurRootPath, popt + 2, size);
726 			NetOurRootPath[size] = 0;
727 			break;
728 #if defined(CONFIG_CMD_SNTP) && defined(CONFIG_BOOTP_NTPSERVER)
729 		case 42:	/* NTP server IP */
730 			NetCopyIP (&NetNtpServerIP, (popt + 2));
731 			break;
732 #endif
733 		case 51:
734 			NetCopyLong (&dhcp_leasetime, (ulong *) (popt + 2));
735 			break;
736 		case 53:	/* Ignore Message Type Option */
737 			break;
738 		case 54:
739 			NetCopyIP (&NetDHCPServerIP, (popt + 2));
740 			break;
741 		case 58:	/* Ignore Renewal Time Option */
742 			break;
743 		case 59:	/* Ignore Rebinding Time Option */
744 			break;
745 		case 66:	/* Ignore TFTP server name */
746 			break;
747 		case 67:	/* vendor opt bootfile */
748 			/*
749 			 * I can't use dhcp_vendorex_proc here because I need
750 			 * to write into the bootp packet - even then I had to
751 			 * pass the bootp packet pointer into here as the
752 			 * second arg
753 			 */
754 			size = truncate_sz ("Opt Boot File",
755 					    sizeof(bp->bp_file),
756 					    oplen);
757 			if (bp->bp_file[0] == '\0' && size > 0) {
758 				/*
759 				 * only use vendor boot file if we didn't
760 				 * receive a boot file in the main non-vendor
761 				 * part of the packet - god only knows why
762 				 * some vendors chose not to use this perfectly
763 				 * good spot to store the boot file (join on
764 				 * Tru64 Unix) it seems mind bogglingly crazy
765 				 * to me
766 				 */
767 				printf("*** WARNING: using vendor "
768 					"optional boot file\n");
769 				memcpy(bp->bp_file, popt + 2, size);
770 				bp->bp_file[size] = '\0';
771 			}
772 			break;
773 		default:
774 #if defined(CONFIG_BOOTP_VENDOREX)
775 			if (dhcp_vendorex_proc (popt))
776 				break;
777 #endif
778 			printf ("*** Unhandled DHCP Option in OFFER/ACK: %d\n", *popt);
779 			break;
780 		}
781 		popt += oplen + 2;	/* Process next option */
782 	}
783 }
784 
785 static int DhcpMessageType(unsigned char *popt)
786 {
787 	if (NetReadLong((ulong*)popt) != htonl(BOOTP_VENDOR_MAGIC))
788 		return -1;
789 
790 	popt += 4;
791 	while ( *popt != 0xff ) {
792 		if ( *popt == 53 )	/* DHCP Message Type */
793 			return *(popt + 2);
794 		popt += *(popt + 1) + 2;	/* Scan through all options */
795 	}
796 	return -1;
797 }
798 
799 static void DhcpSendRequestPkt(Bootp_t *bp_offer)
800 {
801 	volatile uchar *pkt, *iphdr;
802 	Bootp_t *bp;
803 	int pktlen, iplen, extlen;
804 	IPaddr_t OfferedIP;
805 
806 	debug("DhcpSendRequestPkt: Sending DHCPREQUEST\n");
807 	pkt = NetTxPacket;
808 	memset ((void*)pkt, 0, PKTSIZE);
809 
810 	pkt += NetSetEther(pkt, NetBcastAddr, PROT_IP);
811 
812 	iphdr = pkt;		/* We'll need this later to set proper pkt size */
813 	pkt += IP_HDR_SIZE;
814 
815 	bp = (Bootp_t *)pkt;
816 	bp->bp_op = OP_BOOTREQUEST;
817 	bp->bp_htype = HWT_ETHER;
818 	bp->bp_hlen = HWL_ETHER;
819 	bp->bp_hops = 0;
820 	bp->bp_secs = htons(get_timer(0) / 1000);
821 	/* Do not set the client IP, your IP, or server IP yet, since it hasn't been ACK'ed by
822 	 * the server yet */
823 
824 	/*
825 	 * RFC3046 requires Relay Agents to discard packets with
826 	 * nonzero and offered giaddr
827 	 */
828 	NetWriteIP(&bp->bp_giaddr, 0);
829 
830 	memcpy (bp->bp_chaddr, NetOurEther, 6);
831 
832 	/*
833 	 * ID is the id of the OFFER packet
834 	 */
835 
836 	NetCopyLong(&bp->bp_id, &bp_offer->bp_id);
837 
838 	/*
839 	 * Copy options from OFFER packet if present
840 	 */
841 
842 	/* Copy offered IP into the parameters request list */
843 	NetCopyIP(&OfferedIP, &bp_offer->bp_yiaddr);
844 	extlen = DhcpExtended((u8 *)bp->bp_vend, DHCP_REQUEST, NetDHCPServerIP, OfferedIP);
845 
846 	pktlen = ((int)(pkt-NetTxPacket)) + BOOTP_HDR_SIZE - sizeof(bp->bp_vend) + extlen;
847 	iplen = BOOTP_HDR_SIZE - sizeof(bp->bp_vend) + extlen;
848 	NetSetIP(iphdr, 0xFFFFFFFFL, PORT_BOOTPS, PORT_BOOTPC, iplen);
849 
850 	debug("Transmitting DHCPREQUEST packet: len = %d\n", pktlen);
851 #ifdef CONFIG_BOOTP_DHCP_REQUEST_DELAY
852 	udelay(CONFIG_BOOTP_DHCP_REQUEST_DELAY);
853 #endif	/* CONFIG_BOOTP_DHCP_REQUEST_DELAY */
854 	NetSendPacket(NetTxPacket, pktlen);
855 }
856 
857 /*
858  *	Handle DHCP received packets.
859  */
860 static void
861 DhcpHandler(uchar * pkt, unsigned dest, unsigned src, unsigned len)
862 {
863 	Bootp_t *bp = (Bootp_t *)pkt;
864 
865 	debug("DHCPHandler: got packet: (src=%d, dst=%d, len=%d) state: %d\n",
866 		src, dest, len, dhcp_state);
867 
868 	if (BootpCheckPkt(pkt, dest, src, len)) /* Filter out pkts we don't want */
869 		return;
870 
871 	debug("DHCPHandler: got DHCP packet: (src=%d, dst=%d, len=%d) state: %d\n",
872 		src, dest, len, dhcp_state);
873 
874 	switch (dhcp_state) {
875 	case SELECTING:
876 		/*
877 		 * Wait an appropriate time for any potential DHCPOFFER packets
878 		 * to arrive.  Then select one, and generate DHCPREQUEST response.
879 		 * If filename is in format we recognize, assume it is a valid
880 		 * OFFER from a server we want.
881 		 */
882 		debug("DHCP: state=SELECTING bp_file: \"%s\"\n", bp->bp_file);
883 #ifdef CONFIG_SYS_BOOTFILE_PREFIX
884 		if (strncmp(bp->bp_file,
885 			    CONFIG_SYS_BOOTFILE_PREFIX,
886 			    strlen(CONFIG_SYS_BOOTFILE_PREFIX)) == 0 ) {
887 #endif	/* CONFIG_SYS_BOOTFILE_PREFIX */
888 
889 			debug("TRANSITIONING TO REQUESTING STATE\n");
890 			dhcp_state = REQUESTING;
891 
892 			if (NetReadLong((ulong*)&bp->bp_vend[0]) == htonl(BOOTP_VENDOR_MAGIC))
893 				DhcpOptionsProcess((u8 *)&bp->bp_vend[4], bp);
894 
895 			NetSetTimeout(TIMEOUT, BootpTimeout);
896 			DhcpSendRequestPkt(bp);
897 #ifdef CONFIG_SYS_BOOTFILE_PREFIX
898 		}
899 #endif	/* CONFIG_SYS_BOOTFILE_PREFIX */
900 
901 		return;
902 		break;
903 	case REQUESTING:
904 		debug("DHCP State: REQUESTING\n");
905 
906 		if ( DhcpMessageType((u8 *)bp->bp_vend) == DHCP_ACK ) {
907 			char *s;
908 
909 			if (NetReadLong((ulong*)&bp->bp_vend[0]) == htonl(BOOTP_VENDOR_MAGIC))
910 				DhcpOptionsProcess((u8 *)&bp->bp_vend[4], bp);
911 			BootpCopyNetParams(bp); /* Store net params from reply */
912 			dhcp_state = BOUND;
913 			printf ("DHCP client bound to address %pI4\n", &NetOurIP);
914 
915 			/* Obey the 'autoload' setting */
916 			if ((s = getenv("autoload")) != NULL) {
917 				if (*s == 'n') {
918 					/*
919 					 * Just use BOOTP to configure system;
920 					 * Do not use TFTP to load the bootfile.
921 					 */
922 					NetState = NETLOOP_SUCCESS;
923 					return;
924 #if defined(CONFIG_CMD_NFS)
925 				} else if (strcmp(s, "NFS") == 0) {
926 					/*
927 					 * Use NFS to load the bootfile.
928 					 */
929 					NfsStart();
930 					return;
931 #endif
932 				}
933 			}
934 			TftpStart();
935 			return;
936 		}
937 		break;
938 	case BOUND:
939 		/* DHCP client bound to address */
940 		break;
941 	default:
942 		puts ("DHCP: INVALID STATE\n");
943 		break;
944 	}
945 
946 }
947 
948 void DhcpRequest(void)
949 {
950 	BootpRequest();
951 }
952 #endif	/* CONFIG_CMD_DHCP */
953