// mail.cpp
//
// $Id: mail.cpp,v 1.54 2006/02/02 23:02:59 sdennis Exp $
//
// This code was taken from Kalkin's DarkZone code, which was
// originally taken from PennMUSH 1.50 p10, and has been heavily modified
// since being included in MUX.
//
#include "copyright.h"
#include "autoconf.h"
#include "config.h"
#include "externs.h"
#include <sys/types.h>
#include "attrs.h"
#include "command.h"
#include "powers.h"
#include "mail.h"
#define SIZEOF_MALIAS 13
#define WIDTHOF_MALIASDESC 40
#define SIZEOF_MALIASDESC (WIDTHOF_MALIASDESC*2)
#define MAX_MALIAS_MEMBERSHIP 100
struct malias
{
int owner;
char *name;
char *desc;
int desc_width; // The visual width of the Mail Alias Description.
int numrecep;
dbref list[MAX_MALIAS_MEMBERSHIP];
};
static int ma_size = 0;
static int ma_top = 0;
static struct malias **malias = NULL;
static MAILBODY *mail_list = NULL;
// Handling functions for the database of mail messages.
//
// mail_db_grow - We keep a database of mail text, so if we send a
// message to more than one player, we won't have to duplicate the
// text.
//
#define MAIL_FUDGE 1
static void mail_db_grow(int newtop)
{
if (newtop <= mudstate.mail_db_top)
{
return;
}
if (mudstate.mail_db_size <= newtop)
{
// We need to make the mail bag bigger.
//
int newsize = mudstate.mail_db_size + 100;
if (newtop > newsize)
{
newsize = newtop;
}
MAILBODY *newdb = (MAILBODY *)MEMALLOC((newsize + MAIL_FUDGE) * sizeof(MAILBODY));
ISOUTOFMEMORY(newdb);
if (mail_list)
{
mail_list -= MAIL_FUDGE;
memcpy( newdb,
mail_list,
(mudstate.mail_db_top + MAIL_FUDGE) * sizeof(MAILBODY));
MEMFREE(mail_list);
mail_list = NULL;
}
mail_list = newdb + MAIL_FUDGE;
newdb = NULL;
mudstate.mail_db_size = newsize;
}
// Initialize new parts of the mail bag.
//
for (int i = mudstate.mail_db_top; i < newtop; i++)
{
mail_list[i].m_nRefs = 0;
mail_list[i].m_pMessage = NULL;
}
mudstate.mail_db_top = newtop;
}
// MessageReferenceInc - Increments the reference count for any
// particular message.
//
static DCL_INLINE void MessageReferenceInc(int number)
{
mail_list[number].m_nRefs++;
}
// MessageReferenceCheck - Checks whether the reference count for
// any particular message indicates that the message body should be
// freed. Also checks that if a message point is null, that the
// reference count is zero.
//
static void MessageReferenceCheck(int number)
{
MAILBODY &m = mail_list[number];
if (m.m_nRefs <= 0)
{
if (m.m_pMessage)
{
MEMFREE(m.m_pMessage);
m.m_pMessage = NULL;
}
}
if (m.m_pMessage == NULL)
{
m.m_nRefs = 0;
}
}
// MessageReferenceDec - Decrements the reference count for a message, and
// will also delete the message if the counter reaches 0.
//
static void MessageReferenceDec(int number)
{
mail_list[number].m_nRefs--;
MessageReferenceCheck(number);
}
// MessageFetch - returns the text for a particular message number. This
// text should not be modified.
//
static const char *MessageFetch(int number)
{
MessageReferenceCheck(number);
if (mail_list[number].m_pMessage)
{
return mail_list[number].m_pMessage;
}
else
{
return "MAIL: This mail message does not exist in the database. Please alert your admin.";
}
}
// This function returns a reference to the message and the the
// reference count is increased to reflect that.
//
static int MessageAdd(char *pMessage)
{
if (!mail_list)
{
mail_db_grow(1);
}
int i;
MAILBODY *pm;
bool bFound = false;
for (i = 0; i < mudstate.mail_db_top; i++)
{
pm = &mail_list[i];
if (pm->m_pMessage == NULL)
{
pm->m_nRefs = 0;
bFound = true;
break;
}
}
if (!bFound)
{
mail_db_grow(i + 1);
}
pm = &mail_list[i];
pm->m_pMessage = StringClone(pMessage);
MessageReferenceInc(i);
return i;
}
// add_mail_message - adds a new text message to the mail database, and returns
// a unique number for that message.
//
// IF return value is !NOTHING, you have a reference to the message,
// and the reference count reflects that.
//
static int add_mail_message(dbref player, char *message)
{
if (!mux_stricmp(message, "clear"))
{
notify(player, "MAIL: You probably did not intend to send a @mail saying 'clear'.");
return NOTHING;
}
// Evaluate signature.
//
int aflags;
dbref aowner;
char *bp = alloc_lbuf("add_mail_message");
char *atrstr = atr_get(player, A_SIGNATURE, &aowner, &aflags);
char *execstr = bp;
char *str = atrstr;
mux_exec(execstr, &bp, player, player, player,
EV_STRIP_CURLY | EV_FCHECK | EV_EVAL, &str, (char **)NULL, 0);
*bp = '\0';
// Save message body and return a reference to it.
//
int number = MessageAdd(tprintf("%s %s", message, execstr));
free_lbuf(atrstr);
free_lbuf(execstr);
return number;
}
// This function is -only- used from reading from the disk, and so
// it does -not- manage the reference counts.
//
static bool MessageAddWithNumber(int i, char *pMessage)
{
mail_db_grow(i+1);
MAILBODY *pm = &mail_list[i];
pm->m_pMessage = StringClone(pMessage);
return true;
}
// new_mail_message - used for reading messages in from disk which
// already have a number assigned to them.
//
// This function is -only- used from reading from the disk, and so
// it does -not- manage the reference counts.
//
static void new_mail_message(char *message, int number)
{
bool bTruncated = false;
if (strlen(message) > LBUF_SIZE-1)
{
bTruncated = true;
message[LBUF_SIZE-1] = '\0';
}
MessageAddWithNumber(number, message);
if (bTruncated)
{
STARTLOG(LOG_BUGS, "BUG", "MAIL");
log_text(tprintf("new_mail_message: Mail message %d truncated.", number));
ENDLOG;
}
}
/*-------------------------------------------------------------------------*
* User mail functions (these are called from game.c)
*
* do_mail - cases
* do_mail_read - read messages
* do_mail_list - list messages
* do_mail_flags - tagging, untagging, clearing, unclearing of messages
* do_mail_file - files messages into a new folder
* do_mail_fwd - forward messages to another player(s)
* do_mail_reply - reply to a message
* do_mail_count - count messages
* do_mail_purge - purge cleared messages
* do_mail_change_folder - change current folder
*-------------------------------------------------------------------------*/
static void set_player_folder(dbref player, int fnum)
{
// Set a player's folder to fnum.
//
char *tbuf1 = alloc_lbuf("set_player_folder");
mux_ltoa(fnum, tbuf1);
ATTR *a = atr_num(A_MAILCURF);
if (a)
{
atr_add(player, A_MAILCURF, tbuf1, GOD, a->flags);
}
else
{
// Shouldn't happen, but...
//
atr_add(player, A_MAILCURF, tbuf1, GOD, AF_ODARK | AF_WIZARD | AF_NOPROG | AF_LOCK);
}
free_lbuf(tbuf1);
}
static void add_folder_name(dbref player, int fld, char *name)
{
// Fetch current list of folders
//
int aflags;
size_t nFolders;
dbref aowner;
char *aFolders = alloc_lbuf("add_folder_name.str");
atr_get_str_LEN(aFolders, player, A_MAILFOLDERS, &aowner, &aflags,
&nFolders);
// Build new record ("%d:%s:%d", fld, uppercase(name), fld);
//
char *aNew = alloc_lbuf("add_folder_name.new");
char *q = aNew;
q += mux_ltoa(fld, q);
*q++ = ':';
char *p = name;
while (*p)
{
*q++ = mux_toupper(*p);
p++;
}
*q++ = ':';
q += mux_ltoa(fld, q);
*q = '\0';
size_t nNew = q - aNew;
if (nFolders != 0)
{
// Build pattern ("%d:", fld)
//
char *aPattern = alloc_lbuf("add_folder_name.pat");
q = aPattern;
q += mux_ltoa(fld, q);
*q++ = ':';
*q = '\0';
size_t nPattern = q - aPattern;
BMH_State bmhs;
BMH_Prepare(&bmhs, nPattern, aPattern);
for (;;)
{
int i = BMH_Execute(&bmhs, nPattern, aPattern, nFolders, aFolders);
if (i < 0)
{
break;
}
// Remove old record.
//
q = aFolders + i;
p = q + nPattern;
// Eat leading spaces.
//
while ( aFolders < q
&& mux_isspace(q[-1]))
{
q--;
}
// Skip past old record and trailing spaces.
//
while ( *p
&& *p != ':')
{
p++;
}
while ( *p
&& !mux_isspace(*p))
{
p++;
}
while (mux_isspace(*p))
{
p++;
}
if (q != aFolders)
{
*q++ = ' ';
}
while (*p)
{
*q++ = *p++;
}
*q = '\0';
nFolders = q - aFolders;
}
free_lbuf(aPattern);
}
if (nFolders + 1 + nNew < LBUF_SIZE)
{
// It will fit. Append new record.
//
q = aFolders + nFolders;
if (nFolders)
{
*q++ = ' ';
}
memcpy(q, aNew, nNew);
q += nNew;
*q = '\0';
atr_add(player, A_MAILFOLDERS, aFolders, player,
AF_MDARK | AF_WIZARD | AF_NOPROG | AF_LOCK);
}
free_lbuf(aFolders);
free_lbuf(aNew);
}
static char *get_folder_name(dbref player, int fld)
{
// Get the name of the folder, or return "unnamed".
//
int aflags;
size_t nFolders;
dbref aowner;
static char aFolders[LBUF_SIZE];
atr_get_str_LEN(aFolders, player, A_MAILFOLDERS, &aowner, &aflags,
&nFolders);
char *p;
if (nFolders != 0)
{
char *aPattern = alloc_lbuf("get_folder_name");
p = aPattern;
p += mux_ltoa(fld, p);
*p++ = ':';
*p = '\0';
size_t nPattern = p - aPattern;
int i = BMH_StringSearch(nPattern, aPattern, nFolders, aFolders);
free_lbuf(aPattern);
if (0 <= i)
{
p = aFolders + i + nPattern;
char *q = p;
while ( *q
&& *q != ':')
{
q++;
}
*q = '\0';
return p;
}
}
p = "unnamed";
return p;
}
static int get_folder_number(dbref player, char *name)
{
// Look up a folder name and return the corresponding folder number.
//
int aflags;
size_t nFolders;
dbref aowner;
char *aFolders = alloc_lbuf("get_folder_num_str");
atr_get_str_LEN(aFolders, player, A_MAILFOLDERS, &aowner, &aflags,
&nFolders);
if (nFolders != 0)
{
char *aPattern = alloc_lbuf("get_folder_num_pat");
char *q = aPattern;
*q++ = ':';
char *p = name;
while (*p)
{
*q++ = mux_toupper(*p);
p++;
}
*q++ = ':';
*q = '\0';
size_t nPattern = q - aPattern;
int i = BMH_StringSearch(nPattern, aPattern, nFolders, aFolders);
free_lbuf(aPattern);
if (0 <= i)
{
p = aFolders + i + nPattern;
q = p;
while ( *q
&& !mux_isspace(*q))
{
q++;
}
*q = '\0';
i = mux_atol(p);
free_lbuf(aFolders);
return i;
}
}
free_lbuf(aFolders);
return -1;
}
static int parse_folder(dbref player, char *folder_string)
{
// Given a string, return a folder #, or -1.
//
if ( !folder_string
|| !*folder_string)
{
return -1;
}
if (mux_isdigit(*folder_string))
{
int fnum = mux_atol(folder_string);
if ( fnum < 0
|| fnum > MAX_FOLDERS)
{
return -1;
}
else
{
return fnum;
}
}
// Handle named folders here
//
return get_folder_number(player, folder_string);
}
#define MAIL_INVALID_RANGE 0
#define MAIL_INVALID_NUMBER 1
#define MAIL_INVALID_AGE 2
#define MAIL_INVALID_DBREF 3
#define MAIL_INVALID_PLAYER 4
#define MAIL_INVALID_SPEC 5
#define MAIL_INVALID_PLAYER_OR_USING_MALIAS 6
static char *mailmsg[] =
{
"MAIL: Invalid message range",
"MAIL: Invalid message number",
"MAIL: Invalid age",
"MAIL: Invalid dbref #",
"MAIL: Invalid player",
"MAIL: Invalid message specification",
"MAIL: Invalid player or trying to send @mail to a @malias without a subject",
};
static bool parse_msglist(char *msglist, struct mail_selector *ms, dbref player)
{
// Take a message list, and return the appropriate mail_selector setup.
// For now, msglists are quite restricted. That'll change once all this
// is working. Returns 0 if couldn't parse, and also notifies the player
// why.
// Initialize the mail selector - this matches all messages.
//
ms->low = 0;
ms->high = 0;
ms->flags = 0x0FFF | M_MSUNREAD;
ms->player = 0;
ms->days = -1;
ms->day_comp = 0;
// Now, parse the message list.
//
if (!msglist || !*msglist)
{
// All messages
//
return true;
}
char *p = msglist;
while (mux_isspace(*p))
{
p++;
}
if (*p == '\0')
{
return true;
}
if (mux_isdigit(*p))
{
// Message or range.
//
char *q = strchr(p, '-');
if (q)
{
// We have a subrange, split it up and test to see if it is valid.
//
q++;
ms->low = mux_atol(p);
if (ms->low <= 0)
{
notify(player, mailmsg[MAIL_INVALID_RANGE]);
return false;
}
if (*q == '\0')
{
// Unbounded range.
//
ms->high = 0;
}
else
{
ms->high = mux_atol(q);
if (ms->low > ms->high)
{
notify(player, mailmsg[MAIL_INVALID_RANGE]);
return false;
}
}
}
else
{
// A single message.
//
ms->low = ms->high = mux_atol(p);
if (ms->low <= 0)
{
notify(player, mailmsg[MAIL_INVALID_NUMBER]);
return false;
}
}
}
else
{
switch (mux_toupper(*p))
{
case '-':
// Range with no start.
//
p++;
if (*p == '\0')
{
notify(player, mailmsg[MAIL_INVALID_RANGE]);
return false;
}
ms->high = mux_atol(p);
if (ms->high <= 0)
{
notify(player, mailmsg[MAIL_INVALID_RANGE]);
return false;
}
break;
case '~':
// Exact # of days old.
//
p++;
if (*p == '\0')
{
notify(player, mailmsg[MAIL_INVALID_AGE]);
return false;
}
ms->day_comp = 0;
ms->days = mux_atol(p);
if (ms->days < 0)
{
notify(player, mailmsg[MAIL_INVALID_AGE]);
return false;
}
break;
case '<':
// Less than # of days old.
//
p++;
if (*p == '\0')
{
notify(player, mailmsg[MAIL_INVALID_AGE]);
return false;
}
ms->day_comp = -1;
ms->days = mux_atol(p);
if (ms->days < 0)
{
notify(player, mailmsg[MAIL_INVALID_AGE]);
return false;
}
break;
case '>':
// Greater than # of days old.
//
p++;
if (*p == '\0')
{
notify(player, mailmsg[MAIL_INVALID_AGE]);
return false;
}
ms->day_comp = 1;
ms->days = mux_atol(p);
if (ms->days < 0)
{
notify(player, mailmsg[MAIL_INVALID_AGE]);
return false;
}
break;
case '#':
// From db#.
//
p++;
if (*p == '\0')
{
notify(player, mailmsg[MAIL_INVALID_DBREF]);
return false;
}
ms->player = mux_atol(p);
if (!Good_obj(ms->player) || !(ms->player))
{
notify(player, mailmsg[MAIL_INVALID_DBREF]);
return false;
}
break;
case '*':
// From player name.
//
p++;
if (*p == '\0')
{
notify(player, mailmsg[MAIL_INVALID_PLAYER]);
return false;
}
ms->player = lookup_player(player, p, true);
if (ms->player == NOTHING)
{
notify(player, mailmsg[MAIL_INVALID_PLAYER_OR_USING_MALIAS]);
return false;
}
break;
case 'A':
// All messages, all folders
//
p++;
switch (mux_toupper(*p))
{
case '\0':
notify(player, "MAIL: A isn't enough (all?)");
return false;
case 'L':
// All messages, all folders
//
p++;
switch (mux_toupper(*p))
{
case '\0':
notify(player, "MAIL: AL isn't enough (all?)");
return false;
case 'L':
// All messages, all folders
//
p++;
if (*p == '\0')
{
ms->flags = M_ALL;
}
else
{
notify(player, mailmsg[MAIL_INVALID_SPEC]);
return false;
}
break;
default:
// Bad
//
notify(player, mailmsg[MAIL_INVALID_SPEC]);
return false;
}
break;
default:
// Bad
//
notify(player, mailmsg[MAIL_INVALID_SPEC]);
return false;
}
break;
case 'U':
// Urgent, Unread
//
p++;
if (*p == '\0')
{
notify(player, "MAIL: U is ambiguous (urgent or unread?)");
return false;
}
switch (mux_toupper(*p))
{
case 'R':
// Urgent
//
ms->flags = M_URGENT;
break;
case 'N':
// Unread
//
ms->flags = M_MSUNREAD;
break;
default:
// Bad
//
notify(player, mailmsg[MAIL_INVALID_SPEC]);
return false;
}
break;
case 'R':
// Read
//
ms->flags = M_ISREAD;
break;
case 'C':
// Cleared.
//
ms->flags = M_CLEARED;
break;
case 'T':
// Tagged.
//
ms->flags = M_TAG;
break;
case 'M':
// Mass, me.
//
p++;
if (*p == '\0')
{
notify(player, "MAIL: M is ambiguous (mass or me?)");
return false;
}
switch (mux_toupper(*p))
{
case 'A':
ms->flags = M_MASS;
break;
case 'E':
ms->player = player;
break;
default:
notify(player, mailmsg[MAIL_INVALID_SPEC]);
return false;
}
break;
default:
// Bad news.
//
notify(player, mailmsg[MAIL_INVALID_SPEC]);
return false;
}
}
return true;
}
static int player_folder(dbref player)
{
// Return the player's current folder number. If they don't have one, set
// it to 0.
//
int flags;
char *atrstr = atr_pget(player, A_MAILCURF, &player, &flags);
if (!*atrstr)
{
free_lbuf(atrstr);
set_player_folder(player, 0);
return 0;
}
int number = mux_atol(atrstr);
free_lbuf(atrstr);
return number;
}
// Change or rename a folder
//
static void do_mail_change_folder(dbref player, char *fld, char *newname)
{
int pfld;
if (!fld || !*fld)
{
// Check mail in all folders
//
for (pfld = 0; pfld <= MAX_FOLDERS; pfld++)
{
check_mail(player, pfld, true);
}
pfld = player_folder(player);
notify(player, tprintf("MAIL: Current folder is %d [%s].",
pfld, get_folder_name(player, pfld)));
return;
}
pfld = parse_folder(player, fld);
if (pfld < 0)
{
notify(player, "MAIL: What folder is that?");
return;
}
if (newname && *newname)
{
// We're changing a folder name here
//
if (strlen(newname) > FOLDER_NAME_LEN)
{
notify(player, "MAIL: Folder name too long");
return;
}
char *p;
for (p = newname; mux_isalnum(*p); p++) ;
if (*p != '\0')
{
notify(player, "MAIL: Illegal folder name");
return;
}
add_folder_name(player, pfld, newname);
notify(player, tprintf("MAIL: Folder %d now named '%s'", pfld, newname));
}
else
{
// Set a new folder
//
set_player_folder(player, pfld);
notify(player, tprintf("MAIL: Current folder set to %d [%s].",
pfld, get_folder_name(player, pfld)));
}
}
static int sign(int x)
{
if (x == 0)
{
return 0;
}
else if (x < 0)
{
return -1;
}
else
{
return 1;
}
}
static bool mail_match(struct mail *mp, struct mail_selector ms, int num)
{
// Does a piece of mail match the mail_selector?
//
if (ms.low && num < ms.low)
{
return false;
}
if (ms.high && ms.high < num)
{
return false;
}
if (ms.player && mp->from != ms.player)
{
return false;
}
mail_flag mpflag = Read(mp)
? (mp->read | M_ALL)
: (mp->read | M_ALL | M_MSUNREAD);
if ((ms.flags & mpflag) == 0)
{
return false;
}
if (ms.days == -1)
{
return true;
}
// Get the time now, subtract mp->time, and compare the results with
// ms.days (in manner of ms.day_comp)
//
CLinearTimeAbsolute ltaNow;
ltaNow.GetLocal();
const char *pMailTimeStr = mp->time;
CLinearTimeAbsolute ltaMail;
if (ltaMail.SetString(pMailTimeStr))
{
CLinearTimeDelta ltd(ltaMail, ltaNow);
int iDiffDays = ltd.ReturnDays();
if (sign(iDiffDays - ms.days) == ms.day_comp)
{
return true;
}
}
return false;
}
// Adjust the flags of a set of messages.
// If negate is true, clear the flag.
static void do_mail_flags(dbref player, char *msglist, mail_flag flag, bool negate)
{
struct mail_selector ms;
if (!parse_msglist(msglist, &ms, player))
{
return;
}
int i = 0, j = 0;
int folder = player_folder(player);
MailList ml(player);
struct mail *mp;
for (mp = ml.FirstItem(); !ml.IsEnd(); mp = ml.NextItem())
{
if ( All(ms)
|| Folder(mp) == folder)
{
i++;
if (mail_match(mp, ms, i))
{
j++;
if (negate)
{
mp->read &= ~flag;
}
else
{
mp->read |= flag;
}
switch (flag)
{
case M_TAG:
notify(player, tprintf("MAIL: Msg #%d %s.", i, negate ? "untagged" : "tagged"));
break;
case M_CLEARED:
if (Unread(mp) && !negate)
{
notify(player, tprintf("MAIL: Unread Msg #%d cleared! Use @mail/unclear %d to recover.", i, i));
}
else
{
notify(player, tprintf("MAIL: Msg #%d %s.", i, negate ? "uncleared" : "cleared"));
}
break;
case M_SAFE:
notify(player, tprintf("MAIL: Msg #%d marked safe.", i));
break;
}
}
}
}
if (!j)
{
// Ran off the end of the list without finding anything.
//
notify(player, "MAIL: You don't have any matching messages!");
}
}
static void do_mail_tag(dbref player, char *msglist)
{
do_mail_flags(player, msglist, M_TAG, false);
}
static void do_mail_safe(dbref player, char *msglist)
{
do_mail_flags(player, msglist, M_SAFE, false);
}
void do_mail_clear(dbref player, char *msglist)
{
do_mail_flags(player, msglist, M_CLEARED, false);
}
static void do_mail_untag(dbref player, char *msglist)
{
do_mail_flags(player, msglist, M_TAG, true);
}
static void do_mail_unclear(dbref player, char *msglist)
{
do_mail_flags(player, msglist, M_CLEARED, true);
}
// Change a message's folder.
//
static void do_mail_file(dbref player, char *msglist, char *folder)
{
struct mail_selector ms;
if (!parse_msglist(msglist, &ms, player))
{
return;
}
int foldernum;
if ((foldernum = parse_folder(player, folder)) == -1)
{
notify(player, "MAIL: Invalid folder specification");
return;
}
int i = 0, j = 0;
int origfold = player_folder(player);
MailList ml(player);
struct mail *mp;
for (mp = ml.FirstItem(); !ml.IsEnd(); mp = ml.NextItem())
{
if ( All(ms)
|| (Folder(mp) == origfold))
{
i++;
if (mail_match(mp, ms, i))
{
j++;
// Clear the folder.
//
mp->read &= M_FMASK;
mp->read |= FolderBit(foldernum);
notify(player, tprintf("MAIL: Msg %d filed in folder %d", i, foldernum));
}
}
}
if (!j)
{
// Ran off the end of the list without finding anything.
//
notify(player, "MAIL: You don't have any matching messages!");
}
}
// A mail alias can be any combination of upper-case letters, lower-case
// letters, and digits. No leading digits. No symbols. No ANSI. Length is
// limited to SIZEOF_MALIAS-1. Case is preserved.
//
static char *MakeCanonicalMailAlias
(
char *pMailAlias,
int *pnValidMailAlias,
bool *pbValidMailAlias
)
{
static char Buffer[SIZEOF_MALIAS];
size_t nLeft = sizeof(Buffer)-1;
char *q = Buffer;
char *p = pMailAlias;
if ( !p
|| !mux_isalpha(*p))
{
*pnValidMailAlias = 0;
*pbValidMailAlias = false;
return NULL;
}
*q++ = *p++;
nLeft--;
while ( *p
&& nLeft)
{
if ( !mux_isalpha(*p)
&& !mux_isdigit(*p)
&& *p != '_')
{
break;
}
*q++ = *p++;
nLeft--;
}
*q = '\0';
*pnValidMailAlias = q - Buffer;
*pbValidMailAlias = true;
return Buffer;
}
#define GMA_NOTFOUND 1
#define GMA_FOUND 2
#define GMA_INVALIDFORM 3
static struct malias *get_malias(dbref player, char *alias, int *pnResult)
{
*pnResult = GMA_INVALIDFORM;
if (!alias)
{
return NULL;
}
if (alias[0] == '#')
{
if (ExpMail(player))
{
int x = mux_atol(alias + 1);
if (x < 0 || x >= ma_top)
{
*pnResult = GMA_NOTFOUND;
return NULL;
}
*pnResult = GMA_FOUND;
return malias[x];
}
}
else if (alias[0] == '*')
{
int nValidMailAlias;
bool bValidMailAlias;
char *pValidMailAlias = MakeCanonicalMailAlias
( alias+1,
&nValidMailAlias,
&bValidMailAlias
);
if (bValidMailAlias)
{
for (int i = 0; i < ma_top; i++)
{
struct malias *m = malias[i];
if ( m->owner == player
|| m->owner == GOD
|| ExpMail(player))
{
if (!strcmp(pValidMailAlias, m->name))
{
// Found it!
//
*pnResult = GMA_FOUND;
return m;
}
}
}
*pnResult = GMA_NOTFOUND;
}
}
if (*pnResult == GMA_INVALIDFORM)
{
if (ExpMail(player))
{
notify(player, "MAIL: Mail aliases must be of the form *<name> or #<num>.");
}
else
{
notify(player, "MAIL: Mail aliases must be of the form *<name>.");
}
}
return NULL;
}
static char *make_namelist(dbref player, char *arg)
{
UNUSED_PARAMETER(player);
char *p;
char *oldarg = alloc_lbuf("make_namelist.oldarg");
char *names = alloc_lbuf("make_namelist.names");
char *bp = names;
strcpy(oldarg, arg);
MUX_STRTOK_STATE tts;
mux_strtok_src(&tts, oldarg);
mux_strtok_ctl(&tts, " ");
bool bFirst = true;
for (p = mux_strtok_parse(&tts); p; p = mux_strtok_parse(&tts))
{
if (!bFirst)
{
safe_str(", ", names, &bp);
}
bFirst = false;
if ( mux_isdigit(p[0])
|| ( p[0] == '!'
&& mux_isdigit(p[1])))
{
char ch = p[0];
if (ch == '!')
{
p++;
}
dbref target = mux_atol(p);
if ( Good_obj(target)
&& isPlayer(target))
{
if (ch == '!')
{
safe_chr('!', names, &bp);
}
safe_str(Name(target), names, &bp);
}
}
else
{
safe_str(p, names, &bp);
}
}
*bp = '\0';
free_lbuf(oldarg);
return names;
}
#define NUM_MAILSTATUSTABLE 7
static struct tag_mailstatusentry
{
int nMask;
char *pYes;
int nYes;
char *pNo;
int nNo;
}
aMailStatusTable[NUM_MAILSTATUSTABLE] =
{
{ M_ISREAD, "Read", 4, "Unread", 6 },
{ M_CLEARED, "Cleared", 7, 0, 0 },
{ M_URGENT, "Urgent", 6, 0, 0 },
{ M_MASS, "Mass", 4, 0, 0 },
{ M_FORWARD, "Fwd", 3, 0, 0 },
{ M_TAG, "Tagged", 6, 0, 0 },
{ M_SAFE, "Safe", 4, 0, 0 }
};
static char *status_string(struct mail *mp)
{
// Return a longer description of message flags.
//
char *tbuf1 = alloc_lbuf("status_string");
char *p = tbuf1;
struct tag_mailstatusentry *mse = aMailStatusTable;
for (int i = 0; i < NUM_MAILSTATUSTABLE; i++, mse++)
{
if (mp->read & mse->nMask)
{
if (p != tbuf1) *p++ = ' ';
memcpy(p, mse->pYes, mse->nYes);
p += mse->nYes;
}
else if (mse->pNo)
{
if (p != tbuf1) *p++ = ' ';
memcpy(p, mse->pNo, mse->nNo);
p += mse->nNo;
}
}
*p++ = '\0';
return tbuf1;
}
static void do_mail_read(dbref player, char *msglist)
{
struct mail_selector ms;
if (!parse_msglist(msglist, &ms, player))
{
return;
}
char *status, *names;
int i = 0, j = 0;
char *buff = alloc_lbuf("do_mail_read.1");
int folder = player_folder(player);
MailList ml(player);
struct mail *mp;
for (mp = ml.FirstItem(); !ml.IsEnd(); mp = ml.NextItem())
{
if (Folder(mp) == folder)
{
i++;
if (mail_match(mp, ms, i))
{
// Read it.
//
j++;
buff[LBUF_SIZE-1] = '\0';
strncpy(buff, MessageFetch(mp->number), LBUF_SIZE);
if (buff[LBUF_SIZE-1] != '\0')
{
STARTLOG(LOG_BUGS, "BUG", "MAIL");
log_text(tprintf("do_mail_read: %s: Mail message %d truncated.", Name(player), mp->number));
ENDLOG;
buff[LBUF_SIZE-1] = '\0';
}
notify(player, DASH_LINE);
status = status_string(mp);
names = make_namelist(player, mp->tolist);
char szSubjectBuffer[MBUF_SIZE];
int iRealVisibleWidth;
ANSI_TruncateToField(mp->subject, sizeof(szSubjectBuffer),
szSubjectBuffer, 65, &iRealVisibleWidth, ANSI_ENDGOAL_NORMAL);
notify(player, tprintf("%-3d From: %-*s At: %-25s %s\r\nFldr : %-2d Status: %s\r\nTo : %-65s\r\nSubject: %s",
i, PLAYER_NAME_LIMIT - 6, Name(mp->from),
mp->time,
(Connected(mp->from) &&
(!Hidden(mp->from) || See_Hidden(player))) ?
" (Conn)" : " ", folder,
status,
names,
szSubjectBuffer));
free_lbuf(names);
free_lbuf(status);
notify(player, DASH_LINE);
notify(player, buff);
notify(player, DASH_LINE);
if (Unread(mp))
{
// Mark message as read.
//
mp->read |= M_ISREAD;
}
}
}
}
free_lbuf(buff);
if (!j)
{
// Ran off the end of the list without finding anything.
//
notify(player, "MAIL: You don't have that many matching messages!");
}
}
static char *status_chars(struct mail *mp)
{
// Return a short description of message flags.
//
static char res[10];
char *p = res;
*p++ = Read(mp) ? '-' : 'N';
*p++ = M_Safe(mp) ? 'S' : '-';
*p++ = Cleared(mp) ? 'C' : '-';
*p++ = Urgent(mp) ? 'U' : '-';
*p++ = Mass(mp) ? 'M' : '-';
*p++ = Forward(mp) ? 'F' : '-';
*p++ = Tagged(mp) ? '+' : '-';
*p = '\0';
return res;
}
static void do_mail_review(dbref player, char *name, char *msglist)
{
dbref target = lookup_player(player, name, true);
if (target == NOTHING)
{
notify(player, "MAIL: No such player.");
return;
}
struct mail *mp;
struct mail_selector ms;
int i = 0, j = 0;
int iRealVisibleWidth;
char szSubjectBuffer[MBUF_SIZE];
if ( !msglist
|| !*msglist)
{
notify(player, tprintf("-------------------- MAIL: %-25s ------------------", Name(target)));
MailList ml(target);
for (mp = ml.FirstItem(); !ml.IsEnd(); mp = ml.NextItem())
{
if (mp->from == player)
{
i++;
ANSI_TruncateToField(mp->subject, sizeof(szSubjectBuffer),
szSubjectBuffer, 25, &iRealVisibleWidth, ANSI_ENDGOAL_NORMAL);
size_t nSize = strlen(MessageFetch(mp->number));
const char *pFromName = Name(mp->from);
notify(player, tprintf("[%s] %-3d (%4d) From: %-*s Sub: %s",
status_chars(mp),
i, nSize,
PLAYER_NAME_LIMIT - 6, pFromName,
szSubjectBuffer));
}
}
notify(player, DASH_LINE);
}
else
{
if (!parse_msglist(msglist, &ms, target))
{
return;
}
MailList ml(target);
for (mp = ml.FirstItem(); !ml.IsEnd() && !MuxAlarm.bAlarmed; mp = ml.NextItem())
{
if (mp->from == player)
{
i++;
if (mail_match(mp, ms, i))
{
j++;
char *status = status_string(mp);
const char *str = MessageFetch(mp->number);
ANSI_TruncateToField(mp->subject, sizeof(szSubjectBuffer),
szSubjectBuffer, 65, &iRealVisibleWidth, ANSI_ENDGOAL_NORMAL);
notify(player, DASH_LINE);
notify(player, tprintf("%-3d From: %-*s At: %-25s %s\r\nFldr : %-2d Status: %s\r\nSubject: %s",
i, PLAYER_NAME_LIMIT - 6, Name(mp->from),
mp->time,
(Connected(mp->from) &&
(!Hidden(mp->from) || See_Hidden(player))) ?
" (Conn)" : " ", 0,
status, szSubjectBuffer));
free_lbuf(status);
notify(player, DASH_LINE);
notify(player, str);
notify(player, DASH_LINE);
}
}
}
if (!j)
{
// Ran off the end of the list without finding anything.
//
notify(player, "MAIL: You don't have that many matching messages!");
}
}
}
static char *mail_list_time(const char *the_time)
{
char *p = (char *)the_time;
char *new0 = alloc_lbuf("mail_list_time");
char *q = new0;
if (!p || !*p)
{
*new0 = '\0';
return new0;
}
// Format of the_time is: day mon dd hh:mm:ss yyyy
// Chop out :ss
//
int i;
for (i = 0; i < 16; i++)
{
if (*p)
{
*q++ = *p++;
}
}
for (i = 0; i < 3; i++)
{
if (*p)
{
p++;
}
}
for (i = 0; i < 5; i++)
{
if (*p)
{
*q++ = *p++;
}
}
*q = '\0';
return new0;
}
static void do_mail_list(dbref player, char *msglist, bool sub)
{
struct mail_selector ms;
if (!parse_msglist(msglist, &ms, player))
{
return;
}
int i = 0;
char *time;
int iRealVisibleWidth;
char szSubjectBuffer[MBUF_SIZE];
int folder = player_folder(player);
notify(player,
tprintf("--------------------------- MAIL: Folder %d ----------------------------", folder));
MailList ml(player);
struct mail *mp;
for (mp = ml.FirstItem(); !ml.IsEnd(); mp = ml.NextItem())
{
if (Folder(mp) == folder)
{
i++;
if (mail_match(mp, ms, i))
{
time = mail_list_time(mp->time);
size_t nSize = strlen(MessageFetch(mp->number));
const char *pFromName = Name(mp->from);
if (sub)
{
ANSI_TruncateToField(mp->subject, sizeof(szSubjectBuffer),
szSubjectBuffer, 25, &iRealVisibleWidth, ANSI_ENDGOAL_NORMAL);
notify(player, tprintf("[%s] %-3d (%4d) From: %-*s Sub: %s",
status_chars(mp), i, nSize, PLAYER_NAME_LIMIT - 6, pFromName, szSubjectBuffer));
}
else
{
notify(player, tprintf("[%s] %-3d (%4d) From: %-*s At: %s %s",
status_chars(mp), i, nSize, PLAYER_NAME_LIMIT - 6, pFromName, time,
((Connected(mp->from) && (!Hidden(mp->from) || See_Hidden(player))) ? "Conn" : " ")));
}
free_lbuf(time);
}
}
}
notify(player, DASH_LINE);
}
void do_mail_purge(dbref player)
{
// Go through player's mail, and remove anything marked cleared.
//
MailList ml(player);
struct mail *mp;
for (mp = ml.FirstItem(); !ml.IsEnd(); mp = ml.NextItem())
{
if (Cleared(mp))
{
ml.RemoveItem();
}
}
notify(player, "MAIL: Mailbox purged.");
}
static char *make_numlist(dbref player, char *arg, bool bBlind)
{
char *tail, spot;
struct malias *m;
dbref target;
int nRecip = 0;
dbref aRecip[(LBUF_SIZE+1)/2];
char *head = arg;
while ( head
&& *head)
{
while (*head == ' ')
{
head++;
}
tail = head;
while ( *tail
&& *tail != ' ')
{
if (*tail == '"')
{
head++;
tail++;
while ( *tail
&& *tail != '"')
{
tail++;
}
}
if (*tail)
{
tail++;
}
}
tail--;
if (*tail != '"')
{
tail++;
}
spot = *tail;
*tail = '\0';
if (*head == '*')
{
int nResult;
m = get_malias(player, head, &nResult);
if (nResult == GMA_NOTFOUND)
{
notify(player, tprintf("MAIL: Alias '%s' does not exist.", head));
return NULL;
}
else if (nResult == GMA_INVALIDFORM)
{
notify(player, tprintf("MAIL: '%s' is a badly-formed alias.", head));
return NULL;
}
for (int i = 0; i < m->numrecep; i++)
{
aRecip[nRecip++] = m->list[i];
}
}
else
{
target = lookup_player(player, head, true);
if (Good_obj(target))
{
aRecip[nRecip++] = target;
}
else
{
notify(player, tprintf("MAIL: '%s' does not exist.", head));
return NULL;
}
}
// Get the next recip.
//
*tail = spot;
head = tail;
if (*head == '"')
{
head++;
}
}
if (nRecip <= 0)
{
notify(player, "MAIL: No players specified.");
return NULL;
}
else
{
ITL itl;
char *numbuf, *numbp;
numbp = numbuf = alloc_lbuf("mail.make_numlist");
ItemToList_Init(&itl, numbuf, &numbp, bBlind ? '!' : '\0');
int i;
for (i = 0; i < nRecip; i++)
{
if (aRecip[i] != NOTHING)
{
for (int j = i + 1; j < nRecip; j++)
{
if (aRecip[i] == aRecip[j])
{
aRecip[j] = NOTHING;
}
}
if (Good_obj(aRecip[i]))
{
ItemToList_AddInteger(&itl, aRecip[i]);
}
}
}
ItemToList_Final(&itl);
return numbuf;
}
}
static void do_expmail_start(dbref player, char *arg, char *subject)
{
if (!arg || !*arg)
{
notify(player, "MAIL: I do not know whom you want to mail.");
return;
}
if (!subject || !*subject)
{
notify(player, "MAIL: No subject.");
return;
}
if (Flags2(player) & PLAYER_MAILS)
{
notify(player, "MAIL: Mail message already in progress.");
return;
}
if ( !Wizard(player)
&& ThrottleMail(player))
{
notify(player, "MAIL: Too much @mail sent recently.");
return;
}
char *tolist = make_numlist(player, arg, false);
if (!tolist)
{
return;
}
atr_add_raw(player, A_MAILTO, tolist);
atr_add_raw(player, A_MAILSUB, subject);
atr_add_raw(player, A_MAILFLAGS, "0");
atr_clr(player, A_MAILMSG);
Flags2(player) |= PLAYER_MAILS;
char *names = make_namelist(player, tolist);
notify(player, tprintf("MAIL: You are sending mail to '%s'.", names));
free_lbuf(names);
free_lbuf(tolist);
}
static void do_mail_fwd(dbref player, char *msg, char *tolist)
{
if (Flags2(player) & PLAYER_MAILS)
{
notify(player, "MAIL: Mail message already in progress.");
return;
}
if (!msg || !*msg)
{
notify(player, "MAIL: No message list.");
return;
}
if (!tolist || !*tolist)
{
notify(player, "MAIL: To whom should I forward?");
return;
}
if ( !Wizard(player)
&& ThrottleMail(player))
{
notify(player, "MAIL: Too much @mail sent recently.");
return;
}
int num = mux_atol(msg);
if (!num)
{
notify(player, "MAIL: I don't understand that message number.");
return;
}
struct mail *mp = mail_fetch(player, num);
if (!mp)
{
notify(player, "MAIL: You can't forward non-existent messages.");
return;
}
do_expmail_start(player, tolist, tprintf("%s (fwd from %s)", mp->subject, Name(mp->from)));
atr_add_raw(player, A_MAILMSG, MessageFetch(mp->number));
const char *pValue = atr_get_raw(player, A_MAILFLAGS);
int iFlag = M_FORWARD;
if (pValue)
{
iFlag |= mux_atol(pValue);
}
atr_add_raw(player, A_MAILFLAGS, mux_ltoa_t(iFlag));
}
static void do_mail_reply(dbref player, char *msg, bool all, int key)
{
if (Flags2(player) & PLAYER_MAILS)
{
notify(player, "MAIL: Mail message already in progress.");
return;
}
if (!msg || !*msg)
{
notify(player, "MAIL: No message list.");
return;
}
if ( !Wizard(player)
&& ThrottleMail(player))
{
notify(player, "MAIL: Too much @mail sent recently.");
return;
}
int num = mux_atol(msg);
if (!num)
{
notify(player, "MAIL: I don't understand that message number.");
return;
}
struct mail *mp = mail_fetch(player, num);
if (!mp)
{
notify(player, "MAIL: You can't reply to non-existent messages.");
return;
}
char *tolist = alloc_lbuf("do_mail_reply.tolist");
char *bp = tolist;
if (all)
{
char *names = alloc_lbuf("do_mail_reply.names");
char *oldlist = alloc_lbuf("do_mail_reply.oldlist");
bp = names;
*bp = '\0';
strcpy(oldlist, mp->tolist);
MUX_STRTOK_STATE tts;
mux_strtok_src(&tts, oldlist);
mux_strtok_ctl(&tts, " ");
char *p;
for (p = mux_strtok_parse(&tts); p; p = mux_strtok_parse(&tts))
{
if (mux_atol(p) != mp->from)
{
safe_chr('#', names, &bp);
safe_str(p, names, &bp);
safe_chr(' ', names, &bp);
}
}
free_lbuf(oldlist);
safe_chr('#', names, &bp);
safe_ltoa(mp->from, names, &bp);
*bp = '\0';
strcpy(tolist, names);
free_lbuf(names);
}
else
{
safe_chr('#', tolist, &bp);
safe_ltoa(mp->from, tolist, &bp);
*bp = '\0';
}
const char *pSubject = mp->subject;
const char *pMessage = MessageFetch(mp->number);
const char *pTime = mp->time;
if (strncmp(pSubject, "Re:", 3))
{
do_expmail_start(player, tolist, tprintf("Re: %s", pSubject));
}
else
{
do_expmail_start(player, tolist, tprintf("%s", pSubject));
}
if (key & MAIL_QUOTE)
{
const char *pFromName = Name(mp->from);
char *pMessageBody =
tprintf("On %s, %s wrote:\r\n\r\n%s\r\n\r\n********** End of included message from %s\r\n",
pTime, pFromName, pMessage, pFromName);
atr_add_raw(player, A_MAILMSG, pMessageBody);
}
// The following combination of atr_get_raw() with atr_add_raw() is OK
// because we are not passing a pointer to atr_add_raw() that came
// directly from atr_get_raw().
//
const char *pValue = atr_get_raw(player, A_MAILFLAGS);
int iFlag = M_REPLY;
if (pValue)
{
iFlag |= mux_atol(pValue);
}
atr_add_raw(player, A_MAILFLAGS, mux_ltoa_t(iFlag));
free_lbuf(tolist);
}
/*-------------------------------------------------------------------------*
* Admin mail functions
*
* do_mail_nuke - clear & purge mail for a player, or all mail in db.
* do_mail_stat - stats on mail for a player, or for all db.
* do_mail_debug - fix mail with a sledgehammer
*-------------------------------------------------------------------------*/
/*-------------------------------------------------------------------------*
* Basic mail functions
*-------------------------------------------------------------------------*/
struct mail *mail_fetch(dbref player, int num)
{
int i = 0;
MailList ml(player);
struct mail *mp;
for (mp = ml.FirstItem(); !ml.IsEnd(); mp = ml.NextItem())
{
if (Folder(mp) == player_folder(player))
{
i++;
if (i == num)
{
return mp;
}
}
}
return NULL;
}
const char *mail_fetch_message(dbref player, int num)
{
struct mail *mp = mail_fetch(player, num);
if (mp)
{
return MessageFetch(mp->number);
}
return NULL;
}
int mail_fetch_from(dbref player, int num)
{
struct mail *mp = mail_fetch(player, num);
if (mp)
{
return mp->from;
}
return NOTHING;
}
// Returns count of read, unread, and cleared messages as rcount, ucount, ccount.
//
void count_mail(dbref player, int folder, int *rcount, int *ucount, int *ccount)
{
int rc = 0;
int uc = 0;
int cc = 0;
MailList ml(player);
struct mail *mp;
for (mp = ml.FirstItem(); !ml.IsEnd(); mp = ml.NextItem())
{
if (Folder(mp) == folder)
{
if (Read(mp))
{
rc++;
}
else
{
uc++;
}
if (Cleared(mp))
{
cc++;
}
}
}
*rcount = rc;
*ucount = uc;
*ccount = cc;
}
static void urgent_mail(dbref player, int folder, int *ucount)
{
int uc = 0;
MailList ml(player);
struct mail *mp;
for (mp = ml.FirstItem(); !ml.IsEnd(); mp = ml.NextItem())
{
if (Folder(mp) == folder)
{
if (Unread(mp) && Urgent(mp))
{
uc++;
}
}
}
*ucount = uc;
}
static void mail_return(dbref player, dbref target)
{
dbref aowner;
int aflags;
char *str = atr_pget(target, A_MFAIL, &aowner, &aflags);
if (*str)
{
char *str2, *buf, *bp;
str2 = bp = alloc_lbuf("mail_return");
buf = str;
mux_exec(str2, &bp, target, player, player,
EV_FCHECK | EV_EVAL | EV_TOP | EV_NO_LOCATION, &buf,
(char **)NULL, 0);
*bp = '\0';
if (*str2)
{
CLinearTimeAbsolute ltaNow;
ltaNow.GetLocal();
FIELDEDTIME ft;
ltaNow.ReturnFields(&ft);
notify_with_cause_ooc(player, target, tprintf("MAIL: Reject message from %s: %s",
Moniker(target), str2));
notify_with_cause_ooc(target, player, tprintf("[%d:%02d] MAIL: Reject message sent to %s.",
ft.iHour, ft.iMinute, Moniker(player)));
}
free_lbuf(str2);
}
else
{
notify_with_cause_ooc(player, target, tprintf("Sorry, %s is not accepting mail.", Moniker(target)));
}
free_lbuf(str);
}
static bool mail_check(dbref player, dbref target)
{
if (!could_doit(player, target, A_LMAIL))
{
mail_return(player, target);
}
else if (!could_doit(target, player, A_LMAIL))
{
if (Wizard(player))
{
notify(player, tprintf("Warning: %s can't return your mail.", Moniker(target)));
return true;
}
else
{
notify(player, tprintf("Sorry, %s can't return your mail.", Moniker(target)));
return false;
}
}
else
{
return true;
}
return false;
}
static void send_mail
(
dbref player,
dbref target,
const char *tolist,
const char *subject,
int number,
mail_flag flags,
bool silent
)
{
if (!isPlayer(target))
{
notify(player, "MAIL: You cannot send mail to non-existent people.");
return;
}
if (!mail_check(player, target))
{
return;
}
CLinearTimeAbsolute ltaNow;
ltaNow.GetLocal();
char *pTimeStr = ltaNow.ReturnDateString(0);
// Initialize the appropriate fields.
//
struct mail *newp = (struct mail *)MEMALLOC(sizeof(struct mail));
ISOUTOFMEMORY(newp);
newp->to = target;
// HACK: Allow @mail/quick, if player is an object, then the
// object's owner is the sender, if the owner is a wizard, then
// we allow the object to be the sender.
//
if (isPlayer(player))
{
newp->from = player;
}
else
{
dbref mailbag = Owner(player);
if (Wizard(mailbag))
{
newp->from = player;
}
else
{
newp->from = mailbag;
}
}
if ( !tolist
|| tolist[0] == '\0')
{
newp->tolist = StringClone("*HIDDEN*");
}
else
{
newp->tolist = StringClone(tolist);
}
newp->number = number;
MessageReferenceInc(number);
newp->time = StringClone(pTimeStr);
newp->subject = StringClone(subject);
// Send to folder 0
//
newp->read = flags & M_FMASK;
// If this is the first message, it is the head and the tail.
//
MailList ml(target);
ml.AppendItem(newp);
// Notify people.
//
if (!silent)
{
notify(player, tprintf("MAIL: You sent your message to %s.", Name(target)));
}
notify(target, tprintf("MAIL: You have a new message from %s.", Name(player)));
did_it(player, target, A_MAIL, NULL, 0, NULL, A_AMAIL, NULL, NOTHING);
}
static void do_mail_nuke(dbref player)
{
if (!God(player))
{
notify(player, "The postal service issues a warrant for your arrest.");
return;
}
// Walk the list.
//
dbref thing;
DO_WHOLE_DB(thing)
{
MailList ml(thing);
ml.RemoveAll();
}
log_text(tprintf("** MAIL PURGE ** done by %s(#%d)." ENDLINE, Name(player), player));
notify(player, "You annihilate the post office. All messages cleared.");
}
static void do_mail_debug(dbref player, char *action, char *victim)
{
if (!ExpMail(player))
{
notify(player, "Go get some bugspray.");
return;
}
dbref thing;
if (string_prefix("clear", action))
{
dbref target = lookup_player(player, victim, true);
if (target == NOTHING)
{
init_match(player, victim, NOTYPE);
match_absolute();
target = match_result();
}
if (target == NOTHING)
{
notify(player, tprintf("%s: no such player.", victim));
return;
}
if (Wizard(target))
{
notify(player, tprintf("Let %s clear their own @mail.", Name(target)));
return;
}
do_mail_clear(target, NULL);
do_mail_purge(target);
notify(player, tprintf("Mail cleared for %s(#%d).", Name(target), target));
return;
}
else if (string_prefix("sanity", action))
{
int *ai = (int *)MEMALLOC(mudstate.mail_db_top * sizeof(int));
ISOUTOFMEMORY(ai);
memset(ai, 0, mudstate.mail_db_top * sizeof(int));
DO_WHOLE_DB(thing)
{
MailList ml(thing);
struct mail *mp;
for (mp = ml.FirstItem(); !ml.IsEnd(); mp = ml.NextItem())
{
bool bGoodReference;
if (0 <= mp->number && mp->number < mudstate.mail_db_top)
{
ai[mp->number]++;
bGoodReference = true;
}
else
{
bGoodReference = false;
}
if (!Good_obj(mp->to))
{
if (bGoodReference)
{
notify(player, tprintf("Bad object #%d has mail.", mp->to));
}
else
{
notify(player, tprintf("Bad object #%d has mail which refers to a non-existent mailbag item.", mp->to));
}
}
else if (!isPlayer(mp->to))
{
if (bGoodReference)
{
notify(player, tprintf("%s(#%d) has mail, but is not a player.",
Name(mp->to), mp->to));
}
else
{
notify(player, tprintf("%s(#%d) is not a player, but has mail which refers to a non-existent mailbag item.",
Name(mp->to), mp->to));
}
}
else if (!bGoodReference)
{
notify(player, tprintf("%s(#%d) has mail which refers to a non-existent mailbag item.", Name(mp->to), mp->to));
}
}
}
// Check ref counts.
//
if (mail_list)
{
int i;
int nCountHigher = 0;
int nCountLower = 0;
for (i = 0; i < mudstate.mail_db_top; i++)
{
if (mail_list[i].m_nRefs < ai[i])
{
nCountLower++;
}
else if (mail_list[i].m_nRefs > ai[i])
{
nCountHigher++;
}
}
if (nCountLower)
{
notify(player, "Some mailbag items are referred to more often than the mailbag item indicates.");
}
if (nCountHigher)
{
notify(player, "Some mailbag items are referred to less often than the mailbag item indicates.");
}
}
MEMFREE(ai);
ai = NULL;
notify(player, "Mail sanity check completed.");
}
else if (string_prefix("fix", action))
{
// First, we should fixup the reference counts.
//
if (mail_list)
{
notify(player, tprintf("Re-counting mailbag reference counts."));
int *ai = (int *)MEMALLOC(mudstate.mail_db_top * sizeof(int));
ISOUTOFMEMORY(ai);
memset(ai, 0, mudstate.mail_db_top * sizeof(int));
DO_WHOLE_DB(thing)
{
MailList ml(thing);
struct mail *mp;
for (mp = ml.FirstItem(); !ml.IsEnd(); mp = ml.NextItem())
{
if ( 0 <= mp->number
&& mp->number < mudstate.mail_db_top)
{
ai[mp->number]++;
}
else
{
mp->number = NOTHING;
}
}
}
int i;
int nCountWrong = 0;
for (i = 0; i < mudstate.mail_db_top; i++)
{
if (mail_list[i].m_nRefs != ai[i])
{
mail_list[i].m_nRefs = ai[i];
nCountWrong++;
}
}
if (nCountWrong)
{
notify(player, "Some reference counts were wrong [FIXED].");
}
MEMFREE(ai);
ai = NULL;
}
notify(player, tprintf("Removing @mail that is associated with non-players."));
// Now, remove all mail to non-good or non-players, or mail that
// points to non-existent mailbag items.
//
DO_WHOLE_DB(thing)
{
MailList ml(thing);
struct mail *mp;
for (mp = ml.FirstItem(); !ml.IsEnd(); mp = ml.NextItem())
{
if ( !Good_obj(mp->to)
|| !isPlayer(mp->to)
|| NOTHING == mp->number)
{
// Delete this item.
//
notify(player, tprintf("Fixing mail for #%d.", mp->to));
ml.RemoveItem();
}
}
}
notify(player, "Mail sanity fix completed.");
}
else
{
notify(player, "That is not a debugging option.");
return;
}
}
static void do_mail_stats(dbref player, char *name, int full)
{
dbref target, thing;
int fc, fr, fu, tc, tr, tu, fchars, tchars, cchars, count;
fc = fr = fu = tc = tr = tu = fchars = tchars = cchars = count = 0;
// Find player.
//
if ( !name
|| *name == '\0')
{
if (Wizard(player))
{
target = AMBIGUOUS;
}
else
{
target = player;
}
}
else if (*name == NUMBER_TOKEN)
{
target = mux_atol(&name[1]);
if (!Good_obj(target) || !isPlayer(target))
{
target = NOTHING;
}
}
else if (!mux_stricmp(name, "me"))
{
target = player;
}
else
{
target = lookup_player(player, name, true);
}
if (target == NOTHING)
{
init_match(player, name, NOTYPE);
match_absolute();
target = match_result();
}
if (target == NOTHING)
{
notify(player, tprintf("%s: No such player.", name));
return;
}
if (!ExpMail(player) && (target != player))
{
notify(player, "The post office protects privacy!");
return;
}
// This comand is computationally expensive.
//
if (!payfor(player, mudconf.searchcost))
{
notify(player, tprintf("Finding mail stats costs %d %s.",
mudconf.searchcost,
(mudconf.searchcost == 1) ? mudconf.one_coin : mudconf.many_coins));
return;
}
if (AMBIGUOUS == target)
{
// Stats for all.
//
if (full == 0)
{
DO_WHOLE_DB(thing)
{
MailList ml(thing);
for ((void)ml.FirstItem(); !ml.IsEnd(); (void)ml.NextItem())
{
count++;
}
}
notify(player, tprintf("There are %d messages in the mail spool.", count));
return;
}
else if (full == 1)
{
DO_WHOLE_DB(thing)
{
MailList ml(thing);
struct mail *mp;
for (mp = ml.FirstItem(); !ml.IsEnd(); mp = ml.NextItem())
{
if (Cleared(mp))
{
fc++;
}
else if (Read(mp))
{
fr++;
}
else
{
fu++;
}
}
}
notify(player,
tprintf("MAIL: There are %d msgs in the mail spool, %d unread, %d cleared.",
fc + fr + fu, fu, fc));
return;
}
else
{
DO_WHOLE_DB(thing)
{
MailList ml(thing);
struct mail *mp;
for (mp = ml.FirstItem(); !ml.IsEnd(); mp = ml.NextItem())
{
if (Cleared(mp))
{
fc++;
cchars += strlen(MessageFetch(mp->number));
}
else if (Read(mp))
{
fr++;
fchars += strlen(MessageFetch(mp->number));
}
else
{
fu++;
tchars += strlen(MessageFetch(mp->number));
}
}
}
notify(player, tprintf("MAIL: There are %d old msgs in the mail spool, totalling %d characters.", fr, fchars));
notify(player, tprintf("MAIL: There are %d new msgs in the mail spool, totalling %d characters.", fu, tchars));
notify(player, tprintf("MAIL: There are %d cleared msgs in the mail spool, totalling %d characters.", fc, cchars));
return;
}
}
// individual stats
//
if (full == 0)
{
// Just count the number of messages.
//
DO_WHOLE_DB(thing)
{
MailList ml(thing);
struct mail *mp;
for (mp = ml.FirstItem(); !ml.IsEnd(); mp = ml.NextItem())
{
if (mp->from == target)
{
fr++;
}
if (mp->to == target)
{
tr++;
}
}
}
notify(player, tprintf("%s sent %d messages.", Name(target), fr));
notify(player, tprintf("%s has %d messages.", Name(target), tr));
return;
}
// More detailed message count.
//
char last[50];
DO_WHOLE_DB(thing)
{
MailList ml(thing);
struct mail *mp;
for (mp = ml.FirstItem(); !ml.IsEnd(); mp = ml.NextItem())
{
if (mp->from == target)
{
if (Cleared(mp))
{
fc++;
}
else if (Read(mp))
{
fr++;
}
else
{
fu++;
}
if (full == 2)
{
fchars += strlen(MessageFetch(mp->number));
}
}
if (mp->to == target)
{
if (!tr && !tu)
{
strcpy(last, mp->time);
}
if (Cleared(mp))
{
tc++;
}
else if (Read(mp))
{
tr++;
}
else
{
tu++;
}
if (full == 2)
{
tchars += strlen(MessageFetch(mp->number));
}
}
}
}
notify(player, tprintf("Mail statistics for %s:", Name(target)));
if (full == 1)
{
notify(player, tprintf("%d messages sent, %d unread, %d cleared.",
fc + fr + fu, fu, fc));
notify(player, tprintf("%d messages received, %d unread, %d cleared.",
tc + tr + tu, tu, tc));
}
else
{
notify(player,
tprintf("%d messages sent, %d unread, %d cleared, totalling %d characters.",
fc + fr + fu, fu, fc, fchars));
notify(player,
tprintf("%d messages received, %d unread, %d cleared, totalling %d characters.",
tc + tr + tu, tu, tc, tchars));
}
if (tc + tr + tu > 0)
{
notify(player, tprintf("Last is dated %s", last));
}
}
/*-------------------------------------------------------------------------*
* Main mail routine for @mail w/o a switch
*-------------------------------------------------------------------------*/
static void do_mail_stub(dbref player, char *arg1, char *arg2)
{
if (!arg1 || !*arg1)
{
if (arg2 && *arg2)
{
notify(player, "MAIL: Invalid mail command.");
return;
}
// Just the "@mail" command.
//
do_mail_list(player, arg1, true);
return;
}
// purge a player's mailbox
//
if (!mux_stricmp(arg1, "purge"))
{
do_mail_purge(player);
return;
}
// clear message
//
if (!mux_stricmp(arg1, "clear"))
{
do_mail_clear(player, arg2);
return;
}
if (!mux_stricmp(arg1, "unclear"))
{
do_mail_unclear(player, arg2);
return;
}
if (arg2 && *arg2)
{
// Sending mail
//
do_expmail_start(player, arg1, arg2);
return;
}
else
{
// Must be reading or listing mail - no arg2
//
if ( mux_isdigit(*arg1)
&& !strchr(arg1, '-'))
{
do_mail_read(player, arg1);
}
else
{
do_mail_list(player, arg1, true);
}
return;
}
}
static void malias_write(FILE *fp)
{
int i, j;
struct malias *m;
putref(fp, ma_top);
for (i = 0; i < ma_top; i++)
{
m = malias[i];
fprintf(fp, "%d %d\n", m->owner, m->numrecep);
fprintf(fp, "N:%s\n", m->name);
fprintf(fp, "D:%s\n", m->desc);
for (j = 0; j < m->numrecep; j++)
{
putref(fp, m->list[j]);
}
}
}
static void save_malias(FILE *fp)
{
fprintf(fp, "*** Begin MALIAS ***\n");
malias_write(fp);
}
int dump_mail(FILE *fp)
{
dbref thing;
int count = 0, i;
// Write out version number
//
fprintf(fp, "+V5\n");
putref(fp, mudstate.mail_db_top);
DO_WHOLE_DB(thing)
{
if (isPlayer(thing))
{
MailList ml(thing);
struct mail *mp;
for (mp = ml.FirstItem(); !ml.IsEnd(); mp = ml.NextItem())
{
putref(fp, mp->to);
putref(fp, mp->from);
putref(fp, mp->number);
putstring(fp, mp->tolist);
putstring(fp, mp->time);
putstring(fp, mp->subject);
putref(fp, mp->read);
count++;
}
}
}
fprintf(fp, "*** END OF DUMP ***\n");
// Add the db of mail messages
//
for (i = 0; i < mudstate.mail_db_top; i++)
{
if (0 < mail_list[i].m_nRefs)
{
putref(fp, i);
putstring(fp, MessageFetch(i));
}
}
fprintf(fp, "+++ END OF DUMP +++\n");
save_malias(fp);
return count;
}
static void load_mail_V5(FILE *fp)
{
int mail_top = getref(fp);
mail_db_grow(mail_top + 1);
char nbuf1[8];
char *p = fgets(nbuf1, sizeof(nbuf1), fp);
while (p && strncmp(nbuf1, "***", 3) != 0)
{
struct mail *mp = (struct mail *)MEMALLOC(sizeof(struct mail));
ISOUTOFMEMORY(mp);
mp->to = mux_atol(nbuf1);
mp->from = getref(fp);
mp->number = getref(fp);
MessageReferenceInc(mp->number);
mp->tolist = StringClone(getstring_noalloc(fp, true));
mp->time = StringClone(getstring_noalloc(fp, true));
mp->subject = StringClone(getstring_noalloc(fp, true));
mp->read = getref(fp);
MailList ml(mp->to);
ml.AppendItem(mp);
p = fgets(nbuf1, sizeof(nbuf1), fp);
}
p = fgets(nbuf1, sizeof(nbuf1), fp);
while (p && strncmp(nbuf1, "+++", 3))
{
int number = mux_atol(nbuf1);
new_mail_message(getstring_noalloc(fp, true), number);
p = fgets(nbuf1, sizeof(nbuf1), fp);
}
}
// A mail alias description can be any combination of upper-case letters,
// lower-case letters, digits, blanks, and symbols. ANSI is permitted.
// Length is limited to SIZEOF_MALIASDESC-1. Visual width is limited to
// WIDTHOF_MALIASDESC. Case is preserved.
//
static char *MakeCanonicalMailAliasDesc
(
char *pMailAliasDesc,
int *pnValidMailAliasDesc,
bool *pbValidMailAliasDesc,
int *pnVisualWidth
)
{
if (!pMailAliasDesc)
{
return NULL;
}
// First, remove all '\r\n\t' from the string.
//
char *Buffer = RemoveSetOfCharacters(pMailAliasDesc, "\r\n\t");
// Optimize/terminate any ANSI in the string.
//
*pnVisualWidth = 0;
static char szFittedMailAliasDesc[SIZEOF_MALIASDESC];
*pnValidMailAliasDesc = ANSI_TruncateToField
( Buffer,
SIZEOF_MALIASDESC,
szFittedMailAliasDesc,
WIDTHOF_MALIASDESC,
pnVisualWidth,
ANSI_ENDGOAL_NORMAL
);
*pbValidMailAliasDesc = true;
return szFittedMailAliasDesc;
}
static void malias_read(FILE *fp)
{
int i, j;
i = getref(fp);
if (i <= 0)
{
return;
}
char buffer[LBUF_SIZE];
struct malias *m;
ma_size = ma_top = i;
malias = (struct malias **)MEMALLOC(sizeof(struct malias *) * ma_size);
ISOUTOFMEMORY(malias);
for (i = 0; i < ma_top; i++)
{
// Format is: "%d %d\n", &(m->owner), &(m->numrecep)
//
if (!fgets(buffer, sizeof(buffer), fp))
{
// We've hit the end of the file. Set the last recognized
// @malias, and give up.
//
ma_top = i;
return;
}
m = (struct malias *)MEMALLOC(sizeof(struct malias));
ISOUTOFMEMORY(m);
malias[i] = m;
char *p = strchr(buffer, ' ');
m->owner = m->numrecep = 0;
if (p)
{
m->owner = mux_atol(buffer);
m->numrecep = mux_atol(p+1);
}
// The format of @malias name is "N:<name>\n".
//
int nLen = GetLineTrunc(buffer, sizeof(buffer), fp);
buffer[nLen-1] = '\0'; // Get rid of trailing '\n'.
int nMailAlias;
bool bMailAlias;
char *pMailAlias = MakeCanonicalMailAlias( buffer+2,
&nMailAlias,
&bMailAlias);
if (bMailAlias)
{
m->name = StringCloneLen(pMailAlias, nMailAlias);
}
else
{
m->name = StringCloneLen("Invalid", 7);
}
// The format of the description is "D:<description>\n"
//
nLen = GetLineTrunc(buffer, sizeof(buffer), fp);
int nMailAliasDesc;
bool bMailAliasDesc;
int nVisualWidth;
char *pMailAliasDesc = MakeCanonicalMailAliasDesc( buffer+2,
&nMailAliasDesc,
&bMailAliasDesc,
&nVisualWidth);
if (bMailAliasDesc)
{
m->desc = StringCloneLen(pMailAliasDesc, nMailAliasDesc);
m->desc_width = nVisualWidth;
}
else
{
m->desc = StringCloneLen("Invalid Desc", 12);
m->desc_width = 12;
}
if (m->numrecep > 0)
{
for (j = 0; j < m->numrecep; j++)
{
int k = getref(fp);
if (j < MAX_MALIAS_MEMBERSHIP)
{
m->list[j] = k;
}
}
}
else
{
m->list[0] = 0;
}
}
}
static void load_malias(FILE *fp)
{
char buffer[200];
getref(fp);
if ( fscanf(fp, "*** Begin %s ***\n", buffer) == 1
&& !strcmp(buffer, "MALIAS"))
{
malias_read(fp);
}
else
{
Log.WriteString("ERROR: Couldn't find Begin MALIAS." ENDLINE);
return;
}
}
void load_mail(FILE *fp)
{
char nbuf1[8];
// Read the version number.
//
if (!fgets(nbuf1, sizeof(nbuf1), fp))
{
return;
}
if (strncmp(nbuf1, "+V5", 3) == 0)
{
load_mail_V5(fp);
}
else
{
return;
}
load_malias(fp);
}
void check_mail_expiration(void)
{
// Negative values for expirations never expire.
//
if (0 > mudconf.mail_expiration)
{
return;
}
dbref thing;
int expire_secs = mudconf.mail_expiration * 86400;
CLinearTimeAbsolute ltaNow;
ltaNow.GetLocal();
CLinearTimeAbsolute ltaMail;
DO_WHOLE_DB(thing)
{
MailList ml(thing);
struct mail *mp;
for (mp = ml.FirstItem(); !ml.IsEnd(); mp = ml.NextItem())
{
if (M_Safe(mp))
{
continue;
}
const char *pMailTimeStr = mp->time;
if (!ltaMail.SetString(pMailTimeStr))
{
continue;
}
CLinearTimeDelta ltd(ltaMail, ltaNow);
if (ltd.ReturnSeconds() <= expire_secs)
{
continue;
}
// Delete this one.
//
ml.RemoveItem();
}
}
}
void check_mail(dbref player, int folder, bool silent)
{
// Check for new @mail
//
int rc; // Read messages.
int uc; // Unread messages.
int cc; // Cleared messages.
int gc; // urgent messages.
// Just count messages
//
count_mail(player, folder, &rc, &uc, &cc);
urgent_mail(player, folder, &gc);
#ifdef MAIL_ALL_FOLDERS
notify(player,
tprintf("MAIL: %d messages in folder %d [%s] (%d unread, %d cleared).\r\n",
rc + uc, folder, get_folder_name(player, folder), uc, cc));
#else // MAIL_ALL_FOLDERS
if (rc + uc > 0)
{
notify(player, tprintf("MAIL: %d messages in folder %d [%s] (%d unread, %d cleared).", rc + uc, folder, get_folder_name(player, folder), uc, cc));
}
else if (!silent)
{
notify(player, tprintf("\r\nMAIL: You have no mail.\r\n"));
}
if (gc > 0)
{
notify(player, tprintf("URGENT MAIL: You have %d urgent messages in folder %d [%s].", gc, folder, get_folder_name(player, folder)));
}
#endif // MAIL_ALL_FOLDERS
}
static void do_malias_send
(
dbref player,
char *tolist,
char *listto,
char *subject,
int number,
mail_flag flags,
bool silent
)
{
int nResult;
struct malias *m = get_malias(player, tolist, &nResult);
if (nResult == GMA_INVALIDFORM)
{
notify(player, tprintf("MAIL: I can't figure out from '%s' who you want to mail to.", tolist));
return;
}
else if (nResult == GMA_NOTFOUND)
{
notify(player, tprintf("MAIL: Alias '%s' not found.", tolist));
return;
}
// Parse the player list.
//
dbref vic;
int k;
for (k = 0; k < m->numrecep; k++)
{
vic = m->list[k];
if (isPlayer(vic))
{
send_mail(player, m->list[k], listto, subject, number, flags, silent);
}
else
{
// Complain about it.
//
char *pMail = tprintf("Alias Error: Bad Player %d for %s", vic, tolist);
int iMail = add_mail_message(player, pMail);
if (iMail != NOTHING)
{
send_mail(GOD, GOD, listto, subject, iMail, 0, silent);
MessageReferenceDec(iMail);
}
}
}
}
static void do_malias_create(dbref player, char *alias, char *tolist)
{
struct malias **nm;
int nResult;
get_malias(player, alias, &nResult);
if (nResult == GMA_INVALIDFORM)
{
notify(player, "MAIL: What alias do you want to create?.");
return;
}
else if (nResult == GMA_FOUND)
{
notify(player, tprintf("MAIL: Mail Alias '%s' already exists.", alias));
return;
}
int i = 0;
if (!ma_size)
{
ma_size = MA_INC;
malias = (struct malias **)MEMALLOC(sizeof(struct malias *) * ma_size);
ISOUTOFMEMORY(malias);
}
else if (ma_top >= ma_size)
{
ma_size += MA_INC;
nm = (struct malias **)MEMALLOC(sizeof(struct malias *) * (ma_size));
ISOUTOFMEMORY(nm);
for (i = 0; i < ma_top; i++)
{
nm[i] = malias[i];
}
MEMFREE(malias);
malias = nm;
}
malias[ma_top] = (struct malias *)MEMALLOC(sizeof(struct malias));
ISOUTOFMEMORY(malias[ma_top]);
// Parse the player list.
//
char *head = tolist;
char *tail, spot;
char *buff;
dbref target;
i = 0;
while ( head
&& *head
&& i < (MAX_MALIAS_MEMBERSHIP - 1))
{
while (*head == ' ')
{
head++;
}
tail = head;
while ( *tail
&& *tail != ' ')
{
if (*tail == '"')
{
head++;
tail++;
while ( *tail
&& *tail != '"')
{
tail++;
}
}
if (*tail)
{
tail++;
}
}
tail--;
if (*tail != '"')
{
tail++;
}
spot = *tail;
*tail = '\0';
// Now locate a target.
//
if (!mux_stricmp(head, "me"))
{
target = player;
}
else if (*head == '#')
{
target = mux_atol(head + 1);
}
else
{
target = lookup_player(player, head, true);
}
if ( !Good_obj(target)
|| !isPlayer(target))
{
notify(player, "MAIL: No such player.");
}
else
{
buff = unparse_object(player, target, false);
notify(player, tprintf("MAIL: %s added to alias %s", buff, alias));
malias[ma_top]->list[i] = target;
i++;
free_lbuf(buff);
}
// Get the next recip.
//
*tail = spot;
head = tail;
if (*head == '"')
{
head++;
}
}
int nValidMailAlias;
bool bValidMailAlias;
char *pValidMailAlias = MakeCanonicalMailAlias
( alias+1,
&nValidMailAlias,
&bValidMailAlias
);
if (!bValidMailAlias)
{
notify(player, "MAIL: Invalid mail alias.");
return;
}
// The Mail Alias Description is a superset of the Mail Alias,
// so, the following code is not necessary unless the specification
// of the Mail Alias Description becomes more restrictive at some
// future time.
//
#if 0
int nValidMailAliasDesc;
bool bValidMailAliasDesc;
char *pValidMailAliasDesc = MakeCanonicalMailAliasDesc
( alias+1,
&nValidMailAliasDesc,
&bValidMailAliasDesc
);
if (!bValidMailAliasDesc)
{
notify(player, "MAIL: Invalid mail alias description.");
break;
}
#else
char *pValidMailAliasDesc = pValidMailAlias;
int nValidMailAliasDesc = nValidMailAlias;
#endif
malias[ma_top]->list[i] = NOTHING;
malias[ma_top]->name = StringCloneLen(pValidMailAlias, nValidMailAlias);
malias[ma_top]->numrecep = i;
malias[ma_top]->owner = player;
malias[ma_top]->desc = StringCloneLen(pValidMailAliasDesc, nValidMailAliasDesc);
malias[ma_top]->desc_width = nValidMailAliasDesc;
ma_top++;
notify(player, tprintf("MAIL: Alias set '%s' defined.", alias));
}
static void do_malias_list(dbref player, char *alias)
{
int nResult;
struct malias *m = get_malias(player, alias, &nResult);
if (nResult == GMA_NOTFOUND)
{
notify(player, tprintf("MAIL: Alias '%s' not found.", alias));
return;
}
if (nResult != GMA_FOUND)
{
return;
}
if (!ExpMail(player) && (player != m->owner) && !(God(m->owner)))
{
notify(player, "MAIL: Permission denied.");
return;
}
char *buff = alloc_lbuf("do_malias_list");
char *bp = buff;
safe_tprintf_str(buff, &bp, "MAIL: Alias *%s: ", m->name);
for (int i = m->numrecep - 1; i > -1; i--)
{
const char *p = Name(m->list[i]);
if (strchr(p, ' '))
{
safe_chr('"', buff, &bp);
safe_str(p, buff, &bp);
safe_chr('"', buff, &bp);
}
else
{
safe_str(p, buff, &bp);
}
safe_chr(' ', buff, &bp);
}
*bp = '\0';
notify(player, buff);
free_lbuf(buff);
}
static char *Spaces(unsigned int n)
{
static char buffer[42] = " ";
static unsigned int nLast = 0;
buffer[nLast] = ' ';
if (n < sizeof(buffer)-1)
{
buffer[n] = '\0';
nLast = n;
}
return buffer;
}
static void do_malias_list_all(dbref player)
{
bool notified = false;
for (int i = 0; i < ma_top; i++)
{
struct malias *m = malias[i];
if ( m->owner == GOD
|| m->owner == player
|| God(player))
{
if (!notified)
{
notify(player, "Name Description Owner");
notified = true;
}
char *pSpaces = Spaces(40 - m->desc_width);
char *p = tprintf( "%-12s %s%s %-15.15s",
m->name,
m->desc,
pSpaces,
Name(m->owner));
notify(player, p);
}
}
notify(player, "***** End of Mail Aliases *****");
}
static void do_malias_switch(dbref player, char *a1, char *a2)
{
if (a1 && *a1)
{
if (a2 && *a2)
{
do_malias_create(player, a1, a2);
}
else
{
do_malias_list(player, a1);
}
}
else
{
do_malias_list_all(player);
}
}
static void do_mail_cc(dbref player, char *arg, bool bBlind)
{
if (!(Flags2(player) & PLAYER_MAILS))
{
notify(player, "MAIL: No mail message in progress.");
return;
}
if (!arg || !*arg)
{
notify(player, "MAIL: I do not know whom you want to mail.");
return;
}
char *tolist = make_numlist(player, arg, bBlind);
if (!tolist)
{
return;
}
char *fulllist = alloc_lbuf("do_mail_cc");
char *bp = fulllist;
safe_str(tolist, fulllist, &bp);
const char *pPlayerMailTo = atr_get_raw(player, A_MAILTO);
if (pPlayerMailTo)
{
safe_chr(' ', fulllist, &bp);
safe_str(pPlayerMailTo, fulllist, &bp);
}
*bp = '\0';
atr_add_raw(player, A_MAILTO, fulllist);
char *names = make_namelist(player, fulllist);
notify(player, tprintf("MAIL: You are sending mail to '%s'.", names));
free_lbuf(names);
free_lbuf(tolist);
free_lbuf(fulllist);
}
static void mail_to_list(dbref player, char *list, char *subject, char *message, int flags, bool silent)
{
if (!list)
{
return;
}
if (!*list)
{
free_lbuf(list);
return;
}
// Construct a tolist which excludes all the Blind Carbon Copy (BCC)
// recipients.
//
char *tolist = alloc_lbuf("mail_to_list");
char *p = tolist;
char *tail;
char *head = list;
while (*head)
{
while (*head == ' ')
{
head++;
}
tail = head;
while ( *tail
&& *tail != ' ')
{
if (*tail == '"')
{
head++;
tail++;
while ( *tail
&& *tail != '"')
{
tail++;
}
}
if (*tail)
{
tail++;
}
}
tail--;
if (*tail != '"')
{
tail++;
}
if (*head != '!')
{
if (p != tolist)
{
*p++ = ' ';
}
memcpy(p, head, tail-head);
p += tail-head;
}
// Get the next recipient.
//
head = tail;
if (*head == '"')
{
head++;
}
}
*p = '\0';
int number = add_mail_message(player, message);
if (number != NOTHING)
{
char spot;
head = list;
while (*head)
{
while (*head == ' ')
{
head++;
}
tail = head;
while ( *tail
&& *tail != ' ')
{
if (*tail == '"')
{
head++;
tail++;
while ( *tail
&& *tail != '"')
{
tail++;
}
}
if (*tail)
{
tail++;
}
}
tail--;
if (*tail != '"')
{
tail++;
}
spot = *tail;
*tail = '\0';
if (*head == '!')
{
head++;
}
if (*head == '*')
{
do_malias_send(player, head, tolist, subject, number, flags, silent);
}
else
{
dbref target = mux_atol(head);
if ( Good_obj(target)
&& isPlayer(target))
{
send_mail(player, target, tolist, subject, number, flags, silent);
}
}
// Get the next recipient.
//
*tail = spot;
head = tail;
if (*head == '"')
{
head++;
}
}
MessageReferenceDec(number);
}
free_lbuf(tolist);
free_lbuf(list);
}
static void do_mail_quick(dbref player, char *arg1, char *arg2)
{
if (!arg1 || !*arg1)
{
notify(player, "MAIL: I don't know who you want to mail.");
return;
}
if (!arg2 || !*arg2)
{
notify(player, "MAIL: No message.");
return;
}
if (Flags2(player) & PLAYER_MAILS)
{
notify(player, "MAIL: Mail message already in progress.");
return;
}
if ( !Wizard(player)
&& ThrottleMail(player))
{
notify(player, "MAIL: Too much @mail sent recently.");
return;
}
char *bufDest = alloc_lbuf("do_mail_quick");
char *bpSubject = bufDest;
strcpy(bpSubject, arg1);
parse_to(&bpSubject, '/', 1);
if (!bpSubject)
{
notify(player, "MAIL: No subject.");
free_lbuf(bufDest);
return;
}
mail_to_list(player, make_numlist(player, bufDest, false), bpSubject, arg2, 0, false);
free_lbuf(bufDest);
}
static void do_expmail_stop(dbref player, int flags)
{
if ((Flags2(player) & PLAYER_MAILS) != PLAYER_MAILS)
{
notify(player, "MAIL: No message started.");
return;
}
dbref aowner;
dbref aflags;
char *tolist = atr_get(player, A_MAILTO, & aowner, &aflags);
if (*tolist == '\0')
{
notify(player, "MAIL: No recipients.");
free_lbuf(tolist);
}
else
{
char *mailmsg = atr_get(player, A_MAILMSG, &aowner, &aflags);
if (*mailmsg == '\0')
{
notify(player, "MAIL: The body of this message is empty. Use - to add to the message.");
}
else
{
char *mailsub = atr_get(player, A_MAILSUB, &aowner, &aflags);
char *mailflags = atr_get(player, A_MAILFLAGS, &aowner, &aflags);
mail_to_list(player, tolist, mailsub, mailmsg, flags | mux_atol(mailflags), false);
free_lbuf(mailflags);
free_lbuf(mailsub);
Flags2(player) &= ~PLAYER_MAILS;
}
free_lbuf(mailmsg);
}
}
static void do_expmail_abort(dbref player)
{
Flags2(player) &= ~PLAYER_MAILS;
notify(player, "MAIL: Message aborted.");
}
void do_prepend(dbref executor, dbref caller, dbref enactor, int key, char *text)
{
UNUSED_PARAMETER(key);
if (!mudconf.have_mailer)
{
return;
}
if (Flags2(executor) & PLAYER_MAILS)
{
if ( !text
|| !*text)
{
notify(executor, "No text prepended.");
return;
}
char *bufText = alloc_lbuf("do_prepend");
char *bpText = bufText;
char *strText = text+1;
mux_exec(bufText, &bpText, executor, caller, enactor,
EV_STRIP_CURLY | EV_FCHECK | EV_EVAL, &strText, (char **)NULL, 0);
*bpText = '\0';
dbref aowner;
int aflags;
char *oldmsg = atr_get(executor, A_MAILMSG, &aowner, &aflags);
if (*oldmsg)
{
char *newmsg = alloc_lbuf("do_prepend");
char *bp = newmsg;
safe_str(bufText, newmsg, &bp);
safe_chr(' ', newmsg, &bp);
safe_str(oldmsg, newmsg, &bp);
*bp = '\0';
atr_add_raw(executor, A_MAILMSG, newmsg);
free_lbuf(newmsg);
}
else
{
atr_add_raw(executor, A_MAILMSG, bufText);
}
free_lbuf(bufText);
free_lbuf(oldmsg);
size_t nLen;
atr_get_raw_LEN(executor, A_MAILMSG, &nLen);
notify(executor, tprintf("%d/%d characters prepended.", nLen, LBUF_SIZE-1));
}
else
{
notify(executor, "MAIL: No message in progress.");
}
}
void do_postpend(dbref executor, dbref caller, dbref enactor, int key, char *text)
{
UNUSED_PARAMETER(key);
if (!mudconf.have_mailer)
{
return;
}
if ( text[1] == '-'
&& text[2] == '\0')
{
do_expmail_stop(executor, 0);
return;
}
if (Flags2(executor) & PLAYER_MAILS)
{
if ( !text
|| !*text)
{
notify(executor, "No text added.");
return;
}
char *bufText = alloc_lbuf("do_prepend");
char *bpText = bufText;
char *strText = text+1;
mux_exec(bufText, &bpText, executor, caller, enactor,
EV_STRIP_CURLY | EV_FCHECK | EV_EVAL, &strText, (char **)NULL, 0);
*bpText = '\0';
dbref aowner;
int aflags;
char *oldmsg = atr_get(executor, A_MAILMSG, &aowner, &aflags);
if (*oldmsg)
{
char *newmsg = alloc_lbuf("do_postpend");
char *bp = newmsg;
safe_str(oldmsg, newmsg, &bp);
safe_chr(' ', newmsg, &bp);
safe_str(bufText, newmsg, &bp);
*bp = '\0';
atr_add_raw(executor, A_MAILMSG, newmsg);
free_lbuf(newmsg);
}
else
{
atr_add_raw(executor, A_MAILMSG, bufText);
}
free_lbuf(bufText);
free_lbuf(oldmsg);
size_t nLen;
atr_get_raw_LEN(executor, A_MAILMSG, &nLen);
notify(executor, tprintf("%d/%d characters added.", nLen, LBUF_SIZE-1));
}
else
{
notify(executor, "MAIL: No message in progress.");
}
}
static void do_edit_msg(dbref player, char *from, char *to)
{
if (Flags2(player) & PLAYER_MAILS)
{
dbref aowner;
int aflags;
char *msg = atr_get(player, A_MAILMSG, &aowner, &aflags);
char *result = replace_string(from, to, msg);
atr_add(player, A_MAILMSG, result, aowner, aflags);
notify(player, "Text edited.");
free_lbuf(result);
free_lbuf(msg);
}
else
{
notify(player, "MAIL: No message in progress.");
}
}
static void do_mail_proof(dbref player)
{
if (!(Flags2(player) & PLAYER_MAILS))
{
notify(player, "MAIL: No message in progress.");
return;
}
dbref aowner;
int aflags;
char *mailto = atr_get(player, A_MAILTO, &aowner, &aflags);
char *mailmsg = atr_get(player, A_MAILMSG, &aowner, &aflags);
char *names = make_namelist(player, mailto);
int iRealVisibleWidth;
char szSubjectBuffer[MBUF_SIZE];
ANSI_TruncateToField(atr_get_raw(player, A_MAILSUB),
sizeof(szSubjectBuffer), szSubjectBuffer, 35,
&iRealVisibleWidth, ANSI_ENDGOAL_NORMAL);
notify(player, DASH_LINE);
notify(player, tprintf("From: %-*s Subject: %s\nTo: %s",
PLAYER_NAME_LIMIT - 6, Name(player), szSubjectBuffer, names));
notify(player, DASH_LINE);
notify(player, mailmsg);
notify(player, DASH_LINE);
free_lbuf(mailmsg);
free_lbuf(names);
free_lbuf(mailto);
}
static void do_malias_desc(dbref player, char *alias, char *desc)
{
int nResult;
struct malias *m = get_malias(player, alias, &nResult);
if (nResult == GMA_NOTFOUND)
{
notify(player, tprintf("MAIL: Alias '%s' not found.", alias));
return;
}
if (nResult != GMA_FOUND)
{
return;
}
if ( m->owner != GOD
|| ExpMail(player))
{
int nValidMailAliasDesc;
bool bValidMailAliasDesc;
int nVisualWidth;
char *pValidMailAliasDesc = MakeCanonicalMailAliasDesc
( desc,
&nValidMailAliasDesc,
&bValidMailAliasDesc,
&nVisualWidth
);
if (bValidMailAliasDesc)
{
MEMFREE(m->desc);
m->desc = StringCloneLen(pValidMailAliasDesc, nValidMailAliasDesc);
m->desc_width = nVisualWidth;
notify(player, "MAIL: Description changed.");
}
else
{
notify(player, "MAIL: Description is not valid.");
}
}
else
{
notify(player, "MAIL: Permission denied.");
}
}
static void do_malias_chown(dbref player, char *alias, char *owner)
{
if (!ExpMail(player))
{
notify(player, "MAIL: You cannot do that!");
return;
}
int nResult;
struct malias *m = get_malias(player, alias, &nResult);
if (nResult == GMA_NOTFOUND)
{
notify(player, tprintf("MAIL: Alias '%s' not found.", alias));
return;
}
if (nResult != GMA_FOUND)
{
return;
}
dbref no = lookup_player(player, owner, true);
if (no == NOTHING)
{
notify(player, "MAIL: I do not see that here.");
return;
}
m->owner = no;
notify(player, "MAIL: Owner changed for alias.");
}
static void do_malias_add(dbref player, char *alias, char *person)
{
int nResult;
struct malias *m = get_malias(player, alias, &nResult);
if (nResult == GMA_NOTFOUND)
{
notify(player, tprintf("MAIL: Alias '%s' not found.", alias));
return;
}
else if (nResult != GMA_FOUND)
{
return;
}
dbref thing = NOTHING;
if (*person == '#')
{
thing = parse_dbref(person + 1);
if (!isPlayer(thing))
{
notify(player, "MAIL: Only players may be added.");
return;
}
}
if (thing == NOTHING)
{
thing = lookup_player(player, person, true);
}
if (thing == NOTHING)
{
notify(player, "MAIL: I do not see that person here.");
return;
}
if ((m->owner == GOD) && !ExpMail(player))
{
notify(player, "MAIL: Permission denied.");
return;
}
int i;
for (i = 0; i < m->numrecep; i++)
{
if (m->list[i] == thing)
{
notify(player, "MAIL: That person is already on the list.");
return;
}
}
if (i >= (MAX_MALIAS_MEMBERSHIP - 1))
{
notify(player, "MAIL: The list is full.");
return;
}
m->list[m->numrecep] = thing;
m->numrecep = m->numrecep + 1;
notify(player, tprintf("MAIL: %s added to %s", Name(thing), m->name));
}
static void do_malias_remove(dbref player, char *alias, char *person)
{
int nResult;
struct malias *m = get_malias(player, alias, &nResult);
if (nResult == GMA_NOTFOUND)
{
notify(player, tprintf("MAIL: Alias '%s' not found.", alias));
return;
}
if (nResult != GMA_FOUND)
{
return;
}
if ((m->owner == GOD) && !ExpMail(player))
{
notify(player, "MAIL: Permission denied.");
return;
}
dbref thing = NOTHING;
if (*person == '#')
{
thing = parse_dbref(person + 1);
}
if (thing == NOTHING)
{
thing = lookup_player(player, person, true);
}
if (thing == NOTHING)
{
notify(player, "MAIL: I do not see that person here.");
return;
}
bool ok = false;
for (int i = 0; i < m->numrecep; i++)
{
if (ok)
{
m->list[i] = m->list[i + 1];
}
else if (m->list[i] == thing)
{
m->list[i] = m->list[i + 1];
ok = true;
}
}
if (ok)
{
m->numrecep--;
notify(player, tprintf("MAIL: %s removed from alias %s.",
Name(thing), alias));
}
else
{
notify(player, tprintf("MAIL: %s is not a member of alias %s.",
Name(thing), alias));
}
}
static void do_malias_rename(dbref player, char *alias, char *newname)
{
int nResult;
struct malias *m = get_malias(player, newname, &nResult);
if (nResult == GMA_FOUND)
{
notify(player, "MAIL: That name already exists!");
return;
}
if (nResult != GMA_NOTFOUND)
{
return;
}
m = get_malias(player, alias, &nResult);
if (nResult == GMA_NOTFOUND)
{
notify(player, "MAIL: I cannot find that alias!");
return;
}
if (nResult != GMA_FOUND)
{
return;
}
if (!ExpMail(player) && !(m->owner == player))
{
notify(player, "MAIL: Permission denied.");
return;
}
int nValidMailAlias;
bool bValidMailAlias;
char *pValidMailAlias = MakeCanonicalMailAlias
( newname+1,
&nValidMailAlias,
&bValidMailAlias
);
if (bValidMailAlias)
{
MEMFREE(m->name);
m->name = StringCloneLen(pValidMailAlias, nValidMailAlias);
notify(player, "MAIL: Mailing Alias renamed.");
}
else
{
notify(player, "MAIL: Alias is not valid.");
}
}
static void do_malias_delete(dbref player, char *alias)
{
int nResult;
struct malias *m = get_malias(player, alias, &nResult);
if (nResult == GMA_NOTFOUND)
{
notify(player, tprintf("MAIL: Alias '%s' not found.", alias));
return;
}
if (nResult != GMA_FOUND)
{
return;
}
bool done = false;
for (int i = 0; i < ma_top; i++)
{
if (done)
{
malias[i] = malias[i + 1];
}
else
{
if ((m->owner == player) || ExpMail(player))
{
if (m == malias[i])
{
done = true;
notify(player, "MAIL: Alias Deleted.");
malias[i] = malias[i + 1];
}
}
}
}
if (!done)
{
notify(player, tprintf("MAIL: Alias '%s' not found.", alias));
}
else
{
ma_top--;
}
}
static void do_malias_adminlist(dbref player)
{
if (!ExpMail(player))
{
do_malias_list_all(player);
return;
}
notify(player,
"Num Name Description Owner");
struct malias *m;
int i;
for (i = 0; i < ma_top; i++)
{
m = malias[i];
char *pSpaces = Spaces(40 - m->desc_width);
notify(player, tprintf("%-4d %-12s %s%s %-15.15s",
i, m->name, m->desc, pSpaces,
Name(m->owner)));
}
notify(player, "***** End of Mail Aliases *****");
}
static void do_malias_status(dbref player)
{
if (!ExpMail(player))
{
notify(player, "MAIL: Permission denied.");
}
else
{
notify(player, tprintf("MAIL: Number of mail aliases defined: %d", ma_top));
notify(player, tprintf("MAIL: Allocated slots %d", ma_size));
}
}
static void malias_cleanup1(struct malias *m, dbref target)
{
int count = 0;
dbref j;
for (int i = 0; i < m->numrecep; i++)
{
j = m->list[i];
if ( !Good_obj(j)
|| j == target)
{
count++;
}
if (count)
{
m->list[i] = m->list[i + count];
}
}
m->numrecep -= count;
}
void malias_cleanup(dbref player)
{
for (int i = 0; i < ma_top; i++)
{
malias_cleanup1(malias[i], player);
}
}
static void do_mail_retract1(dbref player, char *name, char *msglist)
{
dbref target = lookup_player(player, name, true);
if (target == NOTHING)
{
notify(player, "MAIL: No such player.");
return;
}
struct mail_selector ms;
if (!parse_msglist(msglist, &ms, target))
{
return;
}
int i = 0, j = 0;
MailList ml(target);
struct mail *mp;
for (mp = ml.FirstItem(); !ml.IsEnd(); mp = ml.NextItem())
{
if (mp->from == player)
{
i++;
if (mail_match(mp, ms, i))
{
j++;
if (Unread(mp))
{
ml.RemoveItem();
notify(player, "MAIL: Mail retracted.");
}
else
{
notify(player, "MAIL: That message has been read.");
}
}
}
}
if (!j)
{
// Ran off the end of the list without finding anything.
//
notify(player, "MAIL: No matching messages.");
}
}
static void do_mail_retract(dbref player, char *name, char *msglist)
{
if (*name == '*')
{
int pnResult;
struct malias *m = get_malias(player, name, &pnResult);
if (pnResult == GMA_NOTFOUND)
{
notify(player, tprintf("MAIL: Mail alias %s not found.", name));
return;
}
if (pnResult == GMA_FOUND)
{
for (int i = 0; i < m->numrecep; i++)
{
do_mail_retract1(player, tprintf("#%d", m->list[i]), msglist);
}
}
}
else
{
do_mail_retract1(player, name, msglist);
}
}
void do_malias
(
dbref executor,
dbref caller,
dbref enactor,
int key,
int nargs,
char *arg1,
char *arg2
)
{
UNUSED_PARAMETER(caller);
UNUSED_PARAMETER(enactor);
UNUSED_PARAMETER(nargs);
if (!mudconf.have_mailer)
{
notify(executor, "Mailer is disabled.");
return;
}
switch (key)
{
case 0:
do_malias_switch(executor, arg1, arg2);
break;
case MALIAS_DESC:
do_malias_desc(executor, arg1, arg2);
break;
case MALIAS_CHOWN:
do_malias_chown(executor, arg1, arg2);
break;
case MALIAS_ADD:
do_malias_add(executor, arg1, arg2);
break;
case MALIAS_REMOVE:
do_malias_remove(executor, arg1, arg2);
break;
case MALIAS_DELETE:
do_malias_delete(executor, arg1);
break;
case MALIAS_RENAME:
do_malias_rename(executor, arg1, arg2);
break;
case 7:
// empty
break;
case MALIAS_LIST:
do_malias_adminlist(executor);
break;
case MALIAS_STATUS:
do_malias_status(executor);
}
}
void do_mail
(
dbref executor,
dbref caller,
dbref enactor,
int key,
int nargs,
char *arg1,
char *arg2
)
{
UNUSED_PARAMETER(caller);
UNUSED_PARAMETER(enactor);
UNUSED_PARAMETER(nargs);
if (!mudconf.have_mailer)
{
notify(executor, "Mailer is disabled.");
return;
}
// HACK: Fix to allow @mail/quick from objects.
//
if ( (key & ~MAIL_QUOTE) != MAIL_QUICK
&& !isPlayer(executor))
{
return;
}
switch (key & ~MAIL_QUOTE)
{
case 0:
do_mail_stub(executor, arg1, arg2);
break;
case MAIL_STATS:
do_mail_stats(executor, arg1, 0);
break;
case MAIL_DSTATS:
do_mail_stats(executor, arg1, 1);
break;
case MAIL_FSTATS:
do_mail_stats(executor, arg1, 2);
break;
case MAIL_DEBUG:
do_mail_debug(executor, arg1, arg2);
break;
case MAIL_NUKE:
do_mail_nuke(executor);
break;
case MAIL_FOLDER:
do_mail_change_folder(executor, arg1, arg2);
break;
case MAIL_LIST:
do_mail_list(executor, arg1, false);
break;
case MAIL_READ:
do_mail_read(executor, arg1);
break;
case MAIL_CLEAR:
do_mail_clear(executor, arg1);
break;
case MAIL_UNCLEAR:
do_mail_unclear(executor, arg1);
break;
case MAIL_PURGE:
do_mail_purge(executor);
break;
case MAIL_FILE:
do_mail_file(executor, arg1, arg2);
break;
case MAIL_TAG:
do_mail_tag(executor, arg1);
break;
case MAIL_UNTAG:
do_mail_untag(executor, arg1);
break;
case MAIL_FORWARD:
do_mail_fwd(executor, arg1, arg2);
break;
case MAIL_REPLY:
do_mail_reply(executor, arg1, false, key);
break;
case MAIL_REPLYALL:
do_mail_reply(executor, arg1, true, key);
break;
case MAIL_SEND:
do_expmail_stop(executor, 0);
break;
case MAIL_EDIT:
do_edit_msg(executor, arg1, arg2);
break;
case MAIL_URGENT:
do_expmail_stop(executor, M_URGENT);
break;
case MAIL_ALIAS:
do_malias_create(executor, arg1, arg2);
break;
case MAIL_ALIST:
do_malias_list_all(executor);
break;
case MAIL_PROOF:
do_mail_proof(executor);
break;
case MAIL_ABORT:
do_expmail_abort(executor);
break;
case MAIL_QUICK:
do_mail_quick(executor, arg1, arg2);
break;
case MAIL_REVIEW:
do_mail_review(executor, arg1, arg2);
break;
case MAIL_RETRACT:
do_mail_retract(executor, arg1, arg2);
break;
case MAIL_CC:
do_mail_cc(executor, arg1, false);
break;
case MAIL_SAFE:
do_mail_safe(executor, arg1);
break;
case MAIL_BCC:
do_mail_cc(executor, arg1, true);
break;
}
}
struct mail *MailList::FirstItem(void)
{
m_miHead = (struct mail *)hashfindLEN(&m_player, sizeof(m_player), &mudstate.mail_htab);
m_mi = m_miHead;
m_bRemoved = false;
return m_mi;
}
struct mail *MailList::NextItem(void)
{
if (!m_bRemoved)
{
if (NULL != m_mi)
{
m_mi = m_mi->next;
if (m_mi == m_miHead)
{
m_mi = NULL;
}
}
}
m_bRemoved = false;
return m_mi;
}
bool MailList::IsEnd(void)
{
return (NULL == m_mi);
}
MailList::MailList(dbref player)
{
m_mi = NULL;
m_miHead = NULL;
m_player = player;
m_bRemoved = false;
}
void MailList::RemoveItem(void)
{
if ( NULL == m_mi
|| NOTHING == m_player)
{
return;
}
struct mail *miNext = m_mi->next;
if (m_mi == m_miHead)
{
if (miNext == m_miHead)
{
hashdeleteLEN(&m_player, sizeof(m_player), &mudstate.mail_htab);
miNext = NULL;
}
else
{
hashreplLEN(&m_player, sizeof(m_player), miNext, &mudstate.mail_htab);
}
m_miHead = miNext;
}
// Relink the list
//
m_mi->prev->next = m_mi->next;
m_mi->next->prev = m_mi->prev;
m_mi->next = NULL;
m_mi->prev = NULL;
MessageReferenceDec(m_mi->number);
MEMFREE(m_mi->subject);
m_mi->subject = NULL;
MEMFREE(m_mi->time);
m_mi->time = NULL;
MEMFREE(m_mi->tolist);
m_mi->tolist = NULL;
MEMFREE(m_mi);
m_mi = miNext;
m_bRemoved = true;
}
void MailList::AppendItem(struct mail *miNew)
{
struct mail *miHead = (struct mail *)
hashfindLEN(&m_player, sizeof(m_player), &mudstate.mail_htab);
if (miHead)
{
// Add new item to the end of the list.
//
struct mail *miEnd = miHead->prev;
miNew->next = miHead;
miNew->prev = miEnd;
miHead->prev = miNew;
miEnd->next = miNew;
}
else
{
hashaddLEN(&m_player, sizeof(m_player), miNew, &mudstate.mail_htab);
miNew->next = miNew;
miNew->prev = miNew;
}
}
void MailList::RemoveAll(void)
{
struct mail *miHead = (struct mail *)
hashfindLEN(&m_player, sizeof(m_player), &mudstate.mail_htab);
if (NULL != miHead)
{
hashdeleteLEN(&m_player, sizeof(m_player), &mudstate.mail_htab);
}
struct mail *mi;
struct mail *miNext;
for (mi = miHead; NULL != mi; mi = miNext)
{
if (mi == miHead)
{
miNext = NULL;
}
else
{
miNext = mi->next;
}
MessageReferenceDec(mi->number);
MEMFREE(mi->subject);
mi->subject = NULL;
MEMFREE(mi->tolist);
mi->tolist = NULL;
MEMFREE(mi->time);
mi->time = NULL;
MEMFREE(mi);
}
m_mi = NULL;
}