badpork/kolibrios
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

FTPC: improved error handeling in wait_for_servercommand

Browse Source 
git-svn-id: svn://kolibrios.org@9164 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
hidnplayr 2021-08-29 17:37:31 +00:00
parent 5736de5a6f
commit 261bcf35ff
1 changed files with 26 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
programs/network/ftpc/ftpc.asm
View File

@ -1,6 +1,6 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;
;; Copyright (C) KolibriOS team 2013-2018. All rights reserved. ;;
;; Copyright (C) KolibriOS team 2013-2021. All rights reserved. ;;
;; Distributed under terms of the GNU General Public License ;;
;; ;;
;; ftpc.asm - FTP client for KolibriOS ;;
@ -353,26 +353,36 @@ wait_for_servercommand: ;///////////////////////////////////////////////////////
add ecx, esi
jmp .byteloop
; receive socket data
; receive socket data with timeout
.receive:
mcall 26, 9
add eax, TIMEOUT*100
mov [timeout], eax
.receive_loop:
mcall 23, 50 ; Wait for event with timeout
mcall 26, 9
cmp eax, [timeout]
jl @f
mov eax, str_err_timeout
jmp error
@@: mcall recv, [controlsocket], buf_buffer1, BUFFERSIZE, MSG_DONTWAIT
test eax, eax
jnz .got_data
.again:
mcall recv, [controlsocket], buf_buffer1, BUFFERSIZE, MSG_DONTWAIT
cmp eax, 0
jg .got_data
je .closed
cmp ebx, EWOULDBLOCK
je @f
jne .sock_err
mcall 26, 9
mov ebx, [timeout]
sub ebx, eax
jle .timeout
mcall 23 ; Wait for event with timeout
jmp .again
.sock_err:
mov eax, str_err_recv
jmp error
@@: jmp .receive_loop
.closed:
mov eax, str_err_closed
jmp error
.timeout:
mov eax, str_err_timeout
jmp error
.got_data:
mov [offset], 0
@ -750,7 +760,7 @@ exit2:
; data
str_title db 'FTP client for KolibriOS',0
str_welcome db 'FTP client for KolibriOS v0.15b',10
str_welcome db 'FTP client for KolibriOS v0.16',10
db 10,0
str_srv_addr db 'Please enter ftp server address.',10,0
@ -758,6 +768,7 @@ str_prompt db '> ',0
str_resolve db 'Resolving ',0
str_newline db 10,0
str_err_resolve db 10,'Name resolution failed.',10,0
str_err_closed db 10,'The connection was closed by the remote end',10,0
str_err_socket db 10,'[75,0 socket]: Error creating a socket',10,0
str_err_bind db 10,'[75,2 bind]: Error binding to socket',10,0
str_err_listen db 10,'[75,3 listen]: Cannot accept incoming connections',10,0