Update of /cvsroot/dhcp-agent/dhcp-agent/src
In directory sc8-pr-cvs1:/tmp/cvs-serv28928/src
Modified Files:
dhcp-client-guile.c
Log Message:
now correctly checking do-measure-router-latency
Index: dhcp-client-guile.c
===================================================================
RCS file: /cvsroot/dhcp-agent/dhcp-agent/src/dhcp-client-guile.c,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** dhcp-client-guile.c 25 Jun 2003 02:20:44 -0000 1.9
--- dhcp-client-guile.c 28 Jun 2003 17:33:55 -0000 1.10
***************
*** 391,394 ****
--- 391,417 ----
}
+ SCM scm_client_do_discover_icmp_latency(SCM scm_dc)
+ {
+ client_control_smob_t *client_control_smob;
+ dhcp_client_control_t *dc;
+
+ /* do assertions */
+ SCM_ASSERT(SCM_SMOB_PREDICATE(client_control_tag, scm_dc),
+ scm_dc, SCM_ARG1, "client-do-discover-icmp-latency");
+
+ /* client control. */
+ client_control_smob = (client_control_smob_t *)SCM_SMOB_DATA(scm_dc);
+ dc = client_control_smob->dc;
+
+ if(client_conf_get_do_measure_router_latency_icmp(dc->conf,
+ dhcp_client_get_server_ip_address(dc),
+ dhcp_client_get_server_hw_address(dc))) {
+ return SCM_BOOL_T;
+ } else {
+ return SCM_BOOL_F;
+ }
+
+ }
+
SCM scm_client_discover_icmp_latency(SCM scm_dc, SCM scm_address_list)
{
***************
*** 762,765 ****
--- 785,789 ----
scm_c_define_gsubr("client-get-default-mtu", 1, 0, 0, dhcp_scm_get_default_mtu);
scm_c_define_gsubr("client-get-default-subnet-mask", 1, 0, 0, dhcp_scm_get_default_subnet_mask);
+ scm_c_define_gsubr("client-do-discover-icmp-latency?", 1, 0, 0, scm_client_do_discover_icmp_latency);
scm_c_define_gsubr("client-configure?", 2, 0, 0, dhcp_scm_configurep);
scm_c_define_gsubr("client-info-message", 1, 0, 0, scm_client_info_message);
|
