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

[haver]

Author: dylan
Date: 2005-11-22 14:39:24 -0500 (Tue, 22 Nov 2005)
New Revision: 936

Modified:
   trunk/perl/server/lib/Haver/Server/Talker.pm
   trunk/perl/server/lib/Haver/Server/Wheel/Login.pm
Log:
We don't like empty lines.


Modified: trunk/perl/server/lib/Haver/Server/Talker.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server/Talker.pm        2005-11-22 19:34:00 UTC 
(rev 935)
+++ trunk/perl/server/lib/Haver/Server/Talker.pm        2005-11-22 19:39:24 UTC 
(rev 936)
@@ -82,15 +82,16 @@
        return if $heap->{shutdown};
        
        unless (@$args) {
+               Log('warning', "Got an empty line.");
                if ($heap->{version}) {
                        call('shutdown', 'bork', 'Your line is empty');
-                       return;
                } else {
                        Log('warning', "My, isn't this a stupid one.");
                        $heap->{error} = 1;
                        $heap->{client} = undef;
                        call('shutdown');
                }
+               return;
        }
        my $cmd = shift @$args;
        my $event = 'msg_' . $cmd;

Modified: trunk/perl/server/lib/Haver/Server/Wheel/Login.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server/Wheel/Login.pm   2005-11-22 19:34:00 UTC 
(rev 935)
+++ trunk/perl/server/lib/Haver/Server/Wheel/Login.pm   2005-11-22 19:39:24 UTC 
(rev 936)
@@ -31,6 +31,7 @@
                        $ext{$n} = 1;
                }
        }
+       $heap->{haver} = 1;
        $heap->{extensions} = \%ext;
        $self->undefine('msg_HAVER');
        $self->define('msg_IDENT', 'msg_IDENT');