Mercurial > hg > xemacs-beta

comparison netinstall/nio-ftp.cc @ 448:3078fd1074e8 r21-2-39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-39
author cvs
date Mon, 13 Aug 2007 11:38:25 +0200
parents
children e7ef97881643
comparison
equal deleted inserted replaced
447:4fc5f13f3bd3 448:3078fd1074e8
1 /*
2 * Copyright (c) 2000, Red Hat, Inc.
3 *
4 * This program is free software; you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License as published by
6 * the Free Software Foundation; either version 2 of the License, or
7 * (at your option) any later version.
8 *
9 * A copy of the GNU General Public License can be found at
10 * http://www.gnu.org/
11 *
12 * Written by DJ Delorie <dj@cygnus.com>
13 *
14 */
15
16 /* This file is responsible for implementing all direct FTP protocol
17 channels. It is intentionally simplistic. */
18
19 #include "win32.h"
20 #include "winsock.h"
21 #include <stdio.h>
22 #include <stdlib.h>
23 #include <ctype.h>
24
25 #include "resource.h"
26 #include "state.h"
27 #include "simpsock.h"
28 #include "log.h"
29
30 #include "netio.h"
31 #include "nio-ftp.h"
32
33 static SimpleSocket *cmd = 0;
34 static char *cmd_host = 0;
35 static int cmd_port = 0;
36
37 static char *last_line;
38
39 static int
40 ftp_line (SimpleSocket *s)
41 {
42 do {
43 last_line = s->gets ();
44 log (LOG_BABBLE, "ftp > %s", last_line);
45 } while (last_line && (!isdigit (last_line[0]) || last_line[3] != ' '));
46 return atoi (last_line ? last_line : "0");
47 }
48
49 NetIO_FTP::NetIO_FTP (char *Purl)
50 : NetIO (Purl)
51 {
52 s = 0;
53 int code;
54
55 if (port == 0)
56 port = 21;
57
58 if (cmd_host && strcmp (host, cmd_host) != 0 || port != cmd_port)
59 {
60 if (cmd)
61 cmd->printf ("QUIT\r\n");
62 delete cmd;
63 free (cmd_host);
64 cmd = 0;
65 cmd_host = 0;
66 }
67
68 if (cmd == 0)
69 {
70 SimpleSocket *c = new SimpleSocket (host, port);
71 code = ftp_line (c);
72 c->printf ("USER anonymous\r\n");
73 code = ftp_line (c);
74 if (code == 331)
75 {
76 c->printf ("PASS cygwin-setup@\r\n");
77 code = ftp_line (c);
78 }
79
80 if (code < 200 || code >= 300)
81 {
82 delete c;
83 return;
84 }
85
86 cmd = c;
87 cmd_host = _strdup (host);
88 cmd_port = port;
89
90 cmd->printf ("TYPE I\r\n");
91 code = ftp_line (cmd);
92 }
93
94 cmd->printf ("PASV\r\n");
95 do {
96 code = ftp_line (cmd);
97 } while (code == 226); /* previous RETR */
98 if (code != 227)
99 return;
100
101 char *paren = strchr (last_line, '(');
102 if (!paren)
103 return;
104
105 int i1, i2, i3, i4, p1, p2;
106 sscanf (paren+1, "%d,%d,%d,%d,%d,%d", &i1, &i2, &i3, &i4, &p1, &p2);
107 char tmp[20];
108 sprintf (tmp, "%d.%d.%d.%d", i1, i2, i3, i4);
109 s = new SimpleSocket (tmp, p1*256 + p2);
110
111 cmd->printf ("RETR %s\r\n", path);
112 code = ftp_line (cmd);
113 if (code != 150)
114 {
115 delete s;
116 s = 0;
117 return;
118 }
119 }
120
121 NetIO_FTP::~NetIO_FTP ()
122 {
123 if (s)
124 delete s;
125 }
126
127 int
128 NetIO_FTP::ok ()
129 {
130 if (s)
131 return 1;
132 return 0;
133 }
134
135 int
136 NetIO_FTP::read (char *buf, int nbytes)
137 {
138 if (!s)
139 return 0;
140 return s->read (buf, nbytes);
141 }