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

6
harbour/examples/httpsrv/modules/showcounter.prg
View File

@@ -60,10 +60,10 @@ MEMVAR _REQUEST // defined in uHTTPD
#include "gd.ch"
#ifdef __PLATFORM__UNIX
#define IMAGES_IN "../../hbgd/tests/digits/"
#define IMAGES_IN "../../../contrib/hbgd/tests/digits/"
#define IMAGES_OUT ( _SERVER[ "DOCUMENT_ROOT" ] + "/counter/" )
#else
#define IMAGES_IN "..\..\hbgd\tests\digits\"
#define IMAGES_IN "..\..\..\contrib\hbgd\tests\digits\"
#define IMAGES_OUT ( _SERVER[ "DOCUMENT_ROOT" ] + "\counter\" )
#endif
@@ -114,6 +114,8 @@ STATIC FUNCTION CreateCounter( cValue, cBaseImage )
//hb_ToOutDebug( "ERROR: Base Image File '" + IMAGES_IN + cBaseImage + "' not found" )
//THROW( "ERROR: Base Image File '" + IMAGES_IN + cBaseImage + "' not found" )
RETURN NIL
//ELSE
// hb_ToOutDebug( "ERROR: Base Image File '" + IMAGES_IN + cBaseImage + "' FOUND" )
ENDIF
nValue := Val( cValue )

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