lock(%queue_changes);
$event_id = int(rand(25000));
%type = &event_hasher(\@event);