]> git.pond.sub.org Git - empserver/blobdiff - src/lib/commands/rea.c
Indented with src/scripts/indent-emp.
[empserver] / src / lib / commands / rea.c
index d65b38e09877dc621e07c795596739deaabc062e..a6bb6de53d419d3fc27b7d2c00689b6d4a1d75c5 100644 (file)
 int
 rea(void)
 {
 int
 rea(void)
 {
-       extern  s_char *telnames[];
-       register s_char *p;
-       register s_char *mbox;
-       s_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;
-       int     filelen;
-       s_char  kind[80];
-       int     n;
-       int     num = player->cnum;
-       struct natstr *np = getnatp(player->cnum);
-       time_t  now;    
-       time_t  then;
-       time_t  delta;
-       int     first = 1;
-       int     readit;
+    extern s_char *telnames[];
+    register s_char *p;
+    register s_char *mbox;
+    s_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;
+    int filelen;
+    s_char kind[80];
+    int n;
+    int num = player->cnum;
+    struct natstr *np = getnatp(player->cnum);
+    time_t now;
+    time_t then;
+    time_t delta;
+    int first = 1;
+    int readit;
 
 
-        bzero(kind,80);
-       (void) time(&now);
+    bzero(kind, 80);
+    (void)time(&now);
 
 
-        if (*player->argp[0] == 'w') {
-               sprintf(kind,"announcement");
-               if (player->argp[1] && isdigit(*player->argp[1])) {
-                       delta = days(atoi(player->argp[1]));
-                       then = now - delta;
-               } 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)
-                               return RET_SYN;
-                       num = n;
-               }
-               mbox = mailbox(mbox_buf, num);
-               clear_telegram_is_new(player->cnum);
+    if (*player->argp[0] == 'w') {
+       sprintf(kind, "announcement");
+       if (player->argp[1] && isdigit(*player->argp[1])) {
+           delta = days(atoi(player->argp[1]));
+           then = now - delta;
+       } 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)
+               return RET_SYN;
+           num = n;
        }
        }
-       
+       mbox = mailbox(mbox_buf, num);
+       clear_telegram_is_new(player->cnum);
+    }
+
 #if !defined(_WIN32)
 #if !defined(_WIN32)
-       if ((telfp = fopen(mbox, "r+")) == 0) {
+    if ((telfp = fopen(mbox, "r+")) == 0) {
 #else
 #else
-       if ((telfp = fopen(mbox, "r+b")) == 0) {
+    if ((telfp = fopen(mbox, "r+b")) == 0) {
 #endif
 #endif
-               logerror("telegram file %s", mbox);
-               return RET_FAIL;
+       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;
+       }
+       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;
+           }
        }
        }
-       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;
-               }
-               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 (first && *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) {
-                       pr("\n> ");
-                       lastcnum = tgm.tel_from;
-                       lasttype = tgm.tel_type;
-                       pr("%s ", telnames[(int)tgm.tel_type]);
-                       if ((tgm.tel_type == TEL_NORM) ||
-                           (tgm.tel_type == TEL_ANNOUNCE)) {
-                               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;
-               }
+       if (first && *kind == 'a') {
+           pr("\nAnnouncements since %s", ctime(&then));
+           first = 0;
        }
        }
-       p=NULL;
-       if (teles > 0 && player->cnum == num) { /* } */
-               pr("\n");
-               if (teles == 1) {
-                       if (chance(0.25))
-                               p = "Forget this one? ";
-                       else
-                               p = "Shall I burn it? ";
-               } else {
-                       if (chance(0.25))
-                               p = "Into the shredder, boss? ";
-                       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);
-               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);
+       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) {
+           pr("\n> ");
+           lastcnum = tgm.tel_from;
+           lasttype = tgm.tel_type;
+           pr("%s ", telnames[(int)tgm.tel_type]);
+           if ((tgm.tel_type == TEL_NORM) ||
+               (tgm.tel_type == TEL_ANNOUNCE)) {
+               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;
+       }
+    }
+    p = NULL;
+    if (teles > 0 && player->cnum == num) {    /* } */
+       pr("\n");
+       if (teles == 1) {
+           if (chance(0.25))
+               p = "Forget this one? ";
+           else
+               p = "Shall I burn it? ";
+       } else {
+           if (chance(0.25))
+               p = "Into the shredder, boss? ";
+           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);
+       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)
 #if !defined(_WIN32)
-                               (void) fseek(telfp, (long)size, L_SET);
+               (void)fseek(telfp, (long)size, L_SET);
 #else
 #else
-                               (void) fseek(telfp, (long)size, SEEK_SET);
+               (void)fseek(telfp, (long)size, SEEK_SET);
 #endif
 #endif
-                               size = filelen;
-                               (void) time(&now);
-                               goto more;
-                       }
-                       if (*kind == 'a') {
-                               np->nat_annotim = now;
-                               putnat(np);
-                       } else {
-                         /* Here, we just re-open the file for "w" only,
-                            and that will wipe the file clean automatically */
-                         (void)fclose(telfp);
+               size = filelen;
+               (void)time(&now);
+               goto more;
+           }
+           if (*kind == 'a') {
+               np->nat_annotim = now;
+               putnat(np);
+           } else {
+               /* Here, we just re-open the file for "w" only,
+                  and that will wipe the file clean automatically */
+               (void)fclose(telfp);
 #if !defined(_WIN32)
 #if !defined(_WIN32)
-                         telfp = fopen((char *)mbox, "w");
+               telfp = fopen((char *)mbox, "w");
 #else
 #else
-                         telfp = fopen((char *)mbox, "wb");
+               telfp = fopen((char *)mbox, "wb");
 #endif
 #endif
-                       }
-               }
-       }
-       if (teles <= 0) {
-               if(player->cnum == num)
-                       pr("No %ss for you at the moment...\n",kind);
-               else
-                        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);
-       }
-       return RET_OK;
+    }
+    if (teles <= 0) {
+       if (player->cnum == num)
+           pr("No %ss for you at the moment...\n", kind);
+       else
+           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);
+    }
+    return RET_OK;
 }
 }
-