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

2009-01-27 00:39 UTC+0100 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* contrib/examples/uhttpd/uhttpd.prg
    ! Fixed RTE when in socket.c mode.

  * contrib/examples/uhttpd/socket.c
    ! Fixed leak. Thanks to Mindaugas.

  ; TOFIX: Ajax test (404 Not Found),
           Counter (image not found),
           cgi-bin (broken link),
           XML database (empty boxes in Chrome, empty boxes
           and error messagebox with IE8)
           doesn't work here.

           Shall I configure something?
This commit is contained in:
Viktor Szakats
2009-01-26 23:43:30 +00:00
parent e06dda2c13
commit 23ade94f86
3 changed files with 27 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
harbour/ChangeLog
View File

@@ -8,6 +8,22 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2009-01-27 00:39 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* contrib/examples/uhttpd/uhttpd.prg
! Fixed RTE when in socket.c mode.
* contrib/examples/uhttpd/socket.c
! Fixed leak. Thanks to Mindaugas.
; TOFIX: Ajax test (404 Not Found),
Counter (image not found),
cgi-bin (broken link),
XML database (empty boxes in Chrome, empty boxes
and error messagebox with IE8)
doesn't work here.
Shall I configure something?
2009-01-27 00:21 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* contrib/examples/uhttpd/uhttpd.prg
+ Added callstack in RTE message (ugly but useful).

12
harbour/contrib/examples/uhttpd/socket.c
View File

@@ -203,7 +203,9 @@ HB_FUNC ( SOCKET_ACCEPT )
if( ISBYREF( 2 ) )
{
hb_itemParamStoreForward( 2, hb_itemPutSockaddr( NULL, &saddr ) );
PHB_ITEM pItem = hb_itemPutSockaddr( NULL, &saddr );
hb_itemParamStoreForward( 2, pItem );
hb_itemRelease( pItem );
}
}
@@ -398,7 +400,9 @@ HB_FUNC ( SOCKET_GETSOCKNAME )
hb_retni( getsockname( hb_parsocket( 1 ), &saddr, &iSize ) );
if( ISBYREF( 2 ) )
{
hb_itemParamStoreForward( 2, hb_itemPutSockaddr( NULL, &saddr ) );
PHB_ITEM pItem = hb_itemPutSockaddr( NULL, &saddr );
hb_itemParamStoreForward( 2, pItem );
hb_itemRelease( pItem );
}
}
@@ -411,7 +415,9 @@ HB_FUNC ( SOCKET_GETPEERNAME )
hb_retni( getpeername( hb_parsocket( 1 ), &saddr, &iSize ) );
if( ISBYREF( 2 ) )
{
hb_itemParamStoreForward( 2, hb_itemPutSockaddr( NULL, &saddr ) );
PHB_ITEM pItem = hb_itemPutSockaddr( NULL, &saddr );
hb_itemParamStoreForward( 2, pItem );
hb_itemRelease( pItem );
}
}

4
harbour/contrib/examples/uhttpd/uhttpd.prg
View File

@@ -777,7 +777,7 @@ LOCAL aI
IF socket_getsockname( hSocket, @aI ) != -1
_SERVER["SERVER_ADDR"] := aI[2]
_SERVER["SERVER_PORT"] := aI[3]
_SERVER["SERVER_PORT"] := LTrim( Str( aI[3] ) )
ENDIF
#endif
IF ParseRequest( cRequest )
@@ -978,7 +978,7 @@ LOCAL aI
IF socket_getsockname( hSocket, @aI ) != -1
_SERVER["SERVER_ADDR"] := aI[2]
_SERVER["SERVER_PORT"] := aI[3]
_SERVER["SERVER_PORT"] := LTrim( Str( aI[3] ) )
ENDIF
#endif