full source documentation for ipv4.tcl file

Bug found by:
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:

diff --git a/ipv4.tcl b/ipv4.tcl
index d1df61d0b2f6086e3acc7f8261d1840d831ce948..e88ec5cb56077329dde613af7257fb3f5097d1b8 100755 (executable)
--- a/ipv4.tcl
+++ b/ipv4.tcl
@@ -77,7 +77,7 @@ proc findFreeIPv4Net { mask } {
 #   autoIPv4addr $node $iface 
 # FUNCTION
 #   automaticaly assignes an IPv4 address to the interface $iface of 
-#   of the node $node 
+#   of the node $node  
 # INPUTS
 #   node  - the node containing the interface to witch a new 
 #           IPv4 address should be assigned
@@ -142,6 +142,19 @@ proc autoIPv4addr { node iface } {
 }
 
 
+#****f* ipv4.tcl/autoIPv4defaultroute 
+# NAME
+#   autoIPvdefaultroute -- automaticaly assign a default route 
+# SYNOPSIS
+#   autoIPv4defaultroute $node $iface 
+# FUNCTION
+#   searches the interface of the node for a router, if a router is found
+#   then it is a new default gateway. 
+# INPUTS
+#   node  - default gateway is provided for this node 
+#   iface - the interface on witch we search for a new default gateway
+#****
+
 proc autoIPv4defaultroute { node iface } {
     if { [[typemodel $node].layer] != "NETWORK" } {
        #