| … | |
… | |
| 4 | |
4 | |
| 5 | use Coro::Socket; |
5 | use Coro::Socket; |
| 6 | |
6 | |
| 7 | $cf::CFG{metaserver_comment} |
7 | $cf::CFG{metaserver_comment} |
| 8 | or return; |
8 | or return; |
|
|
9 | |
|
|
10 | our $VERSION = cf::VERSION; |
|
|
11 | our $PREFIX = ""; |
|
|
12 | our $SUFFIX = "ng"; |
| 9 | |
13 | |
| 10 | our $UPDATE_METASERVER = Event->timer ( |
14 | our $UPDATE_METASERVER = Event->timer ( |
| 11 | reentrant => 0, |
15 | reentrant => 0, |
| 12 | after => 5, |
16 | after => 5, |
| 13 | interval => 299, |
17 | interval => 299, |
| … | |
… | |
| 27 | cf::player::list; |
31 | cf::player::list; |
| 28 | |
32 | |
| 29 | my $pkt = sprintf "%s|%d|%s|%s|%d|%d|%d", |
33 | my $pkt = sprintf "%s|%d|%s|%s|%d|%d|%d", |
| 30 | $cf::CFG{metaserver_servername}, |
34 | $cf::CFG{metaserver_servername}, |
| 31 | $num_players, |
35 | $num_players, |
| 32 | cf::VERSION, |
36 | "$PREFIX$VERSION$SUFFIX", |
| 33 | $cf::CFG{metaserver_comment}, |
37 | $cf::CFG{metaserver_comment}, |
| 34 | 0, # ibytes |
38 | 0, # ibytes |
| 35 | 0, # obytes |
39 | 0, # obytes |
| 36 | time - $cf::uptime; |
40 | time - $cf::uptime; |
| 37 | |
41 | |
