… | |
… | |
15 | our @DETECTORS; |
15 | our @DETECTORS; |
16 | our %DETECTORS; |
16 | our %DETECTORS; |
17 | |
17 | |
18 | sub _update_detectors { |
18 | sub _update_detectors { |
19 | $MAX_DETECT = List::Util::max map $_->[1], values %DETECTORS; |
19 | $MAX_DETECT = List::Util::max map $_->[1], values %DETECTORS; |
20 | |
|
|
21 | use Data::Dump; |
|
|
22 | ddx [$MAX_DETECT, \%DETECTORS]; |
|
|
23 | } |
20 | } |
24 | |
21 | |
25 | sub register($$$$) { |
22 | sub register($$$$) { |
26 | my ($name, $max_detect, $detect, $serve) = @_; |
23 | my ($name, $max_detect, $detect, $serve) = @_; |
27 | |
24 | |
… | |
… | |
36 | |
33 | |
37 | our $deliantra_detector = ext::tcp::register deliantra => 10, sub { |
34 | our $deliantra_detector = ext::tcp::register deliantra => 10, sub { |
38 | /^..version /s |
35 | /^..version /s |
39 | }, sub { |
36 | }, sub { |
40 | my $ns = cf::client::create fileno $_[1], $_[0]; |
37 | my $ns = cf::client::create fileno $_[1], $_[0]; |
|
|
38 | $ns->run; |
41 | $ns->inbuf_append ($_[2]); |
39 | $ns->inbuf_append ($_[2]); |
42 | }; |
40 | }; |
43 | |
41 | |
44 | for (@$BIND_ADDRESSES) { |
42 | for (@$BIND_ADDRESSES) { |
45 | my ($host, $port) = @$_; |
43 | my ($host, $port) = @$_; |