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.4 by root, Mon Apr 16 06:23:41 2007 UTC vs.
Revision 1.6 by root, Sun Sep 9 12:52:48 2007 UTC

7$cf::CFG{metaserver_comment} 7$cf::CFG{metaserver_comment}
8 or return; 8 or return;
9 9
10our $VERSION = cf::VERSION; 10our $VERSION = cf::VERSION;
11our $PREFIX = ""; 11our $PREFIX = "";
12our $SUFFIX = "ng"; 12our $SUFFIX = "trt";
13 13
14our $UPDATE_METASERVER = Event->timer ( 14our $UPDATE_METASERVER = Event->timer (
15 reentrant => 0, 15 reentrant => 0,
16 after => 5, 16 after => 5,
17 interval => 299, 17 interval => 299,
22 Proto => 'udp', 22 Proto => 'udp',
23 PeerAddr => $cf::CFG{metaserver_metaserver}, 23 PeerAddr => $cf::CFG{metaserver_metaserver},
24 LocalAddr => $cf::CFG{metaserver_serveraddr} 24 LocalAddr => $cf::CFG{metaserver_serveraddr}
25 or die "metaserver socket creation error: $!"; 25 or die "metaserver socket creation error: $!";
26 26
27 my $num_players = grep 27 my $num_players = cf::player::num_playing;
28 $_->ob->map
29 && !$_->hidden
30 && !$_->ob->flag (cf::FLAG_WIZ),
31 cf::player::list;
32 28
33 my $pkt = sprintf "%s|%d|%s|%s|%d|%d|%d", 29 my $pkt = sprintf "%s|%d|%s|%s|%d|%d|%d",
34 $cf::CFG{metaserver_servername}, 30 $cf::CFG{metaserver_servername},
35 $num_players, 31 $num_players,
36 "$PREFIX$VERSION$SUFFIX", 32 "$PREFIX$VERSION$SUFFIX",
37 $cf::CFG{metaserver_comment}, 33 $cf::CFG{metaserver_comment},
38 0, # ibytes 34 0, # ibytes
39 0, # obytes 35 0, # obytes
40 time - $cf::uptime; 36 time - $cf::UPTIME;
41 37
42 syswrite $socket, $pkt; 38 syswrite $socket, $pkt;
43 }, 39 },
44); 40);
45 41

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines