luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[GB.NET.POP3]

Browse source 
* BUG: Remove obsolete code which was preventing successful compilation



git-svn-id: svn://localhost/gambas/trunk@5092 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Sebastian Kulesz 2012-08-28 04:22:04 +00:00
parent d0096ec9b9
commit d756207e91
2 changed files with 6 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
comp/src/gb.net.pop3/.src/SSLClient.class
View file

@ -85,11 +85,8 @@ Public Function GetLine() As String
Dim Response As String
Dim sLine As String
' Do While Lof(sSocket) = 0
' Wait 0.1
' Loop
While Response Not Ends Pop3Client.CRLF
Read #sProcess, sLine, Lof(sProcess)
Response &= sLine
@ -99,7 +96,7 @@ Public Function GetLine() As String
Error.Raise("Invalid POP response: " & Response)
Endif
Print Response
'Print Response
Return Response
@ -114,9 +111,6 @@ Public Function GetResponse() As String
While sLine <> Chr(46)
'If Lof(sSocket) = 0 Then Continue
' Read #sSocket, Response, Lof(sSocket)
Line Input #sProcess, sLine
Response &= sLine & "\n"
@ -124,7 +118,7 @@ Public Function GetResponse() As String
Wend
Print Response
'Print Response
Return Response

14
comp/src/gb.net.pop3/.src/TCPClient.class
View file

@ -17,8 +17,6 @@ Public sSocket As New Socket As "Client"
Public Sub _new()
Ready = False
'Wait 10 seconds before timing out
sSocket.Timeout = 10000
@ -124,11 +122,8 @@ Public Function GetLine() As String
Dim Response As String
Dim sLine As String
' Do While Lof(sSocket) = 0
' Wait 0.1
' Loop
While Response Not Ends Pop3Client.CRLF
Read #sSocket, sLine, Lof(sSocket)
Response &= sLine
@ -138,7 +133,7 @@ Public Function GetLine() As String
Error.Raise("Invalid POP response: " & Response)
Endif
Print Response
'Print Response
Return Response
@ -153,9 +148,6 @@ Public Function GetResponse() As String
While sLine <> Chr(46)
'If Lof(sSocket) = 0 Then Continue
' Read #sSocket, Response, Lof(sSocket)
Line Input #sSocket, sLine
Response &= sLine & "\n"
@ -163,7 +155,7 @@ Public Function GetResponse() As String
Wend
Print Response
'Print Response
Return Response