/*--------------------------------------------------------------------------*/
/* */
/* */
/* ------------ Bit-Bucket Software, Co. */
/* \ 10001101 / Writers and Distributors of */
/* \ 011110 / Freely Available<tm> Software. */
/* \ 1011 / */
/* ------ */
/* */
/* (C) Copyright 1987-96, Bit Bucket Software Co. */
/* */
/* */
/* */
/* BinkleyTerm WaZOO/EMSI Session Logic */
/* */
/* */
/* For complete details of the licensing restrictions, please refer */
/* to the License agreement, which is published in its entirety in */
/* the MAKEFILE and BT.C, and also contained in the file LICENSE.260. */
/* */
/* USE OF THIS FILE IS SUBJECT TO THE RESTRICTIONS CONTAINED IN THE */
/* BINKLEYTERM LICENSING AGREEMENT. IF YOU DO NOT FIND THE TEXT OF */
/* THIS AGREEMENT IN ANY OF THE AFOREMENTIONED FILES, OR IF YOU DO */
/* NOT HAVE THESE FILES, YOU SHOULD IMMEDIATELY CONTACT BIT BUCKET */
/* SOFTWARE CO. AT ONE OF THE ADDRESSES LISTED BELOW. IN NO EVENT */
/* SHOULD YOU PROCEED TO USE THIS FILE WITHOUT HAVING ACCEPTED THE */
/* TERMS OF THE BINKLEYTERM LICENSING AGREEMENT, OR SUCH OTHER */
/* AGREEMENT AS YOU ARE ABLE TO REACH WITH BIT BUCKET SOFTWARE, CO. */
/* */
/* */
/* You can contact Bit Bucket Software Co. at any one of the following */
/* addresses: */
/* */
/* Bit Bucket Software Co. FidoNet 1:104/501, 1:343/491 */
/* P.O. Box 460398 AlterNet 7:42/1491 */
/* Aurora, CO 80046 BBS-Net 86:2030/1 */
/* Internet f491.n343.z1.fidonet.org */
/* */
/* Please feel free to contact us at any time to share your comments about */
/* our software and/or licensing policies. */
/* */
/* */
/* This module is based largely on a similar module in OPUS-CBCS V1.03b. */
/* The original work is (C) Copyright 1987, Wynn Wagner III. The original */
/* author has graciously allowed us to use his code in this work. */
/* */
/*--------------------------------------------------------------------------*/
/* Include this file before any other includes or defines! */
#include "includes.h"
#ifdef HAVE_HYDRA
#include "hydra.h"
#endif
#define rb_plus "r+b"
int WaZOO_callback (char *);
int WaZOO_time (long);
static void LOCALFUNC InitExtAgent (void);
static void LOCALFUNC DeinitExtAgent (void);
int EXTMAIL_callback (char *);
static int fsent;
#define NUM_FLAGS 4
/*--------------------------------------------------------------------------*/
/* SEND WaZOO (send another WaZOO or EMSI-capable system its mail) */
/* returns TRUE (1) for good xfer, FALSE (0) for bad */
/*--------------------------------------------------------------------------*/
int
send_WaZOO ()
{
char fname[80];
char s[80];
char *HoldName;
int c;
int check_again;
struct stat buf;
ADDRP addrp = &called_addr;
ADDR saved_addr;
int i;
int akas;
fsent = 0;
switch (remote_pickup)
{
case -2: /* External Mail session */
InitExtAgent ();
/* ExtMail is handled like WaZOO. Fall through to that case. */
case -1: /* WaZOO Session */
akas = 1;
remote_akas[0] = called_addr;
break;
case 1:
akas = 1;
break;
case 2:
akas = num_rakas;
break;
default:
akas = 0;
break;
}
saved_addr = called_addr;
for (i = 0; i < akas; i++)
{
addrp = &remote_akas[i];
HoldName = HoldAreaNameMunge (addrp);
status_line (MSG_TXT (M_EMSI_PROC_NODE), Full_Addr_Str (addrp), HoldName);
check_again = 0;
just_make_sure:
/*--------------------------------------------------------------------*/
/* Send all waiting ?UT files (mail packets) */
/*--------------------------------------------------------------------*/
*ext_flags = 'O';
for (c = 0; c < NUM_FLAGS; c++)
{
#ifndef JACK_DECKER
if (caller && (ext_flags[c] == 'H'))
continue;
#endif
(void) sprintf (fname,
"%s%s.%cUT",
HoldName, Hex_Addr_Str (addrp), ext_flags[c]);
if (!stat (fname, &buf))
{
/*--- Build a dummy PKT file name */
invent_pkt_name (s);
/*--- Tell ZModem to handle this as a SEND AS then DELETE */
status_line (MSG_TXT (M_PACKET_MSG));
/* Do this using the external mail agent if need be */
if (remote_pickup == -2)
{
if (!EXTMAIL_callback (fname))
{
net_problems = 1;
return FALSE;
}
}
else
#ifdef HAVE_HYDRA
if (remote_capabilities & DOES_HYDRA)
{
fsent++;
if (hydra (fname, s) == XFER_ABORT)
{
net_problems = 1;
return FALSE;
}
}
else
#endif /* HAVE_HYDRA */
{
if (!Send_Zmodem (fname, s, fsent++, DO_WAZOO))
{
net_problems = 1;
return FALSE;
}
}
CLEAR_IOERR ();
(void) unlink (fname);
}
} /* for */
/*--------------------------------------------------------------------*/
/* Send files listed in ?LO files (attached files) */
/*--------------------------------------------------------------------*/
*ext_flags = 'F';
called_addr = *addrp;
if (!do_FLOfile (ext_flags, WaZOO_callback))
{
called_addr = saved_addr;
return FALSE;
}
called_addr = saved_addr;
if (fsent && !check_again)
{
check_again = 1;
goto just_make_sure;
}
/*--------------------------------------------------------------------*/
/* Send our File requests to other system */
/*--------------------------------------------------------------------*/
if (requests_ok && !no_pickup)
{
(void) sprintf (fname, "%s%s.REQ", HoldName, Hex_Addr_Str (addrp));
if (!stat (fname, &buf))
{
if (!(((unsigned) remote_capabilities) & WZ_FREQ))
status_line (MSG_TXT (M_FREQ_DECLINED));
else
{
status_line (MSG_TXT (M_OUT_REQUESTS));
++made_request;
#ifdef HAVE_HYDRA
if (remote_capabilities & DOES_HYDRA)
{
fsent++;
if (hydra (fname, NULL) == XFER_OK)
(void) unlink (fname);
}
else
#endif /* HAVE_HYDRA */
{
if (Send_Zmodem (fname, NULL, fsent++, DO_WAZOO))
(void) unlink (fname);
}
}
}
}
} /* end of send loop */
/* This is as far as we go for external mail */
if (remote_pickup == -2)
{
DeinitExtAgent ();
goto success;
}
#ifdef HAVE_HYDRA
if (remote_capabilities & DOES_HYDRA)
(void) hydra (NULL, NULL); /* End of first batch */
#endif /* HAVE_HYDRA */
fsent = respond_to_file_requests (fsent, WaZOO_callback, WaZOO_time);
if (!fsent)
status_line (MSG_TXT (M_NOTHING_TO_SEND), Full_Addr_Str (addrp));
#ifdef HAVE_HYDRA
if (remote_capabilities & DOES_HYDRA)
(void) hydra (NULL, NULL);
else
#endif /* HAVE_HYDRA */
(void) Send_Zmodem (NULL, NULL, ((fsent) ? END_BATCH : NOTHING_TO_DO), DO_WAZOO);
success:
sent_mail = 1;
return TRUE;
} /* WaZOO */
/*
* WaZOO_callback () -- send requested file using WaZOO/EMSI method.
*
*
*/
int
WaZOO_callback (char *reqs)
{
if (remote_pickup == -2)
return EXTMAIL_callback (reqs);
#ifdef HAVE_HYDRA
if (remote_capabilities & DOES_HYDRA)
{
fsent++;
switch (hydra (reqs, NULL))
{
case XFER_ABORT:
return (FALSE);
case XFER_SKIP:
return (SPEC_COND);
case XFER_OK:
default:
return (TRUE);
}
}
else
#endif /* HAVE_HYDRA */
return (Send_Zmodem (reqs, NULL, fsent++, DO_WAZOO));
}
int
WaZOO_time (long filesize)
{
long ltemp;
ltemp = filesize * 10L / cur_baud.rate_value * 100L / 95L;
return (ltemp < 20L) ? 20 : (int) ltemp;
}
static void LOCALFUNC
InitExtAgent ()
{
status_line (MSG_TXT (M_START_EXTMAIL), Full_Addr_Str (&remote_addr));
mdm_init (modem_busy);
exit_DTR ();
close_up ();
vfossil_cursor (1);
}
int
EXTMAIL_callback (char *reqs)
{
char *p = Txbuf;
char *q = Txbuf + 2048;
struct stat f;
long ltime;
ltime = (long) time (NULL);
sprintf (q, "%s.%03x", ExtMailAgent, TaskNumber);
(void) unlink (q);
(void) stat (reqs, &f);
sprintf (p, "%s %s %03x %s",
ExtMailAgent,
Full_Addr_Str (&remote_addr),
TaskNumber,
reqs);
b_spawn (p);
if (!dexists (q))
{
net_problems = 1;
DeinitExtAgent ();
return FALSE;
}
hist.files_out++;
hist.size_out += f.st_size;
hist.time_out += (long) time (NULL) - ltime;
return TRUE;
}
static void LOCALFUNC
DeinitExtAgent ()
{
come_back ();
RAISE_DTR ();
mdm_init (modem_init);
status_line (MSG_TXT (M_END_EXTMAIL), Full_Addr_Str (&remote_addr));
}
