[haver-commits] r866 - in trunk/perl/server/lib/Haver/Server: Entity Wheel

[haver]

Author: dylan
Date: 2005-07-17 20:38:09 -0400 (Sun, 17 Jul 2005)
New Revision: 866

Modified:
   trunk/perl/server/lib/Haver/Server/Entity/Lobby.pm
   trunk/perl/server/lib/Haver/Server/Wheel/Login.pm
Log:
Fixed a bug with INFO on &lobby


Modified: trunk/perl/server/lib/Haver/Server/Entity/Lobby.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server/Entity/Lobby.pm  2005-07-18 00:23:15 UTC 
(rev 865)
+++ trunk/perl/server/lib/Haver/Server/Entity/Lobby.pm  2005-07-18 00:38:09 UTC 
(rev 866)
@@ -3,6 +3,7 @@
 package Haver::Server::Entity::Lobby;
 use strict;
 use warnings;
+use Haver::Server;
 use Haver::Server::Entity::Channel -base;
 use Haver::Logger 'Log';
 
@@ -10,12 +11,21 @@
 
 const name      => '&lobby';
 const namespace => 'lobby';
+const version   => "Haver::Server/$Haver::Server::VERSION";
 
 sub can_contain {
     my ($self, $object) = @_;
     $self != $object;
 }
 
+sub info {
+    my ($self) = shift;
+    return (
+        super(),
+        version => $self->version,
+    );
+}
+
 sub dump {
     my ($self, $store) = @_;
     my $data = super;

Modified: trunk/perl/server/lib/Haver/Server/Wheel/Login.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server/Wheel/Login.pm   2005-07-18 00:23:15 UTC 
(rev 865)
+++ trunk/perl/server/lib/Haver/Server/Wheel/Login.pm   2005-07-18 00:38:09 UTC 
(rev 866)
@@ -23,7 +23,7 @@
 
        Log('notice', 'Client is ' . $version);
        $heap->{client}->put(
-               ['HAVER', $heap->{info}{host}, 
"Haver::Server/$Haver::Server::VERSION"]);
+               ['HAVER', $heap->{info}{host}, $heap->{lobby}->version]);
        $heap->{version} = $version;
        my %ext;
        if ($ext) {