This repository has been archived on 2024-04-08. You can view files and clone it, but cannot push or open issues or pull requests.
deb-mbse/mbfido/msgutil.c
2003-01-30 21:23:57 +00:00

281 lines
6.8 KiB
C

/*****************************************************************************
*
* $Id$
* Purpose ...............: Announce new files and FileFind
*
*****************************************************************************
* Copyright (C) 1997-2002
*
* Michiel Broek FIDO: 2:280/2802
* Beekmansbos 10
* 1971 BV IJmuiden
* the Netherlands
*
* This file is part of MBSE BBS.
*
* This BBS 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, or (at your option) any
* later version.
*
* MBSE BBS 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 MBSE BBS; see the file COPYING. If not, write to the Free
* Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
*****************************************************************************/
#include "../config.h"
#include "../lib/libs.h"
#include "../lib/memwatch.h"
#include "../lib/structs.h"
#include "../lib/users.h"
#include "../lib/records.h"
#include "../lib/common.h"
#include "../lib/clcomm.h"
#include "../lib/dbcfg.h"
#include "../lib/msg.h"
#include "../lib/msgtext.h"
#include "../lib/diesel.h"
#include "msgutil.h"
extern int do_quiet; /* Suppress screen output */
/*
* Translation table from Hi-USA-ANSI to Lo-ASCII,
* currently only ANSI graphics are translated.
*/
char lotab[] = {
"\000\001\002\003\004\005\006\007\010\011\012\013\014\015\016\017"
"\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037"
"\040\041\042\043\044\045\046\047\050\051\052\053\054\055\056\057"
"\060\061\062\063\064\065\066\067\070\071\072\073\074\075\076\077"
"\100\101\102\103\104\105\106\107\110\111\112\113\114\115\116\117"
"\120\121\122\123\124\125\126\127\130\131\132\133\134\135\136\137"
"\140\141\142\143\144\145\146\147\150\151\152\153\154\155\156\157"
"\160\161\162\163\164\165\166\167\170\171\172\173\174\175\176\177"
"\200\201\202\203\204\205\206\207\210\211\212\213\214\215\216\217"
"\220\221\222\223\224\225\226\227\230\231\232\233\234\235\236\237"
"\240\241\242\243\244\245\246\247\250\251\252\253\254\255\256\257"
"\260\261\262\174\053\053\053\053\053\043\174\043\043\053\053\053"
"\053\053\053\053\053\053\053\053\043\043\043\043\043\075\043\053"
"\053\053\053\053\053\053\053\053\053\053\053\333\334\335\336\337"
"\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357"
"\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377"
};
void Msg_Id(fidoaddr aka)
{
char *temp;
unsigned long crc = -1;
temp = calloc(81, sizeof(char));
sprintf(temp, "\001MSGID: %s %08lx", aka2str(aka), sequencer());
MsgText_Add2(temp);
Msg.MsgIdCRC = upd_crc32(temp, crc, strlen(temp));
Msg.ReplyCRC = 0xffffffff;
free(temp);
}
void Msg_Pid(void)
{
char *temp;
time_t tt;
temp = calloc(81, sizeof(char));
sprintf(temp, "\001PID: MBSE-FIDO %s", VERSION);
MsgText_Add2(temp);
// sprintf(temp, "\001CHRS: %s", getchrs(msgs.Ftncode));
tt = time(NULL);
sprintf(temp, "\001TZUTC: %s", gmtoffset(tt));
MsgText_Add2(temp);
free(temp);
}
void Msg_Macro(FILE *fi)
{
char *temp, *line;
int res;
temp = calloc(MAXSTR, sizeof(char));
line = calloc(MAXSTR, sizeof(char));
while ((fgets(line, MAXSTR-2, fi) != NULL) && ((line[0]!='@') || (line[1]!='|'))) {
/*
* Skip comment lines
*/
if (line[0] != '#') {
Striplf(line);
if (strlen(line) == 0) {
/*
* Empty lines are just written
*/
MsgText_Add2((char *)"");
} else {
strncpy(temp, ParseMacro(line,&res), MAXSTR-2);
if (res)
Syslog('!', "Macro error line: \"%s\"", line);
/*
* Only output if something was evaluated
*/
if (strlen(temp)) {
MsgText_Add2(temp);
}
}
}
}
free(line);
free(temp);
}
long Msg_Top(char *template, int language, fidoaddr aka)
{
char *temp, *line;
FILE *fp, *fi;
long fileptr, fileptr1 = -1L;
int hasmodems = FALSE;
temp = calloc(PATH_MAX, sizeof(char));
if ((fi = OpenMacro(template, language, FALSE))) {
/*
* First override default aka with current aka, then display header.
*/
MacroVars("Y", "s", aka2str(aka));
Msg_Macro(fi);
fileptr = ftell(fi);
sprintf(temp, "%s/etc/ttyinfo.data", getenv("MBSE_ROOT"));
if ((fp = fopen(temp, "r")) != NULL) {
fread(&ttyinfohdr, sizeof(ttyinfohdr), 1, fp);
MacroVars("pqrf", "dsss", 0, "", "", "");
while (fread(&ttyinfo, ttyinfohdr.recsize, 1, fp) == 1) {
if (((ttyinfo.type == POTS) || (ttyinfo.type == ISDN)) && ttyinfo.available && strlen(ttyinfo.phone)) {
MacroVars("pqrf", "dsss", ttyinfo.type, ttyinfo.phone, ttyinfo.speed, ttyinfo.flags);
fseek(fi, fileptr, SEEK_SET);
Msg_Macro(fi);
hasmodems = TRUE;
}
}
fclose(fp);
}
/*
* If no modems were defined, the fileptr is at a wrong place and
* must be moved.
*/
if (!hasmodems) {
line = calloc(MAXSTR, sizeof(char));
while ((fgets(line, MAXSTR-2, fi) != NULL) && ((line[0]!='@') || (line[1]!='|'))) {}
free(line);
}
/*
* TTY info footer
*/
Msg_Macro(fi);
fileptr1 = ftell(fi);
fclose(fi);
}
free(temp);
return fileptr1;
}
void Msg_Bot(fidoaddr UseAka, char *Org, char *template)
{
char *temp, *aka;
temp = calloc(81, sizeof(char));
aka = calloc(40, sizeof(char));
/*
* Add tearline, this is hardcoded.
*/
MsgText_Add2((char *)"");
MsgText_Add2(TearLine());
if (UseAka.point)
sprintf(aka, "(%d:%d/%d.%d)", UseAka.zone, UseAka.net, UseAka.node, UseAka.point);
else
sprintf(aka, "(%d:%d/%d)", UseAka.zone, UseAka.net, UseAka.node);
sprintf(temp, " * Origin: %s %s", Org, aka);
MsgText_Add2(temp);
free(aka);
free(temp);
}
void CountPosted(char *Base)
{
char *temp;
FILE *fp;
temp = calloc(PATH_MAX, sizeof(char));
sprintf(temp, "%s/etc/mareas.data", getenv("MBSE_ROOT"));
if ((fp = fopen(temp, "r+")) != NULL) {
fread(&msgshdr, sizeof(msgshdr), 1, fp);
while (fread(&msgs, msgshdr.recsize, 1, fp) == 1) {
if (msgs.Active && (strlen(Base) == strlen(msgs.Base)) &&
(!strcmp(Base, msgs.Base))) {
msgs.Posted.total++;
msgs.Posted.tweek++;
msgs.Posted.tdow[Diw]++;
msgs.Posted.month[Miy]++;
fseek(fp, - msgshdr.recsize, SEEK_CUR);
fwrite(&msgs, msgshdr.recsize, 1, fp);
break;
}
fseek(fp, msgshdr.syssize, SEEK_CUR);
}
fclose(fp);
} else {
WriteError("$Can't open %s", temp);
}
free(temp);
}
char *To_Low(char *inp, int High)
{
static char temp[81];
int i;
memset(&temp, 0, sizeof(temp));
strncpy(temp, inp, 80);
if (High)
return temp;
for (i = 0; i < strlen(temp); i++)
temp[i] = lotab[temp[i] & 0xff];
return temp;
}