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 ----
|
