Subversion Repositories Kolibri OS

        cmp     byte [esi+3], 0x20

        jae     @f

       @@:

        mov     eax, [esi]

        and     eax, not 0x20202020     ; convert to upper case

  .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 cmdCDUP

        db 'CWD', 0

        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

        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

cmdCDUP:

        cmp     byte [work_dir+1], 0

        je      .done

        mov     ecx, 1024

        xor     al, al

        repne   scasb

        std

        dec     edi

        mov     al,'/'

        scasb

        cld

        mov     byte[edi], 0

  .done:

        mcall   send, [socketnum2], str250, str250.length, 0    ; command successful

        ret

cmdCWD:                 ; Change Working Directory

        sub     ecx, 4

        jb      .err

  .scan:

        mov     edi, work_dir + 1

        cmp     byte [esi], '/'

        jne     @f

        dec     ecx

        jz      .done

       @@:

  .loop:

        lodsb

        jb      .done

        cmp     al, '.'

        je      .up

  .continue:

        stosb

        loop    .loop

  .done:

        cmp     byte [edi-1], '/'

        je      @f

        mov     byte [edi], '/'

        inc     edi

       @@:

        mov     byte [edi], 0

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

        lodsb

        jne     .continue

        call    cmdCDUP

        jmp     .scan

  .err:

cmdDELE:

        ret

cmdLIST:

; If we are in active mode, it's time to open a data socket..

        cmp     [mode], MODE_ACTIVE

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

        cmp     eax, -1

        je      socketerror

        mov     [datasocketnum], eax

  @@:

; Create fpath from home_dir and work_dir

        call    create_path

        push    fpath

        call    [con_write_asciiz]

        call    [con_write_asciiz]

; Start the search

        push    FA_ANY

        push    fpath

        call    [file.find.first]

        mov     edi, buffer

  .parse_file:

        jz      .done

        mov     edx, eax        ; yes, save the descripter

        test    [edx + FileInfoA.Attributes], FA_FOLDER

        test    [edx + 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, [edx + FileInfoA.FileSizeLow]

        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

; insert a cr lf

  .namedone:

        stosw

; check next file

        push    edx

        jmp     .parse_file

; close file desc

  .done:

        call    [file.find.close]

; append the string with a 0

        xor     al, al

; Warn the client we're about to send the data

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

; and send it to the client

        lea     esi, [edi - buffer]

; close the data socket..

        mcall   close, [datasocketnum]

        cmp     [mode], MODE_PASSIVE_OK

        jne     @f

      @@:

; And send "transfer ok" on the base connection

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

        ret

align 4

        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, 0x0a0d

        stosw

        xor     al, al

        stosb

        lea     esi, [edi - buffer]

cmdPWD:         ; Print Working Directory

        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:

        sub     ecx, 5

        jb      .cannot_open

        cmp     [mode], MODE_ACTIVE

        jne     @f

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

        pop     esi

        cmp     eax, -1

        je      socketerror

        mov     [datasocketnum], eax

  @@:

        push    esi

        call    create_path

        dec     edi

        add     esi, 5

        mov     ecx, 1024

  .loop:

        lodsb

        cmp     al, 0x20

        jl      .done

        stosb

        loop    .loop

  .done:

        xor     al, al

        stosb

        push    fpath

        call    [con_write_asciiz]

        call    [con_write_asciiz]

        push    O_READ

        push    fpath

        test    eax, eax

        jz      .cannot_open

        push    eax

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

  .read_more:

        push    BUFFERSIZE

        push    ebx

        call    [file.read]

        cmp     eax, -1

        je      .cannot_open    ; fixme: this is not the correct error

        push    eax

        push    ebx

        mcall   send, [datasocketnum], buffer, , 0

        pop     ebx

        pop     ecx

        cmp     eax, -1

        je      socketerror

        cmp     ecx, BUFFERSIZE

        je      .read_more

        mcall   close, [datasocketnum]

        jne     @f

      @@:

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

        call    [con_set_flags]

        push    str_notfound

        call    [con_write_asciiz]

        pushd   0x07

        call    [con_set_flags]

        mcall   send, [socketnum2], str550, str550.length, 0    ; file not found

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

create_path:            ; combine home_dir and work_dir strings into fpath

        mov     esi, home_dir

        mov     ecx, 1024

  .loop1:

        lodsb

        jz      .next

        stosb

        loop    .loop1

  .next:

        cmp     byte[edi-1], '/'

        jne     @f

       @@:

        mov     esi, work_dir

        mov     ecx, 1024

  .loop2:

        lodsb

        jz      .done

        stosb

        loop    .loop2

  .done:

        stosb

        ret

align 4

        pushd   0x0c

        call    [con_set_flags]

        push    str_sockerr

        call    [con_write_asciiz]

        pushd   0x07

        call    [con_set_flags]

        mcall   send, [socketnum2], str425, str425.length, 0    ; data connection error

.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

.length = $ - str250

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

.length = $ - str550