2012-10-12 01:41 UTC+0200 Viktor Szakats (harbour syenar.net)

* extras/hbxlsxml/xlsxml.prg
    ! fixed missing UTF-8 mime-type svn prop

  * tests/gtkeys.prg
    ! fixed typo in recent mods causing it to fail under Clipper

  * contrib/hbunix/tests/testdmn.prg
  * contrib/xhb/tfile.prg
  * contrib/xhb/xhberr.prg
  * contrib/xhb/xhbtedit.prg
  * contrib/gtwvg/class.prg
  * contrib/gtwvg/tests/utils.prg
  * contrib/hbnf/dfile.prg
  * contrib/hbgd/tests/counter.prg
  * contrib/hbtip/tests/tipmime.prg
  * src/debug/debugger.prg
  * src/rtl/teditor.prg
  * src/rtl/typefile.prg
  * src/rdd/usrrdd/rdds/logrdd.prg
  * tests/testrdd2.prg
  * tests/inifiles.prg
  * extras/gtwvw/tests/drawimg.prg
  * extras/httpsrv/cgifunc.prg
  * extras/httpsrv/session.prg
    % File() -> hb_FileExists()
    ; pls review me in core

  * contrib/gtwvg/class.prg
  * contrib/gtwvg/menubar.prg
  * contrib/gtwvg/paint.prg
  * contrib/gtwvg/parthdlr.prg
  * contrib/gtwvg/tests/modal.prg
  * contrib/gtwvg/tests/utils.prg
  * contrib/gtwvg/toolbar.prg
    % VALTYPE() -> HB_IS*() and some related optimizations

  * tests/codebloc.prg
  * tests/newrdd.prg
  * tests/inkeytst.prg
  * tests/files.prg
  * tests/testrdd.prg
  * tests/wcecon.prg
  * tests/testrdd2.prg
  * tests/inifiles.prg
    * *LTRIM(STR()) -> hb_ntos()
      (keeping macro for Clipper where seemed necessary)
This commit is contained in:
Viktor Szakats
2012-10-11 23:46:23 +00:00
parent 627c64b8ac
commit 32b3c2a1cd
31 changed files with 157 additions and 101 deletions

View File

@@ -715,7 +715,7 @@ PROCEDURE uhttpd_WriteToLogFile( cString, cLog, lCreate )
IF cLog != NIL
IF !lCreate .AND. FILE( cLog )
IF !lCreate .AND. hb_FileExists( cLog )
nHandle := FOpen( cLog, FO_READWRITE + FO_SHARED )
ELSE
nHandle := hb_FCreate( cLog, FC_NORMAL, FO_READWRITE + FO_SHARED )

View File

@@ -596,7 +596,7 @@ METHOD SessionRead( cID ) CLASS uhttpd_Session
__defaultNIL( @cID, ::cSID )
cFile := ::cSavePath + hb_ps() + ::cName + "_" + cID
//TraceLog( "SessionRead: cFile", cFile )
IF File( cFile )
IF hb_FileExists( cFile )
DO WHILE nRetry++ <= ::nFileRetry
IF ( nH := FOpen( cFile, FO_READ + FO_DENYWRITE ) ) != F_ERROR
@@ -658,7 +658,7 @@ METHOD SessionWrite( cID, cData ) CLASS uhttpd_Session
ENDDO
ELSE
// If session data is empty, I will delete the file if exist
//IF File( cFile )
//IF hb_FileExists( cFile )
// FErase( cFile )
//ENDIF
// Return that all is ok