#PNB: added by me for protoname
AODV_MITM #for implementing man in the middle attack using the AODV protocol
{
 set allhdrs [regsub -all {#.∗?\n} $protolist \n]; # strip comments from above
 foreachprot $allhdrs {
  add-packet-header $prot
}
Code Listing 1: Packet registration in ns-packet.tcl.