Subversion Repositories Kolibri OS

Rev

Rev 2624 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2624 Rev 2635
Line 22... Line 22...
22 
        buffer          rb BUFFERSIZE
 22 
        buffer          rb BUFFERSIZE
Line 23... Line 23...
23 
ends
 23 
ends
24 
 
 24 
 
Line 25... Line -...
25 
 
 - 
 
26 
macro sendFTP str {
 - 
 
27 
local .string, .length, .label
 - 
 
28 
        xor     edi, edi
 - 
 
29 
        mcall   send, [ebp + thread_data.socketnum], .string, .length
 - 
 
30 
        jmp     @f
 - 
 
31 
.string db str, 13, 10
 - 
 
32 
.length = $ - .string
 - 
 
33 
@@:
 - 
 
34 
 
 - 
 
35 
}
 - 
 
36 
 
 - 
 
37 
;------------------------------------------------
 25 
;------------------------------------------------
38 
; parse_cmd
 26 
; parse_cmd
39 
;
 27 
;
40 
; Internal function wich uses the 'commands'
 28 
; Internal function wich uses the 'commands'
41 
;  table to call an appropriate cmd_xx function.
 29 
;  table to call an appropriate cmd_xx function.
Line 86... Line 74...
86 
 
 74 
 
87 
 
 75 
 
Line 88... Line 76...
88 
align 4
 76 
align 4
- 
 
 77 
iglobal
89 
commands:               ; all commands must be in uppercase
 78 
commands:               ; all commands must be in uppercase
Line 90... Line 79...
90 
 
 79 
 
91 
        dd 'ABOR', login_first, login_first, login_first, cmdABOR
 80 
        dd 'ABOR', login_first, login_first, login_first, cmdABOR
92 
;        dd 'ACCT', login_first, login_first, login_first, cmd_ACCT
 81 
;        dd 'ACCT', login_first, login_first, login_first, cmd_ACCT
Line 122... Line 111...
122 
        dd 'TYPE', login_first, login_first, login_first, cmdTYPE
 111 
        dd 'TYPE', login_first, login_first, login_first, cmdTYPE
123 
        dd 'USER', cmdUSER,     cmdUSER,     cmdUSER,     cmdUSER.2
 112 
        dd 'USER', cmdUSER,     cmdUSER,     cmdUSER,     cmdUSER.2
124 
        db 0    ; end marker
 113 
        db 0    ; end marker
125 
 
 114 
endg
126 
align 4
 115 
 
- 
 
 116 
align 4
Line 127... Line 117...
127 
login_first:
 117 
login_first:
128 
        sendFTP "530 Please login with USER and PASS"
 118 
        sendFTP "530 Please login with USER and PASS"
129 
        ret
 119 
        ret
130 
 
 120