NetBSD/gnu/libexec/uucp/cu/cu.c

2187 lines
51 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/* cu.c
Call up a remote system.
Copyright (C) 1992, 1993, 1994, 1995 Ian Lance Taylor
This file is part of the Taylor UUCP package.
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as
published by the Free Software Foundation; either version 2 of the
License, or (at your option) any later version.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
The author of the program may be contacted at ian@airs.com or
c/o Cygnus Support, 48 Grove Street, Somerville, MA 02144.
*/
#include "uucp.h"
#if USE_RCS_ID
const char cu_rcsid[] = "$Id: cu.c,v 1.3 1995/08/24 05:19:30 jtc Exp $";
#endif
#include "cu.h"
#include "uudefs.h"
#include "uuconf.h"
#include "conn.h"
#include "prot.h"
#include "system.h"
#include "sysdep.h"
#include "getopt.h"
#include <stdio.h>
#include <ctype.h>
#include <errno.h>
/* Here are the user settable variables. The user is permitted to
change these while running the program, using ~s. */
/* The escape character used to introduce a special command. The
escape character is the first character of this string. */
const char *zCuvar_escape = "~";
/* Whether to delay for a second before printing the host name after
seeing an escape character. */
boolean fCuvar_delay = TRUE;
/* The input characters which finish a line. The escape character is
only recognized following one of these characters. The default is
carriage return, ^U, ^C, ^O, ^D, ^S, ^Q, ^R, which I got from the
Ultrix /etc/remote file. */
const char *zCuvar_eol = "\r\025\003\017\004\023\021\022";
/* Whether to transfer binary data (nonprintable characters other than
newline and tab) when sending a file. If this is FALSE, then
newline is changed to carriage return. */
boolean fCuvar_binary = FALSE;
/* A prefix string to use before sending a binary character from a
file; this is only used if fCuvar_binary is TRUE. The default is
^V. */
const char *zCuvar_binary_prefix = "\026";
/* Whether to check for echoes of characters sent when sending a file.
This is ignored if fCuvar_binary is TRUE. */
boolean fCuvar_echocheck = FALSE;
/* A character to look for after each newline is sent when sending a
file. The character is the first character in this string, except
that a '\0' means that no echo check is done. */
const char *zCuvar_echonl = "\r";
/* The timeout to use when looking for an character. */
int cCuvar_timeout = 30;
/* The character to use to kill a line if an echo check fails. The
first character in this string is sent. The default is ^U. */
const char *zCuvar_kill = "\025";
/* The number of times to try resending a line if the echo check keeps
failing. */
int cCuvar_resend = 10;
/* The string to send at the end of a file sent with ~>. The default
is ^D. */
const char *zCuvar_eofwrite = "\004";
/* The string to look for to finish a file received with ~<. For tip
this is a collection of single characters, but I don't want to do
that because it means that there are characters which cannot be
received. The default is a guess at a typical shell prompt. */
const char *zCuvar_eofread = "$";
/* Whether to provide verbose information when sending or receiving a
file. */
boolean fCuvar_verbose = TRUE;
/* The table used to give a value to a variable, and to print all the
variable values. */
static const struct uuconf_cmdtab asCuvars[] =
{
{ "escape", UUCONF_CMDTABTYPE_STRING, (pointer) &zCuvar_escape, NULL },
{ "delay", UUCONF_CMDTABTYPE_BOOLEAN, (pointer) &fCuvar_delay, NULL },
{ "eol", UUCONF_CMDTABTYPE_STRING, (pointer) &zCuvar_eol, NULL },
{ "binary", UUCONF_CMDTABTYPE_BOOLEAN, (pointer) &fCuvar_binary, NULL },
{ "binary-prefix", UUCONF_CMDTABTYPE_STRING,
(pointer) &zCuvar_binary_prefix, NULL },
{ "echocheck", UUCONF_CMDTABTYPE_BOOLEAN,
(pointer) &fCuvar_echocheck, NULL },
{ "echonl", UUCONF_CMDTABTYPE_STRING, (pointer) &zCuvar_echonl, NULL },
{ "timeout", UUCONF_CMDTABTYPE_INT, (pointer) &cCuvar_timeout, NULL },
{ "kill", UUCONF_CMDTABTYPE_STRING, (pointer) &zCuvar_kill, NULL },
{ "resend", UUCONF_CMDTABTYPE_INT, (pointer) &cCuvar_resend, NULL },
{ "eofwrite", UUCONF_CMDTABTYPE_STRING, (pointer) &zCuvar_eofwrite, NULL },
{ "eofread", UUCONF_CMDTABTYPE_STRING, (pointer) &zCuvar_eofread, NULL },
{ "verbose", UUCONF_CMDTABTYPE_BOOLEAN, (pointer) &fCuvar_verbose, NULL },
{ NULL, 0, NULL, NULL}
};
/* The string printed at the initial connect. */
#if ANSI_C
#define ZCONNMSG "\aConnected."
#else
#define ZCONNMSG "Connected."
#endif
/* The string printed when disconnecting. */
#if ANSI_C
#define ZDISMSG "\aDisconnected."
#else
#define ZDISMSG "Disconnected."
#endif
/* Local variables. */
/* The string we print when the user is once again connected to the
port after transferring a file or taking some other action. */
static const char abCuconnected[]
#if ANSI_C
= "\a[connected]";
#else
= "[connected]";
#endif
/* Global uuconf pointer. */
static pointer pCuuuconf;
/* Connection. */
static struct sconnection *qCuconn;
/* Whether to close the connection. */
static boolean fCuclose_conn;
/* Dialer used to dial out. */
static struct uuconf_dialer *qCudialer;
/* Whether we need to restore the terminal. */
static boolean fCurestore_terminal;
/* Whether we are doing local echoing. */
static boolean fCulocalecho;
/* Whether we need to call fsysdep_cu_finish. */
static boolean fCustarted;
/* Whether ZCONNMSG has been printed yet. */
static boolean fCuconnprinted = FALSE;
/* A structure used to pass information to icuport_lock. */
struct sconninfo
{
boolean fmatched;
boolean flocked;
struct sconnection *qconn;
const char *zline;
};
/* Local functions. */
static void ucuusage P((void));
static void ucuhelp P((void));
static void ucuabort P((void));
static void uculog_start P((void));
static void uculog_end P((void));
static int icuport_lock P((struct uuconf_port *qport, pointer pinfo));
static boolean fcudo_cmd P((pointer puuconf, struct sconnection *qconn,
int bcmd));
static boolean fcuset_var P((pointer puuconf, char *zline));
static int icuunrecogvar P((pointer puuconf, int argc, char **argv,
pointer pvar, pointer pinfo));
static int icuunrecogfn P((pointer puuconf, int argc, char **argv,
pointer pvar, pointer pinfo));
static void uculist_vars P((void));
static void uculist_fns P((const char *zescape));
static boolean fcudo_subcmd P((pointer puuconf, struct sconnection *qconn,
char *zline));
static boolean fcusend_buf P((struct sconnection *qconn, const char *zbuf,
size_t cbuf));
#define ucuputs(zline) \
do { if (! fsysdep_terminal_puts (zline)) ucuabort (); } while (0)
/* Long getopt options. */
static const struct option asCulongopts[] =
{
{ "phone", required_argument, NULL, 'c' },
{ "escape", required_argument, NULL, 'E' },
{ "parity", required_argument, NULL, 2 },
{ "halfduplex", no_argument, NULL, 'h' },
{ "prompt", no_argument, NULL, 'n' },
{ "line", required_argument, NULL, 'l' },
{ "port", required_argument, NULL, 'p' },
{ "speed", required_argument, NULL, 's' },
{ "baud", required_argument, NULL, 's' },
{ "mapcr", no_argument, NULL, 't' },
{ "nostop", no_argument, NULL, 3 },
{ "system", required_argument, NULL, 'z' },
{ "config", required_argument, NULL, 'I' },
{ "debug", required_argument, NULL, 'x' },
{ "version", no_argument, NULL, 'v' },
{ "help", no_argument, NULL, 1 },
{ NULL, 0, NULL, 0 }
};
int
main (argc, argv)
int argc;
char **argv;
{
/* -c: phone number. */
char *zphone = NULL;
/* -e: even parity. */
boolean feven = FALSE;
/* -l: line. */
char *zline = NULL;
/* -n: prompt for phone number. */
boolean fprompt = FALSE;
/* -o: odd parity. */
boolean fodd = FALSE;
/* -p: port name. */
const char *zport = NULL;
/* -s: speed. */
long ibaud = 0L;
/* -t: map cr to crlf. */
boolean fmapcr = FALSE;
/* -z: system. */
const char *zsystem = NULL;
/* --nostop: turn off XON/XOFF. */
enum txonxoffsetting txonxoff = XONXOFF_ON;
/* -I: configuration file name. */
const char *zconfig = NULL;
int iopt;
pointer puuconf;
int iuuconf;
const char *zlocalname;
int i;
struct uuconf_system ssys;
const struct uuconf_system *qsys = NULL;
boolean flooped;
struct uuconf_port sport;
struct sconnection sconn;
struct sconninfo sinfo;
long ihighbaud;
struct uuconf_dialer sdialer;
struct uuconf_dialer *qdialer;
char bcmd;
zProgram = argv[0];
/* We want to accept -# as a speed. It's easiest to look through
the arguments, replace -# with -s#, and let getopt handle it. */
for (i = 1; i < argc; i++)
{
if (argv[i][0] == '-'
&& isdigit (BUCHAR (argv[i][1])))
{
size_t clen;
char *z;
clen = strlen (argv[i]);
z = zbufalc (clen + 2);
z[0] = '-';
z[1] = 's';
memcpy (z + 2, argv[i] + 1, clen);
argv[i] = z;
}
}
while ((iopt = getopt_long (argc, argv, "a:c:deE:hnI:l:op:s:tvx:z:",
asCulongopts, (int *) NULL)) != EOF)
{
switch (iopt)
{
case 'c':
/* Phone number. */
zphone = optarg;
break;
case 'd':
/* Set debugging level to maximum. */
#if DEBUG > 1
iDebug = DEBUG_MAX;
#endif
break;
case 'e':
/* Even parity. */
feven = TRUE;
break;
case 'E':
/* Escape character. */
zCuvar_escape = optarg;
break;
case 'h':
/* Local echo. */
fCulocalecho = TRUE;
break;
case 'n':
/* Prompt for phone number. */
fprompt = TRUE;
break;
case 'l':
/* Line name. */
zline = optarg;
break;
case 'o':
/* Odd parity. */
fodd = TRUE;
break;
case 'p':
case 'a':
/* Port name (-a is for compatibility). */
zport = optarg;
break;
case 's':
/* Speed. */
ibaud = strtol (optarg, (char **) NULL, 10);
break;
case 't':
/* Map cr to crlf. */
fmapcr = TRUE;
break;
case 'z':
/* System name. */
zsystem = optarg;
break;
case 'I':
/* Configuration file name. */
if (fsysdep_other_config (optarg))
zconfig = optarg;
break;
case 'x':
#if DEBUG > 1
/* Set debugging level. */
iDebug |= idebug_parse (optarg);
#endif
break;
case 'v':
/* Print version and exit. */
fprintf
(stderr,
"%s: Taylor UUCP %s, copyright (C) 1991, 92, 93, 94, 1995 Ian Lance Taylor\n",
zProgram, VERSION);
exit (EXIT_SUCCESS);
/*NOTREACHED*/
case 2:
/* --parity. */
if (strncmp (optarg, "even", strlen (optarg)) == 0)
feven = TRUE;
else if (strncmp (optarg, "odd", strlen (optarg)) == 0)
fodd = TRUE;
else if (strncmp (optarg, "none", strlen (optarg)) == 0)
{
feven = TRUE;
fodd = TRUE;
}
else
{
fprintf (stderr, "%s: --parity requires even, odd or none\n",
zProgram);
ucuusage ();
}
break;
case 3:
/* --nostop. */
txonxoff = XONXOFF_OFF;
break;
case 1:
/* --help. */
ucuhelp ();
exit (EXIT_SUCCESS);
/*NOTREACHED*/
case 0:
/* Long option found and flag set. */
break;
default:
ucuusage ();
/*NOTREACHED*/
}
}
/* There can be one more argument, which is either a system name, a
phone number, or "dir". We decide which it is based on the first
character. To call a UUCP system whose name begins with a digit,
or one which is named "dir", you must use -z. */
if (optind != argc)
{
if (optind != argc - 1
|| zsystem != NULL
|| zphone != NULL)
{
fprintf (stderr, "%s: too many arguments\n", zProgram);
ucuusage ();
}
if (strcmp (argv[optind], "dir") != 0)
{
if (isdigit (BUCHAR (argv[optind][0])))
zphone = argv[optind];
else
zsystem = argv[optind];
}
}
/* If the user doesn't give a system, port, line or speed, then
there's no basis on which to select a port. */
if (zsystem == NULL
&& zport == NULL
&& zline == NULL
&& ibaud == 0L)
{
fprintf (stderr, "%s: must specify system, line, port or speed\n",
zProgram);
ucuusage ();
}
if (fprompt)
{
size_t cphone;
printf ("Phone number: ");
(void) fflush (stdout);
zphone = NULL;
cphone = 0;
if (getline (&zphone, &cphone, stdin) <= 0
|| *zphone == '\0')
{
fprintf (stderr, "%s: no phone number entered\n", zProgram);
exit (EXIT_FAILURE);
}
}
iuuconf = uuconf_init (&puuconf, "cu", zconfig);
if (iuuconf != UUCONF_SUCCESS)
ulog_uuconf (LOG_FATAL, puuconf, iuuconf);
pCuuuconf = puuconf;
#if DEBUG > 1
{
const char *zdebug;
iuuconf = uuconf_debuglevel (puuconf, &zdebug);
if (iuuconf != UUCONF_SUCCESS)
ulog_uuconf (LOG_FATAL, puuconf, iuuconf);
if (zdebug != NULL)
iDebug |= idebug_parse (zdebug);
}
#endif
usysdep_initialize (puuconf, INIT_NOCHDIR | INIT_SUID);
iuuconf = uuconf_localname (puuconf, &zlocalname);
if (iuuconf == UUCONF_NOT_FOUND)
{
zlocalname = zsysdep_localname ();
if (zlocalname == NULL)
exit (EXIT_FAILURE);
}
else if (iuuconf != UUCONF_SUCCESS)
ulog_uuconf (LOG_FATAL, puuconf, iuuconf);
ulog_fatal_fn (ucuabort);
pfLstart = uculog_start;
pfLend = uculog_end;
#ifdef SIGINT
usysdep_signal (SIGINT);
#endif
#ifdef SIGHUP
usysdep_signal (SIGHUP);
#endif
#ifdef SIGQUIT
usysdep_signal (SIGQUIT);
#endif
#ifdef SIGTERM
usysdep_signal (SIGTERM);
#endif
#ifdef SIGPIPE
usysdep_signal (SIGPIPE);
#endif
if (zsystem != NULL)
{
iuuconf = uuconf_system_info (puuconf, zsystem, &ssys);
if (iuuconf != UUCONF_SUCCESS)
{
if (iuuconf != UUCONF_NOT_FOUND)
ulog_uuconf (LOG_FATAL, puuconf, iuuconf);
ulog (LOG_FATAL, "%s: System not found", zsystem);
}
qsys = &ssys;
}
/* This loop is used if a system is specified. It loops over the
various alternates until it finds one for which the dial
succeeds. This is an ugly spaghetti construction, and it should
be broken up into different functions someday. */
flooped = FALSE;
while (TRUE)
{
enum tparitysetting tparity;
enum tstripsetting tstrip;
long iusebaud;
/* The uuconf_find_port function only selects directly on a port
name and a speed. To select based on the line name, we use a
function. If we can't find any defined port, and the user
specified a line name but did not specify a port name or a
system or a phone number, then we fake a direct port with
that line name (we don't fake a port if a system or phone
number were given because if we fake a port we have no way to
place a call; perhaps we should automatically look up a
particular dialer). This permits users to say cu -lttyd0
without having to put ttyd0 in the ports file, provided they
have read and write access to the port. */
sinfo.fmatched = FALSE;
sinfo.flocked = FALSE;
sinfo.qconn = &sconn;
sinfo.zline = zline;
if (zport != NULL || zline != NULL || ibaud != 0L)
{
iuuconf = uuconf_find_port (puuconf, zport, ibaud, 0L,
icuport_lock, (pointer) &sinfo,
&sport);
if (iuuconf != UUCONF_SUCCESS)
{
if (iuuconf != UUCONF_NOT_FOUND)
{
if (sinfo.flocked)
{
(void) fconn_unlock (&sconn);
uconn_free (&sconn);
}
ulog_uuconf (LOG_FATAL, puuconf, iuuconf);
}
if (zline == NULL
|| zport != NULL
|| zphone != NULL
|| qsys != NULL)
{
if (sinfo.fmatched)
ulog (LOG_FATAL, "All matching ports in use");
else
ulog (LOG_FATAL, "No matching ports");
}
sport.uuconf_zname = zline;
sport.uuconf_ttype = UUCONF_PORTTYPE_DIRECT;
sport.uuconf_zprotocols = NULL;
sport.uuconf_qproto_params = NULL;
sport.uuconf_ireliable = 0;
sport.uuconf_zlockname = NULL;
sport.uuconf_palloc = NULL;
sport.uuconf_u.uuconf_sdirect.uuconf_zdevice = NULL;
sport.uuconf_u.uuconf_sdirect.uuconf_ibaud = ibaud;
if (! fconn_init (&sport, &sconn, UUCONF_PORTTYPE_UNKNOWN))
ucuabort ();
if (! fconn_lock (&sconn, FALSE))
ulog (LOG_FATAL, "%s: Line in use", zline);
qCuconn = &sconn;
/* Check user access after locking the port, because on
some systems shared lines affect the ownership and
permissions. In such a case ``Line in use'' is more
clear than ``Permission denied.'' */
if (! fsysdep_port_access (&sport))
ulog (LOG_FATAL, "%s: Permission denied", zline);
}
iusebaud = ibaud;
ihighbaud = 0L;
}
else
{
for (; qsys != NULL; qsys = qsys->uuconf_qalternate)
{
if (! qsys->uuconf_fcall)
continue;
if (qsys->uuconf_qport != NULL)
{
if (fconn_init (qsys->uuconf_qport, &sconn,
UUCONF_PORTTYPE_UNKNOWN))
{
if (fconn_lock (&sconn, FALSE))
{
qCuconn = &sconn;
break;
}
uconn_free (&sconn);
}
}
else
{
sinfo.fmatched = FALSE;
sinfo.flocked = FALSE;
sinfo.qconn = &sconn;
iuuconf = uuconf_find_port (puuconf, qsys->uuconf_zport,
qsys->uuconf_ibaud,
qsys->uuconf_ihighbaud,
icuport_lock,
(pointer) &sinfo,
&sport);
if (iuuconf == UUCONF_SUCCESS)
break;
if (iuuconf != UUCONF_NOT_FOUND)
{
if (sinfo.flocked)
{
(void) fconn_unlock (&sconn);
uconn_free (&sconn);
}
ulog_uuconf (LOG_FATAL, puuconf, iuuconf);
}
}
}
if (qsys == NULL)
{
const char *zrem;
if (flooped)
zrem = "remaining ";
else
zrem = "";
if (sinfo.fmatched)
ulog (LOG_FATAL, "%s: All %smatching ports in use",
zsystem, zrem);
else
ulog (LOG_FATAL, "%s: No %smatching ports", zsystem, zrem);
}
iusebaud = qsys->uuconf_ibaud;
ihighbaud = qsys->uuconf_ihighbaud;
}
/* Here we have locked a connection to use. */
if (! fconn_open (&sconn, iusebaud, ihighbaud, FALSE))
ucuabort ();
fCuclose_conn = TRUE;
if (FGOT_SIGNAL ())
ucuabort ();
/* Set up the connection. */
if (fodd && feven)
{
tparity = PARITYSETTING_NONE;
tstrip = STRIPSETTING_SEVENBITS;
}
else if (fodd)
{
tparity = PARITYSETTING_ODD;
tstrip = STRIPSETTING_SEVENBITS;
}
else if (feven)
{
tparity = PARITYSETTING_EVEN;
tstrip = STRIPSETTING_SEVENBITS;
}
else
{
tparity = PARITYSETTING_DEFAULT;
tstrip = STRIPSETTING_DEFAULT;
}
if (! fconn_set (&sconn, tparity, tstrip, txonxoff))
ucuabort ();
if (qsys != NULL)
zphone = qsys->uuconf_zphone;
if (qsys != NULL || zphone != NULL)
{
enum tdialerfound tdialer;
if (! fconn_dial (&sconn, puuconf, qsys, zphone, &sdialer,
&tdialer))
{
if (zport != NULL
|| zline != NULL
|| ibaud != 0L
|| qsys == NULL)
ucuabort ();
qsys = qsys->uuconf_qalternate;
if (qsys == NULL)
ulog (LOG_FATAL, "%s: No remaining alternates", zsystem);
fCuclose_conn = FALSE;
(void) fconn_close (&sconn, pCuuuconf, qCudialer, FALSE);
qCuconn = NULL;
(void) fconn_unlock (&sconn);
uconn_free (&sconn);
/* Loop around and try another alternate. */
flooped = TRUE;
continue;
}
if (tdialer == DIALERFOUND_FALSE)
qdialer = NULL;
else
qdialer = &sdialer;
}
else
{
/* If no system or phone number was specified, we connect
directly to the modem. We only permit this if the user
has access to the port, since it permits various
shenanigans such as reprogramming the automatic
callbacks. */
if (! fsysdep_port_access (sconn.qport))
ulog (LOG_FATAL, "Access to port denied");
qdialer = NULL;
if (! fconn_carrier (&sconn, FALSE))
ulog (LOG_FATAL, "Can't turn off carrier");
}
break;
}
qCudialer = qdialer;
if (FGOT_SIGNAL ())
ucuabort ();
/* Here we have connected, and can start the main cu protocol. The
program spends most of its time in system dependent code, and
only comes out when a special command is received from the
terminal. */
printf ("%s\n", ZCONNMSG);
fCuconnprinted = TRUE;
if (! fsysdep_terminal_raw (fCulocalecho))
ucuabort ();
fCurestore_terminal = TRUE;
if (! fsysdep_cu_init (&sconn))
ucuabort ();
fCustarted = TRUE;
while (fsysdep_cu (&sconn, &bcmd, zlocalname))
if (! fcudo_cmd (puuconf, &sconn, bcmd))
break;
fCustarted = FALSE;
if (! fsysdep_cu_finish ())
ucuabort ();
fCurestore_terminal = FALSE;
(void) fsysdep_terminal_restore ();
(void) fconn_close (&sconn, puuconf, qdialer, TRUE);
(void) fconn_unlock (&sconn);
uconn_free (&sconn);
if (fCuconnprinted)
printf ("\n%s\n", ZDISMSG);
ulog_close ();
usysdep_exit (TRUE);
/* Avoid errors about not returning a value. */
return 0;
}
/* Print a usage message and die. */
static void
ucuusage ()
{
fprintf (stderr, "Usage: %s [options] [system or phone-number]\n",
zProgram);
fprintf (stderr, "Use %s --help for help\n", zProgram);
exit (EXIT_FAILURE);
}
/* Print a help message. */
static void
ucuhelp ()
{
fprintf (stderr,
"Taylor UUCP %s, copyright (C) 1991, 92, 93, 94, 1995 Ian Lance Taylor\n",
VERSION);
fprintf (stderr,
"Usage: %s [options] [system or phone-number]\n", zProgram);
fprintf (stderr,
" -a,-p,--port port: Use named port\n");
fprintf (stderr,
" -l,--line line: Use named device (e.g. tty0)\n");
fprintf (stderr,
" -s,--speed,--baud speed, -#: Use given speed\n");
fprintf (stderr,
" -c,--phone phone: Phone number to call\n");
fprintf (stderr,
" -z,--system system: System to call\n");
fprintf (stderr,
" -e: Set even parity\n");
fprintf (stderr,
" -o: Set odd parity\n");
fprintf (stderr,
" --parity={odd,even}: Set parity\n");
fprintf (stderr,
" -E,--escape char: Set escape character\n");
fprintf (stderr,
" -h,--halfduplex: Echo locally\n");
fprintf (stderr,
" --nostop: Turn off XON/XOFF handling\n");
fprintf (stderr,
" -t,--mapcr: Map carriage return to carriage return/linefeed\n");
fprintf (stderr,
" -n,--prompt: Prompt for phone number\n");
fprintf (stderr,
" -d: Set maximum debugging level\n");
fprintf (stderr,
" -x,--debug debug: Set debugging type\n");
#if HAVE_TAYLOR_CONFIG
fprintf (stderr,
" -I,--config file: Set configuration file to use\n");
#endif /* HAVE_TAYLOR_CONFIG */
fprintf (stderr,
" -v,--version: Print version and exit\n");
fprintf (stderr,
" --help: Print help and exit\n");
}
/* This function is called when a fatal error occurs. */
static void
ucuabort ()
{
if (fCustarted)
{
fCustarted = FALSE;
(void) fsysdep_cu_finish ();
}
if (fCurestore_terminal)
{
fCurestore_terminal = FALSE;
(void) fsysdep_terminal_restore ();
}
if (qCuconn != NULL)
{
struct sconnection *qconn;
if (fCuclose_conn)
{
fCuclose_conn = FALSE;
(void) fconn_close (qCuconn, pCuuuconf, qCudialer, FALSE);
}
qconn = qCuconn;
qCuconn = NULL;
(void) fconn_unlock (qconn);
uconn_free (qconn);
}
ulog_close ();
if (fCuconnprinted)
printf ("\n%s\n", ZDISMSG);
usysdep_exit (FALSE);
}
/* This variable is just used to communicate between uculog_start and
uculog_end. */
static boolean fCulog_restore;
/* This function is called by ulog before it output anything. We use
it to restore the terminal, if necessary. ulog is only called for
errors or debugging in cu, so it's not too costly to do this. If
we didn't do it, then at least on Unix each line would leave the
cursor in the same column rather than wrapping back to the start,
since CRMOD will not be on. */
static void
uculog_start ()
{
if (! fCurestore_terminal)
fCulog_restore = FALSE;
else
{
fCulog_restore = TRUE;
fCurestore_terminal = FALSE;
if (! fsysdep_terminal_restore ())
ucuabort ();
}
}
/* This function is called by ulog after everything is output. It
sets the terminal back, if necessary. */
static void
uculog_end ()
{
if (fCulog_restore)
{
if (! fsysdep_terminal_raw (fCulocalecho))
ucuabort ();
fCurestore_terminal = TRUE;
}
}
/* Check to see if this port has the desired line, to handle the -l
option. If it does, or if no line was specified, set up a
connection and lock it. */
static int
icuport_lock (qport, pinfo)
struct uuconf_port *qport;
pointer pinfo;
{
struct sconninfo *q = (struct sconninfo *) pinfo;
if (q->zline != NULL
&& ! fsysdep_port_is_line (qport, q->zline))
return UUCONF_NOT_FOUND;
q->fmatched = TRUE;
if (! fconn_init (qport, q->qconn, UUCONF_PORTTYPE_UNKNOWN))
return UUCONF_NOT_FOUND;
else if (! fconn_lock (q->qconn, FALSE))
{
uconn_free (q->qconn);
return UUCONF_NOT_FOUND;
}
else
{
qCuconn = q->qconn;
q->flocked = TRUE;
return UUCONF_SUCCESS;
}
}
/* Execute a cu escape command. Return TRUE if the connection should
continue, or FALSE if the connection should be terminated. */
static boolean
fcudo_cmd (puuconf, qconn, bcmd)
pointer puuconf;
struct sconnection *qconn;
int bcmd;
{
char *zline;
char *z;
char abescape[5];
boolean fret;
size_t clen;
char abbuf[100];
/* Some commands take a string up to the next newline character. */
switch (bcmd)
{
default:
zline = NULL;
break;
case '!':
case '$':
case '|':
case '+':
case '%':
case 'c':
case '>':
case '<':
case 'p':
case 't':
case 's':
{
zline = zsysdep_terminal_line ((const char *) NULL);
if (zline == NULL)
ucuabort ();
zline[strcspn (zline, "\n")] = '\0';
}
break;
}
switch (bcmd)
{
default:
if (! isprint (*zCuvar_escape))
sprintf (abescape, "\\%03o", BUCHAR (*zCuvar_escape));
else
{
abescape[0] = *zCuvar_escape;
abescape[1] = '\0';
}
sprintf (abbuf, "[Unrecognized. Use %s%s to send %s]",
abescape, abescape, abescape);
ucuputs (abbuf);
return TRUE;
case '.':
/* Hangup. */
return FALSE;
case '!':
case '$':
case '|':
case '+':
/* Shell out. */
if (! fsysdep_cu_copy (FALSE)
|| ! fsysdep_terminal_restore ())
ucuabort ();
fCurestore_terminal = FALSE;
{
enum tshell_cmd t;
switch (bcmd)
{
default:
case '!': t = SHELL_NORMAL; break;
case '$': t = SHELL_STDOUT_TO_PORT; break;
case '|': t = SHELL_STDIN_FROM_PORT; break;
case '+': t = SHELL_STDIO_ON_PORT; break;
}
(void) fsysdep_shell (qconn, zline, t);
}
if (! fsysdep_cu_copy (TRUE)
|| ! fsysdep_terminal_raw (fCulocalecho))
ucuabort ();
fCurestore_terminal = TRUE;
ubuffree (zline);
return TRUE;
case '%':
fret = fcudo_subcmd (puuconf, qconn, zline);
ubuffree (zline);
return fret;
case '#':
if (! fconn_break (qconn))
ucuabort ();
return TRUE;
case 'c':
(void) fsysdep_chdir (zline);
ubuffree (zline);
return TRUE;
case '>':
case '<':
case 'p':
case 't':
clen = strlen (zline);
z = zbufalc (clen + 3);
z[0] = bcmd;
z[1] = ' ';
memcpy (z + 2, zline, clen + 1);
ubuffree (zline);
fret = fcudo_subcmd (puuconf, qconn, z);
ubuffree (z);
return fret;
case 'z':
if (! fsysdep_cu_copy (FALSE)
|| ! fsysdep_terminal_restore ())
ucuabort ();
fCurestore_terminal = FALSE;
if (! fsysdep_suspend ())
ucuabort ();
if (! fsysdep_cu_copy (TRUE)
|| ! fsysdep_terminal_raw (fCulocalecho))
ucuabort ();
fCurestore_terminal = TRUE;
return TRUE;
case 's':
fret = fcuset_var (puuconf, zline);
ubuffree (zline);
return fret;
case 'v':
uculist_vars ();
return TRUE;
case '?':
if (! isprint (*zCuvar_escape))
sprintf (abescape, "\\%03o", BUCHAR (*zCuvar_escape));
else
{
abescape[0] = *zCuvar_escape;
abescape[1] = '\0';
}
ucuputs ("");
ucuputs ("[Escape sequences]");
sprintf (abbuf,
"[%s. hangup] [%s!CMD run shell]",
abescape, abescape);
ucuputs (abbuf);
sprintf (abbuf,
"[%s$CMD stdout to remote] [%s|CMD stdin from remote]",
abescape, abescape);
ucuputs (abbuf);
sprintf (abbuf,
"[%s+CMD stdin and stdout to remote]",
abescape);
ucuputs (abbuf);
sprintf (abbuf,
"[%s# send break] [%scDIR change directory]",
abescape, abescape);
ucuputs (abbuf);
sprintf (abbuf,
"[%s> send file] [%s< receive file]",
abescape, abescape);
ucuputs (abbuf);
sprintf (abbuf,
"[%spFROM TO send to Unix] [%stFROM TO receive from Unix]",
abescape, abescape);
ucuputs (abbuf);
sprintf (abbuf,
"[%ssVAR VAL set variable] [%ssVAR set boolean]",
abescape, abescape);
ucuputs (abbuf);
sprintf (abbuf,
"[%ss!VAR unset boolean] [%sv list variables]",
abescape, abescape);
ucuputs (abbuf);
#ifdef SIGTSTP
sprintf (abbuf,
"[%sz suspend]",
abescape);
ucuputs (abbuf);
#endif
uculist_fns (abescape);
return TRUE;
}
}
/* List ~% functions. */
static void
uculist_fns (zescape)
const char *zescape;
{
char abbuf[100];
sprintf (abbuf,
"[%s%%break send break] [%s%%cd DIR change directory]",
zescape, zescape);
ucuputs (abbuf);
sprintf (abbuf,
"[%s%%put FROM TO send file] [%s%%take FROM TO receive file]",
zescape, zescape);
ucuputs (abbuf);
sprintf (abbuf,
"[%s%%nostop no XON/XOFF] [%s%%stop use XON/XOFF]",
zescape, zescape);
ucuputs (abbuf);
}
/* Set a variable. */
static boolean
fcuset_var (puuconf, zline)
pointer puuconf;
char *zline;
{
char *zvar, *zval;
char *azargs[2];
int iuuconf;
zvar = strtok (zline, "= \t");
if (zvar == NULL)
{
ucuputs (abCuconnected);
return TRUE;
}
zval = strtok ((char *) NULL, " \t");
if (zval == NULL)
{
azargs[0] = zvar;
if (azargs[0][0] != '!')
azargs[1] = zbufcpy ("t");
else
{
++azargs[0];
azargs[1] = zbufcpy ("f");
}
}
else
{
azargs[0] = zvar;
azargs[1] = zbufcpy (zval);
}
iuuconf = uuconf_cmd_args (puuconf, 2, azargs, asCuvars,
(pointer) NULL, icuunrecogvar, 0,
(pointer) NULL);
if ((iuuconf & UUCONF_CMDTABRET_KEEP) == 0)
ubuffree (azargs[1]);
if ((iuuconf &~ UUCONF_CMDTABRET_KEEP) != UUCONF_SUCCESS)
ulog_uuconf (LOG_ERROR, puuconf, iuuconf);
return TRUE;
}
/* Warn about an unknown variable. */
/*ARGSUSED*/
static int
icuunrecogvar (puuconf, argc, argv, pvar, pinfo)
pointer puuconf;
int argc;
char **argv;
pointer pvar;
pointer pinfo;
{
char abescape[5];
if (! isprint (*zCuvar_escape))
sprintf (abescape, "\\%03o", BUCHAR (*zCuvar_escape));
else
{
abescape[0] = *zCuvar_escape;
abescape[1] = '\0';
}
ulog (LOG_ERROR, "%s: unknown variable (%sv lists variables)",
argv[0], abescape);
return UUCONF_CMDTABRET_CONTINUE;
}
/* List all the variables with their values. */
static void
uculist_vars ()
{
const struct uuconf_cmdtab *q;
char abbuf[100];
ucuputs ("");
for (q = asCuvars; q->uuconf_zcmd != NULL; q++)
{
switch (UUCONF_TTYPE_CMDTABTYPE (q->uuconf_itype))
{
case UUCONF_TTYPE_CMDTABTYPE (UUCONF_CMDTABTYPE_BOOLEAN):
if (*(boolean *) q->uuconf_pvar)
sprintf (abbuf, "%s true", q->uuconf_zcmd);
else
sprintf (abbuf, "%s false", q->uuconf_zcmd);
break;
case UUCONF_TTYPE_CMDTABTYPE (UUCONF_CMDTABTYPE_INT):
sprintf (abbuf, "%s %d", q->uuconf_zcmd, *(int *) q->uuconf_pvar);
break;
case UUCONF_TTYPE_CMDTABTYPE (UUCONF_CMDTABTYPE_LONG):
sprintf (abbuf, "%s %ld", q->uuconf_zcmd,
*(long *) q->uuconf_pvar);
break;
case UUCONF_TTYPE_CMDTABTYPE (UUCONF_CMDTABTYPE_STRING):
case UUCONF_TTYPE_CMDTABTYPE (UUCONF_CMDTABTYPE_FULLSTRING):
{
const char *z;
char abchar[5];
size_t clen;
sprintf (abbuf, "%s ", q->uuconf_zcmd);
clen = strlen (abbuf);
for (z = *(const char **) q->uuconf_pvar; *z != '\0'; z++)
{
int cchar;
if (! isprint (*z))
{
sprintf (abchar, "\\%03o", BUCHAR (*z));
cchar = 4;
}
else
{
abchar[0] = *z;
abchar[1] = '\0';
cchar = 1;
}
if (clen + cchar < sizeof (abbuf))
strcat (abbuf, abchar);
clen += cchar;
}
}
break;
default:
sprintf (abbuf, "%s [unprintable type]", q->uuconf_zcmd);
break;
}
ucuputs (abbuf);
}
}
/* Subcommands. These are commands that begin with ~%. */
/* This variable is only used so that we can pass a non-NULL address
in pvar. It is never assigned to or examined. */
static char bCutype;
/* The command table for the subcommands. */
static int icubreak P((pointer puuconf, int argc, char **argv, pointer pvar,
pointer pinfo));
static int icudebug P((pointer puuconf, int argc, char **argv, pointer pvar,
pointer pinfo));
static int icuchdir P((pointer puuconf, int argc, char **argv, pointer pvar,
pointer pinfo));
static int icuput P((pointer puuconf, int argc, char **argv, pointer pvar,
pointer pinfo));
static int icutake P((pointer puuconf, int argc, char **argv, pointer pvar,
pointer pinfo));
static int icunostop P((pointer puuconf, int argc, char **argv, pointer pvar,
pointer pinfo));
static const struct uuconf_cmdtab asCucmds[] =
{
{ "break", UUCONF_CMDTABTYPE_FN | 1, NULL, icubreak },
{ "b", UUCONF_CMDTABTYPE_FN | 1, NULL, icubreak },
{ "cd", UUCONF_CMDTABTYPE_FN | 0, NULL, icuchdir },
{ "d", UUCONF_CMDTABTYPE_FN | 1, NULL, icudebug },
{ "put", UUCONF_CMDTABTYPE_FN | 0, NULL, icuput },
{ "take", UUCONF_CMDTABTYPE_FN | 0, NULL, icutake },
{ "nostop", UUCONF_CMDTABTYPE_FN | 1, NULL, icunostop },
{ "stop", UUCONF_CMDTABTYPE_FN | 1, &bCutype, icunostop },
{ ">", UUCONF_CMDTABTYPE_FN | 0, &bCutype, icuput },
{ "<", UUCONF_CMDTABTYPE_FN | 0, &bCutype, icutake },
{ "p", UUCONF_CMDTABTYPE_FN | 0, NULL, icuput },
{ "t", UUCONF_CMDTABTYPE_FN | 0, NULL, icutake },
{ NULL, 0, NULL, NULL }
};
/* Do a subcommand. This is called by commands beginning with ~%. */
static boolean
fcudo_subcmd (puuconf, qconn, zline)
pointer puuconf;
struct sconnection *qconn;
char *zline;
{
char *azargs[3];
int iarg;
int iuuconf;
for (iarg = 0; iarg < 3; iarg++)
{
azargs[iarg] = strtok (iarg == 0 ? zline : (char *) NULL, " \t\n");
if (azargs[iarg] == NULL)
break;
}
if (iarg == 0)
{
ucuputs (abCuconnected);
return TRUE;
}
iuuconf = uuconf_cmd_args (puuconf, iarg, azargs, asCucmds,
(pointer) qconn, icuunrecogfn,
0, (pointer) NULL);
if (iuuconf != UUCONF_SUCCESS)
ulog_uuconf (LOG_ERROR, puuconf, iuuconf);
return TRUE;
}
/* Warn about an unknown function. */
/*ARGSUSED*/
static int
icuunrecogfn (puuconf, argc, argv, pvar, pinfo)
pointer puuconf;
int argc;
char **argv;
pointer pvar;
pointer pinfo;
{
char abescape[5];
if (! isprint (*zCuvar_escape))
sprintf (abescape, "\\%03o", BUCHAR (*zCuvar_escape));
else
{
abescape[0] = *zCuvar_escape;
abescape[1] = '\0';
}
if (argv[0][0] == '?')
uculist_fns (abescape);
else
ulog (LOG_ERROR, "%s: unknown (%s%%? lists choices)",
argv[0], abescape);
return UUCONF_CMDTABRET_CONTINUE;
}
/* Send a break. */
/*ARGSUSED*/
static int
icubreak (puuconf, argc, argv, pvar, pinfo)
pointer puuconf;
int argc;
char **argv;
pointer pvar;
pointer pinfo;
{
struct sconnection *qconn = (struct sconnection *) pinfo;
if (! fconn_break (qconn))
ucuabort ();
return UUCONF_CMDTABRET_CONTINUE;
}
/* Change directories. */
/*ARGSUSED*/
static int
icuchdir (puuconf, argc, argv, pvar, pinfo)
pointer puuconf;
int argc;
char **argv;
pointer pvar;
pointer pinfo;
{
const char *zarg;
if (argc <= 1)
zarg = NULL;
else
zarg = argv[1];
(void) fsysdep_chdir (zarg);
return UUCONF_CMDTABRET_CONTINUE;
}
/* Toggle debugging. */
/*ARGSUSED*/
static int
icudebug (puuconf, argc, argv, pvar, pinfo)
pointer puuconf;
int argc;
char **argv;
pointer pvar;
pointer pinfo;
{
#if DEBUG > 1
if (iDebug != 0)
iDebug = 0;
else
iDebug = DEBUG_MAX;
#else
ucuputs ("[compiled without debugging]");
#endif
return UUCONF_CMDTABRET_CONTINUE;
}
/* Control whether the port does xon/xoff handshaking. If pvar is not
NULL, this is "stop"; otherwise it is "nostop". */
/*ARGSUSED*/
static int
icunostop (puuconf, argc, argv, pvar, pinfo)
pointer puuconf;
int argc;
char **argv;
pointer pvar;
pointer pinfo;
{
struct sconnection *qconn = (struct sconnection *) pinfo;
if (! fconn_set (qconn, PARITYSETTING_DEFAULT, STRIPSETTING_DEFAULT,
pvar == NULL ? XONXOFF_OFF : XONXOFF_ON))
ucuabort ();
return UUCONF_CMDTABRET_CONTINUE;
}
/* Send a file to the remote system. The first argument is the file
to send. If that argument is not present, it is prompted for. The
second argument is to file name to use on the remote system. If
that argument is not present, the basename of the local filename is
used. If pvar is not NULL, then this is ~>, which is used to send
a command to a non-Unix system. We treat is the same as ~%put,
except that we assume the user has already entered the appropriate
command (for ~%put, we force ``cat >to'' to the other side). */
/*ARGSUSED*/
static int
icuput (puuconf, argc, argv, pvar, pinfo)
pointer puuconf;
int argc;
char **argv;
pointer pvar;
pointer pinfo;
{
struct sconnection *qconn = (struct sconnection *) pinfo;
char *zfrom;
char *zto = NULL;
char *zalc;
openfile_t e;
int cline;
char *zbuf;
size_t cbuf;
if (argc > 1)
zfrom = zbufcpy (argv[1]);
else
{
zfrom = zsysdep_terminal_line ("File to send: ");
if (zfrom == NULL)
ucuabort ();
zfrom[strcspn (zfrom, " \t\n")] = '\0';
if (*zfrom == '\0')
{
ubuffree (zfrom);
ucuputs (abCuconnected);
return UUCONF_CMDTABRET_CONTINUE;
}
}
if (pvar == NULL)
{
if (argc > 2)
zto = zbufcpy (argv[2]);
else
{
char *zbase;
char *zprompt;
zbase = zsysdep_base_name (zfrom);
if (zbase == NULL)
ucuabort ();
zprompt = zbufalc (sizeof "Remote file name []: " +
strlen (zbase));
sprintf (zprompt, "Remote file name [%s]: ", zbase);
zto = zsysdep_terminal_line (zprompt);
ubuffree (zprompt);
if (zto == NULL)
ucuabort ();
zto[strcspn (zto, " \t\n")] = '\0';
if (*zto != '\0')
ubuffree (zbase);
else
{
ubuffree (zto);
zto = zbase;
}
}
}
e = esysdep_user_fopen (zfrom, TRUE, fCuvar_binary);
if (! ffileisopen (e))
{
const char *zerrstr;
if (pvar == NULL)
ubuffree (zto);
zerrstr = strerror (errno);
zalc = zbufalc (strlen (zfrom) + sizeof ": " + strlen (zerrstr));
sprintf (zalc, "%s: %s", zfrom, zerrstr);
ubuffree (zfrom);
ucuputs (zalc);
ubuffree (zalc);
ucuputs (abCuconnected);
return UUCONF_CMDTABRET_CONTINUE;
}
ubuffree (zfrom);
/* Tell the system dependent layer to stop copying data from the
port to the terminal. We want to read the echoes ourself. Also
permit the local user to generate signals. */
if (! fsysdep_cu_copy (FALSE)
|| ! fsysdep_terminal_signals (TRUE))
ucuabort ();
/* If pvar is NULL, then we are sending a file to a Unix system. We
send over the command "cat > TO" to prepare it to receive. If
pvar is not NULL, the user is assumed to have set up whatever
action was needed to receive the file. */
if (pvar == NULL)
{
boolean fret;
zalc = zbufalc (sizeof "cat > \n" + strlen (zto));
sprintf (zalc, "cat > %s\n", zto);
ubuffree (zto);
fret = fcusend_buf (qconn, zalc, strlen (zalc));
ubuffree (zalc);
if (! fret)
{
(void) ffileclose (e);
if (! fsysdep_cu_copy (TRUE)
|| ! fsysdep_terminal_signals (FALSE))
ucuabort ();
ucuputs (abCuconnected);
return UUCONF_CMDTABRET_CONTINUE;
}
}
cline = 0;
zbuf = NULL;
cbuf = 0;
while (TRUE)
{
char abbuf[512];
size_t c;
#if USE_STDIO
if (fCuvar_binary)
#endif
{
if (ffileeof (e))
break;
c = cfileread (e, abbuf, sizeof abbuf);
if (ffileioerror (e, c))
{
ucuputs ("[file read error]");
break;
}
if (c == 0)
break;
zbuf = abbuf;
}
#if USE_STDIO
else
{
if (getline (&zbuf, &cbuf, e) <= 0)
{
xfree ((pointer) zbuf);
break;
}
c = strlen (zbuf);
}
#endif
if (fCuvar_verbose)
{
++cline;
printf ("%d ", cline);
(void) fflush (stdout);
}
if (! fcusend_buf (qconn, zbuf, c))
{
if (! fCuvar_binary)
xfree ((pointer) zbuf);
(void) fclose (e);
if (! fsysdep_cu_copy (TRUE)
|| ! fsysdep_terminal_signals (FALSE))
ucuabort ();
ucuputs (abCuconnected);
return UUCONF_CMDTABRET_CONTINUE;
}
}
(void) ffileclose (e);
if (pvar == NULL)
{
char beof;
beof = '\004';
if (! fconn_write (qconn, &beof, 1))
ucuabort ();
}
else
{
if (*zCuvar_eofwrite != '\0')
{
if (! fconn_write (qconn, zCuvar_eofwrite,
strlen (zCuvar_eofwrite)))
ucuabort ();
}
}
if (fCuvar_verbose)
ucuputs ("");
ucuputs ("[file transfer complete]");
if (! fsysdep_cu_copy (TRUE)
|| ! fsysdep_terminal_signals (FALSE))
ucuabort ();
ucuputs (abCuconnected);
return UUCONF_CMDTABRET_CONTINUE;
}
/* Get a file from the remote side. This is ~%take, or ~t, or ~<.
The first two are assumed to be taking the file from a Unix system,
so we force the command "cat FROM; echo */
/*ARGSUSED*/
static int
icutake (puuconf, argc, argv, pvar, pinfo)
pointer puuconf;
int argc;
char **argv;
pointer pvar;
pointer pinfo;
{
struct sconnection *qconn = (struct sconnection *) pinfo;
const char *zeof;
char *zfrom, *zto, *zcmd;
char *zalc;
openfile_t e;
char bcr;
size_t ceoflen;
char *zlook = NULL;
size_t ceofhave;
boolean ferr;
if (argc > 1)
zfrom = zbufcpy (argv[1]);
else
{
zfrom = zsysdep_terminal_line ("Remote file to retreive: ");
if (zfrom == NULL)
ucuabort ();
zfrom[strcspn (zfrom, " \t\n")] = '\0';
if (*zfrom == '\0')
{
ubuffree (zfrom);
ucuputs (abCuconnected);
return UUCONF_CMDTABRET_CONTINUE;
}
}
if (argc > 2)
zto = zbufcpy (argv[2]);
else
{
char *zbase;
char *zprompt;
zbase = zsysdep_base_name (zfrom);
if (zbase == NULL)
ucuabort ();
zprompt = zbufalc (sizeof "Local file name []: " + strlen (zbase));
sprintf (zprompt, "Local file name [%s]: ", zbase);
zto = zsysdep_terminal_line (zprompt);
ubuffree (zprompt);
if (zto == NULL)
ucuabort ();
zto[strcspn (zto, " \t\n")] = '\0';
if (*zto != '\0')
ubuffree (zbase);
else
{
ubuffree (zto);
zto = zbase;
}
}
if (pvar != NULL)
{
zcmd = zsysdep_terminal_line ("Remote command to execute: ");
if (zcmd == NULL)
ucuabort ();
zcmd[strcspn (zcmd, "\n")] = '\0';
zeof = zCuvar_eofread;
}
else
{
zcmd = zbufalc (sizeof "cat ; echo; echo ////cuend////"
+ strlen (zfrom));
sprintf (zcmd, "cat %s; echo; echo ////cuend////", zfrom);
zeof = "\n////cuend////\n";
}
ubuffree (zfrom);
e = esysdep_user_fopen (zto, FALSE, fCuvar_binary);
if (! ffileisopen (e))
{
const char *zerrstr;
ubuffree (zcmd);
zerrstr = strerror (errno);
zalc = zbufalc (strlen (zto) + sizeof ": " + strlen (zerrstr));
sprintf (zalc, "%s: %s\n", zto, zerrstr);
ucuputs (zalc);
ubuffree (zalc);
ucuputs (abCuconnected);
ubuffree (zto);
return UUCONF_CMDTABRET_CONTINUE;
}
if (! fsysdep_cu_copy (FALSE)
|| ! fsysdep_terminal_signals (TRUE))
ucuabort ();
if (! fconn_write (qconn, zcmd, strlen (zcmd)))
ucuabort ();
bcr = '\r';
if (! fconn_write (qconn, &bcr, 1))
ucuabort ();
ubuffree (zcmd);
/* Eliminated any previously echoed data to avoid confusion. */
iPrecstart = 0;
iPrecend = 0;
/* If we're dealing with a Unix system, we can reliably discard the
command. Otherwise, the command will probably wind up in the
file; too bad. */
if (pvar == NULL)
{
int b;
while ((b = breceive_char (qconn, cCuvar_timeout, TRUE)) != '\n')
{
if (b == -2)
ucuabort ();
if (b < 0)
{
ucuputs ("[timed out waiting for newline]");
ucuputs (abCuconnected);
ubuffree (zto);
return UUCONF_CMDTABRET_CONTINUE;
}
}
}
ceoflen = strlen (zeof);
zlook = zbufalc (ceoflen);
ceofhave = 0;
ferr = FALSE;
while (TRUE)
{
int b;
if (FGOT_SIGNAL ())
{
/* Make sure the signal is logged. */
ulog (LOG_ERROR, (const char *) NULL);
ucuputs ("[file receive aborted]");
/* Reset the SIGINT flag so that it does not confuse us in
the future. */
afSignal[INDEXSIG_SIGINT] = FALSE;
break;
}
b = breceive_char (qconn, cCuvar_timeout, TRUE);
if (b == -2)
ucuabort ();
if (b < 0)
{
if (ceofhave > 0)
(void) fwrite (zlook, sizeof (char), ceofhave, e);
ucuputs ("[timed out]");
break;
}
if (b == '\r' && ! fCuvar_binary)
continue;
if (ceoflen == 0)
{
if (cfilewrite (e, &b, 1) != 1)
{
ferr = TRUE;
break;
}
}
else
{
zlook[ceofhave] = b;
++ceofhave;
if (ceofhave == ceoflen)
{
size_t cmove;
char *zmove;
if (memcmp (zeof, zlook, ceoflen) == 0)
{
ucuputs ("[file transfer complete]");
break;
}
if (cfilewrite (e, zlook, 1) != 1)
{
ferr = TRUE;
break;
}
zmove = zlook;
for (cmove = ceoflen - 1, zmove = zlook;
cmove > 0;
cmove--, zmove++)
zmove[0] = zmove[1];
--ceofhave;
}
}
}
ubuffree (zlook);
if (! fsysdep_sync (e, zto))
{
(void) ffileclose (e);
ferr = TRUE;
}
else
{
if (! ffileclose (e))
ferr = TRUE;
}
if (ferr)
ucuputs ("[file write error]");
if (! fsysdep_cu_copy (TRUE)
|| ! fsysdep_terminal_signals (FALSE))
ucuabort ();
ucuputs (abCuconnected);
ubuffree (zto);
return UUCONF_CMDTABRET_CONTINUE;
}
/* Send a buffer to the remote system. If fCuvar_binary is FALSE,
each buffer passed in will be a single line; in this case we can
check the echoed characters and kill the line if they do not match.
This returns FALSE if an echo check fails. If a port error
occurrs, it calls ucuabort. */
static boolean
fcusend_buf (qconn, zbufarg, cbufarg)
struct sconnection *qconn;
const char *zbufarg;
size_t cbufarg;
{
const char *zbuf;
size_t cbuf;
int ctries;
size_t cbplen;
char *zsendbuf;
zbuf = zbufarg;
cbuf = cbufarg;
ctries = 0;
if (fCuvar_binary)
cbplen = strlen (zCuvar_binary_prefix);
else
cbplen = 1;
zsendbuf = zbufalc (64 * (cbplen + 1));
/* Loop while we still have characters to send. The value of cbuf
will be reset to cbufarg if an echo failure occurs while sending
a line in non-binary mode. */
while (cbuf > 0)
{
int csend;
char *zput;
const char *zget;
boolean fnl;
int i;
if (FGOT_SIGNAL ())
{
/* Make sure the signal is logged. */
ubuffree (zsendbuf);
ulog (LOG_ERROR, (const char *) NULL);
ucuputs ("[file send aborted]");
/* Reset the SIGINT flag so that it does not confuse us in
the future. */
afSignal[INDEXSIG_SIGINT] = FALSE;
return FALSE;
}
/* Discard anything we've read from the port up to now, to avoid
confusing the echo checking. */
iPrecstart = 0;
iPrecend = 0;
/* Send all characters up to a newline before actually sending
the newline. This makes it easier to handle the special
newline echo checking. Send up to 64 characters at a time
before doing echo checking. */
if (*zbuf == '\n')
csend = 1;
else
{
const char *znl;
znl = memchr (zbuf, '\n', cbuf);
if (znl == NULL)
csend = cbuf;
else
csend = znl - zbuf;
if (csend > 64)
csend = 64;
}
/* Translate this part of the buffer. If we are not in binary
mode, we translate \n to \r, and ignore any nonprintable
characters. */
zput = zsendbuf;
fnl = FALSE;
for (i = 0, zget = zbuf; i < csend; i++, zget++)
{
if (isprint (*zget)
|| *zget == '\t')
*zput++ = *zget;
else if (*zget == '\n')
{
if (fCuvar_binary)
*zput++ = '\n';
else
*zput++ = '\r';
fnl = TRUE;
}
else if (fCuvar_binary)
{
strcpy (zput, zCuvar_binary_prefix);
zput += cbplen;
*zput++ = *zget;
}
}
zbuf += csend;
cbuf -= csend;
if (zput == zsendbuf)
continue;
/* Send the data over the port. */
if (! fsend_data (qconn, zsendbuf, (size_t) (zput - zsendbuf), TRUE))
ucuabort ();
/* We do echo checking if requested, unless we are in binary
mode. Echo checking of a newline is different from checking
of normal characters; when we send a newline we look for
*zCuvar_echonl. */
if ((fCuvar_echocheck && ! fCuvar_binary)
|| (fnl && *zCuvar_echonl != '\0'))
{
long iend;
iend = ixsysdep_time ((long *) NULL) + (long) cCuvar_timeout;
for (zget = zsendbuf; zget < zput; zget++)
{
int bread;
int bwant;
if (fCuvar_binary ? *zget == '\n' : *zget == '\r')
{
bwant = *zCuvar_echonl;
if (bwant == '\0')
continue;
}
else
{
if (! fCuvar_echocheck || ! isprint (*zget))
continue;
bwant = *zget;
}
do
{
if (FGOT_SIGNAL ())
{
/* Make sure the signal is logged. */
ubuffree (zsendbuf);
ulog (LOG_ERROR, (const char *) NULL);
ucuputs ("[file send aborted]");
/* Reset the SIGINT flag so that it does not
confuse us in the future. */
afSignal[INDEXSIG_SIGINT] = FALSE;
return FALSE;
}
bread = breceive_char (qconn,
iend - ixsysdep_time ((long *) NULL),
TRUE);
if (bread < 0)
{
if (bread == -2)
ucuabort ();
/* If we timed out, and we're not in binary
mode, we kill the line and try sending it
again from the beginning. */
if (! fCuvar_binary && *zCuvar_kill != '\0')
{
++ctries;
if (ctries < cCuvar_resend)
{
if (fCuvar_verbose)
{
printf ("R ");
(void) fflush (stdout);
}
if (! fsend_data (qconn, zCuvar_kill, 1,
TRUE))
ucuabort ();
zbuf = zbufarg;
cbuf = cbufarg;
break;
}
}
ubuffree (zsendbuf);
ucuputs ("[timed out looking for echo]");
return FALSE;
}
}
while (bread != *zget);
if (bread < 0)
break;
}
}
}
ubuffree (zsendbuf);
return TRUE;
}