--- a/tools/dtnd-control	Wed Aug 03 14:35:09 2011 +0100
+++ b/tools/dtnd-control	Wed Aug 10 13:38:52 2011 +0100
@@ -5,6 +5,8 @@
 proc usage {} {
     puts stderr "dtnd-control \[-port port\] stop|check|logrotate|bundle_stats|daemon_stats"
     puts "|reset_stats|route_dump|link_dump|bundle_list|registration_list|gettimeofday"
+    puts "|\[-name name]\ link_open"
+    puts "|\[-name name]\ link_close"
     puts "|\[-id id]\ bundle_info"
     puts "|\[-id id]\ bundle_del"
     puts "|\[-id id]\ bundle_dump"
@@ -30,7 +32,7 @@
     }
 	
     switch -- $arg {
-	-port   { set port [shift argv] } -id { set id [shift argv] }
+	-port   { set port [shift argv] } -id { set id [shift argv] } -name { set name [shift argv] }
 	default {
 	    puts stderr "unknown argument $arg"
 	    usage
@@ -42,7 +44,7 @@
 set operation [shift argv]
 
 switch -- $operation {
-    stop - check - status - logrotate - daemon_stats - reset_stats - route_dump - link_dump - bundle_stats - bundle_list - bundle_info - bundle_del - bundle_expire - bundle_dump - registration_list - gettimeofday {}
+    stop - check - status - logrotate - daemon_stats - reset_stats - route_dump - link_dump - link_open - link_close - bundle_stats - bundle_list - bundle_info - bundle_del - bundle_expire - bundle_dump - registration_list - gettimeofday {}
     default {
 	puts "unknown operation $operation"
 	usage
@@ -89,6 +91,12 @@
 } elseif {$operation == "link_dump"} {
     set cmd "link dump"
 
+} elseif {$operation == "link_open"} {
+    set cmd "link open $name"
+
+} elseif {$operation == "link_close"} {
+    set cmd "link close $name"
+
 } elseif {$operation == "bundle_list"} {
     set cmd "bundle list"