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

2009-07-30 00:43 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* include/hbextern.ch
  * source/rtl/dateshb.c
    + Added HB_UTCOFFSET() -> <nSecs> core function to return UTC offset
      as signed number in seconds.

  * contrib/hbwin/win_misc.c
    + Copied WIN_SYSREFRESH() from httpsrv. Bit reworked (types, goto,
      64-bit compatibility, unnecessary outer loop), pls review.

  * examples/httpsrv/uhttpd.hbp
  - examples/httpsrv/uhttpdc.c
  * examples/httpsrv/uhttpd.prg
    * HB_UTCOFFSET() renamed to UHTTPD_UTCOFFSET() and rewritten as .prg.
    ! Using __PLATFORM__WINDOWS to enable WIN_SYSREFRESH() calls.
This commit is contained in:
Viktor Szakats
2009-07-29 22:46:19 +00:00
parent 4607e2fd7a
commit d518e481c5
7 changed files with 99 additions and 159 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
harbour/examples/httpsrv/uhttpd.prg
View File

@@ -607,7 +607,7 @@ FUNCTION MAIN( ... )
DO WHILE .T.
#ifdef USE_WIN_ADDONS
#ifdef __PLATFORM__WINDOWS
// windows resource releasing - 1 millisecond wait
IF WIN_SYSREFRESH( 1 ) != 0
EXIT
@@ -754,7 +754,7 @@ STATIC FUNCTION AcceptConnections()
// reset socket
hSocket := NIL
#ifdef USE_WIN_ADDONS
#ifdef __PLATFORM__WINDOWS
// releasing resources
IF WIN_SYSREFRESH( 1 ) != 0
lQuitRequest := TRUE
@@ -902,7 +902,7 @@ STATIC FUNCTION ProcessConnection()
// Reset socket
hSocket := NIL
#ifdef USE_WIN_ADDONS
#ifdef __PLATFORM__WINDOWS
// releasing resources
IF WIN_SYSREFRESH( 1 ) != 0
lQuitRequest := TRUE
@@ -1065,7 +1065,7 @@ STATIC FUNCTION ServiceConnection()
// Reset socket
hSocket := NIL
#ifdef USE_WIN_ADDONS
#ifdef __PLATFORM__WINDOWS
// releasing resources
IF WIN_SYSREFRESH( 1 ) != 0
lQuitRequest := TRUE
@@ -1505,7 +1505,7 @@ STATIC PROCEDURE WriteToLog( cRequest )
cDate := DTOS( dDate )
nSize := LEN( t_cResult )
cReferer := _SERVER[ "HTTP_REFERER" ]
cBias := hb_UTCOffset()
cBias := uhttpd_UTCOffset()
cAccess := _SERVER[ "REMOTE_ADDR" ] + " - - [" + RIGHT( cDate, 2 ) + "/" + ;
aMonths[ VAL( SUBSTR( cDate, 5, 2 ) ) ] + ;
@@ -2935,3 +2935,9 @@ STATIC FUNCTION GT_notifier( nEvent, xParams )
HB_SYMBOL_UNUSED( xParams )
RETURN nReturn
STATIC FUNCTION UHTTPD_UTCOFFSET()
LOCAL nOffset := HB_UTCOFFSET()
RETURN iif( nOffset < 0, "-", "+" ) +;
StrZero( nOffset / 3600, 2, 0 ) +;
StrZero( ( nOffset % 3600 ) / 60, 2, 0 )