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

2009-04-30 18:49 UTC+0200 Francesco Saverio Giudice (info/at/fsgiudice.com)

Browse Source 
* harbour/examples/httpsrv/uhttpd.prg
    * Added some hb_ToOutDebug() points garded from DEBUG_ACTIVE define
      for debugging purpose
  * harbour/examples/httpsrv/modules/showcounter.prg
  * harbour/examples/httpsrv/modules/tableservletdb.prg
    * fixed path for current directory
      as now define all _SERVER variables
  * harbour/examples/httpsrv/cookie.prg
    * fixed error on deleting cookie
This commit is contained in:
Francesco Saverio Giudice
2009-07-30 16:54:13 +00:00
parent b3e422d967
commit 3f6a3e9ec3
5 changed files with 71 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/examples/httpsrv/modules/tableservletdb.prg
View File

@@ -55,9 +55,9 @@
#define CRLF ( chr(13)+chr(10) )
#ifdef __PLATFORM__WINDOWS
#define TABLE_NAME_PATH "..\..\..\..\tests\test.dbf"
#define TABLE_NAME_PATH "..\..\..\tests\test.dbf"
#else
#define TABLE_NAME_PATH "../../../../tests/test.dbf"
#define TABLE_NAME_PATH "../../../tests/test.dbf"
#endif
#define SIMULATE_SLOW_REPLY
@@ -157,11 +157,15 @@ RETURN Self
METHOD Open() CLASS TableManager
LOCAL cDBF := ::cTable
//hb_ToOutDebug( "CurPath = %s", CurDrive() + hb_osDriveSeparator() + HB_OSPathSeparator() + CurDir() )
//hb_ToOutDebug( "before: cDBF = %s, Used() = %s\n", cDBF, Used() )
IF !::lOpened
CLOSE ALL
USE ( cDBF ) ALIAS table SHARED NEW
//hb_ToOutDebug( "cDBF = %s, Used() = %s\n", cDBF, Used() )
//hb_ToOutDebug( "after: cDBF = %s, Used() = %s\n", cDBF, Used() )
::lOpened := USED()
ENDIF