ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/metaserver.ext
(Generate patch)

Comparing deliantra/server/ext/metaserver.ext (file contents):
Revision 1.1 by root, Fri Dec 15 19:29:18 2006 UTC vs.
Revision 1.7 by root, Wed Nov 14 08:09:46 2007 UTC

1#! perl 1#! perl
2 2
3# metaserver reports 3# metaserver reports
4 4
5use IO::Socket::INET; 5use Coro::Socket;
6 6
7$cf::CFG{metaserver_comment} 7$cf::CFG{metaserver_comment}
8 or return; 8 or return;
9 9
10our $UPDATE_METASERVER = Event->timer (after => 5, interval => 299, data => cf::WF_AUTOCANCEL, cb => sub { 10our $VERSION = cf::VERSION;
11our $PREFIX = "";
12our $SUFFIX = "trt";
13
14our $UPDATE_METASERVER = cf::periodic 299, Coro::unblock_sub {
11 my $socket = new IO::Socket::INET 15 my $socket = new Coro::Socket
12 Proto => 'udp', 16 Proto => 'udp',
13 PeerAddr => $cf::CFG{metaserver_metaserver}, 17 PeerAddr => $cf::CFG{metaserver_metaserver},
14 LocalAddr => $cf::CFG{metaserver_serveraddr} 18 LocalAddr => $cf::CFG{metaserver_serveraddr}
15 or die "metaserver socket creation error: $!"; 19 or die "metaserver socket creation error: $!";
16 20
17 my $num_players = grep 21 my $num_players = cf::player::num_playing;
18 $_->ob->map
19 && !$_->hidden
20 && !$_->ob->flag (cf::FLAG_WIZ),
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 cf::VERSION, 26 "$PREFIX$VERSION$SUFFIX",
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
32 syswrite $socket, $pkt; 32 syswrite $socket, $pkt;
33}); 33};
34

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines