… | |
… | |
5 | use IO::Socket::INET; |
5 | use IO::Socket::INET; |
6 | |
6 | |
7 | $cf::CFG{metaserver_comment} |
7 | $cf::CFG{metaserver_comment} |
8 | or return; |
8 | or return; |
9 | |
9 | |
10 | Event->timer (after => 5, interval => 299, cb => sub { |
10 | our $UPDATE_METASERVER = Event->timer (after => 5, interval => 299, data => cf::WF_AUTOCANCEL, cb => sub { |
11 | my $socket = new IO::Socket::INET |
11 | my $socket = new IO::Socket::INET |
12 | Proto => 'udp', |
12 | Proto => 'udp', |
13 | PeerAddr => $cf::CFG{metaserver_metaserver}, |
13 | PeerAddr => $cf::CFG{metaserver_metaserver}, |
14 | LocalAddr => $cf::CFG{metaserver_serveraddr} |
14 | LocalAddr => $cf::CFG{metaserver_serveraddr} |
15 | or die "metaserver socket creation error: $!"; |
15 | or die "metaserver socket creation error: $!"; |
… | |
… | |
21 | cf::player::list; |
21 | cf::player::list; |
22 | |
22 | |
23 | my $pkt = sprintf "%s|%d|%s|%s|%d|%d|%d", |
23 | my $pkt = sprintf "%s|%d|%s|%s|%d|%d|%d", |
24 | $cf::CFG{metaserver_servername}, |
24 | $cf::CFG{metaserver_servername}, |
25 | $num_players, |
25 | $num_players, |
26 | "2.0+", |
26 | cf::VERSION, |
27 | $cf::CFG{metaserver_comment}, |
27 | $cf::CFG{metaserver_comment}, |
28 | 0, # ibytes |
28 | 0, # ibytes |
29 | 0, # obytes |
29 | 0, # obytes |
30 | time - $cf::uptime; |
30 | time - $cf::uptime; |
31 | |
31 | |