fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-11-10 20:55 UTC+0100 Viktor Szakats (harbour syenar.net)

Browse Source 
* src/rtl/hbgtcore.c
    * changed HB_GTI_COMPATBUFFER default to be Clipper
      compatible. INCOMPATIBLE compared to 3.2 versions,
      but restores the compatibility with previous ones
      and Clipper. Applications using Unicode, must now 
      manually change these buffers to be Unicode 
      compatible using:
         #include "hbgtinfo.ch"
         hb_gtInfo( HB_GTI_COMPATBUFFER, .F. )

  * include/assert.ch
  * include/hbclass.ch
  * contrib/rddads/ads.ch
  * contrib/xhb/hbdll.ch
  * contrib/xhb/hblog.ch
  * contrib/xhb/ttable.ch
    ! use 'END' instead of 'ENDIF' consistently
      in command translated code. (most of these
      is result of recent regression)

  * contrib/gtwvg/class.prg
  * contrib/gtwvg/combobox.prg
  * contrib/gtwvg/crt.prg
  * contrib/gtwvg/menubar.prg
  * contrib/gtwvg/statbar.prg
  * contrib/gtwvg/static.prg
  * contrib/gtwvg/syswnd.prg
  * contrib/gtwvg/tests/_modal.prg
  * contrib/gtwvg/wnd.prg
  * contrib/hbgd/tests/test_out.prg
  * contrib/hbmysql/tmysql.prg
  * contrib/xhb/decode.prg
  * contrib/xhb/xhbtedit.prg
  * extras/hbdoc/hbdoc.prg
  * extras/httpsrv/cgifunc.prg
  * extras/httpsrv/session.prg
    % deleted excessive parenthesis
    ! fixed some '- 1' to '-1' in older hbformatted
      code

  * extras/gtwvw/tests/_wvwmous.prg
  * extras/gtwvw/tests/wvt2wvw.ch
  * extras/hbvpdf/core.prg
  * extras/httpsrv/uhttpd.prg
  * extras/rddado/adordd.ch
  * include/hbsix.ch
    * minor cleanups
This commit is contained in:
Viktor Szakats
2012-11-10 20:04:37 +00:00
parent 45a48cc8d0
commit 3f4cf28f68
30 changed files with 154 additions and 117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
harbour/extras/httpsrv/uhttpd.prg
View File

@@ -1159,15 +1159,15 @@ STATIC FUNCTION ParseRequest( cRequest )
_SERVER[ "SCRIPT_NAME" ] := hUrl[ "URI" ]
_SERVER[ "QUERY_STRING" ] := hUrl[ "QUERY" ]
/*
IF ( nI := AT( "?", _SERVER[ "REQUEST_URI" ] ) ) > 0
_SERVER[ "SCRIPT_NAME" ] := LEFT( _SERVER[ "REQUEST_URI" ], nI - 1)
_SERVER[ "QUERY_STRING" ] := SUBSTR( _SERVER[ "REQUEST_URI" ], nI + 1)
#if 0
IF ( nI := At( "?", _SERVER[ "REQUEST_URI" ] ) ) > 0
_SERVER[ "SCRIPT_NAME" ] := Left( _SERVER[ "REQUEST_URI" ], nI - 1 )
_SERVER[ "QUERY_STRING" ] := SubStr( _SERVER[ "REQUEST_URI" ], nI + 1 )
ELSE
_SERVER[ "SCRIPT_NAME" ] := _SERVER[ "REQUEST_URI" ]
_SERVER[ "QUERY_STRING" ] := ""
ENDIF
*/
#endif
FOR nI := 2 TO Len( aRequest )
IF aRequest[ nI ] == ""; EXIT
@@ -1682,15 +1682,6 @@ PROCEDURE uhttpd_SetHeader( cType, cValue )
FUNCTION uhttpd_GetHeader( cType )
RETURN uhttpd_HGetValue( _HTTP_RESPONSE, cType )
/*
__defaultNIL( @nPos, 1 )
nPos := hb_HPos( hHash, cKey ))
IF ( nPos := ASCAN( t_aHeader, {| x | UPPER( x[ 1 ] ) == UPPER( cType ) }, nPos ) ) > 0
RETURN t_aHeader[ nPos, 2 ]
ENDIF
RETURN NIL
*/
PROCEDURE uhttpd_DelHeader( cType )
@@ -1701,14 +1692,6 @@ PROCEDURE uhttpd_DelHeader( cType )
ENDIF
RETURN
/*
LOCAL nI
IF ( nI := ASCAN( t_aHeader, {| x | UPPER( x[ 1 ] ) == UPPER( cType ) } ) ) > 0
hb_aDel( t_aHeader, nI, .T. )
ENDIF
RETURN
*/
PROCEDURE uhttpd_Write( cString )
@@ -2817,7 +2800,7 @@ STATIC FUNCTION Handler_CgiScript( cFileName )
WriteToConsole( "Executing: " + cFileName )
IF ( CGIExec( uhttpd_OSFileName( cFileName ), @xResult ) ) == 0
IF CGIExec( uhttpd_OSFileName( cFileName ), @xResult ) == 0
// uhttpd_SetHeader( "Content-Type", cI )
// uhttpd_Write( xResult )