annotate uip/ftpsbr.c @ 12:441a2190cfae

Lion fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 21 Apr 2012 13:10:49 +0900
parents a6481689f99c
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
bce86c4163a3 Initial revision
kono
parents:
diff changeset
1 /* ftpsbr.c - simple FTP client library (why doesn't BSD have one?!?) */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
2
bce86c4163a3 Initial revision
kono
parents:
diff changeset
3 #ifndef lint
12
441a2190cfae Lion fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 10
diff changeset
4 static char ident[] = "@(#)$Id: ftpsbr.c,v 1.2 2006/12/05 18:18:13 kono Exp $";
0
bce86c4163a3 Initial revision
kono
parents:
diff changeset
5 #endif
bce86c4163a3 Initial revision
kono
parents:
diff changeset
6
bce86c4163a3 Initial revision
kono
parents:
diff changeset
7 #include "../h/mh.h"
bce86c4163a3 Initial revision
kono
parents:
diff changeset
8 #include "../h/mhn.h"
bce86c4163a3 Initial revision
kono
parents:
diff changeset
9 #ifdef FTP
bce86c4163a3 Initial revision
kono
parents:
diff changeset
10 #include <ctype.h>
bce86c4163a3 Initial revision
kono
parents:
diff changeset
11 #ifdef SVR4
bce86c4163a3 Initial revision
kono
parents:
diff changeset
12 #undef NULLVP /* stdio.h */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
13 #endif
bce86c4163a3 Initial revision
kono
parents:
diff changeset
14 #include <stdio.h>
bce86c4163a3 Initial revision
kono
parents:
diff changeset
15 #include <arpa/ftp.h>
bce86c4163a3 Initial revision
kono
parents:
diff changeset
16 #ifdef __STDC__
bce86c4163a3 Initial revision
kono
parents:
diff changeset
17 #include <stdarg.h>
bce86c4163a3 Initial revision
kono
parents:
diff changeset
18 #else
bce86c4163a3 Initial revision
kono
parents:
diff changeset
19 #include <varargs.h>
bce86c4163a3 Initial revision
kono
parents:
diff changeset
20 #endif
bce86c4163a3 Initial revision
kono
parents:
diff changeset
21
bce86c4163a3 Initial revision
kono
parents:
diff changeset
22 #ifdef __STDC__
bce86c4163a3 Initial revision
kono
parents:
diff changeset
23 static int command(int arg1, ...);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
24 #else
bce86c4163a3 Initial revision
kono
parents:
diff changeset
25 static int command();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
26 #endif
bce86c4163a3 Initial revision
kono
parents:
diff changeset
27
bce86c4163a3 Initial revision
kono
parents:
diff changeset
28 static int ftp_quit(), ftp_read(), initconn(),
bce86c4163a3 Initial revision
kono
parents:
diff changeset
29 dataconn(), _command(), getreply();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
30
bce86c4163a3 Initial revision
kono
parents:
diff changeset
31 /* DATA */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
32
bce86c4163a3 Initial revision
kono
parents:
diff changeset
33 #define v_debug debugsw
bce86c4163a3 Initial revision
kono
parents:
diff changeset
34 #define v_verbose verbosw
bce86c4163a3 Initial revision
kono
parents:
diff changeset
35
bce86c4163a3 Initial revision
kono
parents:
diff changeset
36
bce86c4163a3 Initial revision
kono
parents:
diff changeset
37 static int ftp_fd = NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
38 static int data_fd = NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
39
bce86c4163a3 Initial revision
kono
parents:
diff changeset
40 static int v_noise;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
41
bce86c4163a3 Initial revision
kono
parents:
diff changeset
42 extern int v_debug;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
43 extern int v_verbose;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
44
bce86c4163a3 Initial revision
kono
parents:
diff changeset
45 /* */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
46
bce86c4163a3 Initial revision
kono
parents:
diff changeset
47 #if defined(SYS5) && defined(AUX)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
48 #define u_short ushort
bce86c4163a3 Initial revision
kono
parents:
diff changeset
49 #define u_long ulong
bce86c4163a3 Initial revision
kono
parents:
diff changeset
50 #endif
bce86c4163a3 Initial revision
kono
parents:
diff changeset
51
bce86c4163a3 Initial revision
kono
parents:
diff changeset
52 #include <sys/types.h>
bce86c4163a3 Initial revision
kono
parents:
diff changeset
53 #include <sys/socket.h>
bce86c4163a3 Initial revision
kono
parents:
diff changeset
54 #include <netinet/in.h>
bce86c4163a3 Initial revision
kono
parents:
diff changeset
55 #include <netdb.h>
bce86c4163a3 Initial revision
kono
parents:
diff changeset
56
bce86c4163a3 Initial revision
kono
parents:
diff changeset
57 #if defined(BIND) && !defined(h_addr)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
58 #define h_addr h_addr_list[0]
bce86c4163a3 Initial revision
kono
parents:
diff changeset
59 #endif
bce86c4163a3 Initial revision
kono
parents:
diff changeset
60
bce86c4163a3 Initial revision
kono
parents:
diff changeset
61 #define inaddr_copy(hp,sin) \
bce86c4163a3 Initial revision
kono
parents:
diff changeset
62 bcopy ((hp) -> h_addr, (char *) &((sin) -> sin_addr), (hp) -> h_length)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
63
bce86c4163a3 Initial revision
kono
parents:
diff changeset
64
bce86c4163a3 Initial revision
kono
parents:
diff changeset
65 struct hostent *gethostbystring ();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
66
bce86c4163a3 Initial revision
kono
parents:
diff changeset
67 /* */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
68
bce86c4163a3 Initial revision
kono
parents:
diff changeset
69 #include <errno.h>
bce86c4163a3 Initial revision
kono
parents:
diff changeset
70 #if !defined(BSD44) && !defined(__GNU_LIBRARY__)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
71 extern int sys_nerr;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
72 extern char *sys_errlist[];
bce86c4163a3 Initial revision
kono
parents:
diff changeset
73 #endif
bce86c4163a3 Initial revision
kono
parents:
diff changeset
74
bce86c4163a3 Initial revision
kono
parents:
diff changeset
75
bce86c4163a3 Initial revision
kono
parents:
diff changeset
76 #define start_tcp_client(sock,priv) \
bce86c4163a3 Initial revision
kono
parents:
diff changeset
77 socket (AF_INET, SOCK_STREAM, 0)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
78
bce86c4163a3 Initial revision
kono
parents:
diff changeset
79 #define join_tcp_server(fd, sock) \
bce86c4163a3 Initial revision
kono
parents:
diff changeset
80 connect ((fd), (struct sockaddr *) (sock), sizeof *(sock))
bce86c4163a3 Initial revision
kono
parents:
diff changeset
81
bce86c4163a3 Initial revision
kono
parents:
diff changeset
82
bce86c4163a3 Initial revision
kono
parents:
diff changeset
83 /* ARGSUSED */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
84
bce86c4163a3 Initial revision
kono
parents:
diff changeset
85 static int start_tcp_server (sock, backlog, opt1, opt2)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
86 struct sockaddr_in *sock;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
87 int backlog,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
88 opt1,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
89 opt2;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
90 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
91 int eindex,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
92 sd;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
93
bce86c4163a3 Initial revision
kono
parents:
diff changeset
94 if ((sd = socket (AF_INET, SOCK_STREAM, 0)) == NOTOK)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
95 return NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
96
bce86c4163a3 Initial revision
kono
parents:
diff changeset
97 if (bind (sd, (struct sockaddr *) sock, sizeof *sock) == NOTOK) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
98 eindex = errno;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
99 (void) close (sd);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
100 errno = eindex;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
101 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
102 else
bce86c4163a3 Initial revision
kono
parents:
diff changeset
103 (void) listen (sd, backlog);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
104
bce86c4163a3 Initial revision
kono
parents:
diff changeset
105 return sd;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
106 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
107
bce86c4163a3 Initial revision
kono
parents:
diff changeset
108 static int __len__;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
109 #define join_tcp_client(fd,sock) \
bce86c4163a3 Initial revision
kono
parents:
diff changeset
110 accept ((fd), (struct sockaddr *) (sock), \
bce86c4163a3 Initial revision
kono
parents:
diff changeset
111 (__len__ = sizeof *(sock), &__len__))
bce86c4163a3 Initial revision
kono
parents:
diff changeset
112
bce86c4163a3 Initial revision
kono
parents:
diff changeset
113
bce86c4163a3 Initial revision
kono
parents:
diff changeset
114 #define read_tcp_socket read
bce86c4163a3 Initial revision
kono
parents:
diff changeset
115 #define write_tcp_socket write
bce86c4163a3 Initial revision
kono
parents:
diff changeset
116 #define close_tcp_socket close
bce86c4163a3 Initial revision
kono
parents:
diff changeset
117
bce86c4163a3 Initial revision
kono
parents:
diff changeset
118 /* */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
119
bce86c4163a3 Initial revision
kono
parents:
diff changeset
120 static void _asprintf (bp, what, ap) /* fmt, args, ... */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
121 register char *bp;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
122 char *what;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
123 va_list ap;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
124 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
125 register int eindex;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
126 char *fmt;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
127
bce86c4163a3 Initial revision
kono
parents:
diff changeset
128 eindex = errno;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
129
bce86c4163a3 Initial revision
kono
parents:
diff changeset
130 *bp = '\0';
bce86c4163a3 Initial revision
kono
parents:
diff changeset
131 fmt = va_arg (ap, char *);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
132
bce86c4163a3 Initial revision
kono
parents:
diff changeset
133 if (fmt) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
134 #ifndef VSPRINTF
bce86c4163a3 Initial revision
kono
parents:
diff changeset
135 struct _iobuf iob;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
136 #endif
bce86c4163a3 Initial revision
kono
parents:
diff changeset
137
bce86c4163a3 Initial revision
kono
parents:
diff changeset
138 #ifndef VSPRINTF
bce86c4163a3 Initial revision
kono
parents:
diff changeset
139 #ifdef pyr
bce86c4163a3 Initial revision
kono
parents:
diff changeset
140 bzero ((char *) &iob, sizeof iob);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
141 iob._file = _NFILE;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
142 #endif
bce86c4163a3 Initial revision
kono
parents:
diff changeset
143 iob._flag = _IOWRT | _IOSTRG;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
144 #if !defined(vax) && !defined(pyr) && !defined(sequent)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
145 iob._ptr = (unsigned char *) bp;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
146 #else
bce86c4163a3 Initial revision
kono
parents:
diff changeset
147 iob._ptr = bp;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
148 #endif
bce86c4163a3 Initial revision
kono
parents:
diff changeset
149 iob._cnt = BUFSIZ;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
150 _doprnt (fmt, ap, &iob);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
151 (void) putc ('\0', &iob);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
152 #else
bce86c4163a3 Initial revision
kono
parents:
diff changeset
153 (void) vsprintf (bp, fmt, ap);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
154 #endif
bce86c4163a3 Initial revision
kono
parents:
diff changeset
155 bp += strlen (bp);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
156
bce86c4163a3 Initial revision
kono
parents:
diff changeset
157 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
158
bce86c4163a3 Initial revision
kono
parents:
diff changeset
159 if (what) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
160 if (*what) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
161 (void) sprintf (bp, " %s: ", what);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
162 bp += strlen (bp);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
163 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
164 if (0 < eindex && eindex < sys_nerr)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
165 (void) strcpy (bp, sys_errlist[eindex]);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
166 else
bce86c4163a3 Initial revision
kono
parents:
diff changeset
167 (void) sprintf (bp, "Error %d", eindex);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
168 bp += strlen (bp);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
169 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
170
bce86c4163a3 Initial revision
kono
parents:
diff changeset
171 errno = eindex;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
172 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
173
bce86c4163a3 Initial revision
kono
parents:
diff changeset
174 /* */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
175
bce86c4163a3 Initial revision
kono
parents:
diff changeset
176 int ftp_get (host, user, password, cwd, remote, local, ascii, stayopen)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
177 char *host,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
178 *user,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
179 *password,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
180 *cwd,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
181 *remote,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
182 *local;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
183 int ascii,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
184 stayopen;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
185 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
186 return ftp_trans (host, user, password, cwd, remote, local, "RETR", ascii,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
187 stayopen);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
188 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
189
bce86c4163a3 Initial revision
kono
parents:
diff changeset
190 /* */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
191
bce86c4163a3 Initial revision
kono
parents:
diff changeset
192 int ftp_trans (host, user, password, cwd, remote, local, cmd, ascii,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
193 stayopen)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
194 char *host,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
195 *user,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
196 *password,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
197 *cwd,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
198 *remote,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
199 *local,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
200 *cmd;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
201 int ascii,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
202 stayopen;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
203 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
204 int result;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
205
bce86c4163a3 Initial revision
kono
parents:
diff changeset
206 if (stayopen <= 0) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
207 result = ftp_quit ();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
208 if (host == NULL)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
209 return result;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
210 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
211
bce86c4163a3 Initial revision
kono
parents:
diff changeset
212 if (ftp_fd == NOTOK) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
213 struct sockaddr_in in_socket;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
214 register struct hostent *hp;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
215 register struct servent *sp;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
216
bce86c4163a3 Initial revision
kono
parents:
diff changeset
217 if ((sp = getservbyname ("ftp", "tcp")) == NULL) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
218 fprintf (stderr, "tcp/ftp: unknown service");
bce86c4163a3 Initial revision
kono
parents:
diff changeset
219 return NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
220 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
221 if ((hp = gethostbystring (host)) == NULL) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
222 fprintf (stderr, "%s: unknown host\n", host);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
223 return NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
224 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
225 in_socket.sin_family = hp -> h_addrtype;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
226 inaddr_copy (hp, &in_socket);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
227 in_socket.sin_port = sp -> s_port;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
228
bce86c4163a3 Initial revision
kono
parents:
diff changeset
229 if ((ftp_fd = start_tcp_client ((struct sockaddr_in *) NULL, 0))
bce86c4163a3 Initial revision
kono
parents:
diff changeset
230 == NOTOK) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
231 perror (host);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
232 return NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
233 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
234 if (join_tcp_server (ftp_fd, &in_socket) == NOTOK) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
235 perror (host);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
236 (void) close_tcp_socket (ftp_fd), ftp_fd = NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
237 return NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
238 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
239 (void) getreply (1, 0);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
240
bce86c4163a3 Initial revision
kono
parents:
diff changeset
241 if (v_verbose) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
242 fprintf (stdout, "Connected to %s\n", host);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
243 (void) fflush (stdout);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
244 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
245
bce86c4163a3 Initial revision
kono
parents:
diff changeset
246 if (user) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
247 if ((result = command (0, "USER %s", user)) == CONTINUE)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
248 result = command (1, "PASS %s", password);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
249 if (result != COMPLETE) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
250 result = NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
251 goto out;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
252 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
253 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
254
bce86c4163a3 Initial revision
kono
parents:
diff changeset
255 if (remote == NULL)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
256 return OK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
257 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
258
bce86c4163a3 Initial revision
kono
parents:
diff changeset
259 if (cwd && ((result = command (0, "CWD %s", cwd)) != COMPLETE
bce86c4163a3 Initial revision
kono
parents:
diff changeset
260 && result != CONTINUE)) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
261 result = NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
262 goto out;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
263 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
264
bce86c4163a3 Initial revision
kono
parents:
diff changeset
265 if (command (1, ascii ? "TYPE A" : "TYPE I") != COMPLETE) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
266 result = NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
267 goto out;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
268 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
269
bce86c4163a3 Initial revision
kono
parents:
diff changeset
270 result = ftp_read (remote, local, cmd, ascii);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
271
bce86c4163a3 Initial revision
kono
parents:
diff changeset
272 out: ;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
273 if (result != OK || !stayopen)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
274 (void) ftp_quit ();
bce86c4163a3 Initial revision
kono
parents:
diff changeset
275
bce86c4163a3 Initial revision
kono
parents:
diff changeset
276 return result;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
277 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
278
bce86c4163a3 Initial revision
kono
parents:
diff changeset
279 /* */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
280
bce86c4163a3 Initial revision
kono
parents:
diff changeset
281 static int ftp_quit ()
bce86c4163a3 Initial revision
kono
parents:
diff changeset
282 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
283 int n;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
284
bce86c4163a3 Initial revision
kono
parents:
diff changeset
285 if (ftp_fd == NOTOK)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
286 return OK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
287
bce86c4163a3 Initial revision
kono
parents:
diff changeset
288 n = command (1, "QUIT");
bce86c4163a3 Initial revision
kono
parents:
diff changeset
289
bce86c4163a3 Initial revision
kono
parents:
diff changeset
290 (void) close_tcp_socket (ftp_fd), ftp_fd = NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
291
bce86c4163a3 Initial revision
kono
parents:
diff changeset
292 return (n == 0 || n == COMPLETE ? OK : NOTOK);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
293 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
294
bce86c4163a3 Initial revision
kono
parents:
diff changeset
295 /* */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
296
bce86c4163a3 Initial revision
kono
parents:
diff changeset
297 static int ftp_read (remote, local, cmd, ascii)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
298 char *remote,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
299 *local,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
300 *cmd;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
301 int ascii;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
302 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
303 int istdio = 0,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
304 istore;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
305 register int cc;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
306 int expectingreply = 0;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
307 char buffer[BUFSIZ];
bce86c4163a3 Initial revision
kono
parents:
diff changeset
308 FILE *fp = NULL;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
309
bce86c4163a3 Initial revision
kono
parents:
diff changeset
310 if (initconn () == NOTOK)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
311 goto bad;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
312
bce86c4163a3 Initial revision
kono
parents:
diff changeset
313 v_noise = v_verbose;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
314 if (command (-1, *remote ? "%s %s" : "%s", cmd, remote) != PRELIM)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
315 goto bad;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
316
bce86c4163a3 Initial revision
kono
parents:
diff changeset
317 expectingreply++;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
318 if (dataconn () == NOTOK) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
319 bad: ;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
320 if (fp && !istdio)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
321 (void) fclose (fp);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
322 if (data_fd != NOTOK)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
323 (void) close_tcp_socket (data_fd), data_fd = NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
324 if (expectingreply)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
325 (void) getreply (-2, 0);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
326
bce86c4163a3 Initial revision
kono
parents:
diff changeset
327 return NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
328 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
329
bce86c4163a3 Initial revision
kono
parents:
diff changeset
330 istore = !strcmp (cmd, "STOR");
bce86c4163a3 Initial revision
kono
parents:
diff changeset
331
bce86c4163a3 Initial revision
kono
parents:
diff changeset
332 if (istdio = !strcmp (local, "-"))
bce86c4163a3 Initial revision
kono
parents:
diff changeset
333 fp = istore ? stdin : stdout;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
334 else
bce86c4163a3 Initial revision
kono
parents:
diff changeset
335 if ((fp = fopen (local, istore ? "r" : "w")) == NULL) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
336 perror (local);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
337 goto bad;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
338 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
339
bce86c4163a3 Initial revision
kono
parents:
diff changeset
340 if (istore) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
341 if (ascii) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
342 int c;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
343 FILE *out;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
344
bce86c4163a3 Initial revision
kono
parents:
diff changeset
345 if (!(out = fdopen (data_fd, "w"))) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
346 perror ("fdopen");
bce86c4163a3 Initial revision
kono
parents:
diff changeset
347 goto bad;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
348 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
349
bce86c4163a3 Initial revision
kono
parents:
diff changeset
350 while ((c = getc (fp)) != EOF) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
351 if (c == '\n')
bce86c4163a3 Initial revision
kono
parents:
diff changeset
352 (void) putc ('\r', out);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
353 if (putc (c, out) == EOF) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
354 perror ("putc");
bce86c4163a3 Initial revision
kono
parents:
diff changeset
355 (void) fclose (out);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
356 data_fd = NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
357 goto bad;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
358 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
359 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
360
bce86c4163a3 Initial revision
kono
parents:
diff changeset
361 (void) fclose (out);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
362 data_fd = NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
363 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
364 else {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
365 while ((cc = fread (buffer, sizeof *buffer, sizeof buffer, fp)) >0)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
366 if (write_tcp_socket (data_fd, buffer, cc) != cc) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
367 perror ("write_tcp_socket");
bce86c4163a3 Initial revision
kono
parents:
diff changeset
368 goto bad;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
369 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
370
bce86c4163a3 Initial revision
kono
parents:
diff changeset
371 (void) close_tcp_socket (data_fd), data_fd = NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
372 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
373 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
374 else {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
375 if (ascii) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
376 int c;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
377 FILE *in;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
378
bce86c4163a3 Initial revision
kono
parents:
diff changeset
379 if (!(in = fdopen (data_fd, "r"))) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
380 perror ("fdopen");
bce86c4163a3 Initial revision
kono
parents:
diff changeset
381 goto bad;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
382 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
383
bce86c4163a3 Initial revision
kono
parents:
diff changeset
384 while ((c = getc (in)) != EOF) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
385 if (c == '\r')
bce86c4163a3 Initial revision
kono
parents:
diff changeset
386 switch (c = getc (in)) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
387 case EOF:
bce86c4163a3 Initial revision
kono
parents:
diff changeset
388 case '\0':
bce86c4163a3 Initial revision
kono
parents:
diff changeset
389 c = '\r';
bce86c4163a3 Initial revision
kono
parents:
diff changeset
390 break;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
391
bce86c4163a3 Initial revision
kono
parents:
diff changeset
392 case '\n':
bce86c4163a3 Initial revision
kono
parents:
diff changeset
393 break;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
394
bce86c4163a3 Initial revision
kono
parents:
diff changeset
395 default:
bce86c4163a3 Initial revision
kono
parents:
diff changeset
396 (void) putc ('\r', fp);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
397 break;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
398 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
399
bce86c4163a3 Initial revision
kono
parents:
diff changeset
400 if (putc (c, fp) == EOF) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
401 perror ("putc");
bce86c4163a3 Initial revision
kono
parents:
diff changeset
402 (void) fclose (in);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
403 data_fd = NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
404 goto bad;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
405 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
406 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
407
bce86c4163a3 Initial revision
kono
parents:
diff changeset
408 (void) fclose (in);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
409 data_fd = NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
410 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
411 else {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
412 while ((cc = read_tcp_socket (data_fd, buffer, sizeof buffer)) > 0)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
413 if (fwrite (buffer, sizeof *buffer, cc, fp) == 0) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
414 perror ("fwrite");
bce86c4163a3 Initial revision
kono
parents:
diff changeset
415 goto bad;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
416 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
417 if (cc < 0) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
418 perror ("read_tcp_socket");
bce86c4163a3 Initial revision
kono
parents:
diff changeset
419 goto bad;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
420 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
421
bce86c4163a3 Initial revision
kono
parents:
diff changeset
422 (void) close_tcp_socket (data_fd), data_fd = NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
423 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
424 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
425
bce86c4163a3 Initial revision
kono
parents:
diff changeset
426 if (!istdio)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
427 (void) fclose (fp);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
428
bce86c4163a3 Initial revision
kono
parents:
diff changeset
429 v_noise = v_verbose;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
430 return (getreply (1, 0) == COMPLETE ? OK : NOTOK);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
431 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
432
bce86c4163a3 Initial revision
kono
parents:
diff changeset
433 /* */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
434
bce86c4163a3 Initial revision
kono
parents:
diff changeset
435 static int initconn ()
bce86c4163a3 Initial revision
kono
parents:
diff changeset
436 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
437 int len;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
438 register char *a,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
439 *p;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
440 struct sockaddr_in in_socket;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
441
bce86c4163a3 Initial revision
kono
parents:
diff changeset
442 if (getsockname (ftp_fd, (struct sockaddr *) &in_socket,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
443 (len = sizeof in_socket, &len)) == NOTOK) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
444 perror ("getsockname");
bce86c4163a3 Initial revision
kono
parents:
diff changeset
445 return NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
446 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
447 in_socket.sin_port = 0;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
448 if ((data_fd = start_tcp_server (&in_socket, 1, 0, 0)) == NOTOK) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
449 perror ("start_tcp_server");
bce86c4163a3 Initial revision
kono
parents:
diff changeset
450 return NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
451 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
452
bce86c4163a3 Initial revision
kono
parents:
diff changeset
453 if (getsockname (data_fd, (struct sockaddr *) &in_socket,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
454 (len = sizeof in_socket, &len)) == NOTOK) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
455 perror ("getsockname");
bce86c4163a3 Initial revision
kono
parents:
diff changeset
456 return NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
457 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
458
bce86c4163a3 Initial revision
kono
parents:
diff changeset
459 a = (char *) &in_socket.sin_addr;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
460 p = (char *) &in_socket.sin_port;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
461
bce86c4163a3 Initial revision
kono
parents:
diff changeset
462 #define UC(b) (((int) b) & 0xff)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
463 if (command (1, "PORT %d,%d,%d,%d,%d,%d",
bce86c4163a3 Initial revision
kono
parents:
diff changeset
464 UC(a[0]), UC(a[1]), UC(a[2]), UC(a[3]),
bce86c4163a3 Initial revision
kono
parents:
diff changeset
465 UC(p[0]), UC(p[1])) == COMPLETE)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
466 return OK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
467
bce86c4163a3 Initial revision
kono
parents:
diff changeset
468 return NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
469 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
470
bce86c4163a3 Initial revision
kono
parents:
diff changeset
471 /* */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
472
bce86c4163a3 Initial revision
kono
parents:
diff changeset
473 static int dataconn ()
bce86c4163a3 Initial revision
kono
parents:
diff changeset
474 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
475 int fd;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
476 struct sockaddr_in in_socket;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
477
bce86c4163a3 Initial revision
kono
parents:
diff changeset
478 if ((fd = join_tcp_client (data_fd, &in_socket)) == NOTOK) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
479 perror ("join_tcp_client");
bce86c4163a3 Initial revision
kono
parents:
diff changeset
480 return NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
481 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
482 (void) close_tcp_socket (data_fd);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
483 data_fd = fd;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
484
bce86c4163a3 Initial revision
kono
parents:
diff changeset
485 return OK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
486 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
487
bce86c4163a3 Initial revision
kono
parents:
diff changeset
488 /* */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
489
bce86c4163a3 Initial revision
kono
parents:
diff changeset
490 #ifndef lint
bce86c4163a3 Initial revision
kono
parents:
diff changeset
491 #ifdef __STDC__
bce86c4163a3 Initial revision
kono
parents:
diff changeset
492 static int command (int arg1, ...)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
493 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
494 int val;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
495 va_list ap;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
496
bce86c4163a3 Initial revision
kono
parents:
diff changeset
497 va_start (ap, arg1);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
498
bce86c4163a3 Initial revision
kono
parents:
diff changeset
499 val = _command (arg1, ap);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
500
bce86c4163a3 Initial revision
kono
parents:
diff changeset
501 va_end (ap);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
502
bce86c4163a3 Initial revision
kono
parents:
diff changeset
503 return val;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
504 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
505 #else
bce86c4163a3 Initial revision
kono
parents:
diff changeset
506 static int command (va_alist)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
507 va_dcl
bce86c4163a3 Initial revision
kono
parents:
diff changeset
508 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
509 int val;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
510 va_list ap;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
511
bce86c4163a3 Initial revision
kono
parents:
diff changeset
512 va_start (ap);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
513
bce86c4163a3 Initial revision
kono
parents:
diff changeset
514 val = va_arg (ap, int);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
515 val = _command (val, ap);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
516
bce86c4163a3 Initial revision
kono
parents:
diff changeset
517 va_end (ap);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
518
bce86c4163a3 Initial revision
kono
parents:
diff changeset
519 return val;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
520 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
521 #endif
bce86c4163a3 Initial revision
kono
parents:
diff changeset
522
bce86c4163a3 Initial revision
kono
parents:
diff changeset
523 static int _command (complete, ap)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
524 int complete;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
525 va_list ap;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
526 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
527 int len;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
528 char buffer[BUFSIZ];
bce86c4163a3 Initial revision
kono
parents:
diff changeset
529
bce86c4163a3 Initial revision
kono
parents:
diff changeset
530 if (ftp_fd == NOTOK)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
531 return NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
532
bce86c4163a3 Initial revision
kono
parents:
diff changeset
533 _asprintf (buffer, NULLCP, ap);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
534 if (v_debug)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
535 fprintf (stderr, "<--- %s\n", buffer);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
536
bce86c4163a3 Initial revision
kono
parents:
diff changeset
537 (void) strcat (buffer, "\r\n");
bce86c4163a3 Initial revision
kono
parents:
diff changeset
538 len = strlen (buffer);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
539
bce86c4163a3 Initial revision
kono
parents:
diff changeset
540 if (write_tcp_socket (ftp_fd, buffer, len) != len) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
541 perror ("write_tcp_socket");
bce86c4163a3 Initial revision
kono
parents:
diff changeset
542 return NOTOK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
543 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
544
bce86c4163a3 Initial revision
kono
parents:
diff changeset
545 return (getreply (complete, !strcmp (buffer, "QUIT")));
bce86c4163a3 Initial revision
kono
parents:
diff changeset
546 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
547 #else
bce86c4163a3 Initial revision
kono
parents:
diff changeset
548 /* VARARGS2 */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
549
bce86c4163a3 Initial revision
kono
parents:
diff changeset
550 static int command (complete, fmt)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
551 int complete;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
552 char *fmt;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
553 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
554 return command (complete, fmt);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
555 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
556 #endif
bce86c4163a3 Initial revision
kono
parents:
diff changeset
557
bce86c4163a3 Initial revision
kono
parents:
diff changeset
558 /* */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
559
bce86c4163a3 Initial revision
kono
parents:
diff changeset
560 static int getreply (complete, expecteof)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
561 int complete,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
562 expecteof;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
563 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
564 for (;;) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
565 register int code,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
566 dig,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
567 n;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
568 int continuation;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
569 register char *bp;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
570 char buffer[BUFSIZ];
bce86c4163a3 Initial revision
kono
parents:
diff changeset
571
bce86c4163a3 Initial revision
kono
parents:
diff changeset
572 code = dig = n = continuation = 0;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
573 bp = buffer;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
574
bce86c4163a3 Initial revision
kono
parents:
diff changeset
575 for (;;) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
576 char c;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
577
bce86c4163a3 Initial revision
kono
parents:
diff changeset
578 if (read_tcp_socket (ftp_fd, &c, 1) < 1) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
579 if (expecteof)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
580 return OK;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
581
bce86c4163a3 Initial revision
kono
parents:
diff changeset
582 perror ("read_tcp_socket");
bce86c4163a3 Initial revision
kono
parents:
diff changeset
583 return DONE;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
584 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
585 if (c == '\n')
bce86c4163a3 Initial revision
kono
parents:
diff changeset
586 break;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
587 *bp++ = c != '\r' ? c : '\0';
bce86c4163a3 Initial revision
kono
parents:
diff changeset
588
bce86c4163a3 Initial revision
kono
parents:
diff changeset
589 dig++;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
590 if (dig < 4) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
591 if (isdigit(c))
bce86c4163a3 Initial revision
kono
parents:
diff changeset
592 code = code * 10 + (c - '0');
bce86c4163a3 Initial revision
kono
parents:
diff changeset
593 else /* XXX: naughty FTP... */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
594 if (isspace (c))
bce86c4163a3 Initial revision
kono
parents:
diff changeset
595 continuation++;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
596 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
597 else
bce86c4163a3 Initial revision
kono
parents:
diff changeset
598 if (dig == 4 && c == '-')
bce86c4163a3 Initial revision
kono
parents:
diff changeset
599 continuation++;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
600 if (n == 0)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
601 n = c;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
602 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
603
bce86c4163a3 Initial revision
kono
parents:
diff changeset
604 if (v_debug)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
605 fprintf (stderr, "---> %s\n", buffer);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
606 if (continuation)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
607 continue;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
608
bce86c4163a3 Initial revision
kono
parents:
diff changeset
609 n -= '0';
bce86c4163a3 Initial revision
kono
parents:
diff changeset
610
bce86c4163a3 Initial revision
kono
parents:
diff changeset
611 if (v_noise) {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
612 fprintf (stdout, "%s\n", buffer);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
613 (void) fflush (stdout);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
614 v_noise = 0;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
615 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
616 else
bce86c4163a3 Initial revision
kono
parents:
diff changeset
617 if ((complete == -1 && n != PRELIM)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
618 || (complete == 0 && n != CONTINUE && n != COMPLETE)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
619 || (complete == 1 && n != COMPLETE))
bce86c4163a3 Initial revision
kono
parents:
diff changeset
620 fprintf (stderr, "%s\n", buffer);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
621
bce86c4163a3 Initial revision
kono
parents:
diff changeset
622 return n;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
623 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
624 }
bce86c4163a3 Initial revision
kono
parents:
diff changeset
625 #endif