KolibriOS/kolibrios
13
14
Fork 12
Code Issues 113 Pull Requests 16 Actions Projects 1 Releases Wiki Activity

FTPc: send and receive files from applications working directory to servers working directory, also added dele and bye commands.

Browse Source 
git-svn-id: svn://kolibrios.org@3800 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
hidnplayr
2013-07-10 09:37:01 +00:00
parent 038f3f8566
commit 8f864f395b
3 changed files with 193 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

115
programs/network/ftpc/usercommands.inc
View File

@@ -1,14 +1,3 @@
cmd_list:
call open_dataconnection
mov dword[s], "LIST"
mov byte[s+4], 0x0a
mcall send, [socketnum], s, 5, 0
jmp wait_for_servercommand
cmd_help:
push str_help
@@ -16,6 +5,13 @@ cmd_help:
jmp wait_for_usercommand
cmd_bye:
mcall close, [socketnum]
mcall close, [datasocket]
jmp main
cmd_pwd:
mov dword[s], "PWD" + 10 shl 24
@@ -37,13 +33,10 @@ cmd_cwd:
jmp wait_for_servercommand
cmd_dele:
cmd_retr:
call open_dataconnection
mov dword[s], "RETR"
mov byte[s+4], " "
mov dword[s], "DELE"
mov byte[s], " "
mov ecx, 256
xor al, al
@@ -55,11 +48,72 @@ cmd_retr:
jmp wait_for_servercommand
cmd_list:
call open_dataconnection
mov [operation], OPERATION_LIST
mov dword[s], "LIST"
mov byte[s+4], 0x0a
mcall send, [socketnum], s, 5, 0
jmp wait_for_servercommand
cmd_retr:
call open_dataconnection
mov [operation], OPERATION_RETR
mov [filestruct.subfn], 2 ; create/rewrite file
mov [filestruct.offset], 0
mov [filestruct.offset+4], 0
mov [filestruct.size], 0
mov [filestruct.ptr], 0
lea esi, [s+5]
mov edi, filestruct.name
mov ecx, 256-5
call set_filename
mcall 70, filestruct
cmp eax, -1
; je fileerror
mov [filestruct.subfn], 3 ; write to file
mov dword[s], "RETR"
mov byte[s+4], " "
mov ecx, 256
xor al, al
mov edi, s
repne scasb
lea esi, [edi - s - 1]
mcall send, [socketnum], s, , 0
jmp wait_for_servercommand
cmd_stor:
call open_dataconnection
mov [operation], OPERATION_STOR
mov [filestruct.subfn], 0 ; read file
mov [filestruct.offset], 0
mov [filestruct.offset+4], 0
mov [filestruct.size], BUFFERSIZE
mov [filestruct.ptr], buffer_ptr2
lea esi, [s+5]
mov edi, filestruct.name
mov ecx, 256-5
call set_filename
mov dword[s], "STOR"
mov byte[s+4], " "
@@ -68,7 +122,30 @@ cmd_stor:
mov edi, s
repne scasb
lea esi, [edi - s - 1]
mcall send, [socketnum], s, , 0
jmp wait_for_servercommand
jmp wait_for_servercommand
; esi = source ptr
; edi = dest ptr
; ecx = max length of source buffer
set_filename:
.loop:
lodsb
test al, al
jz .done
cmp al, ' '
je .done
cmp al, 10
je .done
stosb
loop .loop
.done:
xor al, al ; append a 0 byte
stosb
ret