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-goldedplus/golded3/gepost.cpp
Alexander S. Aganichev eb281a259f recoding fixes
2001-03-05 05:27:01 +00:00

1222 lines
36 KiB
C++

// ------------------------------------------------------------------
// GoldED+
// Copyright (C) 1990-1999 Odinn Sorensen
// Copyright (C) 1999-2000 Alexander S. Aganichev
// ------------------------------------------------------------------
// 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
// ------------------------------------------------------------------
// $Id$
// ------------------------------------------------------------------
// Mega-functions to handle creation of msgs :-(
// ------------------------------------------------------------------
#include <golded.h>
// ------------------------------------------------------------------
vector<int> post_xparea;
uint position;
ulong msgcount = 0;
// ------------------------------------------------------------------
string &strtrimline(string &p) {
if(not p.empty()) {
string::iterator trail = p.end();
while(trail != p.begin()) {
--trail;
if(not strchr(" \t\r\n", *trail) and not issoftcr(*trail)) {
++trail;
break;
}
}
p.erase(trail, p.end());
}
return p;
}
// ------------------------------------------------------------------
const char* get_subject_re_info(const char* s, ulong& n) {
if(toupper(*s) == 'R' and tolower(s[1]) == 'e') {
if(s[2] == ':') {
n = 1;
return s + 3;
}
else if(s[2] == '^' and isdigit(s[3])) {
const char* d = s + 4;
while(isdigit(*d))
d++;
if(*d == ':') {
n = (ulong)atol(s + 3);
return d + 1;
}
}
}
n = 0;
return NULL;
}
// ------------------------------------------------------------------
void CheckSubject(GMsg* msg, char* subj) {
for(int n=0; n<fspecs; n++)
throw_release(fspec[n].fblk);
fspecs = specfiles = 0;
fspec = (FileSpec*)throw_realloc(fspec, sizeof(FileSpec));
if(AA->isnet()) {
if(EDIT->AutoAttach()) {
// If the subject was changed
if(not strieql(subj, msg->re)) {
// Check if the subj begins with drive spec
if(not (msg->attr.frq() or msg->attr.att() or msg->attr.urq())) {
char* ptr = subj;
if(*ptr == '^')
ptr++;
#ifdef __UNIX__
if((*ptr == '/') and not strchr(ptr, ':')) { /* } */
#else
if((in_range((char)tolower(*ptr), (char)'c', (char)'z') and (ptr[1] == ':')) or ((*ptr == '\\') and (ptr[1] == '\\'))) {
#endif
// Autoattach
msg->attr.att1();
AttrAdd(&msg->attr, &CFG->attribsattach);
DispHeadAttrs(msg);
}
}
}
}
if(msg->attr.frq()) {
// Handle File Requests
if(*subj) {
ISub buf;
strcpy(buf, subj);
char* ptr = strtok(buf, " ");
while(ptr) {
if(*ptr == '!') { // Store password
if(fspecs)
strcpy(fspec[fspecs-1].password, ptr);
}
else {
fspec = (FileSpec*)throw_realloc(fspec, (fspecs+1)*sizeof(FileSpec));
memset(fspec+fspecs, 0, sizeof(FileSpec));
fspec[fspecs].files = 1;
strxcpy(fspec[fspecs].path, ptr, sizeof(Path));
specfiles++;
fspecs++;
}
ptr = strtok(NULL, " ");
}
}
}
else if(msg->attr.att()) {
// Handle File Attaching
ISub buf;
if(strblank(subj)) {
if(*CFG->attachpath)
strxcpy(subj, CFG->attachpath, sizeof(ISub));
else
strxcpy(subj, CFG->goldpath, sizeof(ISub));
}
strcpy(buf, subj);
char* ptr = strtok(buf, " ");
while(ptr) {
fspec = (FileSpec*)throw_realloc(fspec, (fspecs+1)*sizeof(FileSpec));
memset(fspec+fspecs, 0, sizeof(FileSpec));
if(*ptr == '^') {
fspec[fspecs].delsent = YES;
ptr++;
}
if((ptr == CleanFilename(ptr)) and *CFG->attachpath)
strxmerge(fspec[fspecs].path, sizeof(Path), CFG->attachpath, ptr, NULL);
else
strxcpy(fspec[fspecs].path, ptr, sizeof(Path));
FileSelect(msg, LNG->AttachFiles, &fspec[fspecs]);
specfiles += fspec[fspecs].files;
if(fspec[fspecs].files)
fspecs++;
ptr = strtok(NULL, " ");
}
}
else if(msg->attr.urq()) {
// Handle Update Requests
ISub buf;
if(not *subj)
strcpy(subj, ".");
strcpy(buf, subj);
char* ptr = strtok(buf, " ");
while(ptr) {
if(*ptr == '!') { // Store password
if(fspecs)
strcpy(fspec[fspecs-1].password, ptr);
}
else {
fspec = (FileSpec*)throw_realloc(fspec, (fspecs+1)*sizeof(FileSpec));
memset(fspec+fspecs, 0, sizeof(FileSpec));
strxcpy(fspec[fspecs].path, ptr, sizeof(Path));
FileSelect(msg, LNG->UpdreqFiles, &fspec[fspecs]);
specfiles += fspec[fspecs].files;
if(fspec[fspecs].files)
fspecs++;
}
ptr = strtok(NULL, " ");
}
}
// Generate the (first) processed subject line
if(specfiles) {
ISub buf;
*buf = NUL;
for(int x=0,n=0; x<fspecs; x++) {
for(int m=0; m<fspec[x].files; m++) {
ISub subject;
sprintf(subject, "%s%s%s%s%s ", fspec[x].delsent ? "^" : "", ReMapPath(fspec[x].path), fspec[x].fblk ? (fspec[x].fblk[m].name ? fspec[x].fblk[m].name : "") : "", *fspec[x].password ? " " : "", fspec[x].password);
if((strlen(buf) + strlen(subject)) > 71) {
n++;
break;
}
else
strcat(buf, subject);
}
if(n)
break;
}
strtrim(strcpy(subj, buf));
}
}
}
// ------------------------------------------------------------------
static bool have_origin(GMsg *msg) {
Line* line = msg->lin;
while(line)
if(line->type & GLINE_ORIG)
return true;
else
line = line->next;
return false;
}
// ------------------------------------------------------------------
static void MakeMsg3(int& mode, GMsg* msg) {
int n;
vector<gaka>::iterator u;
msg->charsetlevel = 0;
if(*AA->Xlatexport()) {
msg->charsetlevel = LoadCharset(CFG->xlatlocalset, AA->Xlatexport());
if(msg->charsetlevel)
sprintf(msg->charset, "%s %d", AA->Xlatexport(), msg->charsetlevel);
else
sprintf(msg->charset, "%s 2", CFG->xlatlocalset);
}
// Do Timefields
if(msg->attr.fmu()) {
time_t a = time(NULL);
struct tm *tp = gmtime(&a);
tp->tm_isdst = -1;
time_t b = mktime(tp);
a += a - b;
if(AA->isjam() or AA->iswildcat())
msg->received = a;
else
msg->arrived = a;
}
GMsg* carbon=NULL;
int cc = DoCarboncopy(msg, &carbon);
if(AA->isecho() or have_origin(msg))
DoTearorig(mode, msg);
// Do FakeNets
msg->oorig = msg->orig;
if(AA->isnet() and msg->orig.point) {
for(u = CFG->aka.begin(); u != CFG->aka.end(); u++) {
if(not memcmp(u, &msg->orig, sizeof(Addr))) {
// Use fakenet to everybody
if(u->pointnet) {
msg->oorig.net = u->pointnet; // Create fake address
msg->oorig.node = msg->orig.point;
msg->oorig.point = 0;
}
break;
}
}
}
DoKludges(mode, msg);
if(cc) {
string temp;
update_statuslinef(LNG->StatusCC, msg->to, msg->dest.make_string(temp).c_str());
}
msg->LinesToText();
if(AA->isnet() and (msg->attr.frq() or msg->attr.att() or msg->attr.urq()) and specfiles >= 1)
CreateFileMsgs(mode, msg);
else {
HeaderView->Use(AA, msg);
HeaderView->Paint();
// Do zoneGating
if(AA->isnet() and CFG->zonegating and (msg->dest.zone != msg->orig.zone)) {
if(not (msg->attr.dir() or msg->attr.cra() or msg->attr.hld())) {
GMenuZonegate MenuZonegate;
if(CFG->zonegating == YES or MenuZonegate.Run())
ZonegateIt(msg->odest, msg->orig, msg->dest);
}
}
if(msg->odest.net == 0)
msg->odest = msg->dest;
HeaderView->Use(AA, msg);
HeaderView->Paint();
w_info(LNG->Wait);
AA->SaveMsg((mode == MODE_CHANGE) ? GMSG_UPDATE : GMSG_NEW, msg);
if(not (AA->isecho() and mode == MODE_REPLYCOMMENT))
update_addressbook(msg);
w_info(NULL);
}
if(AL.AreaEchoToNo(AA->Areayouwroteto())>=0) {
Area* A = AL.AreaEchoToPtr(AA->Areayouwroteto());
if(AA != A and (mode != MODE_CHANGE)) {
char* back = NULL;
uint mlen = 0;
msg->link.reset();
char* ptr = msg->txt + (*msg->txt == CTRL_A);
if(not strnieql(ptr, "AREA:", 5)) {
uint elen = 6 + strlen(AA->echoid()) + 1;
mlen = strlen(msg->txt)+1;
msg->txt = (char*)throw_realloc(msg->txt, elen+mlen);
back = msg->txt+elen;
memmove(back, msg->txt, mlen);
strcpy(msg->txt, "\001AREA:");
strcpy(msg->txt+6, AA->echoid());
msg->txt[elen-1] = CR;
}
AA->Close();
A->Open();
ulong oldmsgno = msg->msgno;
A->NewMsgno(msg);
A->SaveMsg(GMSG_NEW|GMSG_NOLSTUPD, msg);
A->Close();
AA->Open();
if(back)
memmove(msg->txt, back, mlen);
msg->msgno = oldmsgno;
}
}
if(cc) {
Area* A = AA;
if(AA->isecho()) {
AA = AL.AreaEchoToPtr(AA->Areareplyto());
if(AA and (AA != A)) {
AA->Open();
AA->RandomizeData(mode);
}
else
AA = A;
}
for(n=0; n<cc; n++) {
GMsg* cmsg = &carbon[n];
cmsg->txt = msg->txt;
cmsg->lin = msg->lin;
cmsg->line = msg->line;
cmsg->lines = msg->lines;
cmsg->messageid = msg->messageid;
cmsg->inreplyto = msg->inreplyto;
cmsg->references = msg->references;
AA->NewMsgno(cmsg);
{
string temp;
update_statuslinef(LNG->StatusCC, cmsg->to, cmsg->dest.make_string(temp).c_str());
}
// Do aka matching
if(AA->Akamatching()) {
int newaka = AkaMatch(&cmsg->orig, &cmsg->dest);
cmsg->orig = CFG->aka[newaka].addr;
}
// Do FakeNets
cmsg->oorig = cmsg->orig;
if(AA->isnet() and cmsg->orig.point) {
for(u = CFG->aka.begin(); u != CFG->aka.end(); u++) {
if(not memcmp(u, &cmsg->orig, sizeof(Addr))) {
// Use fakenet to everybody
if(u->pointnet) {
cmsg->oorig.net = u->pointnet; // Create fake address
cmsg->oorig.node = cmsg->orig.point;
cmsg->oorig.point = 0;
}
break;
}
}
}
// remove unnessesary To: line from message if present
for(Line* line = cmsg->lin; line; line = line->next)
if(strnieql(line->txt.c_str(), "To:", 3))
line = DeleteLine(line);
else if(line->type & GLINE_KLUDGE)
continue;
else
break;
DoKludges(mode, cmsg);
if(have_origin(cmsg))
DoTearorig(mode, cmsg);
cmsg->LinesToText();
msg->txt = cmsg->txt;
msg->lin = cmsg->lin;
msg->line = cmsg->line;
msg->lines = cmsg->lines;
msg->messageid = cmsg->messageid;
msg->inreplyto = cmsg->inreplyto;
msg->references = cmsg->references;
if(AA->isnet() and (cmsg->attr.frq() or cmsg->attr.att() or cmsg->attr.urq())) {
CreateFileMsgs(MODE_NEW, cmsg);
msg->txt = cmsg->txt;
msg->lin = cmsg->lin;
msg->line = cmsg->line;
msg->lines = cmsg->lines;
msg->messageid = cmsg->messageid;
msg->inreplyto = cmsg->inreplyto;
msg->references = cmsg->references;
}
else {
HeaderView->Use(AA, cmsg);
HeaderView->Paint();
// Do zoneGating
if(AA->isnet() and CFG->zonegating and (cmsg->dest.zone != cmsg->orig.zone)) {
if(not cmsg->attr.dir()) {
GMenuZonegate MenuZonegate;
if(CFG->zonegating == YES or MenuZonegate.Run())
ZonegateIt(cmsg->odest, cmsg->orig, cmsg->dest);
}
}
if(cmsg->odest.net == 0)
cmsg->odest = cmsg->dest;
HeaderView->Use(AA, cmsg);
HeaderView->Paint();
w_info(LNG->Wait);
AA->SaveMsg(GMSG_NEW, cmsg);
w_info(NULL);
update_addressbook(cmsg);
msg->txt = cmsg->txt;
msg->lin = cmsg->lin;
msg->line = cmsg->line;
msg->lines = cmsg->lines;
msg->messageid = cmsg->messageid;
msg->inreplyto = cmsg->inreplyto;
msg->references = cmsg->references;
}
}
throw_release(carbon);
if(A != AA) {
AA->Close();
AA = A;
AA->RandomizeData();
}
AA->UpdateAreadata();
}
}
// ------------------------------------------------------------------
static void MakeMsg2(int& mode, int& status, int& forwstat, int& topline, GMsg* msg, GMsg* oldmsg, GMsg* cmpmsg) {
uint n;
char buf[256], buf2[256];
Line* line;
Line* newline;
if(status == MODE_CHANGE or (mode == MODE_FORWARD and status == MODE_SAVE)) {
if(mode == MODE_CHANGE) {
if(stricmp(msg->By(), AA->Username().name)) {
vector<Node>::iterator x;
for(n = 0, x = CFG->username.begin(); x != CFG->username.end(); n++, x++) {
if(strieql(x->name, msg->By())) {
n = 0;
break;
}
}
if(n)
status = MODE_SAVE;
}
}
w_info(LNG->Wait);
if(mode != MODE_CHANGE) {
if(not CFG->switches.get(emptytearline))
strcpy(msg->tearline, AA->Tearline());
if(AA->Taglinesupport())
strcpy(msg->tagline, AA->Tagline());
DoTearorig(mode, msg);
strcpy(msg->organization, AA->Organization());
}
if(mode != MODE_CHANGE or status == MODE_SAVE) {
if(TemplateToText(mode, msg, oldmsg, AA->Tpl(), OrigArea)) {
HeaderView->Use(AA, msg);
HeaderView->Paint();
}
msg->attr.tou1(); // Ignore any kludge address found
msg->attr.pos1();
msg->TextToLines(CFG->dispmargin-1);
msg->attr.tou0();
msg->attr.pos0();
}
uint lineno = position = reader_topline+1;
line = msg->lin;
while(line) {
if(not (line->type & GLINE_QUOT))
if(line->type & GLINE_POSI)
position = lineno;
lineno++;
line = line->next;
}
if(*EDIT->External() and not EDIT->Internal()) {
SaveLines(MODE_NEW, AddPath(CFG->goldpath, EDIT->File()), msg, 79);
}
int loop = 0;
w_info(NULL);
do {
if(loop) {
status = MODE_SAVE;
forwstat = NO;
}
if(mode == MODE_FORWARD)
status = MODE_SAVE;
if(*EDIT->External() and forwstat == NO and not EDIT->Internal()) {
strcpy(buf, EDIT->External());
sprintf(buf2, "%u", position);
strischg(buf, "@line", buf2);
strcpy(buf2, AddPath(CFG->goldpath, EDIT->File()));
strchg(buf2, GOLD_WRONG_SLASH_CHR, GOLD_SLASH_CHR);
strischg(buf, "@file", buf2);
long ftbefore = GetFiletime(AddPath(CFG->goldpath, EDIT->File()));
sprintf(buf2, LNG->EditCmd, buf);
ShellToDos(buf, buf2, LGREY|_BLACK, YES);
long ftafter = GetFiletime(AddPath(CFG->goldpath, EDIT->File()));
if(status != MODE_SAVE) {
status = MODE_SAVE;
if(ftbefore == ftafter) {
if(streql(msg->by, cmpmsg->by))
if(streql(msg->to, cmpmsg->to))
if(streql(msg->re, cmpmsg->re))
if(not memcmp(&msg->attr, &cmpmsg->attr, sizeof(Attr)))
status = MODE_QUIT;
}
}
}
else if(forwstat == NO and (EDIT->Internal() or not *EDIT->External())) {
w_info(LNG->Wait);
status = MODE_SAVE;
newline = line = msg->lin;
while(line) {
newline = line;
if(((line->type & GLINE_HIDD) and not AA->Viewhidden()) or ((line->type & GLINE_KLUD) and not AA->Viewkludge()))
newline = line = DeleteLine(line);
else {
strtrimline(line->txt);
if(line->type & GLINE_HARD)
line->txt += "\n";
else
line->txt += " ";
line = line->next;
}
}
msg->lin = FirstLine(newline);
w_info(NULL);
if(position)
position--;
if(not savedirect)
status = EditMsg(mode, &position, msg);
_in_editor = NO;
w_info(LNG->Wait);
if(status != MODE_QUIT) {
line = msg->lin;
while(line) {
if(line->txt.find('\n') != line->txt.npos)
line->type = GLINE_HARD;
else if(line->next and (line->next->type & GLINE_QUOT))
line->type = GLINE_HARD;
else
line->type = 0;
strtrimline(line->txt);
if(AA->isinternet()) {
// Check for signature indicator
if(streql(line->txt.c_str(), "--")) {
line->txt = "-- ";
line->type = GLINE_HARD;
}
}
line = line->next;
}
LoadCharset("N/A", "N/A");
strcpy(stpcpy(msg->charset, CFG->xlatlocalset), " 2");
msg->charsetlevel = 2;
msg->LinesToText();
}
w_info(NULL);
}
if(status == MODE_SAVE) {
if(*EDIT->External() and not EDIT->Internal())
LoadText(msg, AddPath(CFG->goldpath, EDIT->File()));
if(mode == MODE_FORWARD)
msg->attr.pos1();
msg->attr.tou1(); // ignore any kludge address found
msg->TextToLines(CFG->dispmargin-1);
msg->attr.tou0();
msg->attr.pos0();
if(not savedirect) {
HeaderView->Use(AA, msg);
HeaderView->Paint();
BodyView->Use(AA, msg, topline);
BodyView->Paint();
do {
if(gkbd.quitall)
status = MODE_SAVE;
else {
GMenuEditfile MenuEditfile;
status = MenuEditfile.Run(msg);
}
if(status == MODE_VIEW) {
BodyView->Use(AA, msg, topline);
BodyView->Paint();
ViewMessage();
}
} while(status == MODE_VIEW);
}
InvalidateControlInfo(msg);
if(status == MODE_SAVE)
DoCrosspost(msg, post_xparea);
}
loop++;
if(status == MODE_CHANGE) {
_in_editor = YES;
HeaderView->Use(AA, msg);
HeaderView->Paint();
}
} while(status == MODE_CHANGE);
}
}
// ------------------------------------------------------------------
static void GetLastLink(GMsg* msg, ulong& msgno) {
GMsg* uplink = (GMsg*)throw_calloc(1, sizeof(GMsg));
uplink->msgno = msg->msgno;
uplink->link.first_set(msg->link.first());
if(uplink->link.first()) {
while(AA->Msgn.ToReln(uplink->link.first())) {
if(not AA->LoadHdr(uplink, uplink->link.first(), false))
uplink->msgno = 0;
}
}
// Return msgno of the last link
msgno = uplink->msgno;
ResetMsg(uplink);
throw_free(uplink);
}
// ------------------------------------------------------------------
void MakeMsg(int mode, GMsg* omsg, bool ignore_replyto) {
GFTRK("MakeMsg");
// Tell GMsgHeaderView not to show msg size
_in_editor = YES;
// Allocate some msgs
GMsg* msg = (GMsg*)throw_calloc(1, sizeof(GMsg));
GMsg* reply = (GMsg*)throw_calloc(1, sizeof(GMsg));
GMsg* cmpmsg = (GMsg*)throw_calloc(1, sizeof(GMsg));
ulong reply_msgno = 0;
// Keep copy of original aka for later restoration
Addr origaka = AL.AreaIdToPtr(OrigArea)->aka();
// Force template choice if necessary
if(AA->Forcetemplate() and (mode != MODE_CHANGE))
ChangeTemplate();
// Random System
AA->RandomizeData();
// Prepare confirmation receipts
int confirm = NO;
if(mode == MODE_CONFIRM) {
confirm = YES;
mode = MODE_REPLY;
}
// Prepare crossposting
int crosspost = NO;
post_xparea.clear();
do {
if(post_xparea.size()) {
mode = MODE_COPY;
AL.SetActiveAreaNo(post_xparea.back());
if(CurrArea != OrigArea) {
AA->Open();
AA->RandomizeData(mode);
}
msg->attr.tou0();
msg->TextToLines(CFG->dispmargin-1);
msg->orig = AA->Aka().addr;
msg->charsetlevel = LoadCharset(CFG->xlatlocalset, AA->Xlatexport());
if(msg->charsetlevel!=0 and CharTable and not strblank(CharTable->exp))
strcpy(msg->charset, CharTable->exp);
strcpy(msg->odom, CFG->aka[AkaMatch(&msg->orig, &AA->Aka().addr)].domain);
if(AA->isecho() or have_origin(msg))
DoTearorig(mode, msg);
DoKludges(mode, msg);
msg->LinesToText();
post_xparea.pop_back();
}
int status = MODE_SAVE;
int hardlines = EDIT->HardLines();
int topline = 0;
fspecs = specfiles = 0;
fspec = (FileSpec*)throw_realloc(fspec, sizeof(FileSpec));
memset(fspec, 0, sizeof(FileSpec));
// Get msg number and reset/copy msg data
if(mode != MODE_COPY)
ResetMsg(msg);
switch(mode) {
case MODE_FORWARD:
memcpy(msg, omsg, sizeof(GMsg));
msg->txt = (char*)throw_strdup(msg->txt);
msg->lin = NULL;
msg->line = NULL;
msg->messageid = NULL;
msg->inreplyto = NULL;
msg->references = NULL;
msg->attr.tou0();
msg->TextToLines(CFG->dispmargin-1, false);
*msg->iorig = NUL;
*msg->idest = NUL;
*msg->ireplyto = NUL;
*msg->iaddr = NUL;
*msg->igate = NUL;
*msg->ifrom = NUL;
*msg->ito = NUL;
*msg->organization = NUL;
*msg->realby = NUL;
*msg->realto = NUL;
*msg->origin = NUL;
// Drop through ...
case MODE_COPY:
AA->NewMsgno(msg);
msg->link.reset();
break;
case MODE_CHANGE:
memcpy(msg, omsg, sizeof(GMsg));
msg->txt = (char*)throw_strdup(msg->txt);
msg->lin = NULL;
msg->line = NULL;
msg->messageid = NULL;
msg->inreplyto = NULL;
msg->references = NULL;
msg->attr.tou0();
msg->TextToLines(CFG->dispmargin-1, false);
break;
case MODE_NEW:
wfill(MINROW, 0, MAXROW-2, MAXCOL-1, ' ', C_READW);
case MODE_QUOTE:
case MODE_REPLY:
case MODE_REPLYCOMMENT:
AA->NewMsgno(msg);
msg->timesread = 1;
}
msg->oorig = msg->orig;
msg->board = AA->board();
msg->odest = msg->dest;
if(mode != MODE_COPY) {
// Set msg date and time
bool dochgdate = true;
if(mode == MODE_CHANGE) {
dochgdate = EDIT->ChangeDate();
if(dochgdate and not msg->attr.fmu())
dochgdate = false;
}
if(dochgdate) {
time_t a = time(NULL);
struct tm *tp = gmtime(&a);
tp->tm_isdst = -1;
time_t b = mktime(tp);
a += a - b;
msg->received = msg->arrived = msg->written = a;
}
// Prepare msg header
if(mode != MODE_CHANGE)
msg->attr = AA->Attributes(); // Set default attributes
switch(mode) {
case MODE_QUOTE:
case MODE_REPLYCOMMENT:
omsg->attr.tou0();
omsg->TextToLines(-CFG->quotemargin, false);
if(ignore_replyto)
*omsg->ireplyto = NUL;
if(omsg->attr.rot())
Rot13(omsg);
// Drop through
case MODE_REPLY:
if(confirm)
msg->attr = CFG->attribscfm;
if(omsg->attr.pvt() & !AA->isecho())
msg->attr.pvt1(); // Set Pvt attr in response to Pvt in orig
if(omsg->attr.frq() and (mode == MODE_REPLY) and (not confirm)) {
msg->attr = CFG->attribsfrq;
msg->attr.frq1(); // Special case for the file request function
}
// Change header data if replying to a forwarded message
if((mode == MODE_REPLYCOMMENT) and omsg->fwdorig.net) {
strcpy(omsg->by, omsg->fwdfrom);
strcpy(omsg->realby, omsg->fwdfrom);
omsg->oorig = omsg->orig = omsg->fwdorig;
strcpy(omsg->to, omsg->fwdto);
strcpy(omsg->realto, omsg->fwdto);
omsg->odest = omsg->dest = omsg->fwddest;
strcpy(omsg->re, omsg->fwdsubj);
*omsg->ireplyto = *omsg->iorig = NUL;
}
// Do aka matching
if(AA->Akamatching()) {
// ... but only if we did NOT change aka manually
if(AA->Aka().addr.equals(AA->aka())) {
Addr aka_addr = AA->Aka().addr;
AkaMatch(&aka_addr, &omsg->orig);
AA->SetAka(aka_addr);
}
}
if((mode == MODE_REPLYCOMMENT) and not omsg->fwdorig.net) {
strcpy(msg->to, omsg->to);
strcpy(msg->realto, omsg->realto);
msg->dest = omsg->dest;
strcpy(msg->idest, omsg->idest);
}
else {
strcpy(msg->to, omsg->By());
strcpy(msg->realto, omsg->realby);
msg->dest = omsg->orig;
strcpy(msg->idest, *omsg->ireplyto ? omsg->ireplyto : omsg->iorig);
}
if(not *msg->iaddr)
strcpy(msg->iaddr, msg->idest);
strcpy(msg->re, omsg->re);
if(AA->Replyre() or AA->isinternet()) {
ulong number;
const char* r = get_subject_re_info(msg->re, number);
if(r) {
if(AA->Replyre() == REPLYRE_NUMERIC and not AA->isinternet()) {
ISub subj;
sprintf(subj, "Re^%lu:%s", ((number+1) > number) ? (number+1) : number, r);
strcpy(msg->re, subj);
}
}
else if(not msg->attr.frq() and not msg->attr.urq()) {
memmove(msg->re+4, msg->re, sizeof(ISub)-5);
memmove(msg->re, "Re: ", 4);
}
}
else {
char* r;
ulong number;
char* ptr = msg->re;
do {
r = (char*)get_subject_re_info(ptr, number);
if(r)
ptr = strskip_wht(r);
} while(r);
strcpy(msg->re, ptr);
}
strcpy(msg->ddom, omsg->odom);
if((mode == MODE_REPLYCOMMENT) and omsg->fwdorig.net)
strcpy(msg->replys, omsg->fwdmsgid);
else
strcpy(msg->replys, omsg->msgids);
if(AA->isnet()) {
if(omsg->messageid) {
throw_free(msg->inreplyto);
msg->inreplyto = throw_strdup(omsg->messageid);
}
if(CFG->switches.get(internetreply) or (*omsg->iaddr and (strlen(omsg->iaddr) >= sizeof(Name)))) {
strcpy(msg->iaddr, omsg->iaddr);
strcpy(msg->igate, omsg->igate);
if(*msg->igate) {
msg->dest.set(msg->igate);
char* ptr = strchr(msg->igate, ' ');
if(ptr) {
if(not isuucp(msg->to))
strcpy(msg->realto, msg->to);
strcpy(msg->to, strskip_wht(ptr));
}
}
}
else if(*omsg->iaddr and (strlen(omsg->iaddr) < sizeof(Name))) {
if(not isuucp(msg->to))
strcpy(msg->realto, msg->to);
strcpy(msg->to, omsg->iaddr);
}
}
else {
int reflen = omsg->references ? strlen(omsg->references) : 0;
int midlen = omsg->messageid ? strlen(omsg->messageid) : 0;
msg->references = (char*)throw_calloc(1, reflen+1+midlen+1);
if(omsg->references)
strcpy(msg->references, omsg->references);
if(omsg->messageid) {
if(reflen)
strcat(msg->references, " ");
strcat(msg->references, omsg->messageid);
}
if(*msg->references == NUL)
throw_release(msg->references);
}
if(CurrArea == OrigArea) {
if((CFG->replylink == REPLYLINK_DIRECT) or AA->isjam())
reply_msgno = omsg->msgno;
else if(CFG->replylink == REPLYLINK_CHAIN)
GetLastLink(omsg, reply_msgno);
msg->link.to_set(reply_msgno);
if(msg->link.to() == omsg->msgno)
omsg->link.first_set(msg->msgno);
}
///////////
/////////// Drop through
///////////
case MODE_FORWARD:
if(mode == MODE_FORWARD) {
if(msg->fwdorig.net == 0) {
strcpy(msg->fwdfrom, msg->By());
msg->fwdorig = msg->orig;
strcpy(msg->fwdto, msg->To());
msg->fwddest = msg->dest;
strxcpy(msg->fwdsubj, msg->re, sizeof(msg->fwdsubj));
Area* fwdarea = AL.AreaIdToPtr(OrigArea);
strcpy(msg->fwdarea, fwdarea->isecho() ? fwdarea->echoid() : "");
strcpy(msg->fwdmsgid, msg->msgids);
}
}
///////////
/////////// Drop through
///////////
case MODE_NEW:
strcpy(msg->by, AA->Username().name);
msg->attr.nwm1();
if(not AA->islocal())
msg->attr.uns1();
strcpy(msg->odom, CFG->aka[AkaMatch(&msg->orig, &AA->Aka().addr)].domain);
break;
case MODE_CHANGE:
if(not AA->islocal())
msg->attr.uns1();
msg->attr.snt0();
msg->attr.rcv0();
break;
}
// Get random items
switch(mode) {
case MODE_NEW:
case MODE_FORWARD:
*msg->replys = NUL;
throw_release(msg->references);
throw_release(msg->inreplyto);
if(AA->isnet()) {
strcpy(msg->to, "");
msg->dest.reset_fast();
msg->odest.reset_fast();
}
if(not AA->isnet() or (AA->isemail() and strchr(AA->Whoto(), '@')))
strcpy(msg->to, AA->Whoto());
///////
/////// Drop through
///////
case MODE_REPLYCOMMENT:
case MODE_QUOTE:
case MODE_REPLY:
case MODE_CHANGE:
AA->RandomizeData(mode);
if(mode != MODE_CHANGE) {
msg->orig = AA->Aka().addr;
if(AA->isinternet())
strcpy(msg->iorig, AA->Internetaddress());
if(not strblank(AA->Username().name))
strcpy(msg->by, AA->Username().name);
if(CFG->switches.get(emptytearline))
*msg->tearline = NUL;
}
break;
}
int forwstat = NO;
if(msg->odest.net == 0)
msg->odest = msg->dest;
status = NO;
if(not confirm) {
strcpy(cmpmsg->by, msg->by);
strcpy(cmpmsg->to, msg->to);
strcpy(cmpmsg->re, msg->re);
cmpmsg->attr = msg->attr;
if(savedirect) {
CheckSubject(msg, msg->re);
}
else {
GMenuEditHeader MenuEditHeader;
while((status = MenuEditHeader.Run(mode, msg)) == YES);
}
}
if(status == NO) {
if(mode == MODE_CHANGE or mode == MODE_FORWARD) {
status = MODE_SAVE;
if(mode == MODE_FORWARD)
forwstat = YES;
}
else {
if(confirm) {
throw_release(msg->txt);
FILE* fp = fsopen(AddPath(CFG->goldpath, CFG->confirmfile), "rt", CFG->sharemode);
if(fp) {
LoadText(msg, AddPath(CFG->goldpath, CFG->confirmfile));
fclose(fp);
}
if(msg->txt == NULL)
msg->txt = throw_strdup("\r\rConfirmation Receipt\r\r");
TokenXlat(mode, msg->txt, msg, omsg, CurrArea);
}
else
CreateFileAddr(msg);
msg->TextToLines(CFG->dispmargin-1);
status = MODE_SAVE;
}
}
MakeMsg2(mode, status, forwstat, topline, msg, omsg, cmpmsg);
}
if(status != MODE_SAVE) {
post_xparea.clear();
crosspost = NO;
}
if(status == MODE_SAVE) {
if(*msg->iorig and (strlen(msg->iorig) < sizeof(Name))) {
strcpy(msg->realby, msg->by);
strcpy(msg->by, msg->iorig);
}
if(mode == MODE_COPY)
AA->SaveMsg(GMSG_NEW, msg);
else
MakeMsg3(mode, msg);
// If message is a reply, update the links on the original
if(CurrArea == OrigArea and (mode == MODE_QUOTE or mode == MODE_REPLYCOMMENT or mode == MODE_REPLY)) {
if(AA->Msgn.ToReln(reply_msgno)) {
if(AA->LoadHdr(reply, reply_msgno, false)) {
ulong replynext;
bool ok2save = false;
if(AA->issquish()) {
if(reply->link.first()) {
for(int r=0; r<reply->link.list_max()-1; r++) {
if(reply->link.list(r) == 0) {
reply->link.list_set(r, msg->msgno);
ok2save = true;
break;
}
}
}
else {
reply->link.first_set(msg->msgno);
ok2save = true;
}
}
else if(AA->isjam()) {
if(reply->link.first()) {
replynext = reply->link.first();
do {
reply_msgno = replynext;
if(not AA->LoadHdr(reply, reply_msgno, false))
break;
replynext = reply->link.next();
} while(reply->link.next());
if(reply->link.next() == 0) {
reply->link.next_set(msg->msgno);
ok2save = true;
}
}
else {
reply->link.first_set(msg->msgno);
ok2save = true;
}
}
else {
reply->link.first_set(msg->msgno);
ok2save = true;
}
if(ok2save) {
reply->pcboard.reply_written = msg->written;
AA->SaveHdr(GMSG_UPDATE, reply);
}
}
}
}
// Ask if the original msg should be deleted while we're at it
if(CurrArea == OrigArea and CFG->switches.get(askdelorig) and not confirm) {
switch(mode) {
case MODE_REPLY:
case MODE_QUOTE:
case MODE_REPLYCOMMENT:
if(not AA->isecho()) {
topline = 0;
omsg->TextToLines(CFG->dispmargin-1);
if(omsg->attr.rot())
Rot13(omsg);
HeaderView->Use(AA, omsg);
HeaderView->Paint();
BodyView->Use(AA, omsg, topline);
BodyView->Paint();
GMenuDelorig MenuDelorig;
if(MenuDelorig.Run()) {
AA->Mark.Del(omsg->msgno);
AA->PMrk.Del(omsg->msgno);
AA->DeleteMsg(omsg, DIR_PREV);
}
}
break;
}
}
}
if(CurrArea != OrigArea) {
AA->UpdateAreadata();
AA->Close();
AL.SetActiveAreaId(OrigArea);
AA->RandomizeData();
}
AA->UpdateAreadata();
EDIT->HardLines(hardlines);
for(int n=0; n<fspecs; n++)
throw_release(fspec[n].fblk);
fspecs = specfiles = 0;
throw_release(fspec);
if(crosspost and post_xparea.size())
update_statuslinef(LNG->Crossposting, AL[post_xparea.back()]->echoid());
} while(post_xparea.size());
_in_editor = NO;
// Restore original aka
AA->SetAka(origaka);
ResetMsg(omsg);
ResetMsg(cmpmsg);
ResetMsg(reply);
ResetMsg(msg);
throw_free(cmpmsg);
throw_free(reply);
throw_free(msg);
LoadLanguage(AA->Loadlanguage());
GFTRK(NULL);
}
// ------------------------------------------------------------------