forked from KolibriOS/kolibrios
227 lines
4.8 KiB
PHP
227 lines
4.8 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[s], "BYE" + 13 shl 24
|
|
mov byte[s+4], 10
|
|
mcall send, [socketnum], s, 5, 0
|
|
|
|
; Close the control connection
|
|
mcall close, [socketnum]
|
|
jmp main
|
|
|
|
|
|
cmd_pwd:
|
|
|
|
mov dword[s], "PWD" + 13 shl 24
|
|
mov byte[s+4], 10
|
|
mcall send, [socketnum], s, 5, 0
|
|
|
|
jmp wait_for_servercommand
|
|
|
|
|
|
cmd_cwd:
|
|
|
|
mov dword[s], "CWD "
|
|
|
|
mov ecx, 256
|
|
xor al, al
|
|
mov edi, s
|
|
repne scasb
|
|
lea esi, [edi - s]
|
|
mov word [edi - 2], 0x0a0d
|
|
|
|
mcall send, [socketnum], s, , 0
|
|
|
|
jmp wait_for_servercommand
|
|
|
|
|
|
cmd_dele:
|
|
|
|
mov dword[s], "DELE"
|
|
mov byte[s], " "
|
|
|
|
mov ecx, 256
|
|
xor al, al
|
|
mov edi, s
|
|
repne scasb
|
|
lea esi, [edi - s]
|
|
mov word [edi - 2], 0x0a0d
|
|
|
|
mcall send, [socketnum], s, , 0
|
|
|
|
jmp wait_for_servercommand
|
|
|
|
|
|
cmd_list:
|
|
call open_dataconnection
|
|
|
|
mov [operation], OPERATION_LIST
|
|
|
|
mov dword[s], "LIST"
|
|
mov word[s+4], 0x0a0d
|
|
mcall send, [socketnum], s, 6, 0
|
|
|
|
jmp wait_for_servercommand
|
|
|
|
|
|
cmd_retr:
|
|
call open_dataconnection
|
|
|
|
; Create/open the file
|
|
|
|
mov esi, s+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
|
|
cmp eax, -1
|
|
; je fileerror
|
|
|
|
; Prepare to write to the file
|
|
|
|
mov [filestruct.subfn], 3 ; write to file
|
|
mov [operation], OPERATION_RETR
|
|
|
|
; Request the file from server
|
|
|
|
mov dword[s], "RETR"
|
|
mov byte[s+4], " "
|
|
|
|
mov ecx, 256
|
|
xor al, al
|
|
mov edi, s
|
|
repne scasb
|
|
lea esi, [edi - s]
|
|
mov dword[edi - 2], 0x0a0d
|
|
mcall send, [socketnum], s, , 0
|
|
|
|
invoke con_write_asciiz, s ; print command
|
|
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
|
|
|
|
mov esi, s+5
|
|
mov ecx, 256-5
|
|
call set_filename
|
|
|
|
mov dword[s], "STOR"
|
|
mov byte[s+4], " "
|
|
|
|
mov ecx, 256
|
|
xor al, al
|
|
mov edi, s
|
|
repne scasb
|
|
lea esi, [edi - s]
|
|
mov word [edi - 2], 0x0a0d
|
|
mcall send, [socketnum], s, , 0
|
|
|
|
jmp wait_for_servercommand
|
|
|
|
|
|
cmd_lcwd:
|
|
|
|
mov esi, s+5
|
|
mov ecx, 256-5
|
|
.loop:
|
|
lodsb
|
|
cmp al, 10
|
|
je .done
|
|
test al, al
|
|
je .done
|
|
loop .loop
|
|
.done:
|
|
mov byte[esi-1], 0
|
|
mcall 30, 1, s+5 ; set working directory
|
|
mcall 30, 2, s, 256 ; and read it again
|
|
|
|
invoke con_write_asciiz, str_lcwd
|
|
invoke con_write_asciiz, s
|
|
invoke con_write_asciiz, str_newline
|
|
|
|
jmp wait_for_usercommand
|
|
|
|
|
|
cmd_cdup:
|
|
|
|
mov dword[s], "CDUP"
|
|
mov word[s+4], 0x0d0a
|
|
mcall send, [socketnum], s, 6, 0
|
|
|
|
jmp wait_for_servercommand
|
|
|
|
|
|
cmd_rmd:
|
|
|
|
mov dword[s], "RMD "
|
|
|
|
mov ecx, 256
|
|
xor al, al
|
|
mov edi, s
|
|
repne scasb
|
|
lea esi, [edi - s]
|
|
mov word [edi - 2], 0x0a0d
|
|
|
|
mcall send, [socketnum], s, , 0
|
|
|
|
jmp wait_for_servercommand
|
|
|
|
|
|
cmd_mkd:
|
|
|
|
mov dword[s], "MKD "
|
|
|
|
mov ecx, 256
|
|
xor al, al
|
|
mov edi, s
|
|
repne scasb
|
|
lea esi, [edi - s]
|
|
mov word [edi - 2], 0x0a0d
|
|
|
|
mcall send, [socketnum], s, , 0
|
|
|
|
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 |