X-Git-Url: http://git.onelab.eu/?a=blobdiff_plain;f=planetlab%2Fexp-tool%2FMakefile;h=ef48321e87184db3d8d9536a96d81fc09fd73502;hb=b0fb94a346e52f36aeef238dd5f9bef9a10c14ef;hp=942160bda68343cfcab888ea09cc07c6e01752c2;hpb=a6ca7c672f6d5aaf24111d3414ea132ec36b40d6;p=sliver-openvswitch.git

diff --git a/planetlab/exp-tool/Makefile b/planetlab/exp-tool/Makefile
index 942160bda..ef48321e8 100644
--- a/planetlab/exp-tool/Makefile
+++ b/planetlab/exp-tool/Makefile
@@ -388,13 +388,28 @@ cache/port.%: cache/iface.% cache/switch.$$(call get,%)
 #
 # We need the IP address and the UDP port of the other side and the interace of this side.
 # We need to set the info again if any of these change.
-cache/endpoint.%: cache/host.$$(call rget,%) cache/port.$$(call opp,%) cache/iface.%
+cache/endpoint.%: cache/host.$$(call rget,%) cache/port.$$(call opp,%) cache/iface.% | cache/db.$$(call get,%)
 	@echo "Setting port number of link $(call linkpart,$(*F)) on $(call display,$(call get,$(*F))) - logs in $(call log,$@)"
 	@$(SSH) $(call solve,$(call get,$(*F))) $(SUDO) sliver-ovs set-remote-endpoint L$(call linkpart,$(*F)) \
 			$$(cat cache/host.$(call rget,$(*F))) \
 			$$(cat cache/port.$(call opp,$(*F))) 2> $(call log,$@)
 	@touch $@
 
+
+######################
+# testing
+######################
+
+test: $(foreach l,$(LINKS),test-$(l))
+
+test-%: ping-% ping-$$(call get,$$*@2)$(SEP)$$(call get,$$*@1)
+	@true
+
+ping-%: FORCE
+	@echo "Testing connectivity $(call get,$*@1) ===> $(call get,$*@2) - logs in $(call log,$@)"
+	@$(SSH) $(call solve,$(call get,$*@1)) ping -c 1 $(call solve_ip_addr,$(call get,$*@2)) > $(call log,$@) 2>&1
+	@echo "Connectivity $(call get,$*@1) ===> $(call get,$*@2) OK"
+
 ####################
 CLEANTARGETS=$(addprefix del-,$(notdir $(wildcard cache/bridge.*)))
 clean: $(CLEANTARGETS)
@@ -524,13 +539,7 @@ $(foreach host,$(EXTERNAL_HOSTS),showports-$(host)): ;
 $(foreach host,$(EXTERNAL_HOSTS),update-$(host)): ;
 $(foreach host,$(EXTERNAL_HOSTS),del-controller-$(host)): ;
 $(foreach host,$(EXTERNAL_HOSTS),cache/status.$(host)): ;
-$(foreach host,$(EXTERNAL_HOSTS),cache/db.$(host)): ;
-$(foreach host,$(EXTERNAL_HOSTS),cache/bridge.$(host)): ;
-$(foreach host,$(EXTERNAL_HOSTS),cache/switch.$(host)): ;
 $(foreach host,$(EXTERNAL_HOSTS),cache/controller.$(host)): ;
-$(foreach link,$(EXTERNAL_LINKS),cache/iface.$(link)@2): ;
-$(foreach link,$(EXTERNAL_LINKS),cache/port.$(link)@2): ;
-$(foreach link,$(EXTERNAL_LINKS),del-iface.$(link)@2): ;
 
 $(foreach host,$(EXTERNAL_HOSTS),cache/rsnap.ip.$(host)): ;
 	@touch $@
@@ -538,13 +547,59 @@ $(foreach host,$(EXTERNAL_HOSTS),cache/rsnap.ip.$(host)): ;
 $(foreach host,$(EXTERNAL_HOSTS),cache/rsnap.links.$(host)): ;
 	@touch $@
 
-# we assume that a program called tunproxy is available on the
-# external nodes.  
+$(foreach host,$(EXTERNAL_HOSTS),cache/db.$(host)):
+	@touch $@
+
+$(foreach host,$(EXTERNAL_HOSTS),del-db.$(host)): del-db.%:
+	@rm cache/db.$*
+
+$(foreach host,$(EXTERNAL_HOSTS),cache/switch.$(host)): ;
+	@touch $@
+
+$(foreach host,$(EXTERNAL_HOSTS),del-switch.$(host)): del-switch.%:
+	@rm -f cache/switch.$* \
+	       cache/port.$*$(SEP)*@1  cache/port.*$(SEP)$*@2  \
+	       cache/endpoint.$*$(SEP)*@2  cache/endpoint.*$(SEP)$*@1  \
+	       L/$*$(SEP)*	      L/*$(SEP)$* \
+	       cache/controller.$*
 
 .SECONDEXPANSION:
+
+$(foreach host,$(EXTERNAL_HOSTS),cache/bridge.$(host)): cache/bridge.%: | cache/db.%
+	@echo "Creating fake bridge on external host $(call display,$*)"
+	@touch $@
+
+$(foreach link,$(EXTERNAL_LINKS),cache/iface.$(link)@2): cache/iface.%: cache/bridge.$$(call get,%) | cache/db.$$(call get,%)
+	@echo "Creating fake interface for link $(call linkpart,$*) on external host $(call get,$*)"
+	@touch $@
+
+$(foreach link,$(EXTERNAL_LINKS),cache/port.$(link)@2): cache/port.%: cache/iface.% cache/switch.$$(call get,%)
+	@echo "Getting port number for link $(call linkpart,$(*F)) on external host $(call display,$(call get,$(*F)))"
+	@echo $(call default,EXTERNAL_PORT,$(call rightnode,$*)) > $@
+
+
+$(foreach link,$(EXTERNAL_LINKS),del-iface.$(link)@2): del-iface.%: | cache/db.$$(call get,%)
+	@echo "Removing fake interface for link $(call linkpart,$*) from external host $(call get,$*)"
+	@rm -f cache/iface.$* \
+	       cache/port.$* cache/endpoint.$* cache/endpoint.$(call opp,$*) \
+	       L/$(call linkpart,$*)
+
+$(foreach host,$(EXTERNAL_HOSTS),del-bridge.$(host)): del-bridge.%: | cache/db.%
+	@echo "Deleting fake bridge on external host $(call display,$*)"
+	@rm -f cache/bridge.$* \
+	      cache/iface.$*$(SEP)*@1 cache/iface.*$(SEP)$*@2 \
+	      cache/port.$*$(SEP)*@1  cache/port.*$(SEP)$*@2  \
+	      cache/endpoint.$*$(SEP)*@?  cache/endpoint.*$(SEP)$*@?  \
+	      L/$*$(SEP)*	      L/*$(SEP)$* \
+	      cache/controller.$*
+
+$(foreach link,$(EXTERNAL_LINKS),ping-$(call get,$(link)@2)$(SEP)$(call get,$(link)@1)): ping-%: FORCE
+	@echo "Test from external host $(call get,$*@1) to $(call get,$*@2) skipped"
+
+# we assume that a program called tunproxy is available on the
+# external nodes.  
 $(foreach link,$(EXTERNAL_LINKS),cache/endpoint.$(link)@2): cache/endpoint.%@2: cache/port.%@1 cache/host.$$(call leftnode,%)
 	@#echo $* [$<] [$^] $(call rightnode,$*)
-	@echo $(call default,EXTERNAL_PORT,$(call rightnode,$*)) > $@
 	@echo "===>" $(call rightnode,$*): \
 	   ./tunproxy -t $$(cat cache/host.$(call leftnode,$*)):$$(cat cache/port.$*@1) \
            -p $(call default,EXTERNAL_PORT,$(call rightnode,$*)) -e -d