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

2009-07-07 11:42 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* contrib/hbtip/client.prg
    % Further simplified proxy handling code.

  * ChangeLog
    ! Typos.
This commit is contained in:
Viktor Szakats
2009-07-07 09:42:52 +00:00
parent 33af4a8a73
commit fd35e70e7a
2 changed files with 18 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
harbour/ChangeLog
View File

@@ -17,6 +17,13 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-07-07 11:42 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* contrib/hbtip/client.prg
% Further simplified proxy handling code.
* ChangeLog
! Typos.
2009-07-07 11:18 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/config/dos/watcom.cf
* harbour/config/win/watcom.cf
@@ -44,8 +51,8 @@
Image now scales to bounding rectangle of the static object.
* harbour/contrib/hbxbp/tests/demoxbp.prg
! Updated to reflect above implementations.
Move mouse over the different parts. Also notice image in one of the
! Updated to reflect above implementations.
Move mouse over the different parts. Also notice image in one of the
static in group-box.
2009-07-07 01:13 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
@@ -84,7 +91,7 @@
* .cpp file rename.
This is to resolve short term problem msvc builds failing
due to too long command line length when assembling the library.
; TOFIX: On the mide term which whould split this huge lib into smaller
; TOFIX: On the mid term we should split this huge lib into smaller
pieces.
* Moved non-generated files to the top of the file list
to make them build first.

24
harbour/contrib/hbtip/client.prg
View File

@@ -240,17 +240,14 @@ METHOD Open( cUrl ) CLASS tIPClient
RETURN .T.
METHOD OpenProxy( cServer, nPort, cProxy, nProxyPort, cResp, cUserName, cPassWord, nTimeOut, cUserAgent ) CLASS tIPClient
LOCAL cRequest := ""
LOCAL cRequest
LOCAL lRet := .F.
LOCAL tmp
LOCAL lRet := .T.
LOCAL nResponseCode
LOCAL sResponseCode, nFirstSpace
::InetConnect( cProxy, nProxyPort, ::SocketCon )
IF ( tmp := ::InetErrorCode( ::SocketCon ) ) == 0
cRequest += "CONNECT " + cServer + ":" + hb_ntos( nPort ) + " HTTP/1.1" + Chr( 13 ) + Chr( 10 )
cRequest := "CONNECT " + cServer + ":" + hb_ntos( nPort ) + " HTTP/1.1" + Chr( 13 ) + Chr( 10 )
IF ! Empty( cUserAgent )
cRequest += "User-agent: " + cUserAgent + Chr( 13 ) + Chr( 10 )
ENDIF
@@ -261,18 +258,13 @@ METHOD OpenProxy( cServer, nPort, cProxy, nProxyPort, cResp, cUserName, cPassWor
::InetSendAll( ::SocketCon, cRequest )
cResp := ""
IF ::ReadHTTPProxyResponse( nTimeOut, @cResp )
nFirstSpace := At( " ", cResp )
IF nFirstSpace != 0
sResponseCode := Right( cResp, Len( cResp ) - nFirstSpace )
nResponseCode := Val( sResponseCode )
IF nResponseCode != 200
::close()
lRet := .F.
ENDIF
tmp := At( " ", cResp )
IF tmp > 0 .AND. Val( SubStr( cResp, tmp + 1 ) ) == 200
lRet := .T.
ENDIF
ELSE
ENDIF
IF ! lRet
::close()
lRet := .F.
ENDIF
ELSE
cResp := hb_ntos( tmp )