Commit 4475f5ae authored by Leigh B. Stoller's avatar Leigh B. Stoller

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.
parent da2aca78
......@@ -20,6 +20,7 @@ char *tbdb_objecttypes[] = {
TBDB_OBJECTTYPE_PROGRAM,
TBDB_OBJECTTYPE_FRISBEE,
TBDB_OBJECTTYPE_SIMULATOR,
TBDB_OBJECTTYPE_LINKTEST,
0,
};
......
......@@ -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"
......
......@@ -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'
......
......@@ -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] ]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment