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/mbsebbs/email.c
2003-12-16 21:50:32 +00:00

1055 lines
24 KiB
C

/*****************************************************************************
*
* $Id$
* Purpose ...............: Internet email
*
*****************************************************************************
* Copyright (C) 1997-2003
*
* 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, 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
*****************************************************************************/
#include "../config.h"
#include "../lib/libs.h"
#include "../lib/mbse.h"
#include "../lib/structs.h"
#include "../lib/users.h"
#include "../lib/records.h"
#include "../lib/msgtext.h"
#include "../lib/msg.h"
#include "../lib/common.h"
#include "../lib/clcomm.h"
#include "../lib/mbinet.h"
#include "exitinfo.h"
#include "language.h"
#include "mail.h"
#include "timeout.h"
#include "msgutil.h"
#include "input.h"
#include "email.h"
#include "whoson.h"
extern unsigned long LastNum;
extern int Kludges;
extern FILE *qf;
extern char *Message[];
extern int Line;
extern int do_mailout;
extern int LC_Wrote;
/*
* Internal prototypes
*/
int HasNoEmail(void);
int Export_a_Email(unsigned long);
int EmailPanel(void);
int Save_Email(int);
int HasNoEmail(void)
{
if (exitinfo.Email)
return FALSE;
colour(15, 0);
printf("\nYou have no e-mail access\n\n");
sleep(3);
return TRUE;
}
/*
* Show message header screen top for reading messages.
*/
void ShowEmailHdr(void)
{
static char Buf1[35], Buf2[35], Buf3[81];
struct tm *tm;
Buf1[0] = '\0';
Buf2[0] = '\0';
Buf3[0] = '\0';
clear();
colour(1,7);
printf(" %-70s", sMailbox);
colour(4,7);
printf("#%-5lu\n", Msg.Id);
/* Date : */
pout(14, 0, (char *) Language(206));
colour(10, 0);
tm = gmtime(&Msg.Written);
printf("%02d-%02d-%d %02d:%02d:%02d", tm->tm_mday, tm->tm_mon+1,
tm->tm_year+1900, tm->tm_hour, tm->tm_min, tm->tm_sec);
colour(12, 0);
if (Msg.Local) printf(" Local");
if (Msg.Intransit) printf(" Transit");
if (Msg.Private) printf(" Priv.");
if (Msg.Received) printf(" Rcvd");
if (Msg.Sent) printf(" Sent");
if (Msg.KillSent) printf(" KillSent");
if (Msg.ArchiveSent) printf(" ArchiveSent");
if (Msg.Hold) printf(" Hold");
if (Msg.Crash) printf(" Crash");
if (Msg.Immediate) printf(" Imm.");
if (Msg.Direct) printf(" Dir");
if (Msg.Gate) printf(" Gate");
if (Msg.FileRequest) printf(" Freq");
if (Msg.FileAttach) printf(" File");
if (Msg.TruncFile) printf(" TruncFile");
if (Msg.KillFile) printf(" KillFile");
if (Msg.ReceiptRequest) printf(" RRQ");
if (Msg.ConfirmRequest) printf(" CRQ");
if (Msg.Orphan) printf(" Orphan");
if (Msg.Encrypt) printf(" Crypt");
if (Msg.Compressed) printf(" Comp");
if (Msg.Escaped) printf(" 7bit");
if (Msg.ForcePU) printf(" FPU");
if (Msg.Localmail) printf(" Localmail");
if (Msg.Netmail) printf(" Netmail");
if (Msg.Echomail) printf(" Echomail");
if (Msg.News) printf(" News");
if (Msg.Email) printf(" E-mail");
if (Msg.Nodisplay) printf(" Nodisp");
if (Msg.Locked) printf(" LCK");
if (Msg.Deleted) printf(" Del");
printf("\n");
/* From : */
pout(14,0, (char *) Language(209));
colour(10, 0);
printf("%s\n", Msg.From);
/* To : */
pout(14,0, (char *) Language(208));
colour(10, 0);
printf("%s\n", Msg.To);
/* Subject : */
pout(14,0, (char *) Language(210));
colour(10, 0);
printf("%s\n", Msg.Subject);
colour(CFG.HiliteF, CFG.HiliteB);
colour(14, 1);
if (Msg.Reply)
sprintf(Buf1, "\"+\" %s %lu", (char *)Language(211), Msg.Reply);
if (Msg.Original)
sprintf(Buf2, " \"-\" %s %lu", (char *)Language(212), Msg.Original);
sprintf(Buf3, "%s%s ", Buf1, Buf2);
colour(14, 1);
printf("%78s \n", Buf3);
}
/*
* Export a email to file in the users home directory.
*/
int Export_a_Email(unsigned long Num)
{
char *p;
LastNum = Num;
iLineCount = 7;
WhosDoingWhat(READ_POST, NULL);
Syslog('+', "Export email %d in area %s", Num, sMailbox);
/*
* The area data is already set, so we can do the next things
*/
if (EmailBase.Total == 0) {
colour(15, 0);
/* There are no messages in this area */
printf("\n%s\n\n", (char *) Language(205));
sleep(3);
return FALSE;
}
if (!Msg_Open(sMailpath)) {
WriteError("Error open JAM base %s", sMailpath);
return FALSE;
}
if (!Msg_ReadHeader(Num)) {
perror("");
colour(15, 0);
printf("\n%s\n\n", (char *)Language(77));
Msg_Close();
sleep(3);
return FALSE;
}
/*
* Export the message text to the file in the users home/wrk directory.
* Create the filename as <areanum>_<msgnum>.msg The message is
* written in M$DOS <cr/lf> format.
*/
p = calloc(PATH_MAX, sizeof(char));
sprintf(p, "%s/%s/wrk/%s_%lu.msg", CFG.bbs_usersdir, exitinfo.Name, sMailbox, Num);
if ((qf = fopen(p, "w")) != NULL) {
free(p);
p = NULL;
if (Msg_Read(Num, 80)) {
if ((p = (char *)MsgText_First()) != NULL)
do {
if (p[0] == '\001') {
if (Kludges) {
p[0] = 'a';
fprintf(qf, "^%s\r\n", p);
}
} else
fprintf(qf, "%s\r\n", p);
} while ((p = (char *)MsgText_Next()) != NULL);
}
fclose(qf);
} else {
WriteError("$Can't open %s", p);
free(p);
}
Msg_Close();
/*
* Report the result.
*/
colour(CFG.TextColourF, CFG.TextColourB);
printf("\n\n%s", (char *) Language(46));
colour(CFG.HiliteF, CFG.HiliteB);
printf("%s_%lu.msg\n\n", sMailbox, Num);
Pause();
return TRUE;
}
/*
* Save the message to disk.
*/
int Save_Email(int IsReply)
{
int i;
char *p, *temp;
unsigned long crc = -1;
long id;
FILE *fp;
if (Line < 2)
return TRUE;
if (!Open_Msgbase(sMailpath, 'w')) {
return FALSE;
}
Msg.Arrived = time(NULL) - (gmt_offset((time_t)0) * 60);
Msg.Written = Msg.Arrived;
Msg.Local = TRUE;
Msg.Netmail = TRUE;
temp = calloc(PATH_MAX, sizeof(char));
/*
* Add header lines
*/
sprintf(temp, "\001Date: %s", rfcdate(Msg.Written));
MsgText_Add2(temp);
sprintf(temp, "\001From: %s", Msg.From);
MsgText_Add2(temp);
sprintf(temp, "\001Subject: %s", Msg.Subject);
MsgText_Add2(temp);
sprintf(temp, "\001Sender: %s", Msg.From);
MsgText_Add2(temp);
sprintf(temp, "\001To: %s", Msg.To);
MsgText_Add2(temp);
MsgText_Add2((char *)"\001MIME-Version: 1.0");
MsgText_Add2((char *)"\001Content-Type: text/plain");
MsgText_Add2((char *)"\001Content-Transfer-Encoding: 8bit");
sprintf(temp, "\001X-Mailreader: MBSE BBS %s", VERSION);
MsgText_Add2(temp);
p = calloc(81, sizeof(char));
id = sequencer();
sprintf(p, "<%08lx@%s>", id, CFG.sysdomain);
sprintf(temp, "\001Message-id: %s", p);
MsgText_Add2(temp);
Msg.MsgIdCRC = upd_crc32(temp, crc, strlen(temp));
free(p);
if (IsReply) {
sprintf(temp, "\001In-reply-to: %s", Msg.Replyid);
MsgText_Add2(temp);
crc = -1;
Msg.ReplyCRC = upd_crc32(temp, crc, strlen(temp));
} else
Msg.ReplyCRC = 0xffffffff;
/*
* Add message text
*/
for (i = 1; i < Line; i++) {
MsgText_Add2(Message[i]);
}
/*
* Add signature.
*/
sprintf(temp, "%s/%s/.signature", CFG.bbs_usersdir, exitinfo.Name);
if ((fp = fopen(temp, "r"))) {
Syslog('m', " Add .signature");
MsgText_Add2((char *)"");
while (fgets(temp, 80, fp)) {
Striplf(temp);
MsgText_Add2(temp);
}
fclose(fp);
MsgText_Add2((char *)"");
}
MsgText_Add2(TearLine());
/*
* Save if to disk
*/
Msg_AddMsg();
Msg_UnLock();
ReadExitinfo();
exitinfo.iPosted++;
WriteExitinfo();
do_mailout = TRUE;
LC_Wrote = TRUE;
Syslog('+', "Email (%ld) to \"%s\", \"%s\", in mailbox", Msg.Id, Msg.To, Msg.Subject);
colour(CFG.HiliteF, CFG.HiliteB);
/* Saving message to disk */
printf("\n%s(%ld)\n\n", (char *) Language(202), Msg.Id);
fflush(stdout);
sleep(2);
/*
* Add quick mailscan info
*/
sprintf(temp, "%s/tmp/netmail.jam", getenv("MBSE_ROOT"));
if ((fp = fopen(temp, "a")) != NULL) {
fprintf(fp, "%s/%s/mailbox %lu\n", CFG.bbs_usersdir, exitinfo.Name, Msg.Id);
fclose(fp);
}
free(temp);
Close_Msgbase(sMailpath);
return TRUE;
}
int Read_a_Email(unsigned long Num)
{
char *p = NULL, *fn;
lastread LR;
LastNum = Num;
iLineCount = 7;
WhosDoingWhat(READ_POST, NULL);
/*
* The area data is already set, so we can do the next things
*/
if (EmailBase.Total == 0) {
colour(15, 0);
/* There are no messages in this area */
printf("\n%s\n\n", (char *) Language(205));
sleep(3);
return FALSE;
}
if (!Msg_Open(sMailpath)) {
WriteError("Error open JAM base %s", sMailpath);
return FALSE;
}
if (!Msg_ReadHeader(Num)) {
perror("");
colour(15, 0);
printf("\n%s\n\n", (char *)Language(77));
Msg_Close();
sleep(3);
return FALSE;
}
ShowEmailHdr();
/*
* Fill Quote file in case the user wants to reply. Note that line
* wrapping is set lower then normal message read, to create room
* for the Quote> strings at the start of each line.
*/
fn = calloc(PATH_MAX, sizeof(char));
sprintf(fn, "%s/%s/.quote", CFG.bbs_usersdir, exitinfo.Name);
if ((qf = fopen(fn, "w")) != NULL) {
if (Msg_Read(Num, 75)) {
if ((p = (char *)MsgText_First()) != NULL)
do {
if (p[0] == '\001') {
/*
* While doing this, store the original Message-id in case
* a reply will be made.
*/
if (strncasecmp(p, "\001Message-id: ", 13) == 0) {
sprintf(Msg.Msgid, "%s", p+13);
Syslog('m', "Stored Msgid \"%s\"", Msg.Msgid);
}
if (Kludges) {
p[0] = 'a';
fprintf(qf, "^%s\n", p);
}
} else
fprintf(qf, "%s\n", p);
} while ((p = (char *)MsgText_Next()) != NULL);
}
fclose(qf);
} else {
WriteError("$Can't open %s", p);
}
free(fn);
/*
* Show message text
*/
colour(CFG.TextColourF, CFG.TextColourB);
if (Msg_Read(Num, 78)) {
if ((p = (char *)MsgText_First()) != NULL) {
do {
if (p[0] == '\001') {
if (Kludges) {
colour(7, 0);
printf("%s\n", p);
if (CheckLine(CFG.TextColourF, CFG.TextColourB, TRUE))
break;
}
} else {
colour(CFG.TextColourF, CFG.TextColourB);
if (strchr(p, '>') != NULL)
if ((strlen(p) - strlen(strchr(p, '>'))) < 10)
colour(CFG.HiliteF, CFG.HiliteB);
printf("%s\n", p);
if (CheckLine(CFG.TextColourF, CFG.TextColourB, TRUE))
break;
}
} while ((p = (char *)MsgText_Next()) != NULL);
}
}
/*
* Set the Received status on this message.
*/
if (!Msg.Received) {
Syslog('m', "Marking message received");
Msg.Received = TRUE;
Msg.Read = time(NULL) - (gmt_offset((time_t)0) * 60);
if (Msg_Lock(30L)) {
Msg_WriteHeader(Num);
Msg_UnLock();
}
}
/*
* Update lastread pointer.
*/
if (Msg_Lock(30L)) {
LR.UserID = grecno;
p = xstrcpy(exitinfo.sUserName);
if (Msg_GetLastRead(&LR) == TRUE) {
LR.LastReadMsg = Num;
if (Num > LR.HighReadMsg)
LR.HighReadMsg = Num;
if (LR.HighReadMsg > EmailBase.Highest)
LR.HighReadMsg = EmailBase.Highest;
LR.UserCRC = StringCRC32(tl(p));
if (!Msg_SetLastRead(LR))
WriteError("Error update lastread");
} else {
/*
* Append new lastread pointer
*/
LR.UserCRC = StringCRC32(tl(p));
LR.UserID = grecno;
LR.LastReadMsg = Num;
LR.HighReadMsg = Num;
if (!Msg_NewLastRead(LR))
WriteError("Can't append lastread");
}
free(p);
Msg_UnLock();
}
Msg_Close();
return TRUE;
}
/*
* The panel bar under the message while email reading
*/
int EmailPanel(void)
{
int input;
WhosDoingWhat(READ_POST, NULL);
colour(15, 4);
/* (A)gain, (N)ext, (L)ast, (R)eply, (E)nter, (D)elete, (Q)uit, e(X)port */
printf("%s", (char *) Language(214));
if (exitinfo.Security.level >= CFG.sysop_access)
printf(", (!)");
printf(": ");
fflush(stdout);
alarm_on();
input = toupper(Getone());
if (input == '!') {
if (exitinfo.Security.level >= CFG.sysop_access) {
if (Kludges)
Kludges = FALSE;
else
Kludges = TRUE;
Read_a_Email(LastNum);
}
} else if (input == Keystroke(214, 0)) { /* (A)gain */
Read_a_Email(LastNum);
} else if (input == Keystroke(214, 4)) { /* (P)ost */
Write_Email();
Read_a_Email(LastNum);
} else if (input == Keystroke(214, 2)) { /* (L)ast */
if (LastNum > EmailBase.Lowest)
LastNum--;
Read_a_Email(LastNum);
} else if (input == Keystroke(214, 3)) { /* (R)eply */
Reply_Email(TRUE);
Read_a_Email(LastNum);
} else if (input == Keystroke(214, 5)) { /* (Q)uit */
/* Quit */
printf("%s\n", (char *) Language(189));
return FALSE;
} else if (input == Keystroke(214, 7)) { /* e(X)port */
Export_a_Email(LastNum);
Read_a_Email(LastNum);
} else if (input == '+') {
if (Msg.Reply)
LastNum = Msg.Reply;
Read_a_Email(LastNum);
} else if (input == '-') {
if (Msg.Original)
LastNum = Msg.Original;
Read_a_Email(LastNum);
} else if (input == Keystroke(214, 6)) { /* (D)elete */
// Delete_EmailNum(LastNum);
if (LastNum < EmailBase.Highest) {
LastNum++;
Read_a_Email(LastNum);
} else {
return FALSE;
}
} else {
/* Next */
pout(15, 0, (char *) Language(216));
if (LastNum < EmailBase.Highest)
LastNum++;
else
return FALSE;
Read_a_Email(LastNum);
}
return TRUE;
}
/*
* Read e-mail, called from the menus
*/
void Read_Email(void)
{
char *temp;
unsigned long Start;
lastread LR;
if (HasNoEmail())
return;
colour(CFG.TextColourF, CFG.TextColourB);
/* Message area \"%s\" contains %lu messages. */
printf("\n%s\"%s\" %s%lu %s", (char *) Language(221), sMailbox, (char *) Language(222), EmailBase.Total, (char *) Language(223));
/*
* Check for lastread pointer, suggest lastread number for start.
*/
Start = EmailBase.Lowest;
if (Msg_Open(sMailpath)) {
LR.UserID = grecno;
if (Msg_GetLastRead(&LR))
Start = LR.HighReadMsg + 1;
else
Start = 1;
Msg_Close();
/*
* If we already have read the last message, the pointer is
* higher then HighMsgNum, we set it at HighMsgNum to prevent
* errors and read that message again.
*/
if (Start > EmailBase.Highest)
Start = EmailBase.Highest;
}
colour(15, 0);
/* Please enter a message between */
printf("\n%s(%lu - %lu)", (char *) Language(224), EmailBase.Lowest, EmailBase.Highest);
/* Message number [ */
printf("\n%s%lu]: ", (char *) Language(225), Start);
temp = calloc(128, sizeof(char));
colour(CFG.InputColourF, CFG.InputColourB);
GetstrC(temp, 80);
if ((strcmp(temp, "")) != 0)
Start = atoi(temp);
free(temp);
if (!Read_a_Email(Start))
return;
if (EmailBase.Total == 0)
return;
while(EmailPanel()) {}
}
/*
* Reply message, in Msg.From and Msg.Subject must be the
* name to reply to and the subject.
*/
void Reply_Email(int IsReply)
{
int i, j, x;
char to[65];
char from[65];
char subj[72];
char msgid[81];
char replyto[81];
char replyaddr[81];
char *tmp, *buf;
char qin[9];
faddr *Dest = NULL;
sprintf(from, "%s", Msg.To);
sprintf(to, "%s", Msg.From);
sprintf(replyto, "%s", Msg.ReplyTo);
sprintf(replyaddr, "%s", Msg.ReplyAddr);
if (strncasecmp(Msg.Subject, "Re:", 3) && IsReply) {
sprintf(subj, "Re: %s", Msg.Subject);
} else {
sprintf(subj, "%s", Msg.Subject);
}
Syslog('m', "Reply msg to %s, subject %s", to, subj);
Syslog('m', "Msgid was %s", Msg.Msgid);
sprintf(msgid, "%s", Msg.Msgid);
x = 0;
Line = 1;
WhosDoingWhat(READ_POST, NULL);
clear();
colour(1,7);
printf(" %-71s", sMailbox);
colour(4,7);
printf("#%-5lu", EmailBase.Highest + 1);
colour(CFG.HiliteF, CFG.HiliteB);
sLine();
for (i = 0; i < (TEXTBUFSIZE + 1); i++)
Message[i] = (char *) calloc(MAX_LINE_LENGTH +1, sizeof(char));
Line = 1;
Msg_New();
sprintf(Msg.Replyid, "%s", msgid);
sprintf(Msg.ReplyTo, "%s", replyto);
sprintf(Msg.ReplyAddr, "%s", replyaddr);
/* From : */
pout(14, 0, (char *) Language(209));
if (CFG.EmailMode != E_PRMISP) {
/*
* If not permanent connected to the internet, use fidonet.org style addressing.
*/
Dest = fido2faddr(CFG.EmailFidoAka);
sprintf(Msg.From, "%s@%s (%s)", exitinfo.sUserName, ascinode(Dest, 0x2f), exitinfo.sUserName);
} else
sprintf(Msg.From, "%s@%s (%s)", exitinfo.sUserName, CFG.sysdomain, exitinfo.sUserName);
for (i = 0; i < strlen(Msg.From); i++) {
if (Msg.From[i] == ' ')
Msg.From[i] = '_';
if (Msg.From[i] == '@')
break;
}
pout(CFG.MsgInputColourF, CFG.MsgInputColourB, Msg.From);
Enter(1);
Syslog('b', "Setting From: %s", Msg.From);
/* To : */
sprintf(Msg.To, "%s", to);
pout(14, 0, (char *) Language(208));
pout(CFG.MsgInputColourF, CFG.MsgInputColourB, Msg.To);
Enter(1);
/* Enter to keep Subject. */
pout(12, 0, (char *) Language(219));
Enter(1);
/* Subject : */
pout(14, 0, (char *) Language(210));
sprintf(Msg.Subject, "%s", subj);
pout(CFG.MsgInputColourF, CFG.MsgInputColourB, Msg.Subject);
x = strlen(subj);
fflush(stdout);
colour(CFG.MsgInputColourF, CFG.MsgInputColourB);
GetstrP(subj, 50, x);
fflush(stdout);
if (strlen(subj))
strcpy(Msg.Subject, subj);
Msg.Private = TRUE;
Enter(1);
// Check_Attach();
/*
* Quote original message now, format the original users
* initials into qin. If its a name@system.dom the use the
* first 8 characters of the name part.
*/
sprintf(Message[1], "%s wrote to %s:", to, from);
memset(&qin, 0, sizeof(qin));
if (strchr(to, '@')) {
tmp = xstrcpy(strtok(to, "@"));
tmp[8] = '\0';
sprintf(qin, "%s", tmp);
free(tmp);
} else {
x = TRUE;
j = 0;
for (i = 0; i < strlen(to); i++) {
if (x && isalpha(to[i])) {
qin[j] = to[i];
j++;
x = FALSE;
}
if (to[i] == ' ' || to[i] == '.')
x = TRUE;
if (j == 6)
break;
}
}
Line = 2;
tmp = calloc(128, sizeof(char));
buf = calloc(128, sizeof(char));
sprintf(tmp, "%s/%s/.quote", CFG.bbs_usersdir, exitinfo.Name);
if ((qf = fopen(tmp, "r")) != NULL) {
while ((fgets(buf, 128, qf)) != NULL) {
Striplf(buf);
sprintf(Message[Line], "%s> %s", (char *)qin, buf);
Line++;
if (Line == TEXTBUFSIZE)
break;
}
fclose(qf);
} else
WriteError("$Can't read %s", tmp);
free(buf);
free(tmp);
if (Edit_Msg())
Save_Email(IsReply);
for (i = 0; i < (TEXTBUFSIZE + 1); i++)
free(Message[i]);
}
void Write_Email(void)
{
faddr *Dest = NULL;
int i;
char *orgbox;
if (HasNoEmail())
return;
orgbox = xstrcpy(sMailbox);
SetEmailArea((char *)"mailbox");
WhosDoingWhat(READ_POST, NULL);
clear();
for (i = 0; i < (TEXTBUFSIZE + 1); i++)
Message[i] = (char *) calloc(MAX_LINE_LENGTH +1, sizeof(char));
Line = 1;
Msg_New();
colour(9, 0);
/* Posting message in area: */
printf("\n%s\"%s\"\n", (char *) Language(156), "mailbox");
Enter(1);
/* From : */
pout(14, 0, (char *) Language(157));
if (CFG.EmailMode != E_PRMISP) {
/*
* If not permanent connected to the internet, use fidonet.org style addressing.
*/
Dest = fido2faddr(CFG.EmailFidoAka);
sprintf(Msg.From, "%s@%s (%s)", exitinfo.sUserName, ascinode(Dest, 0x2f), exitinfo.sUserName);
} else
sprintf(Msg.From, "%s@%s (%s)", exitinfo.Name, CFG.sysdomain, exitinfo.sUserName);
for (i = 0; i < strlen(Msg.From); i++) {
if (Msg.From[i] == ' ')
Msg.From[i] = '_';
if (Msg.From[i] == '@')
break;
}
colour(CFG.MsgInputColourF, CFG.MsgInputColourB);
printf("%s", Msg.From);
Syslog('b', "Setting From: %s", Msg.From);
Enter(1);
/* To : */
pout(14, 0, (char *) Language(158));
colour(CFG.MsgInputColourF, CFG.MsgInputColourB);
GetstrU(Msg.To, 63);
if ((strcmp(Msg.To, "")) == 0) {
for (i = 0; i < (TEXTBUFSIZE + 1); i++)
free(Message[i]);
SetEmailArea(orgbox);
free(orgbox);
return;
}
/* Subject : */
pout(14, 0, (char *) Language(161));
colour(CFG.MsgInputColourF, CFG.MsgInputColourB);
fflush(stdout);
alarm_on();
GetstrP(Msg.Subject, 65, 0);
if ((strcmp(Msg.Subject, "")) == 0) {
Enter(1);
/* Abort Message [y/N] ?: */
pout(3, 0, (char *) Language(162));
fflush(stdout);
alarm_on();
if (toupper(Getone()) == Keystroke(162, 0)) {
for (i = 0; i < (TEXTBUFSIZE + 1); i++)
free(Message[i]);
SetEmailArea(orgbox);
free(orgbox);
return;
}
}
Msg.Private = TRUE;
if (Edit_Msg()) {
Save_Email(FALSE);
}
for (i = 0; i < (TEXTBUFSIZE + 1); i++)
free(Message[i]);
SetEmailArea(orgbox);
free(orgbox);
}
void QuickScan_Email(void)
{
int FoundMsg = FALSE;
long i;
iLineCount = 2;
WhosDoingWhat(READ_POST, NULL);
if (EmailBase.Total == 0) {
Enter(1);
/* There are no messages in this area. */
pout(15, 0, (char *) Language(205));
Enter(3);
sleep(3);
return;
}
clear();
/* # From To Subject */
poutCR(14, 1, (char *) Language(220));
if (Msg_Open(sMailpath)) {
for (i = EmailBase.Lowest; i <= EmailBase.Highest; i++) {
if (Msg_ReadHeader(i)) {
colour(15, 0);
printf("%-6lu", Msg.Id);
colour(3, 0);
printf("%s ", padleft(Msg.From, 20, ' '));
colour(2, 0);
printf("%s ", padleft(Msg.To, 20, ' '));
colour(5, 0);
printf("%s", padleft(Msg.Subject, 31, ' '));
printf("\n");
FoundMsg = TRUE;
if (LC(1))
break;
}
}
Msg_Close();
}
if(!FoundMsg) {
Enter(1);
/* There are no messages in this area. */
pout(10, 0, (char *) Language(205));
Enter(2);
sleep(3);
}
iLineCount = 2;
Pause();
}
void Trash_Email(void)
{
if (HasNoEmail())
return;
}
void Choose_Mailbox(char *Option)
{
char *temp;
if (HasNoEmail())
return;
if (strlen(Option)) {
if (!strcmp(Option, "M+")) {
if (!strcmp(sMailbox, "mailbox"))
SetEmailArea((char *)"archive");
else if (!strcmp(sMailbox, "archive"))
SetEmailArea((char *)"trash");
else if (!strcmp(sMailbox, "trash"))
SetEmailArea((char *)"mailbox");
}
if (!strcmp(Option, "M-")) {
if (!strcmp(sMailbox, "mailbox"))
SetEmailArea((char *)"trash");
else if (!strcmp(sMailbox, "trash"))
SetEmailArea((char *)"archive");
else if (!strcmp(sMailbox, "archive"));
SetEmailArea((char *)"mailbox");
}
Syslog('+', "Emailarea: %s", sMailbox);
return;
}
clear();
Enter(1);
/* Message areas */
pout(CFG.HiliteF, CFG.HiliteB, (char *) Language(231));
Enter(2);
pout(15, 0, (char *)" 1"); pout(9, 0, (char *)" . "); pout(3, 0, (char *) Language(467)); printf("\n");
pout(15, 0, (char *)" 2"); pout(9, 0, (char *)" . "); pout(3, 0, (char *) Language(468)); printf("\n");
pout(15, 0, (char *)" 3"); pout(9, 0, (char *)" . "); pout(3, 0, (char *) Language(469)); printf("\n");
pout(CFG.MoreF, CFG.MoreB, (char *) Language(470));
colour(CFG.InputColourF, CFG.InputColourB);
fflush(stdout);
temp = calloc(81, sizeof(char));
GetstrC(temp, 7);
switch (atoi(temp)) {
case 1: SetEmailArea((char *)"mailbox");
break;
case 2: SetEmailArea((char *)"archive");
break;
case 3: SetEmailArea((char *)"trash");
break;
}
Syslog('+', "Emailarea: %s", sMailbox);
free(temp);
}
void SetEmailArea(char *box)
{
if (!exitinfo.Email)
return;
sprintf(sMailpath, "%s/%s/%s", CFG.bbs_usersdir, exitinfo.Name, box);
sprintf(sMailbox, "%s", box);
/*
* Get information from the message base
*/
if (Msg_Open(sMailpath)) {
EmailBase.Lowest = Msg_Lowest();
EmailBase.Highest = Msg_Highest();
EmailBase.Total = Msg_Number();
Msg_Close();
} else
WriteError("Error open JAM %s", sMailpath);
}