--- deliantra/server/ext/metaserver.ext	2007/01/21 21:28:27	1.2
+++ deliantra/server/ext/metaserver.ext	2007/04/16 15:19:59	1.5
@@ -2,18 +2,23 @@
 
 # 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 {
-      my $socket = new IO::Socket::INET
+   cb        => Coro::unblock_sub {
+      my $socket = new Coro::Socket
          Proto => 'udp',
          PeerAddr => $cf::CFG{metaserver_metaserver},
          LocalAddr => $cf::CFG{metaserver_serveraddr}
@@ -28,7 +33,7 @@
       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