Subversion Repositories Kolibri OS

        cmp     byte [esi+3], 0x20

        jae     @f

       @@:

        mov     eax, [esi]

        and     eax, not 0x20202020     ; convert to upper case

        mov     edi, commands           ; list of commands to scan

  .scanloop:

        cmp     eax, [edi]

        jne     .try_next

        jmp     dword [edi+4]

        add     edi, 8

        jne     .scanloop

  .error:

        mcall   send, [socketnum2], str500, str500.length, 0

        ret

align 4

        db 'ABOR'

        dd cmdABOR

        dd cmdCWD

        db 'DELE'

        dd cmdDELE

        db 'LIST'

        dd cmdLIST

        db 'NLST'

        dd cmdNLST

        db 'NOOP'

        dd cmdNOOP

        db 'PASS'

        dd cmdPASS

        db 'PASV'

        dd cmdPASV

        db 'PWD', 0     ; Print Working Directory

        dd cmdPWD

        db 'PORT'

        dd cmdPORT

        db 'QUIT'

        dd cmdQUIT

        db 'RETR'

        dd cmdRETR

        db 'STOR'

        dd cmdSTOR

        db 'SYST'

        dd cmdSYST

        db 'TYPE'

        dd cmdTYPE

        db 'USER'

        dd cmdUSER

        db 'XPWD'

        dd cmdPWD

        db 0            ; end marker

align 4

        ret

cmdCWD:

        ret

cmdDELE:

        ret

cmdLIST:

        cmp     [mode], MODE_ACTIVE

        jne     @f

        cmp     eax, -1

        je      .err

  @@:

        mcall   send, [socketnum2], str150, str150.length, 0    ; here it comes..

        push    str_mask

        call    [file.find.first]

        mov     edi, buffer

        jmp     .parse_file

  .checknextfile:

        push    edx

  .parse_file:

        test    eax, eax

        mov     edx, eax

        test    [eax + FileInfoA.Attributes], FA_FOLDER

        test    [eax + FileInfoA.Attributes], FA_READONLY

        jnz     .readonly

        mov     eax, '-rw-'

        stosd

  .folder:

        mov     eax, 'drwx'

        jmp     .attr

  .readonly:

        mov     eax, '-r--'

  .attr:

        mov     eax, 'rw-r'

        mov     ax, 'w-'

        stosw

        mov     al, ' '

        stosb

; now..

        mov     ax, '1 '

; now write owner, everything is owned by FTP, woohoo!

        mov     eax, 'FTP '

        stosd

; now the filesize in ascii

        mov     ebx, dword [edx + FileInfoA.FileSize]

        mov     al, ' '

        stosb

; then date (month/day/year)

        movzx   ebx, [edx + FileInfoA.DateModify + FileDateTime.month]

        stosd

        movzx   ebx, [edx + FileInfoA.DateModify + FileDateTime.day]

        call    dword_to_ascii

        mov     al, ' '

        stosb

        movzx   ebx, [edx + FileInfoA.DateModify + FileDateTime.year]

        call    dword_to_ascii

        mov     al, ' '

        stosb

; and last but not least, filename

        lea     esi, [edx + FileInfoA.FileName]

  .nameloop:

        lodsb

        test    al, al

        jz      .namedone

        stosb

        loop    .nameloop

  .namedone:

        mov     ax, 0x0d0a

        jmp     .checknextfile

  .done:

        push    edx

        xor     al, al

        stosb

        push    buffer

        call    [con_write_asciiz]

        lea     esi, [edi - buffer]

        mcall   send, [datasocketnum], buffer, , 0

        mcall   close, [datasocketnum]

        jne     @f

      @@:

        mcall   send, [socketnum2], str226, str226.length, 0    ; transfer ok

        pushd   0x0c

        push    str_err1

        call    [con_write_asciiz]

        pushd   0x07

        call    [con_set_flags]

        ret

cmdNLST:

        ret

cmdNOOP:

        ret

cmdPASS:

        mcall   send, [socketnum2], str230, str230.length, 0

        call    [con_write_asciiz]

        mov     [state], STATE_ACTIVE

cmdPASV:

; 227 Entering Passive Mode (a1,a2,a3,a4,p1,p2)

; where a1.a2.a3.a4 is the IP address and p1*256+p2 is the port number.

        mcall   socket, AF_INET4, SOCK_STREAM, 0

        cmp     eax, -1

        mov     [passivesocknum], eax

        mov     [datasock.port], 2000

        mov     [datasock.ip], 0

        mcall   bind, [passivesocknum], datasock, datasock.length

        cmp     eax, -1

        mcall   listen, [passivesocknum], 1

        mov     eax, '227 '     ; FIXME (now hardcoded to 127.0.0.1:2000)

        mov     eax, '(127'

        stosd

        mov     eax, ',0,0'

        stosd

        mov     eax, ',1,7'

        stosd

        mov     eax, ',208'

        stosd

        mov     al, ')'

        stosb

        mov     ax, 0x0d0a

        stosw

        xor     al, al

        stosb

        lea     esi, [edi - buffer]

cmdPWD:

        mov     dword[buffer], '257 '

        mov     byte[buffer+4], '"'

        lea     edi, [buffer+5]

        mov     esi, work_dir

  .loop:

        lodsb

        or      al, al

        jz      .ok

        stosb

        dec     ecx

        jnz     .loop

  .ok:

        mov     dword[edi], '"' + 0x000a0d00    ; '"',13,10,0

        mcall   send, [socketnum2], buffer, , 0

;        push    str_pwd

        ret

cmdPORT:

; PORT a1,a2,a3,a4,p1,p2

; IP address a1.a2.a3.a4, port p1*256+p2

        mov     [mode], MODE_ACTIVE

        xor     edx, edx

        call    ascii_to_byte

        mov     dh, bl

        call    ascii_to_byte

        mov     dl, bl

        shl     edx, 16

        inc     esi

        call    ascii_to_byte

        mov     dh, bl

        inc     esi

        call    ascii_to_byte

        mov     dl, bl

        inc     esi

        mov     [datasock.ip], edx

        mov     dh, bl

        call    ascii_to_byte

        mov     dl, bl

        mov     [datasock.port], dx

        cmp     eax, -1

        mov     [datasocketnum], eax

        mcall   send, [socketnum2], str225, str225.length, 0

        ret

  .err:

        ret

align 4

cmdQUIT:

        mcall   send, [socketnum2], str221, str221.length, 0

        mcall   close, [socketnum2]

        ret

cmdRETR:

;        mcall   connect, [datasocketnum], datasock, datasock.length

;        cmp     eax, -1

;        push    O_READ

;        push    home_dir

;        test    eax, eax

;        jz      .cannot_open

;

;        push    BUFFERSIZE

;        push    buffer

;        push    eax

;        call    [file.read]

;        cmp     eax, -1

;        jz      .cannot_open

        ret

cmdSTOR:

        ret

cmdSYST:

        mcall   send, [socketnum2], str215, str215.length, 0

cmdTYPE:

        cmp     ecx, 6

        mov     al, byte[esi+5]

        and     al, not 0x20

        cmp     al, 'A'

        je      .ascii

        je      .ebdic

        cmp     al, 'I'

        je      .image

        cmp     al, 'L'

        je      .local

        jmp     parse_cmd.error

        mov     [type], TYPE_ASCII

  .ebdic:

        mov     [type], TYPE_EBDIC

  .subtype:

        jb      .non_print

        mov     al, byte[esi+7]

        and     al, not 0x20

        cmp     al, 'N'

        je      .non_print

        je      .telnet

        cmp     al, 'C'

        je      .asacc

        jmp     parse_cmd.error

        or      [type], TYPE_NP

  .telnet:

        or      [type], TYPE_TELNET

  .asacc:

        or      [type], TYPE_ASA

  .image:

        mov     [type], TYPE_IMAGE

  .local:

        cmp     ecx, 8

        mov     al, byte[esi+7]

        sub     al, '0'

        cmp     al, 9

        ja      parse_cmd.error

        or      al, TYPE_LOCAL

        mov     [type], al

  .ok:

        mcall   send, [socketnum2], str200, str200.length, 0

        ret

cmdUSER:

        mcall   send, [socketnum2], str331, str331.length, 0

        mov     [state], STATE_LOGIN

        mov     byte [work_dir], "/"

        mov     byte [work_dir+1], 0

        push    str_logged_in

        call    [con_write_asciiz]

        ret

        xor     ebx, ebx

        sub     al, '0'

        cmp     al, 9

        ja      .done

        lea     ebx, [ebx*4 + ebx]

        shl     ebx, 1

        add     ebx, eax

        inc     esi

        jmp     .loop

        ret

align 4

dword_to_ascii: ; edi = ptr where to write, ebx is number

        mov     eax, '1'

        stosb

        ret

.length = $ - str200

str215  db '215 UNIX type: L8', 13, 10

.length = $ - str215

str220  db '220 KolibriOS FTP Daemon 1.0', 13, 10

.length = $ - str220

str221  db '221 Bye!', 13, 10

.length = $ - str221

str225  db '225 Data connection open', 13, 10

.length = $ - str225

str226  db '226 Transfer OK, Closing connection', 13, 10

.length = $ - str226

str230  db '230 You are now logged in.', 13, 10

.length = $ - str230

str250  db '250 command successful', 13, 10

;str257  db '257 "'

;.length = $ - str257

;str257b db '"', 13, 10

;.length = $ - str257b

str331  db '331 Please specify the password.', 13, 10

.length = $ - str331

str421  db '421 Timeout!', 13, 10

.length = $ - str421

str425  db '425 Cant open data connection.', 13, 10

.length = $ - str425

str500  db '500 Unsupported command', 13, 10

.length = $ - str500

str550  db '550 No such file', 13, 10