Added a tiny bit more of utility to your brilliant plugin. Just type #door view and click a saylink to spawn the object.
Code:
if($arg[1] =~/view/i){ @doors = $entity_list->GetDoorsList();
foreach $door (@doors){
$client->Message(15, "ID: " . $door->GetDoorID() . " " . quest::saylink("#door create " . $door->GetModelName , 1, $door->GetModelName()));
}
}