/*
* Empire - A multi-player, client/server Internet based war game.
- * Copyright (C) 1986-2000, Dave Pare, Jeff Bailey, Thomas Ruschak,
- * Ken Stevens, Steve McClure
+ * Copyright (C) 1986-2011, Dave Pare, Jeff Bailey, Thomas Ruschak,
+ * Ken Stevens, Steve McClure, Markus Armbruster
*
- * This program is free software; you can redistribute it and/or modify
+ * Empire 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
+ * the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* 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
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
*
* ---
*
- * See the "LEGAL", "LICENSE", "CREDITS" and "README" files for all the
- * related information and legal notices. It is expected that any future
- * projects/authors will amend these files as needed.
+ * See files README, COPYING and CREDITS in the root of the source
+ * tree for related information and legal notices. It is expected
+ * that future projects/authors will amend these files as needed.
*
* ---
*
* rea.c: Read telegrams
- *
+ *
* Known contributors to this file:
* Dave Pare
* Doug Hay, 1998
* Steve McClure, 1998-2000
+ * Ron Koenderink, 2005-2007
+ * Markus Armbruster, 2009-2011
*/
+#include <config.h>
-#ifdef aix
-#define L_SET 0
-#endif /* aix */
-
-#include "misc.h"
-#include "player.h"
-#include "nat.h"
-#include "file.h"
-#include "tel.h"
+#include <ctype.h>
+#include <errno.h>
+#include <stdio.h>
#include "commands.h"
+#include "match.h"
+#include "misc.h"
#include "optlist.h"
+#include "tel.h"
-#include <stdio.h>
-#include <fcntl.h>
-#if !defined(_WIN32)
-#include <sys/file.h>
-#endif
+static int print_sink(char *, size_t, void *);
int
rea(void)
{
- static s_char *telnames[] = {
+ static char *telnames[] = {
/* must follow TEL_ defines in tel.h */
"Telegram", "Announcement", "BULLETIN", "Production Report"
};
- register s_char *p;
- register s_char *mbox;
- s_char mbox_buf[256]; /* Maximum path length */
+ char *p;
+ char *mbox;
+ char mbox_buf[256]; /* Maximum path length */
struct telstr tgm;
FILE *telfp;
int teles;
int size;
- unsigned int nbytes;
- s_char buf[4096];
- int lasttype;
- int lastcnum;
- time_t lastdate;
- int header;
+ char buf[1024];
int filelen;
- s_char kind[80];
- int n;
+ char *kind;
+ int n, res;
int num = player->cnum;
struct natstr *np = getnatp(player->cnum);
time_t now;
time_t then;
time_t delta;
- int first = 1;
- int readit;
+ int may_delete = 1; /* may messages be deleted? */
- memset(kind, 0, sizeof(kind));
- (void)time(&now);
+ now = time(NULL);
if (*player->argp[0] == 'w') {
- sprintf(kind, "announcement");
+ kind = "announcement";
if (player->argp[1] && isdigit(*player->argp[1])) {
delta = days(atoi(player->argp[1]));
then = now - delta;
+ may_delete = 0;
} else
then = np->nat_annotim;
mbox = annfil;
} else {
- sprintf(kind, "telegram");
- if (player->god && player->argp[1] != 0) {
- if ((n = natarg(player->argp[1], "")) < 0)
+ kind = "telegram";
+ if (player->god && player->argp[1] &&
+ (mineq(player->argp[1], "yes") == ME_MISMATCH) &&
+ (mineq(player->argp[1], "no") == ME_MISMATCH)) {
+ if ((n = natarg(player->argp[1], NULL)) < 0)
return RET_SYN;
num = n;
+ may_delete = 0;
}
mbox = mailbox(mbox_buf, num);
- clear_telegram_is_new(player->cnum);
}
-#if !defined(_WIN32)
- if ((telfp = fopen(mbox, "r+")) == 0) {
-#else
- if ((telfp = fopen(mbox, "r+b")) == 0) {
-#endif
+ if (!(telfp = fopen(mbox, "rb+"))) {
logerror("telegram file %s", mbox);
return RET_FAIL;
}
teles = 0;
- fseek(telfp, 0L, 0);
size = fsize(fileno(telfp));
more:
- lastdate = 0;
- lastcnum = -1;
- lasttype = -1;
- while (fread((s_char *)&tgm, sizeof(tgm), 1, telfp) == 1) {
- readit = 1;
- if (tgm.tel_length < 0) {
- logerror("bad telegram file header in %s", mbox);
- break;
- }
- if (tgm.tel_type < 0 || tgm.tel_type > TEL_LAST) {
- pr("Bad telegram header. Skipping telegram...\n");
- readit = 0;
- goto skip;
- }
+ while ((res = tel_read_header(telfp, mbox, &tgm)) > 0) {
if (*kind == 'a') {
- if (!player->god && (getrejects(tgm.tel_from, np) & REJ_ANNO)) {
- readit = 0;
- goto skip;
- }
- if (tgm.tel_date < then) {
- readit = 0;
- goto skip;
+ if ((!player->god && (getrejects(tgm.tel_from, np) & REJ_ANNO))
+ || tgm.tel_date < then) {
+ res = tel_read_body(telfp, mbox, &tgm, NULL, NULL);
+ if (res < 0)
+ break;
+ continue;
}
}
- if (first && *kind == 'a') {
+ if (!teles && *kind == 'a')
pr("\nAnnouncements since %s", ctime(&then));
- first = 0;
- }
- header = 0;
- if (tgm.tel_type != lasttype || tgm.tel_from != lastcnum)
- header++;
- if (abs((int)(tgm.tel_date - (long)lastdate)) > TEL_SECONDS)
- header++;
- if (header) {
+ if (!teles || !tgm.tel_cont) {
pr("\n> ");
- lastcnum = tgm.tel_from;
- lasttype = tgm.tel_type;
- pr("%s ", telnames[(int)tgm.tel_type]);
+ pr("%s ", telnames[tgm.tel_type]);
if ((tgm.tel_type == TEL_NORM) ||
- (tgm.tel_type == TEL_ANNOUNCE)) {
+ (tgm.tel_type == TEL_ANNOUNCE) ||
+ (tgm.tel_type == TEL_BULLETIN))
pr("from %s, (#%d)", cname(tgm.tel_from), tgm.tel_from);
- }
- if (tgm.tel_type == TEL_BULLETIN) {
- pr("from %s, (#%d)", cname(tgm.tel_from), tgm.tel_from);
- }
pr(" dated %s", ctime(&tgm.tel_date));
- lastdate = tgm.tel_date;
}
teles++;
- skip:
- while (tgm.tel_length > 0) {
- nbytes = tgm.tel_length;
- if (nbytes > sizeof(buf) - 1)
- nbytes = sizeof(buf) - 1;
- (void)fread(buf, sizeof(s_char), nbytes, telfp);
- buf[nbytes] = 0;
- if (readit)
- prnf(buf);
- tgm.tel_length -= nbytes;
- }
+ res = tel_read_body(telfp, mbox, &tgm, print_sink, NULL);
+ if (res < 0)
+ break;
}
- p = NULL;
- if (teles > 0 && player->cnum == num) { /* } */
+ if (res < 0)
+ pr("\n> Mailbox corrupt, tell the deity.\n");
+
+ if (teles > 0 && player->cnum == num && may_delete) {
pr("\n");
if (teles == 1) {
if (chance(0.25))
else
p = "Can I throw away these old love letters? ";
}
- if (player->god && *kind == 't')
- p = getstarg(player->argp[2], p, buf);
- else
- p = getstarg(player->argp[1], p, buf);
+ p = getstarg(player->argp[1], p, buf);
if (p && *p == 'y') {
if ((filelen = fsize(fileno(telfp))) > size) {
pr("Wait a sec! A new %s has arrived...\n", kind);
/* force stdio to re-read tel file */
(void)fflush(telfp);
-#if !defined(_WIN32)
- (void)fseek(telfp, (long)size, L_SET);
-#else
(void)fseek(telfp, (long)size, SEEK_SET);
-#endif
size = filelen;
- (void)time(&now);
+ now = time(NULL);
goto more;
}
if (*kind == 'a') {
/* Here, we just re-open the file for "w" only,
and that will wipe the file clean automatically */
(void)fclose(telfp);
-#if !defined(_WIN32)
- telfp = fopen((char *)mbox, "w");
-#else
- telfp = fopen((char *)mbox, "wb");
-#endif
+ telfp = fopen(mbox, "wb");
}
}
}
pr("No %ss for %s at the moment...\n", kind, cname(num));
}
(void)fclose(telfp);
- if (np->nat_flags & NF_INFORM) {
- pr_inform(player, "\n");
- np->nat_tgms = 0;
- putnat(np);
+ if (*kind != 'a') {
+ if (np->nat_flags & NF_INFORM) {
+ pr_inform(player, "\n");
+ np->nat_tgms = 0;
+ putnat(np);
+ }
}
return RET_OK;
}
+
+/*
+ * Print first telegram in file FNAME.
+ */
+int
+show_first_tel(char *fname)
+{
+ FILE *fp;
+ int ret;
+ struct telstr tgm;
+
+ if ((fp = fopen(fname, "rb")) == NULL) {
+ if (errno == ENOENT)
+ return 0;
+ else {
+ logerror("Could not open %s.\n", fname);
+ return -1;
+ }
+ }
+
+ ret = tel_read_header(fp, fname, &tgm);
+ if (ret < 0)
+ goto out;
+ ret = tel_read_body(fp, fname, &tgm, print_sink, NULL);
+
+out:
+ fclose(fp);
+ return ret;
+}
+
+static int
+print_sink(char *chunk, size_t sz, void *arg)
+{
+ uprnf(chunk);
+ return 0;
+}