--- deliantra/Deliantra-Client/DC/Protocol.pm	2006/06/11 17:13:20	1.28
+++ deliantra/Deliantra-Client/DC/Protocol.pm	2006/06/11 18:36:15	1.29
@@ -636,7 +636,17 @@
 
    $self->send_command ("output-sync $::CFG->{output_sync}");
    $self->send_command ("output-count $::CFG->{output_count}");
-   $self->send_command ("pickup $::CFG->{pickup}")
+   $self->send_command ("pickup $::CFG->{pickup}");
+
+   my @yesno = ("<span foreground='red'>no</span>", "<span foreground='green'>yes</span>");
+
+   $::SERVER_INFO->set_markup (
+      "server name:port <tt>$self->{host}:$self->{port}</tt>\n"
+    . "protocol version <tt>$self->{version}</tt>\n"
+    . "mapinfo support $yesno[$self->{setup}{mapinfocmd} > 0]\n"
+    . "extcmd support $yesno[$self->{setup}{extcmd} > 0]\n"
+    . "cfplus support $yesno[$self->{cfplus_ext} > 0]\n"
+   );
 }
 
 1;