… | |
… | |
661 | our $MASTER_MON; |
661 | our $MASTER_MON; |
662 | our %LOCAL_DB; # this node database |
662 | our %LOCAL_DB; # this node database |
663 | |
663 | |
664 | our $GPROTO = 1; |
664 | our $GPROTO = 1; |
665 | |
665 | |
666 | # tell everybody who connects our nproto |
666 | # tell everybody who connects our gproto |
667 | push @AnyEvent::MP::Transport::HOOK_GREET, sub { |
667 | push @AnyEvent::MP::Transport::HOOK_GREET, sub { |
668 | $_[0]{local_greeting}{gproto} = $GPROTO; |
668 | $_[0]{local_greeting}{gproto} = $GPROTO; |
669 | }; |
669 | }; |
670 | |
670 | |
671 | ############################################################################# |
671 | ############################################################################# |