1 | #! perl |
1 | #! perl |
2 | |
2 | |
3 | # metaserver reports |
3 | # metaserver reports |
4 | |
4 | |
5 | use IO::Socket::INET; |
5 | use Coro::Socket; |
6 | |
6 | |
7 | $cf::CFG{metaserver_comment} |
7 | $cf::CFG{metaserver_comment} |
8 | or return; |
8 | or return; |
9 | |
9 | |
10 | our $UPDATE_METASERVER = Event->timer ( |
10 | our $VERSION = cf::VERSION; |
11 | reentrant => 0, |
11 | our $PREFIX = ""; |
12 | after => 5, |
12 | our $SUFFIX = "trt"; |
13 | interval => 299, |
|
|
14 | data => cf::WF_AUTOCANCEL, |
|
|
15 | cb => sub { |
|
|
16 | my $socket = new IO::Socket::INET |
|
|
17 | Proto => 'udp', |
|
|
18 | PeerAddr => $cf::CFG{metaserver_metaserver}, |
|
|
19 | LocalAddr => $cf::CFG{metaserver_serveraddr} |
|
|
20 | or die "metaserver socket creation error: $!"; |
|
|
21 | |
13 | |
22 | my $num_players = grep |
14 | our $UPDATE_METASERVER = cf::periodic 299, Coro::unblock_sub { |
23 | $_->ob->map |
15 | my $socket = new Coro::Socket |
24 | && !$_->hidden |
16 | Proto => 'udp', |
25 | && !$_->ob->flag (cf::FLAG_WIZ), |
17 | PeerAddr => $cf::CFG{metaserver_metaserver}, |
26 | cf::player::list; |
18 | LocalAddr => $cf::CFG{metaserver_serveraddr} |
|
|
19 | or die "metaserver socket creation error: $!"; |
27 | |
20 | |
28 | my $pkt = sprintf "%s|%d|%s|%s|%d|%d|%d", |
21 | my $num_players = cf::player::num_playing; |
29 | $cf::CFG{metaserver_servername}, |
|
|
30 | $num_players, |
|
|
31 | cf::VERSION, |
|
|
32 | $cf::CFG{metaserver_comment}, |
|
|
33 | 0, # ibytes |
|
|
34 | 0, # obytes |
|
|
35 | time - $cf::uptime; |
|
|
36 | |
22 | |
37 | syswrite $socket, $pkt; |
23 | my $pkt = sprintf "%s|%d|%s|%s|%d|%d|%d", |
38 | }, |
24 | $cf::CFG{metaserver_servername}, |
39 | ); |
25 | $num_players, |
|
|
26 | "$PREFIX$VERSION$SUFFIX", |
|
|
27 | $cf::CFG{metaserver_comment}, |
|
|
28 | 0, # ibytes |
|
|
29 | 0, # obytes |
|
|
30 | time - $cf::UPTIME; |
40 | |
31 | |
|
|
32 | syswrite $socket, $pkt; |
|
|
33 | }; |
|
|
34 | |