-
Notifications
You must be signed in to change notification settings - Fork 4
/
ckcmai.c
397 lines (355 loc) · 14.1 KB
/
ckcmai.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
char *versio = "uCKermit, 4G(178), 2023-MAY-19";
/* C K C M A I -- uCKermit Main program */
/* SPDX-License-Identifier: BSD-3-Clause */
/*
* Copyright (c) 2021, 2022, 2023 Jeffrey H. Johnson <[email protected]>
*
* Copyright (c) 1981-2011,
* Trustees of Columbia University in the City of New York.
*
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
*
* - Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
*
* - Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in
* the documentation and/or other materials provided with the
* distribution.
*
* - Neither the name of Columbia University nor the names of its
* contributors may be used to endorse or promote products derived
* from this software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
* A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
* HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
* LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
* OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include "ckcdeb.h" /* Debug & other symbols */
#include "ckcker.h" /* Kermit symbols */
#ifdef __linux__
#include <stdlib.h>
#include <string.h> /* String manipulation */
#include <stdio.h>
#endif /* ifdef __linux__ */
/*
* Text message definitions, each
* must be 256 chars long or less.
*/
#ifdef NODOHLP
char *hlptxt =
"HELP unavailable.\n\
\n\0";
#else /* ifdef NODOHLP */
char *hlptxt =
"uCKermit Server REMOTE Commands:\n\
\n\
GET files REMOTE CWD [dir] REMOTE DIRECTORY [files]\n\
SEND files REMOTE SPACE [dir] REMOTE HOST command\n\
MAIL files REMOTE DELETE files REMOTE WHO [user]\n\
BYE REMOTE PRINT files REMOTE TYPE files\n\
FINISH REMOTE HELP\n\
\n\0";
#endif /* ifdef NODOHLP */
#ifndef NOSERVER
#ifdef NODOHLP
char *srvtxt = "\r\n\
Server starting.\n\r\n\0";
#else /* ifdef NODOHLP */
char *srvtxt =
"\r\n\
uCKermit Server starting. Return to your local machine by typing\r\n\
its escape sequence for closing the connection, and issue further\r\n\
commands from there. To shut down the uCKermit server, issue the\r\n\
FINISH or BYE command and then reconnect.\n\
\r\n\0";
#endif /* ifdef NODOHLP */
#endif /* ifndef NOSERVER */
/*
* Declarations for
* Send-Init Parameters
*/
int spsiz = DSPSIZ, /* curent packet size to send */
spmax = DSPSIZ, /* Biggest packet size we can send */
spsizf = 0, /* Flag to override what you ask for */
rpsiz = DRPSIZ, /* Biggest we want to receive */
urpsiz = DRPSIZ, /* User-requested rpsiz */
maxrps = MAXRP; /* Maximum incoming long packet size */
#ifndef NOICP
int maxsps = MAXSP; /* Maximum outbound l.p. size */
#endif /* ifndef NOICP */
int maxtry = MAXTRY, /* Maximum retries per packet */
wslots = 1, /* Window size */
timint = DMYTIM, /* Timeout interval I use */
srvtim = DSRVTIM, /* Server command wait timeout */
rtimo = URTIME, /* Timeout I want you to use */
timef = 0, /* Flag to override what you ask */
npad = MYPADN, /* How much padding to send */
mypadn = MYPADN, /* How much padding to ask for */
bctr = 1, /* Block check type requested */
bctu = 1, /* Block check type used */
ebq = MYEBQ, /* 8th bit prefix */
ebqflg = 0, /* 8th-bit quoting flag */
rqf = -1, /* Flag used in 8bq negotiation */
rq = 0, /* Received 8bq bid */
sq = 'Y', /* Sent 8bq bid */
rpt = 0, /* Repeat count */
rptq = MYRPTQ, /* Repeat prefix */
rptflg = 0; /* Repeat processing flag */
int capas = 10, /* Position of Capabilities */
#ifndef NOATTR
atcapb = 8, /* Attribute capability */
atcapr = 1, /* requested */
atcapu = 0, /* used */
#endif /* ifndef NOATTR */
swcapb = 4, /* Sliding Window capability */
swcapr = 0, /* requested */
swcapu = 0, /* used */
lpcapb = 2, /* Long Packet capability */
lpcapr = 1, /* requested */
lpcapu = 0; /* used */
CHAR padch = MYPADC, /* Padding character to send */
mypadc = MYPADC, /* Padding character to ask for */
seol = MYEOL, /* End-Of-Line character to send */
eol = MYEOL, /* End-Of-Line character to look for */
ctlq = CTLQ, /* Control prefix in incoming data */
myctlq = CTLQ; /* Outbound control character prefix */
struct zattr iattr; /* Incoming file attributes */
/*
* Packet-related
* variables
*/
int pktnum = 0, /* Current packet number */
prvpkt = -1, /* Previous packet number */
sndtyp, /* Type of packet just sent */
rsn, /* Received packet sequence number */
rln, /* Received packet length */
size, /* Current size of output pkt data */
maxsize, /* Max size for building data field */
spktl = 0; /* Length packet being sent */
CHAR sndpkt[MAXSP + 100], /* Entire packet being sent */
recpkt[MAXRP + 200], /* Packet most recently received */
*rdatap, /* Pointer to received packet data */
data[MAXSP + 4], /* Packet data buffer */
srvcmd[MAXRP + 4], /* Where to decode server command */
*srvptr, /* Pointer to above */
mystch = SOH, /* Outbound packet-start character */
stchr = SOH; /* Incoming packet-start character */
/*
* File-related
* variables.
*/
CHAR filnam[50]; /* Name of current file. */
int nfils; /* Number of files in file group */
long fsize; /* Size of current file */
/*
* Communication
* line variables
*/
CHAR ttname[50]; /* Name of communication line. */
int parity, /* Parity specified, 0, 'e', 'o', etc */
flow, /* Flow control, 1 = xon/xoff */
speed = -1, /* Line speed */
turn = 0, /* Line turnaround handshake flag */
turnch = XON, /* Line turnaround character */
duplex = 0, /* Duplex, full by default */
escape = 034, /* Escape character for connect */
delay = DDELAY, /* Initial delay before sending */
mdmtyp = 0; /* Modem type (initially none) */
#ifndef NOICP
int tlevel = -1; /* Take-file command level */
#endif /* ifndef NOICP */
/*
* Statistics
* variables
*/
long filcnt, /* Number of files in transaction */
flci, /* Characters from line, current file */
flco, /* Chars to line, current file */
tlci, /* Chars from line in transaction */
tlco, /* Chars to line in transaction */
ffc; /* Chars to/from current file */
#ifndef NOSTATS
long tfc; /* Chars to/from files in transaction */
int tsecs; /* Seconds for transaction */
#endif
/*
* Flags
*/
#ifdef DEBUG
#ifndef NOLOGS
int deblog = 0; /* Flag for debug logging */
#endif /* ifndef NOLOGS */
#endif /* ifdef DEBUG */
#ifndef NOLOGS
int pktlog = 0, /* Flag for packet logging */
seslog = 0; /* Session logging */
#endif /* ifndef NOLOGS */
#ifndef NOLOGS
#ifdef TLOG
int tralog = 0; /* Transaction logging */
#endif /* ifdef TLOG */
#endif /* ifndef NOLOGS */
int displa = 0, /* File transfer display on/off */
stdouf = 0, /* Flag for output to stdout */
xflg = 0, /* Flag for X instead of F packet */
hcflg = 0, /* Doing Host command */
fncnv = 1, /* Flag for file name conversion */
binary = 1, /* Flag for binary file */
savmod = 0, /* Saved file mode (whole session) */
bsave = 0, /* Saved file mode (per file) */
bsavef = 0, /* Flag if bsave was used. */
cmask = 0177, /* Connect byte mask */
fmask = 0377, /* File byte mask */
warn = 1, /* Flag for file warning */
quiet = 0, /* Be quiet during file transfer */
local = 0, /* Flag for external tty vs stdout */
#ifndef NOSERVER
server = 0, /* Flag for being a server */
#endif /* ifndef NOSERVER */
#ifndef NOCOCONN
cnflg = 0, /* Connect after transaction */
#endif /* ifndef NOCONN */
cxseen = 0, /* Flag for cancelling a file */
czseen = 0, /* Flag for cancelling file group */
keep = 0, /* Keep incomplete files */
nakstate = 0; /* In a state where we can send NAKs */
/*
* Variables passed from command
* parser to protocol module
*/
#ifndef NOICP
char parser(); /* The parser itself */
#endif /* ifndef NOICP */
char sstate = 0; /* Starting state for automaton */
char *cmarg = ""; /* Pointer to command data */
char *cmarg2 = ""; /* Pointer to 2nd command data */
char **cmlist; /* Pointer to file list in argv */
/*
* Miscellaneous
*/
char **xargv; /* Global copies of */
int xargc; /* argv and argc */
extern char *dftty; /* Default tty name */
extern int dfloc; /* Default location: remote/local */
extern int dfprty; /* Default parity */
extern int dfflow; /* Default flow control */
extern char *ckzsys;
/*
* Input and output
* buffers; see getpkt()
*/
CHAR zinbuffer[INBUFSIZE];
CHAR zoutbuffer[INBUFSIZE];
CHAR *zinptr;
CHAR *zoutptr;
int zincnt;
int zoutcnt;
/* M A I N -- uCKermit main program */
FTYPE
main(argc, argv)
int argc;
char **argv;
{
#ifndef __linux__
char *strcpy();
#endif /* ifndef __linux__ */
xargc = argc; /* Make global copies of */
xargv = argv; /* argv and argc */
sstate = 0; /* No default start state. */
if (sysinit() < 0)
{
#ifndef NOICP
doexit(BAD_EXIT); /* System-dependent initialization. */
#else /* ifndef NOICP */
exit(BAD_EXIT);
#endif /* ifndef NOICP */
}
strcpy(ttname, dftty); /* Set up default tty name. */
local = dfloc; /* And whether it's local or remote. */
parity = dfprty; /* Set initial parity, */
flow = dfflow; /* and flow control. */
/*
* Attempt to take init file
* before doing command line
*/
#ifndef NOICP
cmdini(); /* Sets tlevel */
while (tlevel > -1) /* Execute init file. */
{
sstate = parser(); /* Loop getting commands. */
if (sstate)
{
proto(); /* Enter protocol if requested. */
}
}
#endif /* ifndef NOICP */
/*
* Look for a UNIX-style
* command line...
*/
if (argc > 1) /* Command line arguments? */
{
sstate = cmdlin(); /* Yes, parse. */
if (sstate)
{
proto(); /* Take any requested action, then */
if (!quiet)
{
conoll(""); /* put cursor back at left margin, */
}
#ifndef NOCONN
if (cnflg)
{
conect(); /* connect if requested, */
}
#endif /* ifndef NOCONN */
#ifndef NOICP
doexit(GOOD_EXIT); /* and then exit with status 0. */
#else /* ifndef NOICP */
return( GOOD_EXIT );
#endif /* ifndef NOICP */
}
}
/*
* If no action requested on command
* line, enter interactive parser.
*/
#ifndef NOICP
herald(); /* Display program herald. */
while (1) /* Loop getting commands. */
{
sstate = parser();
#endif /* ifndef NOICP */
if (sstate)
{
proto(); /* Enter protocol if requested. */
}
#ifndef NOICP
}
#endif /* ifndef NOICP */
/*
* If interactive mode
* is not available...
*/
printf("\r%s,%s", versio, ckzsys);
printf("\r\nError: No action requested");
#ifdef NODOHLP
printf(".\r\n");
#else /* ifdef NODOHLP */
printf(", use -h for help\r\n");
#endif /* ifdef NODOHLP */
return ( 1 );
}