#PNB: function definition for this function’s call online 626
Simulator instproc create-aodvmitm-agent {node} {
 #Create Aodvmitm routing agent
 set ragent [new Agent/AODV_MITM [$node node-addr]]
 $self at 0.0 “$ragent start”
 $node set ragent_ $ragent
  return $ragent
 }
Code Listing 3: Additions to ns-lib.tcl files.