Add a LINKTEST agent, that fires to all nodes. This is to support the

link testing stuff, and will eventually be under user control, but for
now we stick this agent into every experiment, although most of the
time no one will be listening for it.

lib/libtb/tbdefs.c

@@ -20,6 +20,7 @@ char *tbdb_objecttypes[] = {
 	TBDB_OBJECTTYPE_PROGRAM,
 	TBDB_OBJECTTYPE_FRISBEE,
 	TBDB_OBJECTTYPE_SIMULATOR,
+	TBDB_OBJECTTYPE_LINKTEST,
 	0,
 };
 

lib/libtb/tbdefs.h

@@ -35,6 +35,7 @@
 #define TBDB_OBJECTTYPE_PROGRAM	"PROGRAM"
 #define TBDB_OBJECTTYPE_FRISBEE	"FRISBEE"
 #define TBDB_OBJECTTYPE_SIMULATOR "SIMULATOR"
+#define TBDB_OBJECTTYPE_LINKTEST "LINKTEST"
 
 #define TBDB_EVENTTYPE_START	"START"
 #define TBDB_EVENTTYPE_STOP	"STOP"

sql/database-fill.sql

@@ -90,6 +90,7 @@ REPLACE INTO event_objecttypes VALUES (3,'TIME');
 REPLACE INTO event_objecttypes VALUES (4,'PROGRAM');
 REPLACE INTO event_objecttypes VALUES (5,'FRISBEE');
 REPLACE INTO event_objecttypes VALUES (6,'SIMULATOR');
+REPLACE INTO event_objecttypes VALUES (7,'LINKTEST');
 
 --
 -- Dumping data for table 'exported_tables'

tbsetup/ns2ir/sim.tcl.in

@@ -328,6 +328,9 @@ Simulator instproc run {} {
 
     # This could probably be elsewhere.
     $self spitxml_data "virt_agents" [list "vnode" "vname" "objecttype" ] [list "*" $self $objtypes(SIMULATOR) ]
+
+    # This will eventually be under user control.
+    $self spitxml_data "virt_agents" [list "vnode" "vname" "objecttype" ] [list "*" "linktest" $objtypes(LINKTEST) ]
     
     foreach event $event_list {
 	$self spitxml_data "eventlist" [list "time" "vnode" "vname" "objecttype" "eventtype" "arguments" "atstring" ] [list [lindex $event 0] [lindex $event 1] [lindex $event 2] $objtypes([lindex $event 3]) $eventtypes([lindex $event 4]) [lindex $event 5] [lindex $event 6] ]