steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ftp.server: use C: for ftp-get and ftp-put.

db4
John Benediktsson 2014-11-30 08:43:50 -08:00
parent 818f337b02
commit ec0c896ed3
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/ftp/server/server.factor
View File

@ -26,14 +26,10 @@ TUPLE: ftp-command raw tokenized ;
swap tokenize >>tokenized ; swap tokenize >>tokenized ;
TUPLE: ftp-get path ; TUPLE: ftp-get path ;
: <ftp-get> ( path -- obj ) C: <ftp-get> ftp-get
ftp-get new
swap >>path ;
TUPLE: ftp-put path ; TUPLE: ftp-put path ;
: <ftp-put> ( path -- obj ) C: <ftp-put> ftp-put
ftp-put new
swap >>path ;
TUPLE: ftp-list ; TUPLE: ftp-list ;
C: <ftp-list> ftp-list C: <ftp-list> ftp-list
@ -81,6 +77,7 @@ C: <ftp-disconnect> ftp-disconnect
} 1&& ; } 1&& ;
: ftp-error ( string -- ) 500 server-response ; : ftp-error ( string -- ) 500 server-response ;
: ftp-unimplemented ( string -- ) 502 server-response ; : ftp-unimplemented ( string -- ) 502 server-response ;
: send-banner ( -- ) : send-banner ( -- )
@ -370,4 +367,3 @@ M: ftp-server handle-client* ( server -- )
! sudo tcpdump -i en1 -A -s 10000 tcp port 21 ! sudo tcpdump -i en1 -A -s 10000 tcp port 21
! [2010-09-04T22:07:58-05:00] DEBUG server-response: 500:Unrecognized command: EPRT |2|0:0:0:0:0:0:0:1|59359| ! [2010-09-04T22:07:58-05:00] DEBUG server-response: 500:Unrecognized command: EPRT |2|0:0:0:0:0:0:0:1|59359|