[dhcp-agent-commits] dhcp-agent/conf default.sysconf,1.5,1.6

[<act...@us...>]

Update of /cvsroot/dhcp-agent/dhcp-agent/conf
In directory sc8-pr-cvs1:/tmp/cvs-serv22796/conf

Modified Files:
	default.sysconf 
Log Message:
sysconf now does latency checking before adding default route

Index: default.sysconf
===================================================================
RCS file: /cvsroot/dhcp-agent/dhcp-agent/conf/default.sysconf,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** default.sysconf	25 May 2003 03:01:20 -0000	1.5
--- default.sysconf	8 Jun 2003 22:15:24 -0000	1.6
***************
*** 139,146 ****
         (real-configure-default-route
          (lambda()
!           (begin
!             (client-info-message (string-append "adding default route to: " (car dhcp-routers)))
!             (client-set-default-route client-control (car dhcp-routers))
!             (set! configured-default-route (car dhcp-routers)))))
  
         (real-unconfigure-default-route
--- 139,162 ----
         (real-configure-default-route
          (lambda()
! 
!           ; we need to check for latency so we can call client-discovery-icmp-latency
!           ; which sends out icmp echo messages and the latency value associated with it
!           ;
! 
!           (let ((routers (sort (client-discover-icmp-latency client-control dhcp-routers)
!                                (lambda (x y) (< (car x) (car y))))))
! 
!             (if (null? routers)
!                 (begin
!                   (client-error-message "default routes not responding. defaulting to first one in list")
!                   (client-set-default-route client-control (car (dhcp-routers)))
!                   (set! configured-default-route (car dhcp-routers)))
! 
!                 (let ((default-route (car (cdr (car routers)))))
!                   (display default-route)
!                   (newline)
!                   (client-info-message (string-append "adding default route to: " default-route))
!                   (client-set-default-route client-control default-route)
!                   (set! configured-default-route default-route))))))
  
         (real-unconfigure-default-route
***************
*** 169,173 ****
                (real-unconfigure-default-route)))))
  
- 
  ; After everything is defined set to hooks
  ;
--- 185,188 ----
***************
*** 196,198 ****
  (add-hook! dhcp-release-hook unconfigure-dns)
  (add-hook! dhcp-release-hook unconfigure-default-route)
! (add-hook! dhcp-release-hook reconfigure-interface)
\ No newline at end of file
--- 211,213 ----
  (add-hook! dhcp-release-hook unconfigure-dns)
  (add-hook! dhcp-release-hook unconfigure-default-route)
! (add-hook! dhcp-release-hook reconfigure-interface)