Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 73 lines (68 sloc) 3.232 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 %%%%%%%%%%%%%%%%%%%%%%%%%%
22 %% Server OK response %%
23 %%%%%%%%%%%%%%%%%%%%%%%%%%
24 -define DirList = "150 Here comes the directory listing.\r\n"
25 -define BinConn str = "150 Opening " str " mode data connnection.\r\n"
26 -define OkFileConn str = "150 FILE: " str "\r\n"
27 -define OkCmd str = "200 " str "\r\n"
28 -define OkAllo = "202 Command not implemented, superfluous at this site.\r\n"
29 -define OkHelp1 = "214-The following commands are recognized.\r\n"
30 -define OkHelp2 = "214 Help OK.\r\n"
31 -define OkSyst = "215 UNIX Type: L8\r\n"
32 -define OkStat211a = "211-FTP server status:\r\n"
33 -define OkStat211b = "211 End of status\r\n"
34 -define Hello = "220 Hello, this is Mlstate Web server.\r\n"
35 -define Bye str = "221 " str "\r\n"
36 -define OkList str = str "\r\n226 Listing completed.\r\n"
37 -define OkDir = "226 Directory send OK.\r\n"
38 -define OkFile str = "226 File " str " OK.\r\n"
39 -define OkLogin = "230 Login successful.\r\n"
40 -define OkCwd str = "250 " str " is new working directory.\r\n"
41 -define OkTransS str = "250 Transfer file " str " started.\r\n"
42 -define OkFileAct = "250 Requested file action okay, completed.\r\n"
43 -define OkPwd str = "257 \"" str "\"\r\n"
44 -define OkPasv str = "227 Entering Passive Mode (" str ").\r\n"
45
46 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
47 %% Server REQUIRED response %%
48 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
49 -define ReqPass str = "331 Password required to access user account " str ".\r\n"
50 -define ReqPend = "350 Requested file action pending further information.\r\n"
51 -define ReqRest str = "350 Restart position accepted (" str ").\r\n"
52
53 %%%%%%%%%%%%%%%%%%%%%%%%%%%
54 %% Server ERROR response %%
55 %%%%%%%%%%%%%%%%%%%%%%%%%%%
56 -define ErrMode = "425 Use PORT or PASV first.\r\n"
57 -define ErrTime = "421 Timeout.\r\n"
58 -define ErrNoFact = "450 Requested file action not taken.\r\n"
59 -define ErrSyntax = "500 Syntax error, command unrecognized.\r\n"
60 -define ErrSyntax2 = "501 Syntax error in parameters or arguments.\r\n"
61 -define ErrAcct = "502 ACCT not implemented.\r\n"
62 -define ErrLogin = "503 Login with USER first.\r\n"
63 -define ErrBadSeq = "503 Bad sequence of commands.\r\n"
64 -define ErrNoimp = "504 Command not implemented for that parameter.\r\n"
65 -define ErrNotlog = "530 Not logged in.\r\n"
66 -define ErrPass = "530 Incorrect login.\r\n"
67 -define ErrCwd = "550 Failed to change directory.\r\n"
68 -define ErrActNot = "550 Requested action not taken.\r\n"
69 -define ErrNoSize = "550 Could not get file size.\r\n"
70 -define ErrNoMdtm = "550 Could not get file time.\r\n"
71 -define ErrFailOpen = "550 Failed to open file.\r\n"
72 -define ErrPerm = "550 Permission denied.\r\n"
Something went wrong with that request. Please try again.