[popfile-commit] engine/UI HTML.pm,1.162,1.163 HTTP.pm,1.3,1.4

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

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

Modified Files:
	HTML.pm HTTP.pm 
Log Message:
Comment and copyright updates

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.162
retrieving revision 1.163
diff -C2 -d -r1.162 -r1.163
*** HTML.pm	29 May 2003 04:40:09 -0000	1.162
--- HTML.pm	30 May 2003 19:39:18 -0000	1.163
***************
*** 2285,2290 ****
              $subject =~ s/\"(.*)\"/$1/g;
  
! # TODO            $from    = $self->{classifier__}->{parser}->decode_string( $from );
! # TODO            $subject = $self->{classifier__}->{parser}->decode_string( $subject );
  
              my ( $short_from, $short_subject ) = ( $from, $subject );
--- 2285,2292 ----
              $subject =~ s/\"(.*)\"/$1/g;
  
!             # TODO Interface violation here, need to clean up
! 
!             $from    = $self->{classifier__}->{parser__}->decode_string( $from );
!             $subject = $self->{classifier__}->{parser__}->decode_string( $subject );
  
              my ( $short_from, $short_subject ) = ( $from, $subject );

Index: HTTP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTTP.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** HTTP.pm	22 May 2003 17:00:20 -0000	1.3
--- HTTP.pm	30 May 2003 19:39:19 -0000	1.4
***************
*** 16,20 ****
  use locale;
  
! use IO::Socket;
  use IO::Select;
  
--- 16,20 ----
  use locale;
  
! use IO::Socket::INET qw(:DEFAULT :crlf);
  use IO::Select;
  
***************
*** 130,133 ****
--- 130,135 ----
                  # it to read any form POST content into $content
  
+                 $client->autoflush(1);
+ 
                  if ( ( defined( $client ) ) && ( my $request = <$client> ) ) {
                      my $content_length = 0;
***************
*** 149,153 ****
  
                      if ( $request =~ /^(GET|POST) (.*) HTTP\/1\./i ) {
-                         $client->autoflush(1);
                          $code = $self->handle_url( $client, $2, $1, $content );
                      } else {
--- 151,154 ----