[ViewVC] Diff of: cvs/deliantra/server/ext/metaserver.ext

Comparing deliantra/server/ext/metaserver.ext (file contents):
Revision 1.2 by root, Sun Jan 21 21:28:27 2007 UTC vs.
Revision 1.6 by root, Sun Sep 9 12:52:48 2007 UTC

 #! perl
 # metaserver reports
-use IO::Socket::INET;
+use Coro::Socket;
 $cf::CFG{metaserver_comment}
    or return;
+our $VERSION = cf::VERSION;
+our $PREFIX  = "";
+our $SUFFIX  = "trt";
 our $UPDATE_METASERVER = Event->timer (
    reentrant => 0,
    after     => 5,
    interval  => 299,
+   hard      => 1,
    data      => cf::WF_AUTOCANCEL,
-   cb        => sub {
+   cb        => Coro::unblock_sub {
-      my $socket = new IO::Socket::INET
+      my $socket = new Coro::Socket
          Proto => 'udp',
          PeerAddr => $cf::CFG{metaserver_metaserver},
          LocalAddr => $cf::CFG{metaserver_serveraddr}
             or die "metaserver socket creation error: $!";
-      my $num_players = grep
+      my $num_players = cf::player::num_playing;
-         $_->ob->map
-         && !$_->hidden
-         && !$_->ob->flag (cf::FLAG_WIZ),
-         cf::player::list;
       my $pkt = sprintf "%s|%d|%s|%s|%d|%d|%d",
          $cf::CFG{metaserver_servername},
          $num_players,
-         cf::VERSION,
+         "$PREFIX$VERSION$SUFFIX",
          $cf::CFG{metaserver_comment},
          0, # ibytes
          0, # obytes
-         time - $cf::uptime;
+         time - $cf::UPTIME;
       syswrite $socket, $pkt;
    },
 );

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