Subversion Repositories Kolibri OS

STATUS_CONNECTING       = 0

STATUS_CONNECTING       = 0

STATUS_CONNECTED        = 1

STATUS_CONNECTED        = 1

STATUS_NEEDPASSWORD     = 2

STATUS_NEEDPASSWORD     = 2

STATUS_LOGGED_IN        = 3

STATUS_LOGGED_IN        = 3

OPERATION_STOR          = 2

OPERATION_STOR          = 3

use32

use32

; standard header

; standard header

open_dataconnection:                    ; only passive for now..

open_dataconnection:                    ; only passive for now..

        cmp     [status], STATUS_LOGGED_IN

        cmp     [status], STATUS_LOGGED_IN

        mov     word[s+4], 0x0a0d

        mcall   send, [socketnum], s, 6, 0

        mcall   send, [socketnum], str_PASV, str_PASV.length, 0

        ret

        ret

; data

; data

str_title       db 'FTP client',0

str_title       db 'FTP client',0

str_welcome     db 'FTP client for KolibriOS v0.09',10

str_welcome     db 'FTP client for KolibriOS v0.10',10

                db 10

                db 10

                db "retr      - retreive file from the server",10

                db "retr      - retreive file from the server",10

                db "rmd  - remove directory from the server",10

                db "rmd  - remove directory from the server",10

                db "stor      - store file on the server",10

                db "stor      - store file on the server",10

                db 10,0

                db 10,0

sockaddr1:

sockaddr1:

        dw AF_INET4

        dw AF_INET4

.port   dw 0x1500       ; 21

.port   dw 0x1500       ; 21

.ip     dd 0

.ip     dd 0