[haver-commits] r902 - in trunk/perl/server/lib/Haver/Server: . Wheel

[haver]

Author: dylan
Date: 2005-08-01 11:04:37 -0400 (Mon, 01 Aug 2005)
New Revision: 902

Modified:
   trunk/perl/server/lib/Haver/Server/Talker.pm
   trunk/perl/server/lib/Haver/Server/Wheel/Main.pm
Log:
Fixed.


Modified: trunk/perl/server/lib/Haver/Server/Talker.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server/Talker.pm        2005-08-01 15:04:21 UTC 
(rev 901)
+++ trunk/perl/server/lib/Haver/Server/Talker.pm        2005-08-01 15:04:37 UTC 
(rev 902)
@@ -85,6 +85,7 @@
        my $cmd = shift @$args;
        my $event = 'msg_' . $cmd;
        
+       Log('info', 'Cmd Stack: ', join(", ", @{ $heap->{cmd} || [] }));
        Log('info', "Command: '$cmd'");
        push @{ $heap->{cmd} }, $cmd;
        call('schedule_ping');
@@ -94,6 +95,7 @@
 
 sub fail {
        my ($kernel, $heap, $err, @args) = @_[KERNEL, HEAP, ARG0 .. $#_];
+       Log('info', "Failing client on command $heap->{cmd}[-1] with error 
$err");
        $heap->{client}->put(['FAIL', $heap->{cmd}[-1], $err, @args]);
 }
 

Modified: trunk/perl/server/lib/Haver/Server/Wheel/Main.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server/Wheel/Main.pm    2005-08-01 15:04:21 UTC 
(rev 901)
+++ trunk/perl/server/lib/Haver/Server/Wheel/Main.pm    2005-08-01 15:04:37 UTC 
(rev 902)
@@ -14,7 +14,7 @@
                qw(
                        TO IN BYE POKE PONG
                        JOIN OPEN PART LIST
-                       INFO
+                       INFO 
                )
        );