2 * Empire - A multi-player, client/server Internet based war game.
3 * Copyright (C) 1986-2000, Dave Pare, Jeff Bailey, Thomas Ruschak,
4 * Ken Stevens, Steve McClure
6 * This program 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 2 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, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
22 * See the "LEGAL", "LICENSE", "CREDITS" and "README" files for all the
23 * related information and legal notices. It is expected that any future
24 * projects/authors will amend these files as needed.
28 * rea.c: Read telegrams
30 * Known contributors to this file:
33 * Steve McClure, 1998-2000
57 static s_char *telnames[] = {
58 /* must follow TEL_ defines in tel.h */
59 "Telegram", "Announcement", "BULLETIN", "Production Report"
62 register s_char *mbox;
63 s_char mbox_buf[256]; /* Maximum path length */
77 int num = player->cnum;
78 struct natstr *np = getnatp(player->cnum);
85 memset(kind, 0, sizeof(kind));
88 if (*player->argp[0] == 'w') {
89 sprintf(kind, "announcement");
90 if (player->argp[1] && isdigit(*player->argp[1])) {
91 delta = days(atoi(player->argp[1]));
94 then = np->nat_annotim;
97 sprintf(kind, "telegram");
98 if (player->god && player->argp[1] != 0) {
99 if ((n = natarg(player->argp[1], "")) < 0)
103 mbox = mailbox(mbox_buf, num);
104 clear_telegram_is_new(player->cnum);
108 if ((telfp = fopen(mbox, "r+")) == 0) {
110 if ((telfp = fopen(mbox, "r+b")) == 0) {
112 logerror("telegram file %s", mbox);
117 size = fsize(fileno(telfp));
122 while (fread((s_char *)&tgm, sizeof(tgm), 1, telfp) == 1) {
124 if (tgm.tel_length < 0) {
125 logerror("bad telegram file header in %s", mbox);
128 if (tgm.tel_type < 0 || tgm.tel_type > TEL_LAST) {
129 pr("Bad telegram header. Skipping telegram...\n");
134 if (!player->god && (getrejects(tgm.tel_from, np) & REJ_ANNO)) {
138 if (tgm.tel_date < then) {
143 if (first && *kind == 'a') {
144 pr("\nAnnouncements since %s", ctime(&then));
148 if (tgm.tel_type != lasttype || tgm.tel_from != lastcnum)
150 if (abs((int)(tgm.tel_date - (long)lastdate)) > TEL_SECONDS)
154 lastcnum = tgm.tel_from;
155 lasttype = tgm.tel_type;
156 pr("%s ", telnames[(int)tgm.tel_type]);
157 if ((tgm.tel_type == TEL_NORM) ||
158 (tgm.tel_type == TEL_ANNOUNCE)) {
159 pr("from %s, (#%d)", cname(tgm.tel_from), tgm.tel_from);
161 if (tgm.tel_type == TEL_BULLETIN) {
162 pr("from %s, (#%d)", cname(tgm.tel_from), tgm.tel_from);
164 pr(" dated %s", ctime(&tgm.tel_date));
165 lastdate = tgm.tel_date;
169 while (tgm.tel_length > 0) {
170 nbytes = tgm.tel_length;
171 if (nbytes > sizeof(buf) - 1)
172 nbytes = sizeof(buf) - 1;
173 (void)fread(buf, sizeof(s_char), nbytes, telfp);
177 tgm.tel_length -= nbytes;
181 if (teles > 0 && player->cnum == num) { /* } */
185 p = "Forget this one? ";
187 p = "Shall I burn it? ";
190 p = "Into the shredder, boss? ";
192 p = "Can I throw away these old love letters? ";
194 if (player->god && *kind == 't')
195 p = getstarg(player->argp[2], p, buf);
197 p = getstarg(player->argp[1], p, buf);
198 if (p && *p == 'y') {
199 if ((filelen = fsize(fileno(telfp))) > size) {
200 pr("Wait a sec! A new %s has arrived...\n", kind);
201 /* force stdio to re-read tel file */
204 (void)fseek(telfp, (long)size, L_SET);
206 (void)fseek(telfp, (long)size, SEEK_SET);
213 np->nat_annotim = now;
216 /* Here, we just re-open the file for "w" only,
217 and that will wipe the file clean automatically */
220 telfp = fopen((char *)mbox, "w");
222 telfp = fopen((char *)mbox, "wb");
228 if (player->cnum == num)
229 pr("No %ss for you at the moment...\n", kind);
231 pr("No %ss for %s at the moment...\n", kind, cname(num));
234 if (np->nat_flags & NF_INFORM) {
235 pr_inform(player, "\n");