[svn:p5ee] r6276 - p5ee/trunk/App-Context/lib/App/Context

Author: spadkins
Date: Tue May  9 14:46:03 2006
New Revision: 6276

Modified:
   p5ee/trunk/App-Context/lib/App/Context/Server.pm

Log:
cleaned up some aspects of an HTTP GET message

Modified: p5ee/trunk/App-Context/lib/App/Context/Server.pm
==============================================================================
--- p5ee/trunk/App-Context/lib/App/Context/Server.pm	(original)
+++ p5ee/trunk/App-Context/lib/App/Context/Server.pm	Tue May  9 14:46:03 2006
@@ -312,7 +312,7 @@
                             if ($msg =~ /^EXIT/i || $msg =~ /^QUIT/i) {
                                 $quit = 1;
                             }
-                            elsif ($msg =~ s/^GET//) {
+                            elsif ($msg =~ /^GET/) {
                                 $await_return_value = 1;
                                 my $content = $self->state();
                                 my $content_length = length($content);
@@ -330,7 +330,7 @@
                                 $return_value .= "\n" if ($return_value !~ /\n$/);
                             }
                             if ($await_return_value) {
-                                $self->log({level=>4},"Returned on socket($connection_fd) [$msg]\n") if ($msg !~ /^GET/);
+                                $self->log({level=>4},"Returned on socket($connection_fd) [$return_value]\n") if ($msg !~ /^GET/);
                                 $connection_socket->autoflush(1);
                                 $connection_socket->print($return_value);
                                 $connection_socket->getline() if (!$server_close);