home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Black Box 4
/
BlackBox.cdr
/
bbs_mail
/
bsrc_250.arj
/
B_RSPFIL.C
< prev
next >
Wrap
C/C++ Source or Header
|
1991-09-15
|
11KB
|
305 lines
/*--------------------------------------------------------------------------*/
/* */
/* */
/* ------------ Bit-Bucket Software, Co. */
/* \ 10001101 / Writers and Distributors of */
/* \ 011110 / Freely Available<tm> Software. */
/* \ 1011 / */
/* ------ */
/* */
/* (C) Copyright 1987-91, Bit Bucket Software Co., a Delaware Corporation. */
/* */
/* */
/* This module was written by Vince Perriello */
/* */
/* */
/* BinkleyTerm File Request Failure Message Module */
/* */
/* */
/* 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.250. */
/* */
/* 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:491/0 */
/* 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. */
/* */
/*--------------------------------------------------------------------------*/
/* Include this file before any other includes or defines! */
#include "includes.h"
void Make_Response(char *, int); /* Build a response */
void Make_Response (char *data, int failure)
{
FILE *Template, *Response;
char *dummy_text;
char *text;
char *failure_text[10];
char resp_filename[13];
char *p, *q, *s;
struct tm *tp;
time_t ltime;
int i;
if (Netmail_Session == 2)
{
text = strchr (data, ' ');
if (text != NULL)
*text = '\0';
}
Template = Response = (FILE *) NULL;
dummy_text = NULL;
for (i = 0; i < 9; i++)
failure_text[i] = NULL;
if (((text = calloc (1, 256)) == NULL)
|| ((dummy_text = calloc (1, 256)) == NULL))
goto resp_failed;
(void) time (<ime);
tp = localtime (<ime);
if ((Template = share_fopen (CURRENT.rq_Template, read_ascii, DENY_WRITE)) == NULL)
{
(void) got_error (MSG_TXT(M_OPEN_MSG), CURRENT.rq_Template);
goto resp_failed;
}
if (alias[assumed].Point != 0)
(void) sprintf (resp_filename, "%08x.RSP", alias[assumed].Point);
else
(void) sprintf (resp_filename, "%s.RSP", Hex_Addr_Str (&(alias[assumed])));
if ((Response = fopen (resp_filename, write_binary)) == NULL)
{
(void) got_error (MSG_TXT(M_OPEN_MSG), resp_filename);
goto resp_failed;
}
while (!feof (Template))
{
read_line:
e_input[0] = '\0';
if (fgets (text, 254, Template) == NULL)
break;
if (text[0] == '%' && text[1] == ';')
continue; /* Comment at start, no output */
p = text;
q = e_input;
while (*p)
{
if (*p == '\n') /* All done if newline seen */
break;
if (*p != '%') /* Copy until(unless) we see % */
{
*q++ = *p++;
continue;
}
if (*++p == ';') /* If followed by ; just skip */
break;
if ((i = parse(p, rspverbs)) == -1)/* Check against arg list */
{
*q++ = '%'; /* No match, use the % literal */
continue;
}
switch (i)
{
case 1: /* "text" */
if (((i = atoi (p = skip_blanks (&p[4]))) < 1) || (i > 9))
goto read_line;
if (!*(p = skip_to_blank (p)) || !*++p)
goto read_line;
if (failure_text[--i] != NULL)
{
free (failure_text[i]);
failure_text[i] = NULL;
}
failure_text[i] = s = calloc (1, 1 + strlen (p));
if (s == NULL)
goto read_line;
while ((*p) && (*p != '\n'))
*s++ = *p++;
*s++ = '\0';
goto read_line;
case 2: /* "date" */
p += 4;
(void) sprintf (dummy_text,"%2d-%3s-%02d", tp->tm_mday, mtext[tp->tm_mon], tp->tm_year);
scopy:
s = dummy_text;
ccopy:
while (*s)
*q++ = *s++;
break;
case 3: /* "time" */
p += 4;
(void) sprintf (dummy_text, "%2d:%02d", tp->tm_hour, tp->tm_min);
goto scopy;
case 4: /* "bink" */
p += 4;
s = ANNOUNCE;
goto ccopy;
case 5: /* "mynode" */
p += 6;
(void) sprintf (dummy_text, "%s", Full_Addr_Str (&(alias[assumed])));
goto scopy;
case 6: /* "system" */
p += 6;
s = system_name;
goto ccopy;
case 7: /* "sysop" */
p += 5;
s = sysop;
goto ccopy;
case 8: /* "yrnode" */
p += 6;
(void) sprintf (dummy_text, "%s", Full_Addr_Str (&remote_addr));
goto scopy;
case 9: /* "request" */
p += 7;
s = data;
goto ccopy;
case 10: /* "status" */
p += 6;
(void) strcpy (dummy_text, p);
if (failure_text [failure - 1] == NULL)
text[0] = '\0';
else
(void) strcpy (text, failure_text [failure - 1]);
(void) strcat (text, dummy_text);
p = text;
break;
case 11: /* "abort" */
if (*(p = skip_blanks (&p[5])))/* If there's an argument, */
{
if (failure != atoi (p))/* See if it matches failure */
goto read_line; /* No, keep going. */
}
(void) fclose (Response); /* Abort things: Close file, */
Response = NULL; /* Keep track of closed file */
(void) unlink (resp_filename); /* Then delete it */
goto resp_failed; /* And take the failure exit */
case 12: /* "exit" */
if (*(p = skip_blanks (&p[4])))/* If there's an argument, */
{
if (failure != atoi (p))/* See if it matches failure */
goto read_line; /* No, keep going. */
}
goto resp_done; /* A match, close the file */
case 13: /* "line" */
if ((!(*(p = skip_blanks (&p[4]))))
|| (failure != atoi (p))) /* If argument doesn't match, */
goto read_line; /* throw out line, keep going. */
if (*(p = skip_to_blank (p))) /* If there's any text, */
{
(void) strcpy (text, ++p); /* Copy rest of line down */
p = text; /* Move pointer to front */
}
break;
} /* End switch */
} /* End while *p */
*q++ = '\r';
*q++ = '\n';
*q = '\0';
i = (int) (q - e_input);
(void) fwrite (e_input, (unsigned int) i, 1, Response);
} /* End while !feof (Template) */
resp_done:
(void) strcpy (data, resp_filename);
(void) fclose (Template);
Template = NULL;
(void) fclose (Response);
Response = NULL;
goto cleanup;
resp_failed:
*data = '\0';
if (Response != NULL)
(void) fclose (Response);
if (Template != NULL)
(void) fclose (Template);
cleanup:
for (i = 0; i < 9; i++)
{
if (failure_text[i] != NULL)
{
free(failure_text[i]);
failure_text[i] = NULL;
}
}
if (text != NULL)
free(text);
if (dummy_text != NULL)
free (dummy_text);
return;
}