r1545 - ofw/inet

Author: wmb
Date: 2009-12-06 23:52:21 +0100 (Sun, 06 Dec 2009)
New Revision: 1545

Modified:
   ofw/inet/dhcp.fth
Log:
Added brief DHCP progress reports.

Modified: ofw/inet/dhcp.fth
===================================================================
--- ofw/inet/dhcp.fth	2009-12-06 14:05:53 UTC (rev 1544)
+++ ofw/inet/dhcp.fth	2009-12-06 22:52:21 UTC (rev 1545)
@@ -297,6 +297,8 @@
       use-router?  if
          indent indent  ." BOOTP relay agent: " router-ip-addr .ipaddr cr
       then
+   else
+      ." got " my-ip-addr .ipaddr cr
    then
 ;

@@ -366,6 +368,8 @@
    bootnet-debug  if
       indent  ." DHCP Discover: requesting an IP address for "
       my-en-addr .enaddr cr
+   else
+      ." DHCP "
    then

init-backoff
@@ -374,7 +378,7 @@
       \ Enter SELECTING state
       choose-response                  ( timeout? )
    while                               ( )
-      " Timeout" .dhcp-msg
+      bootnet-debug  if  " Timeout" .dhcp-msg  else  ." Retry "  then

\ If too many retries, go to INIT state
       too-many?  if  true exit  then