Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 71 lines (67 sloc) 2.3 kb
fccc685 Initial open-source release
MLstate authored
1 % -*-erlang-*-
2
3 %
4 % Copyright © 2011 MLstate
5 %
6 % This file is part of OPA.
7 %
8 % OPA is free software: you can redistribute it and/or modify it under the
9 % terms of the GNU Affero General Public License, version 3, as published by
10 % the Free Software Foundation.
11 %
12 % OPA is distributed in the hope that it will be useful, but WITHOUT ANY
13 % WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
14 % FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for
15 % more details.
16 %
17 % You should have received a copy of the GNU Affero General Public License
18 % along with OPA. If not, see <http://www.gnu.org/licenses/>.
19 %
20
21 -define Crlf = "\r\n"
22
23 %%%%%%%%%%%%%%%%%%%%%%
24 %% Client request %%
25 %%%%%%%%%%%%%%%%%%%%%%
26 -define User str = "USER "~ str "\r\n"
27 -define Pass str = "PASS "~ str "\r\n"
28 -define Acct str = "ACCT "~ str "\r\n"
29 -define List = "LIST\r\n"~
30 -define ListS str = "LIST " str "\r\n"
31 -define Nlst = "NLST\r\n"~
32 -define NlstS str = "NLST "~ str "\r\n"
33 -define Cwd str = "CWD "~ str "\r\n"
34 -define Cwd0 = "CWD\r\n"~
35 -define CwdX = "CWD \r\n"~
36 -define Cdup = "CDUP\r\n"~
37 -define Pwd = "PWD\r\n"~
38 -define Pasv = "PASV\r\n"~
39 -define Port str = "PORT "~ str "\r\n"
40 -define (Type str) = "TYPE "~ str "\r\n"
41 -define (Stru str:string) = "STRU "~ str "\r\n"
42 -define Mode str = "MODE "~ str "\r\n"
43 -define Retr str = "RETR "~ str "\r\n"
44 -define RetrX = "RETR \r\n"~
45 -define Stor str = "STOR "~ str "\r\n"
46 -define Appe str = "APPE "~ str "\r\n"
47 -define Stou = "STOU\r\n"~
48 -define StouS str = "STOU "~ str "\r\n"
49 -define Rest str = "REST "~ str "\r\n"
50 -define Rnfr str = "RNFR "~ str "\r\n"
51 -define Rnto str = "RNTO "~ str "\r\n"
52 -define Dele str = "DELE "~ str "\r\n"
53 -define Rmd str = "RMD "~ str "\r\n"
54 -define Mkd str = "MKD "~ str "\r\n"
55 -define SizeS str = "SIZE "~ str "\r\n"
56 -define Size = "SIZE \r\n"~
57 -define MdtmS str = "MDTM "~ str "\r\n"
58 -define Mdtm = "MDTM \r\n"~
59 -define Syst = "SYST\r\n"~
60 -define Stat = "STAT\r\n"~
61 -define StatS str = "STAT "~ str "\r\n"
62 -define Allo1 = "ALLO\r\n"~
63 -define Allo2 str = "ALLO "~ str "\r\n"
64 -define Allo3 str = "ALLO R "~ str "\r\n"
65 -define Noop = "NOOP\r\n"~
66 -define Help = "HELP\r\n"~
67 -define HelpS str = "HELP "~ str "\r\n"
68 -define Quit = "QUIT\r\n"~
69 -define Dummy str = "" str
70 -define Other str = str
Something went wrong with that request. Please try again.