kolibrios/programs/network/ftpc/usercommands.inc
nisargshah95 dd8a86960b refactor code, add GUI and fix bugs
git-svn-id: svn://kolibrios.org@6582 a494cfbc-eb01-0410-851d-a64ba20cac60
2016-10-07 17:11:07 +00:00

281 lines
6.7 KiB
PHP

cmd_help:
push str_help
call [con_write_asciiz]
jmp wait_for_usercommand
cmd_bye:
; Send BYE message to the server
mov dword[buf_cmd], "BYE" + 13 shl 24
mov byte[buf_cmd+4], 10
mcall send, [controlsocket], buf_cmd, 5, 0
; Close the control connection
mcall close, [controlsocket]
ijmp eax, interface_addr, interface.server_addr
cmd_pwd:
mov dword[buf_cmd], "PWD" + 13 shl 24
mov byte[buf_cmd+4], 10
mcall send, [controlsocket], buf_cmd, 5, 0
jmp wait_for_servercommand
cmd_cwd:
mov dword[buf_cmd], "CWD "
mov ecx, 256
xor al, al
mov edi, buf_cmd
repne scasb
lea esi, [edi - buf_cmd]
mov word [edi - 2], 0x0a0d
mcall send, [controlsocket], buf_cmd, , 0
jmp wait_for_servercommand
cmd_dele:
mov dword[buf_cmd], "DELE"
mov byte[buf_cmd+4], " "
mov ecx, 256
xor al, al
mov edi, buf_cmd
repne scasb
lea esi, [edi - buf_cmd]
mov word [edi - 2], 0x0a0d
mcall send, [controlsocket], buf_cmd, , 0
jmp wait_for_servercommand
cmd_list:
call open_dataconnection
mov [operation], OPERATION_LIST
mov dword[buf_cmd], "LIST"
mov word[buf_cmd+4], 0x0a0d
mcall send, [controlsocket], buf_cmd, 6, 0
jmp wait_for_servercommand
cmd_retr:
call open_dataconnection
; Create/open the file
; TODO: check beforehand if the disk has enough free space available to store the file
mov esi, buf_cmd+5
mov ecx, 256-5
call set_filename
mov [filestruct.subfn], 2 ; create/rewrite file
mov [filestruct.offset], 0
mov [filestruct.offset+4], 0
mov [filestruct.size], 0
mov [filestruct.ptr], 0
mcall 70, filestruct
test eax, eax
jz @f
call error_fs
jmp close_datacon
@@:
; Prepare to write to the file
mov [filestruct.subfn], 3 ; write to file
mov [operation], OPERATION_RETR
; Request the file from server
mov dword[buf_cmd], "RETR"
mov byte[buf_cmd+4], " "
mov ecx, 256
xor al, al
mov edi, buf_cmd
repne scasb
lea esi, [edi - buf_cmd]
mov dword[edi - 2], 0x0a0d
mcall send, [controlsocket], buf_cmd, , 0
icall eax, interface_addr, interface.print, buf_cmd
jmp wait_for_servercommand
cmd_rdir:
mov [operation], OPERATION_RDIR
; Request filename list from the server
call open_dataconnection
mov [ptr_fname], 0
mov [size_fname], 0
mov dword[buf_cmd], "NLST"
mov word[buf_cmd+4], 0x0a0d
mcall send, [controlsocket], buf_cmd, 6, 0
jmp wait_for_servercommand
cmd_stor:
call open_dataconnection
mov [operation], OPERATION_STOR
; get file size
mov [filestruct.subfn], 5
mov [filestruct.offset], 0
mov [filestruct.offset+4], 0
mov [filestruct.size], 0
mov [filestruct.ptr], folder_buf
mov esi, buf_cmd+5
mov ecx, 256-5
call set_filename
mcall 70, filestruct
mov eax, dword[folder_buf+32] ; supports file size upto 4GB
mov [file_size], eax
mov [filestruct.subfn], 0 ; read file
; mov [filestruct.offset], 0
; mov [filestruct.offset+4], 0
mov [filestruct.size], BUFFERSIZE
mov [filestruct.ptr], buf_buffer2
mov dword[buf_cmd], "STOR"
mov byte[buf_cmd+4], " "
mov ecx, 256
xor al, al
mov edi, buf_cmd
repne scasb
lea esi, [edi - buf_cmd]
mov word [edi - 2], 0x0a0d
mcall send, [controlsocket], buf_cmd, , 0
jmp wait_for_servercommand
cmd_lcwd:
mov esi, buf_cmd+5
cmp byte[esi], 10
je .print
mov ecx, 256-5
.loop:
lodsb
cmp al, 10
je .check
test al, al
je .check
loop .loop
.check:
mov byte[esi-1], 0
; check whether entered path is valid (folder exists)
mov [filestruct2.subfn], 5
mov [filestruct2.offset], 0
mov [filestruct2.size], 0
mov [filestruct2.ptr], folder_buf
mov [filestruct2.name], buf_cmd+5
mcall 70, filestruct2
test eax, eax
jz @f
cmp eax, 2
je @f
call error_fs
jmp wait_for_usercommand
@@:
mcall 30, 1, buf_cmd+5 ; set working directory
.print:
mcall 30, 2, buf_cmd, 256 ; and read it again
icall eax, interface_addr, interface.print, str_lcwd, buf_cmd, str_newline
jmp wait_for_usercommand
cmd_cdup:
mov dword[buf_cmd], "CDUP"
mov word[buf_cmd+4], 0x0a0d
mcall send, [controlsocket], buf_cmd, 6, 0
jmp wait_for_servercommand
cmd_rmd:
mov dword[buf_cmd], "RMD "
mov ecx, 256
xor al, al
mov edi, buf_cmd
repne scasb
lea esi, [edi - buf_cmd]
mov word [edi - 2], 0x0a0d
mcall send, [controlsocket], buf_cmd, , 0
jmp wait_for_servercommand
cmd_mkd:
mov dword[buf_cmd], "MKD "
mov ecx, 256
xor al, al
mov edi, buf_cmd
repne scasb
lea esi, [edi - buf_cmd]
mov word [edi - 2], 0x0a0d
mcall send, [controlsocket], buf_cmd, , 0
jmp wait_for_servercommand
cmd_abor:
mcall close, [datasocket]
jmp wait_for_servercommand
; esi = source ptr
; ecx = max length of source buffer
set_filename:
mov edi, filestruct.name
.loop:
lodsb
test al, al
jz .done
cmp al, 10
je .done
stosb
loop .loop
.done:
xor al, al ; append a 0 byte
stosb
ret