You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2002/05/14 14:24:34 UTC

cvs commit: embperl Changes.pod epmain.c

richter     02/05/14 05:24:34

  Modified:    .        Tag: Embperl2c Changes.pod epmain.c
  Log:
  fix content length header in cgi mode
  
  Revision  Changes    Path
  No                   revision
  
  
  No                   revision
  
  
  1.129.4.67 +1 -1      embperl/Changes.pod
  
  Index: Changes.pod
  ===================================================================
  RCS file: /home/cvs/embperl/Changes.pod,v
  retrieving revision 1.129.4.66
  retrieving revision 1.129.4.67
  diff -u -r1.129.4.66 -r1.129.4.67
  --- Changes.pod	7 May 2002 10:50:33 -0000	1.129.4.66
  +++ Changes.pod	14 May 2002 12:24:33 -0000	1.129.4.67
  @@ -18,7 +18,7 @@
        Reported by Mike Wesemann.
      - readd possibility to build version with and without Apache support 
        on windows.
  -
  +   - Remove Content-Length: 0 HTTP-Header in CGI Mode
   
   =head1 2.0b7 (BETA) 21. Mar. 2002
   
  
  
  
  1.75.4.115 +3 -3      embperl/epmain.c
  
  Index: epmain.c
  ===================================================================
  RCS file: /home/cvs/embperl/epmain.c,v
  retrieving revision 1.75.4.114
  retrieving revision 1.75.4.115
  diff -u -r1.75.4.114 -r1.75.4.115
  --- epmain.c	7 May 2002 04:14:09 -0000	1.75.4.114
  +++ epmain.c	14 May 2002 12:24:33 -0000	1.75.4.115
  @@ -10,7 +10,7 @@
   #   IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
   #   WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
   #
  -#   $Id: epmain.c,v 1.75.4.114 2002/05/07 04:14:09 richter Exp $
  +#   $Id: epmain.c,v 1.75.4.115 2002/05/14 12:24:33 richter Exp $
   #
   ###################################################################################*/
   
  @@ -967,8 +967,8 @@
   	oputs (r, "Content-Type: ") ;
   	oputs (r, pContentType) ;
   	oputs (r, "\n") ;
  -	sprintf (txt, "Content-Length: %d\n", GetContentLength (r) + (r -> Component.pCurrEscape?2:0)) ;
  -	oputs (r, txt) ;
  +	//sprintf (txt, "Content-Length: %d\n", GetContentLength (r) + (r -> Component.pCurrEscape?2:0)) ;
  +	//oputs (r, txt) ;
   	if (pCookie)
   	    {
   	    oputs (r, "Set-Cookie") ;
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org