[haver-commits] r970 - trunk/perl/server/lib/Haver/Server/Wheel

[haver]

Author: dylan
Date: 2006-03-04 17:29:12 -0500 (Sat, 04 Mar 2006)
New Revision: 970

Modified:
   trunk/perl/server/lib/Haver/Server/Wheel/Login.pm
Log:
fixed muffinbug, found crashbug, disabled GHOST until later today.


Modified: trunk/perl/server/lib/Haver/Server/Wheel/Login.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server/Wheel/Login.pm   2006-03-04 21:46:17 UTC 
(rev 969)
+++ trunk/perl/server/lib/Haver/Server/Wheel/Login.pm   2006-03-04 22:29:12 UTC 
(rev 970)
@@ -36,7 +36,7 @@
        $heap->{extensions} = \%ext;
        $self->undefine('msg_HAVER');
        $self->define('msg_IDENT', 'msg_IDENT');
-       $self->define('msg_GHOST', 'msg_GHOST');
+       #$self->define('msg_GHOST', 'msg_GHOST');
 }
 
 sub msg_GHOST {
@@ -52,13 +52,13 @@
                        call('fail', "unsupported");
                } else {
                        my $user = $lobby->get($ns, $name);
-                       if ((not $user->authenticated) and $user->address eq 
$heap->{address}) {
+                       if ((not $user->authenticated) and $user->full_address 
eq $heap->{address}) {
                                Log('notice', "Removing $ns/$name from &lobby");
                                $lobby->remove($ns, $name);
                                $user->call('shutdown', 'ghost');
                                call('msg_IDENT', [$name]);
                        } else {
-                               Log('notice', "$user->{address} ne 
$heap->{address}");
+                               Log('notice', "$user->{full_address} ne 
$heap->{address}");
                                call('fail', "ip.mismatch", $heap->{address});
                        }
                }


_______________________________________________
Haver-commits mailing list
Haver-commits@gna.org
https://mail.gna.org/listinfo/haver-commits