[popfile-commit] engine/UI HTTP.pm,1.5,1.6

[<jgr...@us...>]

Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv21620/UI

Modified Files:
	HTTP.pm 
Log Message:
Remove log statements

Index: HTTP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTTP.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** HTTP.pm	30 May 2003 20:52:32 -0000	1.5
--- HTTP.pm	9 Jun 2003 18:34:36 -0000	1.6
***************
*** 108,117 ****
      if ( ( defined( $ready ) ) && ( $ready == $self->{server_} ) ) {
  
-         $self->log_( "Connection pending on HTTP socket" );
- 
          if ( my $client = $self->{server_}->accept() ) {
  
-             $self->log_( "Accepted connection on HTTP socket" );
- 
              # Check that this is a connection from the local machine, if it's not then we drop it immediately
              # without any further processing.  We don't want to allow remote users to admin POPFile
--- 108,113 ----
***************
*** 119,129 ****
              my ( $remote_port, $remote_host ) = sockaddr_in( $client->peername() );
  
-             $self->log_( "Got a connection from " . inet_ntoa( $remote_host ) . " on port $remote_port" );
- 
              if ( ( $self->config_( 'local' ) == 0 ) ||
                   ( $remote_host eq inet_aton( "127.0.0.1" ) ) ) {
  
-                  $self->log_( "Ready to receive HTTP command" );
- 
                  # Read the request line (GET or POST) from the client and if we manage to do that
                  # then read the rest of the HTTP headers grabbing the Content-Length and using
--- 115,121 ----
***************
*** 136,141 ****
                      my $content;
  
-                     $self->log_( "Received HTTP command $request" );
- 
                      while ( <$client> )  {
                          $content_length = $1 if ( /Content-Length: (\d+)/i );
--- 128,131 ----
***************
*** 143,148 ****
                      }
  
-                     $self->log_( "Content length $content_length" );
- 
                      if ( $content_length > 0 ) {
                          $content = '';
--- 133,136 ----
***************
*** 224,229 ****
      while ( $arguments =~ m/\G(.*?)=(.*?)(&|\r|\n|$)/g ) {
          my $arg = $1;
-         $self->{form_}{$arg} = $2;
  
          $self->{form_}{$arg} =~ s/\+/ /g;
  
--- 212,217 ----
      while ( $arguments =~ m/\G(.*?)=(.*?)(&|\r|\n|$)/g ) {
          my $arg = $1;
  
+         $self->{form_}{$arg} = $2;
          $self->{form_}{$arg} =~ s/\+/ /g;