[popfile-commit] engine/UI HTTP.pm,1.7,1.8

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

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

Modified Files:
	HTTP.pm 
Log Message:
Handle the case where Norton Internet Security sends through an invalid HTTP header

Index: HTTP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTTP.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** HTTP.pm	14 Jun 2003 21:10:13 -0000	1.7
--- HTTP.pm	23 Jun 2003 22:34:37 -0000	1.8
***************
*** 130,134 ****
                      while ( <$client> )  {
                          $content_length = $1 if ( /Content-Length: (\d+)/i );
!                         last                 if ( !/[A-Z]/i );
                      }
  
--- 130,145 ----
                      while ( <$client> )  {
                          $content_length = $1 if ( /Content-Length: (\d+)/i );
! 
!                         # Discovered that Norton Internet Security was adding
!                         # HTTP headers of the form
!                         #
!                         # ~~~~~~~~~~~~~~: ~~~~~~~~~~~~~
!                         #
!                         # which we were not recognizing as valid (surprise,
!                         # surprise) and this was messing about our handling
!                         # of POST data.  Changed the end of header identification
!                         # to any line that does not contain a :
! 
!                         last                 if ( !/:/i );
                      }