2 * Empire - A multi-player, client/server Internet based war game.
3 * Copyright (C) 1986-2011, Dave Pare, Jeff Bailey, Thomas Ruschak,
4 * Ken Stevens, Steve McClure, Markus Armbruster
6 * Empire is free software: you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation, either version 3 of the License, or
9 * (at your option) any later version.
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
16 * You should have received a copy of the GNU General Public License
17 * along with this program. If not, see <http://www.gnu.org/licenses/>.
21 * See files README, COPYING and CREDITS in the root of the source
22 * tree for related information and legal notices. It is expected
23 * that future projects/authors will amend these files as needed.
27 * rea.c: Read telegrams
29 * Known contributors to this file:
32 * Steve McClure, 1998-2000
33 * Ron Koenderink, 2005-2007
34 * Markus Armbruster, 2009
48 static int print_sink(char *, size_t, void *);
53 static char *telnames[] = {
54 /* must follow TEL_ defines in tel.h */
55 "Telegram", "Announcement", "BULLETIN", "Production Report"
59 char mbox_buf[256]; /* Maximum path length */
72 int num = player->cnum;
73 struct natstr *np = getnatp(player->cnum);
78 int may_delete = 1; /* may messages be deleted? */
82 if (*player->argp[0] == 'w') {
83 kind = "announcement";
84 if (player->argp[1] && isdigit(*player->argp[1])) {
85 delta = days(atoi(player->argp[1]));
89 then = np->nat_annotim;
93 if (player->god && player->argp[1] &&
94 (mineq(player->argp[1], "yes") == ME_MISMATCH) &&
95 (mineq(player->argp[1], "no") == ME_MISMATCH)) {
96 if ((n = natarg(player->argp[1], NULL)) < 0)
101 mbox = mailbox(mbox_buf, num);
102 clear_telegram_is_new(player->cnum);
105 if (!(telfp = fopen(mbox, "rb+"))) {
106 logerror("telegram file %s", mbox);
110 fseek(telfp, 0L, SEEK_SET);
111 size = fsize(fileno(telfp));
116 while ((res = tel_read_header(telfp, mbox, &tgm)) > 0) {
118 if ((!player->god && (getrejects(tgm.tel_from, np) & REJ_ANNO))
119 || tgm.tel_date < then) {
120 res = tel_read_body(telfp, mbox, &tgm, NULL, NULL);
126 if (first && *kind == 'a') {
127 pr("\nAnnouncements since %s", ctime(&then));
131 if (tgm.tel_type != lasttype || tgm.tel_from != lastcnum)
133 if (abs((int)(tgm.tel_date - (long)lastdate)) > TEL_SECONDS)
137 lastcnum = tgm.tel_from;
138 lasttype = tgm.tel_type;
139 pr("%s ", telnames[tgm.tel_type]);
140 if ((tgm.tel_type == TEL_NORM) ||
141 (tgm.tel_type == TEL_ANNOUNCE) ||
142 (tgm.tel_type == TEL_BULLETIN))
143 pr("from %s, (#%d)", cname(tgm.tel_from), tgm.tel_from);
144 pr(" dated %s", ctime(&tgm.tel_date));
145 lastdate = tgm.tel_date;
148 res = tel_read_body(telfp, mbox, &tgm, print_sink, NULL);
153 pr("\n> Mailbox corrupt, tell the deity.\n");
155 if (teles > 0 && player->cnum == num && may_delete) {
159 p = "Forget this one? ";
161 p = "Shall I burn it? ";
164 p = "Into the shredder, boss? ";
166 p = "Can I throw away these old love letters? ";
168 p = getstarg(player->argp[1], p, buf);
169 if (p && *p == 'y') {
170 if ((filelen = fsize(fileno(telfp))) > size) {
171 pr("Wait a sec! A new %s has arrived...\n", kind);
172 /* force stdio to re-read tel file */
174 (void)fseek(telfp, (long)size, SEEK_SET);
180 np->nat_annotim = now;
183 /* Here, we just re-open the file for "w" only,
184 and that will wipe the file clean automatically */
186 telfp = fopen(mbox, "wb");
191 if (player->cnum == num)
192 pr("No %ss for you at the moment...\n", kind);
194 pr("No %ss for %s at the moment...\n", kind, cname(num));
197 if (np->nat_flags & NF_INFORM) {
198 pr_inform(player, "\n");
206 * Print first telegram in file FNAME.
209 show_first_tel(char *fname)
214 if ((fp = fopen(fname, "rb")) == NULL) {
218 logerror("Could not open %s.\n", fname);
222 if (tel_read_header(fp, fname, &tgm) < 0)
224 if (tel_read_body(fp, fname, &tgm, print_sink, NULL) < 0)
231 print_sink(char *chunk, size_t sz, void *arg)