home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / PPPBCKP / SRC15B17.ZIP / NEWS.C < prev    next >
Text File  |  1997-03-22  |  41KB  |  1,473 lines
  1. #include <stdio.h>
  2. #include <stdarg.h>
  3. #include <ctype.h>
  4. #include <process.h>
  5. #include <string.h>
  6. #include <time.h>
  7. #include <stdlib.h>
  8. #include <conio.h>
  9. #include <errno.h>
  10. #include <fcntl.h>
  11. #include <io.h>
  12. #include <dos.h>
  13. #include <share.h>
  14. #include <dir.h>
  15. #include <alloc.h>
  16. #include <sys\stat.h>
  17. #include <math.h>
  18. #include "tcp.h"
  19. #include "pop.h"
  20. #include "net.h"
  21. #include "vardec.h"
  22. #include "version.h"
  23.  
  24. extern unsigned _stklen = 16384;
  25.  
  26. #define NGROUPS 100
  27. #define BIGSTR 4096
  28. #define STRING 512
  29. #define STR 129
  30. #define WAIT_TIME 10
  31. #define TRIES 100
  32. #define NUL '\0'
  33. #define LAST(s) s[strlen(s)-1]
  34. #define NNTP_PORT 119
  35. #define free_Mail_Socket(SOCK) if (SOCK!=NULL) {     \
  36.   farfree(SOCK->sock); farfree(SOCK); SOCK=NULL; }
  37.  
  38. tcp_Socket      nntpsock;
  39. configrec       syscfg;
  40. subboardrec    *subboards;
  41.  
  42. static int      NNTP_stat;
  43.  
  44. unsigned short  reply;
  45. unsigned long   reparticle;
  46.  
  47. char            serverhost[81],
  48.                 newsrc[81],
  49.                 fromline[121],
  50.                 smtppath[81];
  51. char            maindir[181],
  52.                 tmpdir[201],
  53.                 net_data[181];
  54. char           *version = "Freeware PPP News Retrieval "VERSION;
  55.  
  56. char            cur_gname[STRING],
  57.                 tpktname[121];
  58. char            msgto[STRING],
  59.                 msgarea[STRING];
  60. unsigned long   cur_numa,
  61.                 cur_first,
  62.                 cur_last;
  63.  
  64. unsigned long   cur_article;
  65. char            cur_articleid[STRING];
  66. char            cur_path[STRING],
  67.                 cur_from[STRING],
  68.                 cur_subject[STRING],
  69.                 cur_replyto[STRING];
  70. char            cur_newsgroups[STRING],
  71.                 cur_message_ID[STRING],
  72.                 cur_organization[STRING],
  73.                 cur_references[STRING],
  74.                 cur_lines[STR],
  75.                 cur_date[STRING];
  76. unsigned short  sy;
  77. int             instance,
  78.                 SOCK_DELAY;
  79.  
  80. typedef struct {
  81.     char            groupname[60];
  82.     unsigned long   lastread;
  83.     unsigned short  subtype;
  84. } GROUPFILEREC;
  85.  
  86. GROUPFILEREC   *grouprec;
  87. int             ngroups;
  88.  
  89. int             bogus = 0;
  90.  
  91. #define SOCK_READ_ERR(SOCK) sock_err:                                   \
  92.   switch (NNTP_stat) {                                                  \
  93.     case 1 :                                                            \
  94.       write_groups(1);                                                  \
  95.       log_it("\n ! Connection closed : %s", sockerr(NNTP_sock->sock));  \
  96.       free_Mail_Socket(SOCK);                                           \
  97.       fcloseall();                                                      \
  98.       cursor('R');                                                      \
  99.       exit(EXIT_FAILURE);                                               \
  100.     case -1:                                                            \
  101.       write_groups(1);                                                  \
  102.       log_it("\n ! Session error: %s", sockerr(NNTP_sock->sock));       \
  103.       free_Mail_Socket(SOCK);                                           \
  104.       fcloseall();                                                      \
  105.       cursor('R');                                                      \
  106.       exit(EXIT_FAILURE);                                               \
  107.   }                                                                     \
  108.  
  109. char *texth[] = {"th", "st", "nd", "rd"};
  110.  
  111. char *ordinal_text(int number)
  112. {
  113.   if (((number %= 100) > 9 && number < 20) || (number %= 10) > 3)
  114.     number = 0;
  115.   return texth[number];
  116. }
  117.  
  118. static unsigned cursize;
  119.  
  120. void cursor(int tmp)
  121. {
  122.   union REGS inregs, outregs;
  123.  
  124.   switch (toupper(tmp)) {
  125.     case 'S':                               /* Save */
  126.       inregs.h.ah = 3;
  127.       inregs.h.bh = 0;
  128.       int86(0x10, &inregs, &outregs);
  129.       cursize = outregs.x.cx;
  130.       break;
  131.     case 'R':                               /* Restore */
  132.       inregs.h.ah = 1;
  133.       inregs.x.cx = cursize;
  134.       int86(0x10, &inregs, &outregs);
  135.       break;
  136.     case 'H':                               /* Hide */
  137.       inregs.h.ah = 1;
  138.       inregs.h.ch = 0x20;
  139.       int86(0x10, &inregs, &outregs);
  140.       break;
  141.     case 'N':                               /* Normal */
  142.       inregs.h.ah = 1;
  143.       inregs.h.ch = 6;
  144.       inregs.h.cl = 7;
  145.       int86(0x10, &inregs, &outregs);
  146.       break;
  147.   }
  148. }
  149.  
  150. void backline(void)
  151. {
  152.   int i;
  153.  
  154.   fprintf(stderr, " ");
  155.   for (i = wherex(); i > 0; i--)
  156.     fprintf(stderr, "\b \b");
  157. }
  158.  
  159. void cd_to(char *s)
  160. {
  161.   char *s1;
  162.   int i, db;
  163.  
  164.   s1 = s;
  165.   i = strlen(s1) - 1;
  166.   db = (s1[i] == '\\');
  167.   if (i == 0)
  168.     db = 0;
  169.   if ((i == 2) && (s1[1] == ':'))
  170.     db = 0;
  171.   if (db)
  172.     s1[i] = 0;
  173.   chdir(s1);
  174.   if (s[1] == ':')
  175.     setdisk(s[0] - 'A');
  176. }
  177.  
  178. void get_dir(char *s, int be)
  179. {
  180.   strcpy(s, "X:\\");
  181.   s[0] = 'A' + getdisk();
  182.   getcurdir(0, s + 3);
  183.   if (be) {
  184.     if (s[strlen(s) - 1] != '\\')
  185.       strcat(s, "\\");
  186.   }
  187. }
  188.  
  189. int sh_open(char *path, int file_access, unsigned mode)
  190. {
  191.   int handle, count, share;
  192.   char drive[MAXDRIVE], dir[MAXDIR], file[MAXFILE], ext[MAXEXT];
  193.  
  194.   if ((file_access & O_RDWR) || (file_access & O_WRONLY)  || (mode & S_IWRITE))
  195.     share=SH_DENYRW;
  196.   else
  197.     share=SH_DENYWR;
  198.   handle=open(path,file_access|share,mode);
  199.   if (handle<0) {
  200.     count=1;
  201.     fnsplit(path,drive,dir,file,ext);
  202.     if (access(path,0)!=-1) {
  203.       delay(WAIT_TIME);
  204.       handle=open(path,file_access|share,mode);
  205.       while (((handle<0) && (errno==EACCES)) && (count<TRIES)) {
  206.         delay(WAIT_TIME);
  207.         count++;
  208.         handle=open(path,file_access|share,mode);
  209.       }
  210.     }
  211.   }
  212.   return(handle);
  213. }
  214.  
  215. int sh_open1(char *path, int access)
  216. {
  217.   unsigned fmode;
  218.  
  219.   fmode = 0;
  220.   if ((access & O_RDWR) || (access & O_WRONLY))
  221.     fmode |= S_IWRITE;
  222.   if ((access & O_RDWR) || (access & O_RDONLY))
  223.     fmode |= S_IREAD;
  224.   return (sh_open(path, access, fmode));
  225. }
  226.  
  227. long sh_lseek(int handle, long offset, int fromwhere)
  228. {
  229.   if (handle == -1) {
  230.     return (-1L);
  231.   }
  232.   return (lseek(handle, offset, fromwhere));
  233. }
  234.  
  235. FILE *fsh_open(char *path, char *fmode)
  236. {
  237.   FILE *f;
  238.   int count, share, md, fd;
  239.   char drive[MAXDRIVE], dir[MAXDIR], file[MAXFILE], ext[MAXEXT];
  240.  
  241.   share = SH_DENYWR;
  242.   md = 0;
  243.   if (((char *) _fstrchr(fmode, 'w')) != NULL) {
  244.     share = SH_DENYRD;
  245.     md = O_RDWR | O_CREAT | O_TRUNC;
  246.   } else
  247.     if (((char *) _fstrchr(fmode, 'a')) != NULL) {
  248.       share = SH_DENYRD;
  249.       md = O_RDWR | O_CREAT;
  250.     } else {
  251.       md = O_RDONLY;
  252.     }
  253.   if (((char *) _fstrchr(fmode, 'b')) != NULL) {
  254.     md |= O_BINARY;
  255.   }
  256.   if (((char *) _fstrchr(fmode, '+')) != NULL) {
  257.     md &= ~O_RDONLY;
  258.     md |= O_RDWR;
  259.     share = SH_DENYRD;
  260.   }
  261.   fd = open(path, md | share, S_IREAD | S_IWRITE);
  262.   if (fd < 0) {
  263.     count = 1;
  264.     fnsplit(path, drive, dir, file, ext);
  265.     if ((access(path, 0)) != -1) {
  266.       delay(WAIT_TIME);
  267.       fd = open(path, md | share, S_IREAD | S_IWRITE);
  268.       while (((fd < 0) && (errno == EACCES)) && (count < TRIES)) {
  269.         delay(WAIT_TIME);
  270.         count++;
  271.         fd = open(path, md | share, S_IREAD | S_IWRITE);
  272.       }
  273.     }
  274.   }
  275.   if (fd > 0) {
  276.     if (((char *) _fstrchr(fmode, 'a')) != NULL)
  277.       sh_lseek(fd, 0L, SEEK_END);
  278.     f = fdopen(fd, fmode);
  279.     if (!f) {
  280.       close(fd);
  281.     }
  282.   } else
  283.     f = 0;
  284.   return (f);
  285. }
  286.  
  287. int sh_close(int f)
  288. {
  289.   if (f != -1)
  290.     close(f);
  291.   return (-1);
  292. }
  293.  
  294. int sh_read(int handle, void *buf, unsigned len)
  295. {
  296.   if (handle == -1) {
  297.     return (-1);
  298.   }
  299.   return (read(handle, buf, len));
  300. }
  301.  
  302. int log_it(char *fmt,...)
  303. {
  304.   va_list v;
  305.   char fn[201];
  306.   FILE *fp;
  307.  
  308.   sprintf(fn, "%s\\NEWS.LOG", net_data);
  309.   if ((fp = fsh_open(fn, "at")) == NULL)
  310.     return 1;
  311.   va_start(v, fmt);
  312.   vfprintf(fp, fmt, v);
  313.   vfprintf(stderr, fmt, v);
  314.   va_end(v);
  315.   fclose(fp);
  316.   return 0;
  317. }
  318.  
  319.  
  320. long count_lines(char *s)
  321. {
  322.   FILE *fp;
  323.   char fn[201];
  324.   long int nl = 0;
  325.   const int NEWLINE = '\n';
  326.   int c;
  327.  
  328.   strcpy(fn, s);
  329.   fp = fsh_open(fn, "rt");
  330.   if (fp == NULL) {
  331.     printf("\n ■ Cannot open %s", fn);
  332.     return 0;
  333.   }
  334.   while ((c = getc(fp)) != EOF) {
  335.     if (c == NEWLINE)
  336.       ++nl;
  337.   }
  338.   fclose(fp);
  339.   return nl;
  340. }
  341.  
  342. static unsigned char *trimstr1(unsigned char *s)
  343. {
  344.   int i;
  345.   static char *whitespace = " \r\n\t";
  346.  
  347.   i = strlen(s);
  348.   while ((i > 0) && (_fstrchr(whitespace, s[i - 1])))
  349.     --i;
  350.   while ((i > 0) && (_fstrchr(whitespace, *s))) {
  351.     memmove(s, s + 1, --i);
  352.   }
  353.   s[i] = 0;
  354.   return (s);
  355. }
  356.  
  357. void usleep(void)
  358. {
  359.     tcp_tick(NULL);               /* occasionally process something */
  360. }
  361.  
  362. int exist(char *s)
  363. {
  364.   int i;
  365.   struct ffblk ff;
  366.  
  367.   i = findfirst(s, &ff, 0);
  368.   if (i)
  369.     return (0);
  370.   else
  371.     return (1);
  372. }
  373.  
  374. void rename_pend(char *dir, char *file)
  375. {
  376.   char s[181], s1[181];
  377.   int i, ok;
  378.  
  379.   sprintf(s, "%s\\%s", dir, file);
  380.   ok = 0;
  381.   for (i = 0; i < 1000 && !ok; i++) {
  382.     sprintf(s1, "%s\\P0-%u.NET", dir, i);
  383.     if (!exist(s1)) {
  384.       rename(s, s1);
  385.       ok = 1;
  386.     }
  387.   }
  388. }
  389.  
  390. void check_packets(void)
  391. {
  392.   char s[181];
  393.   int f1;
  394.   struct ffblk ff;
  395.  
  396.   sprintf(s, "%s\\P0-*.%3.3d", net_data, instance);
  397.   f1 = findfirst(s, &ff, 0);
  398.   while (f1 == 0) {
  399.     rename_pend(net_data, ff.ff_name);
  400.     f1 = findnext(&ff);
  401.   }
  402. }
  403.  
  404.  
  405. void err_exit(int exitlevel, char *fmt,...)
  406. {
  407.   va_list v;
  408.  
  409.   va_start(v, fmt);
  410.   vfprintf(stderr, fmt, v);
  411.   va_end(v);
  412.   check_packets();
  413.   cursor('R');
  414.   exit(exitlevel);
  415. }
  416.  
  417. void write_groups(int display)
  418. {
  419.   int i;
  420.   FILE *groupfp;
  421.  
  422.   groupfp = fsh_open(newsrc, "wt");
  423.   if (!groupfp) {
  424.     fprintf(stderr, "\n ■ Unable to open %s!", newsrc);
  425.     return;
  426.   }
  427.   else {
  428.     if (display)
  429.       fprintf(stderr, "\n ■ Updating pointers in %s...", newsrc);
  430.   }
  431.   for (i = 0; i < ngroups; i++) {
  432.     if ((grouprec[i].groupname[0]) && (stricmp(grouprec[i].groupname, "newsrc") != 0)) {
  433.       fprintf(groupfp, "%s %ld %hu\n", grouprec[i].groupname,
  434.                 grouprec[i].lastread, grouprec[i].subtype);
  435.     }
  436.   }
  437.   fclose(groupfp);
  438. }
  439.  
  440. void far *mallocx(unsigned long l)
  441. {
  442.   void      *x;
  443.   char huge *xx;
  444.  
  445.   if (!l)
  446.     l = 1;
  447.   x = farmalloc(l);
  448.   if (!x) {
  449.     fprintf(stderr, "\n ■ Unable to allocate %lu bytes of memory", l);
  450.     cursor('R');
  451.     exit(EXIT_FAILURE);
  452.   }
  453.   xx = (char huge *) x;
  454.   while (l) {
  455.     if (l > 32768L) {
  456.       memset((void *) xx, 0, 32768L);
  457.       l -= 32768L;
  458.       xx += 32768L;
  459.     } else {
  460.       memset((void *) xx, 0, l);
  461.       break;
  462.     }
  463.   }
  464.   return (x);
  465. }
  466.  
  467.  
  468. void far *malloca(unsigned long nbytes)
  469. {
  470.   void *buf;
  471.  
  472.   buf = malloc(nbytes + 1);
  473.   if (buf == NULL)
  474.     fprintf(stderr, "\n ■ Unable to allocate sufficient memory (%ld bytes)", nbytes);
  475.   return(buf);
  476. }
  477.  
  478. void nntp_shutdown(Mail_Socket *NNTP_sock)
  479. {
  480.   sock_printf(NNTP_sock->sock, "QUIT");
  481.   sock_close(NNTP_sock->sock);
  482.   sock_wait_closed(NNTP_sock->sock, SOCK_DELAY, NULL, &NNTP_stat);
  483. sock_err:
  484.   return;
  485. }
  486.  
  487.  
  488. void read_groups(void)
  489. {
  490.   int i = 0, ok;
  491.   unsigned short sn;
  492.   char *ss, fn[101], tmp[101];
  493.   FILE *groupfp;
  494.  
  495.   if (grouprec)
  496.     free((void *) grouprec);
  497.   grouprec = NULL;
  498.   ngroups = count_lines(newsrc);
  499.   if (!ngroups)
  500.     return;
  501.   grouprec = (GROUPFILEREC *) mallocx((ngroups+1) * sizeof(GROUPFILEREC));
  502.   if (!grouprec) {
  503.     ngroups=0;
  504.     fprintf(stderr, "\n ■ Unable to allocate memory for reading NEWS.RC!");
  505.     return;
  506.   }
  507.   groupfp = fsh_open(newsrc, "rt");
  508.   if (!groupfp) {
  509.     free((void *) grouprec);
  510.     ngroups=0;
  511.     return;
  512.   }
  513.   while (fgets(tmp, 120, groupfp)) {
  514.     if (tmp[0]) {
  515.       if (strncmpi(tmp, "newsrc", 6) == 0) {
  516.         strcpy(grouprec[i].groupname, "newsrc");
  517.         ++i;
  518.       } else {
  519.         ss = strtok(tmp, " ");
  520.         strcpy(grouprec[i].groupname, ss);
  521.         ss = strtok(NULL, " ");
  522.         if (ss != NULL) {
  523.           grouprec[i].lastread = atol(ss);
  524.           ss = strtok(NULL, " \n");
  525.           if (ss != NULL) {
  526.             grouprec[i].subtype = atoi(ss);
  527.             ++i;
  528.           }
  529.         }
  530.       }
  531.     }
  532.   }
  533.   ngroups=i;
  534.   fclose(groupfp);
  535.   for (i = 0; i < ngroups; i++) {
  536.     if (grouprec[i].subtype) {
  537.       sprintf(fn, "%s\\N%hu.NET", net_data, grouprec[i].subtype);
  538.       if (!exist(fn))
  539.         log_it("\n ■ N%u.NET does not exist in %s!", grouprec[i].subtype,
  540.                   net_data);
  541.       else {
  542.         groupfp = fsh_open(fn, "rt");
  543.         ok = 0;
  544.         while ((fgets(tmp, 25, groupfp)) && !ok) {
  545.           sn = atoi(tmp);
  546.           if (sn == 32767)
  547.             ok = 1;
  548.         }
  549.         fclose(groupfp);
  550.         if (!ok)
  551.           log_it("\n ■ @32767 not list as a subscriber in N%d.NET!",
  552.                     grouprec[i].subtype);
  553.       }
  554.     }
  555.   }
  556. }
  557.  
  558. int cgroup(Mail_Socket *NNTP_sock, char *s)
  559. {
  560.   static char _temp_buffer[STRING];
  561.  
  562.   sock_printf(NNTP_sock->sock, "GROUP %s", s);
  563.   sock_wait_input(NNTP_sock->sock, SOCK_DELAY, NULL, &NNTP_stat);
  564.   sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  565.   sscanf(_temp_buffer, "%hu %lu", &reply, &reparticle);
  566.   if (reply == 411)
  567.     return -1;
  568.   else
  569.     if (reply == 211) {
  570.       sscanf(_temp_buffer, "%hu %lu %lu %lu %s",
  571.                &reply, &cur_numa, &cur_first, &cur_last, &cur_gname);
  572.       return 0;
  573.     } else
  574.       log_it("\n ■ Unknown cgroup response : %s", _temp_buffer);
  575.   SOCK_READ_ERR(NNTP_sock);
  576.   return -1;
  577. }
  578.  
  579. int cstat(Mail_Socket *NNTP_sock, unsigned long i)
  580. {
  581.   char *p, *q;
  582.   static char _temp_buffer[STRING];
  583.  
  584.   sock_printf(NNTP_sock->sock, "STAT %lu", i);
  585.   sock_wait_input(NNTP_sock->sock, SOCK_DELAY, NULL, &NNTP_stat);
  586.   sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  587.   sscanf(_temp_buffer, "%hu %lu", &reply, &reparticle);
  588.   if (reply == 423)
  589.     return -1;
  590.   else
  591.     if (reply == 223) {
  592.       cur_article = reparticle;
  593.       p = _temp_buffer;
  594.       q = cur_articleid;
  595.       while ((p < _temp_buffer + STRING - 2) && (*p != '<'))
  596.         p++;
  597.       while ((p < _temp_buffer + STRING - 2) && (*p != '>'))
  598.         *q++ = *p++;
  599.       *q++ = '>';
  600.       *q++ = '\0';
  601.       return 0;
  602.     } else
  603.       log_it("\n ■ Unknown cstat error : %s", _temp_buffer);
  604.   SOCK_READ_ERR(NNTP_sock);
  605.   return -1;
  606. }
  607.  
  608. int qexit(Mail_Socket *NNTP_sock, int n)
  609. {
  610.   static char _temp_buffer[STR];
  611.  
  612.   if (n >= 10)
  613.     log_it("\n ! Fatal NEWS error: check configuration!");
  614.   fflush(stdout);
  615.   sock_printf(NNTP_sock->sock, "QUIT");
  616.   sock_wait_input(NNTP_sock->sock, SOCK_DELAY, NULL, &NNTP_stat);
  617.   sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  618.   if (*_temp_buffer != '2')
  619.     log_it("\n ■ Tried to quit host but failed");
  620.   cursor('R');
  621.   check_packets();
  622.   if (n) {
  623.     fcloseall();
  624.     free_Mail_Socket(NNTP_sock);
  625.     exit(n);
  626.   }
  627.   SOCK_READ_ERR(NNTP_sock);
  628.   return 0;
  629. }
  630.  
  631. void treat(char *str)
  632. {
  633.   char *obuf, *nbuf;
  634.  
  635.   if (*str) {
  636.     for (obuf = str, nbuf = str; *obuf && obuf; ++obuf) {
  637.       if (((*obuf >= 32) && (*obuf <= 126)) || (*obuf == 10)) {
  638.         *nbuf++ = *obuf;
  639.       }
  640.     }
  641.   }
  642. }
  643.  
  644. void name_packet(char *pktname)
  645. {
  646.   int ok;
  647.   struct stat info;
  648.   unsigned i;
  649.  
  650.   ok = 0;
  651.   for (i = 0; ((i < 1000) && (!ok)); i++) {
  652.     sprintf(pktname, "%s\\P0-%u.%3.3d", net_data, i, instance);
  653.     if (stat(pktname, &info) == -1)
  654.       ok = 1;
  655.   }
  656. }
  657.  
  658. int savebody(Mail_Socket *NNTP_sock, int cug, int *abort)
  659. {
  660.   char s1[21], s2[21];
  661.   unsigned int curpos, count, part;
  662.   char spin[26];
  663.   int i, place, len;
  664.   unsigned long msgsize;
  665.   struct stat statbuf;
  666.   FILE *tpktfp = NULL;
  667.   static char _temp_buffer[BIGSTR];
  668.  
  669.   strcpy(spin, "||//--\\\\");
  670.   place = count = 0;
  671.   len = strlen(spin);
  672.  
  673.   part = 1;
  674.   if (grouprec[cug].subtype == 0)
  675.     sprintf(tpktname, "%s\\NEWS%d.UUE", tmpdir, cug);
  676.   else {
  677.     sprintf(tpktname, "%s\\INPUT%d.MSG", tmpdir, part++);
  678.     if (stat(tpktname, &statbuf) == 0)
  679.       unlink(tpktname);
  680.   }
  681.   sock_printf(NNTP_sock->sock, "BODY %lu", cur_article);
  682.   sock_wait_input(NNTP_sock->sock, SOCK_DELAY, NULL, &NNTP_stat);
  683.   sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  684.   sscanf(_temp_buffer, "%hu %lu", &reply, &reparticle);
  685.   if (reply == 423)
  686.     return -1;
  687.   else {
  688.     if (reply == 222) {
  689.       if (grouprec[cug].subtype) {
  690.         if ((tpktfp = fsh_open(tpktname, "wt+")) == NULL) {
  691.           log_it("\n ■ Unable to create temporary packet %s", tpktname);
  692.           qexit(NNTP_sock, 1);
  693.         }
  694.       } else {
  695.         if (tpktfp)
  696.           fclose(tpktfp);
  697.         if ((tpktfp = fsh_open(tpktname, "at+")) == NULL) {
  698.           log_it("\n ■ Unable to create temporary packet %s", tpktname);
  699.           qexit(NNTP_sock, 1);
  700.         } else {
  701.           fputs("\n", tpktfp);
  702.           for (i = 0; i < 79; i++)
  703.             fputs("-", tpktfp);
  704.           fputs("\n", tpktfp);
  705.           sprintf(_temp_buffer, "Art  : %lu\n", cur_article);
  706.           fputs(_temp_buffer, tpktfp);
  707.           sprintf(_temp_buffer, "Date : %s\n", cur_date);
  708.           fputs(_temp_buffer, tpktfp);
  709.           sprintf(_temp_buffer, "From : %s\n", cur_replyto);
  710.           fputs(_temp_buffer, tpktfp);
  711.           sprintf(_temp_buffer, "Subj : %s\n\n", cur_subject);
  712.           fputs(_temp_buffer, tpktfp);
  713.         }
  714.       }
  715.       fnsplit(tpktname, NULL, NULL, s1, s2);
  716.       if (grouprec[cug].subtype)
  717.         fprintf(stderr, "\n ■ Receiving message, <Esc> aborts  [-]");
  718.       else
  719.         fprintf(stderr, "\n ■ Appending to %s%s, <Esc> aborts [-]", s1, s2);
  720.       msgsize = 0L;
  721.       curpos = 0L;
  722.       while (1) {
  723.         if (kbhit()) {
  724.           if (getch() == 27) {
  725.             fprintf(stderr, "\r ■ Abort detected... please wait until message is completed [-]");
  726.             *abort = 1;
  727.           }
  728.         }
  729.         sock_wait_input(NNTP_sock->sock, SOCK_DELAY, NULL, &NNTP_stat);
  730.         sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  731.         if (_temp_buffer[0] == '.' && _temp_buffer[1] == 0) {
  732.           break;
  733.         } else {
  734.           treat(_temp_buffer);
  735.           strcat(_temp_buffer, "\n");
  736.           curpos = strlen(_temp_buffer);
  737.           fputs(_temp_buffer, tpktfp);
  738.           msgsize += curpos;
  739.         }
  740.         if (count++ > 5) {
  741.           fprintf(stderr, "\b\b%c]", spin[place++]);
  742.           place %= len;
  743.           count = 0;
  744.         }
  745.         if ((msgsize > 30000L) && grouprec[cug].subtype) {
  746.           if (tpktfp)
  747.             fclose(tpktfp);
  748.           sprintf(tpktname, "%s\\INPUT%d.MSG", tmpdir, part++);
  749.           if (stat(tpktname, &statbuf) == 0)
  750.             unlink(tpktname);
  751.           if ((tpktfp = fsh_open(tpktname, "wt+")) == 0) {
  752.             log_it("\n ■ Unable to create temporary packet %s", tpktname);
  753.             qexit(NNTP_sock, 1);
  754.           }
  755.           backline();
  756.           fprintf(stderr, "\r ■ Breaking into %d%s part [ ]", (
  757.                     part - 1), ordinal_text(part - 1));
  758.           msgsize = 0L;
  759.         }
  760.       }
  761.       if (tpktfp)
  762.         fclose(tpktfp);
  763.       fprintf(stderr, "\b\bX]");
  764.       return 1;
  765.     }
  766.   }
  767.   if (tpktfp)
  768.     fclose(tpktfp);
  769.   SOCK_READ_ERR(NNTP_sock);
  770.   return 0;
  771. }
  772.  
  773. int extract(char *to, char *key, char *from)
  774. {
  775.   if (!strnicmp(from, key, strlen(key))) {
  776.     from += strlen(key);
  777.     while (*from == ' ')
  778.       from++;
  779.     strcpy(to, from);
  780.     return 1;
  781.   } else
  782.     return 0;
  783. }
  784.  
  785.  
  786. int chead(Mail_Socket *NNTP_sock)
  787. {
  788.   static char _temp_buffer[BIGSTR];
  789.  
  790.   *cur_path = 0;
  791.   *cur_from = 0;
  792.   *cur_replyto = 0;
  793.   *cur_subject = 0;
  794.   *cur_newsgroups = 0;
  795.   *cur_message_ID = 0;
  796.   *cur_references = 0;
  797.   *cur_date = 0;
  798.  
  799.   sock_printf(NNTP_sock->sock, "HEAD %lu", cur_article);
  800.   sock_wait_input(NNTP_sock->sock, SOCK_DELAY, NULL, &NNTP_stat);
  801.   sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  802.   sscanf(_temp_buffer, "%hu %lu", &reply, &reparticle);
  803.   if (reply == 423)
  804.     return -1;
  805.   else
  806.     if (reply == 221)
  807.       while (1) {
  808.         sock_wait_input(NNTP_sock->sock, SOCK_DELAY, NULL, &NNTP_stat);
  809.         sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  810.         if (strlen(_temp_buffer) > 1024)
  811.           _temp_buffer[1024] = 0;
  812.         if (_temp_buffer[0] == '.' && _temp_buffer[1] == 0) {
  813.           if (cur_replyto[0] == 0)
  814.             strcpy(cur_replyto, cur_from);
  815.           return 0;
  816.         }
  817.         extract(cur_path, "Path:", _temp_buffer) ||
  818.         extract(cur_from, "From:", _temp_buffer) ||
  819.         extract(cur_subject, "Subject:", _temp_buffer) ||
  820.         extract(cur_replyto, "Reply-To:", _temp_buffer) ||
  821.         extract(cur_newsgroups, "Newsgroups:", _temp_buffer) ||
  822.         extract(cur_organization, "Organization:", _temp_buffer) ||
  823.         extract(cur_message_ID, "Message-ID:", _temp_buffer) ||
  824.         extract(cur_references, "References:", _temp_buffer) ||
  825.         extract(cur_lines, "Lines:", _temp_buffer) ||
  826.         extract(cur_date, "Date:", _temp_buffer);
  827.       } else {
  828.         log_it("\n ■ Unknown chead error : %s", _temp_buffer);
  829.       }
  830.   SOCK_READ_ERR(NNTP_sock);
  831.   return -1;
  832. }
  833.  
  834. Mail_Socket *netsocket(char *host)
  835. {
  836.   Mail_Socket *NNTP_sock = NULL;
  837.   longword h;
  838.   static char _temp_buffer[STR];
  839.  
  840.   if (!(h = resolve(host)))
  841.     err_exit(EXIT_FAILURE, "\n ■ Could not resolve %s... aborting", host);
  842.   if ((NNTP_sock = (Mail_Socket *) farmalloc(sizeof(Mail_Socket))) == NULL)
  843.     err_exit(EXIT_FAILURE,"\n ■ Insufficient memory for socket... aborting.");
  844.   if ((NNTP_sock->sock = (tcp_Socket *) farmalloc(sizeof(tcp_Socket))) == NULL) {
  845.     farfree(NNTP_sock);
  846.     err_exit(EXIT_FAILURE, "\n ■ Insufficient memory for socket... aborting.");
  847.   }
  848.   if (!tcp_open(NNTP_sock->sock, 0, h, NNTP_PORT, NULL)) {
  849.     free_Mail_Socket(NNTP_sock);
  850.     err_exit(EXIT_FAILURE, "\n ■ TCP socket open failed... aborting");
  851.   }
  852.   sock_mode(NNTP_sock->sock, TCP_MODE_ASCII);
  853.   sock_wait_established(NNTP_sock->sock, SOCK_DELAY, NULL, &NNTP_stat);
  854.   sock_wait_input(NNTP_sock->sock, SOCK_DELAY, NULL, &NNTP_stat);
  855.   sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  856.   sscanf(_temp_buffer, "%hu %lu", &reply, &reparticle);
  857.   switch (reply) {
  858.     case 200:
  859.       log_it("\n ■ Connection to %s accepted...", host);
  860.       break;
  861.    case 502:
  862.       free_Mail_Socket(NNTP_sock);
  863.       err_exit(EXIT_FAILURE, "\n ■ Connection to %s refused... try again later.", host);
  864.       break;
  865.     case 503:
  866.       free_Mail_Socket(NNTP_sock);
  867.       err_exit(EXIT_FAILURE, "\n ■ NNTP service unavailable. Connection to %s refused.", host);
  868.       break;
  869.     default:
  870.       free_Mail_Socket(NNTP_sock);
  871.       err_exit(EXIT_FAILURE, "\n ■ Unknown NNTP error. Connection to %s failed.", host);
  872.       break;
  873.   }
  874.   SOCK_READ_ERR(NNTP_sock);
  875.   return (NNTP_sock);
  876. }
  877.  
  878. int cnext(Mail_Socket *NNTP_sock)
  879. {
  880.   char *p, *q;
  881.   static char _temp_buffer[STRING];
  882.  
  883.   sock_printf(NNTP_sock->sock, "NEXT");
  884.   sock_wait_input(NNTP_sock->sock, SOCK_DELAY, NULL, &NNTP_stat);
  885.   sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  886.   sscanf(_temp_buffer, "%hu %lu", &reply, &reparticle);
  887.   if (reply == 421)
  888.     return -1;
  889.   else
  890.     if (reply == 223) {
  891.     cur_article = reparticle;
  892.     p = _temp_buffer;
  893.     q = cur_articleid;
  894.     while ((p < _temp_buffer + STRING - 2) && (*p != '<'))
  895.       p++;
  896.     while ((p < _temp_buffer + STRING - 2) && (*p != '>'))
  897.       *q++ = *p++;
  898.     *q++ = '>';
  899.     *q++ = '\0';
  900.     return 0;
  901.   } else {
  902.     log_it("\n ■ Unknown cnext error : %s", _temp_buffer);
  903.   }
  904.   SOCK_READ_ERR(NNTP_sock);
  905.   return -1;
  906. }
  907.  
  908. int saveactive(Mail_Socket *NNTP_sock, char *fn)
  909. {
  910.   char s[181], group[256], act;
  911.   unsigned long to, from;
  912.   int count;
  913.   FILE *fp;
  914.   static char _temp_buffer[BIGSTR];
  915.  
  916.   if ((fp = fsh_open(fn, "w")) == NULL) {
  917.     perror(fn);
  918.     return -1;
  919.   }
  920.   sock_printf(NNTP_sock->sock, "LIST");
  921.   sock_wait_input(NNTP_sock->sock, SOCK_DELAY, NULL, &NNTP_stat);
  922.   sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  923.   sscanf(_temp_buffer, "%hu %lu", &reply, &reparticle);
  924.   if (reply == 215) {
  925.     count = 0;
  926.     while (1) {
  927.       if (count++ % 25 == 0)
  928.         fprintf(stderr, "\b\b\b\b\b\b\b%-7d", count);
  929.       sock_wait_input(NNTP_sock->sock, SOCK_DELAY, NULL, &NNTP_stat);
  930.       sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  931.       if (_temp_buffer[0] == '.' && _temp_buffer[1] == 0)
  932.         break;
  933.       sscanf(_temp_buffer, "%s %lu %lu %c", group, &to, &from, &act);
  934.       sprintf(s, "%s %lu\n", group, to);
  935.         fprintf(fp, s);
  936.     }
  937.     log_it("\n ■ %d total newsgroups available on %s", count, serverhost);
  938.     fclose(fp);
  939.     return 0;
  940.   } else
  941.     log_it("\n ■ Unknown saveactive error : %s", _temp_buffer);
  942.   SOCK_READ_ERR(NNTP_sock);
  943.   fclose(fp);
  944.   return -1;
  945. }
  946.  
  947. int checkx(int cug)
  948. {
  949.   char *ptr, *ptr2, *ptr3, buf[256];
  950.   int i;
  951.  
  952.   if (cug == 0)
  953.     return 0;
  954.   ptr = strtok(cur_organization, "*");
  955.   trimstr1(ptr);
  956.   if (strcmp(ptr, syscfg.systemname) == 0) {
  957.     log_it("\n ■ Skipping post from %s", syscfg.systemname);
  958.     return 1;
  959.   }
  960.   ptr = cur_newsgroups;
  961.   while (*ptr == ' ')
  962.     ptr++;
  963.   while (1) {
  964.     if (*ptr == 0)
  965.       break;
  966.     if (*ptr == ',')
  967.       ptr++;
  968.     while (*ptr == ' ')
  969.       ptr++;
  970.     ptr2 = ptr;
  971.     ptr3 = buf;
  972.     while (*ptr2 != 0 && *ptr2 != ',')
  973.       *ptr3++ = *ptr2++;
  974.     *ptr3 = 0;
  975.     while (*(--ptr3) == ' ')
  976.       *ptr3 = 0;
  977.     ptr = ptr2;
  978.     for (i = 0; i < cug; i++) {
  979.       if (strcmp(buf, grouprec[i].groupname) == 0) {
  980.         log_it("\n ■ Skipping message - crossposted to %s",
  981.                   grouprec[i].groupname);
  982.         return 1;
  983.       }
  984.     }
  985.   }
  986.   return 0;
  987. }
  988.  
  989. void good_name(char *name)
  990. {
  991.   char *ss;
  992.   int i;
  993.  
  994.   trimstr1(name);
  995.   if ((strcspn(name," ")==strlen(name)) && (strcspn(name,"(")==strlen(name)))
  996.     if (_fstrchr(name, '@') != NULL)
  997.       return;
  998.   if (strcspn(name, "<") != strlen(name)) {
  999.     ss = strtok(name, "<");
  1000.     if (ss)
  1001.       ss = strtok(NULL, ">");
  1002.     strcpy(name, ss);
  1003.     if (name[0] == 0)
  1004.       strcpy(name, "Unknown");
  1005.     return;
  1006.   }
  1007.   if ((i = strcspn(name, "(")) != strlen(name)) {
  1008.     if (name[i - 1] == 32) {
  1009.       ss = strtok(name, " ");
  1010.       if (ss)
  1011.         strcpy(name, ss);
  1012.     } else {
  1013.       ss = strtok(name, "(");
  1014.       if (ss)
  1015.         strcpy(name, ss);
  1016.     }
  1017.     if (name[0] == 0)
  1018.       strcpy(name, "Unknown");
  1019.     return;
  1020.   }
  1021. }
  1022.  
  1023. int postnews(Mail_Socket *NNTP_sock, int cug)
  1024. {
  1025.   char s[181], s1[12], s2[5], fn[201], *ss;
  1026.   int f1, nlines, in_header, len, tlen;
  1027.   FILE *fp;
  1028.   static char _temp_buffer[STR];
  1029.   long clock;
  1030.   struct ffblk ff;
  1031.  
  1032.   sprintf(fn, "%s\\OUTBOUND\\%hu.*", net_data, grouprec[cug].subtype);
  1033.   f1 = findfirst(fn, &ff, 0);
  1034.   if (f1 != 0) {
  1035.     log_it("\n ■ No outbound news articles to post...");
  1036.     return 1;
  1037.   }
  1038.   while (f1 == 0) {
  1039.     sock_printf(NNTP_sock->sock, "POST");
  1040.     sock_wait_input(NNTP_sock->sock, SOCK_DELAY, NULL, &NNTP_stat);
  1041.     sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  1042.     if (*_temp_buffer != '3') {
  1043.       if (atoi(_temp_buffer) == 440)
  1044.         log_it("\n ■ No posting allowed to %s!", grouprec[cug].groupname);
  1045.       else
  1046.         log_it("\n ■ Remote error: %s", _temp_buffer);
  1047.       return 0;
  1048.     }
  1049.     fprintf(stderr, "\n ■ Posting article to %s\n", grouprec[cug].groupname);
  1050.     sprintf(s, "%s\\OUTBOUND\\%s", net_data, ff.ff_name);
  1051.     fp = fsh_open(s, "rb");
  1052.     nlines = 0;
  1053.     while (fgets(_temp_buffer, 120, fp) != NULL) {
  1054.       if (_temp_buffer[0] == '.' && _temp_buffer[1] == 0) {
  1055.         _temp_buffer[1] = '.';
  1056.         _temp_buffer[2] = 0;
  1057.       }
  1058.       tlen = 0;
  1059.       len = strlen(_temp_buffer);
  1060.       while (tlen < len) {
  1061.         if (!tcp_tick(NNTP_sock->sock)) {
  1062.           fclose(fp);
  1063.           fprintf(stderr, "\n ■ Connection reset by host");
  1064.           return 1;
  1065.         }
  1066.         tlen += sock_fastwrite(NNTP_sock->sock, &_temp_buffer[tlen], len-tlen);
  1067.       }
  1068.       backline();
  1069.       fprintf(stderr, "\r ■ Lines sent : %d", ++nlines);
  1070.     }
  1071.     fclose(fp);
  1072.     sock_printf(NNTP_sock->sock, ".\n");
  1073.     fprintf(stderr, "\n ■ Awaiting acknowledgement - may take several minutes...");
  1074.     log_it("\n ■ Server response : ");
  1075.     sock_wait_input(NNTP_sock->sock, 180, NULL, &NNTP_stat);
  1076.     sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  1077.     log_it("%s", _temp_buffer);
  1078.     if (*_temp_buffer != '2') {
  1079.       if (atoi(_temp_buffer) == 441) {
  1080.         ss = strtok(_temp_buffer, " ");
  1081.         ss = strtok(NULL, " ");
  1082.         if (atoi(ss) == 435)
  1083.           unlink(s);
  1084.         fnsplit(s, NULL, NULL, s1, s2);
  1085.         log_it("\n ■ %s%s not accepted by server - nothing posted", s1, s2);
  1086.       } else
  1087.         log_it("\n ■ Remote error: %s", _temp_buffer);
  1088.     } else {
  1089.       if (unlink(s) == 0)
  1090.         log_it("\n ■ Deleted sent message - %s", s);
  1091.     }
  1092.     f1 = findnext(&ff);
  1093.   }
  1094.   SOCK_READ_ERR(NNTP_sock);
  1095.   return 0;
  1096. }
  1097.  
  1098. int get_subtype(int sub)
  1099. {
  1100.   int ok;
  1101.   char fn[181], s[81], net_name[21], *ss;
  1102.   FILE *fp;
  1103.  
  1104.   sprintf(fn, "%sSUBS.XTR", syscfg.datadir);
  1105.   fp = fsh_open(fn, "r");
  1106.   if (!fp)
  1107.     return 0;
  1108.   ok = 0;
  1109.   while (fgets(s, 80, fp)) {
  1110.     if (s[0] == '!') {
  1111.       if (sub == atoi(&s[1]))
  1112.         ok = 1;
  1113.     }
  1114.     if (ok && (s[0] == '$')) {
  1115.       ss = strtok(s, " ");
  1116.       strcpy(net_name, &ss[1]);
  1117.       ss = strtok(NULL, " ");
  1118.       fclose(fp);
  1119.       if ((stricmp(net_name, "FILENET") == 0) && (isdigit(ss[0])))
  1120.         return atoi(ss);
  1121.       else
  1122.         return 0;
  1123.     }
  1124.   }
  1125.   fclose(fp);
  1126.   return 0;
  1127. }
  1128.  
  1129. int max_on_sub(int cug)
  1130. {
  1131.   int i, f, max_subs, num_subs, stype;
  1132.   char s[121];
  1133.  
  1134.   if (grouprec[cug].subtype == 0)
  1135.     return 0;
  1136.   max_subs = syscfg.max_subs;
  1137.   subboards = (subboardrec *) mallocx(max_subs * sizeof(subboardrec));
  1138.   sprintf(s, "%sSUBS.DAT", syscfg.datadir);
  1139.   f = sh_open1(s, O_RDONLY | O_BINARY);
  1140.   if (f < 0) {
  1141.     fprintf(stderr, "\n ■ %s NOT FOUND", s);
  1142.     return 0;
  1143.   }
  1144.   num_subs = (sh_read(f, subboards, (max_subs * sizeof(subboardrec))))/
  1145.                 sizeof(subboardrec);
  1146.   f = sh_close(f);
  1147.   for (i = 0; i < num_subs; i++) {
  1148.     fprintf(stderr, "\b\b\b\b%-4d", i);
  1149.     stype = get_subtype(i);
  1150.     if (stype && (grouprec[cug].subtype == stype)) {
  1151.       if (subboards)
  1152.         free(subboards);
  1153.       fprintf(stderr, "\b\b\b\b%hu messages.", subboards[i].maxmsgs);
  1154.       return subboards[i].maxmsgs;
  1155.     }
  1156.   }
  1157.   if (subboards)
  1158.     free(subboards);
  1159.   return 0;
  1160. }
  1161.  
  1162. int getnews(char *hostname)
  1163. {
  1164.   int f1, nup, nug, cug, abort, ok, done, new_articles, max_articles, parts;
  1165.   char *p, fn[201], mailname[121], reline[121], s[21], s1[21], pktname[121];
  1166.   char orig_subj[STRING];
  1167.   unsigned int text_len;
  1168.   net_header_rec nh;
  1169.   struct date dt;
  1170.   struct time tm;
  1171.   struct ffblk ff;
  1172.   static FILE *fp;
  1173.   Mail_Socket *nntp_sock;
  1174.   static char _temp_buffer[STR];
  1175.  
  1176.   abort = cug = 0;
  1177.   sock_init();
  1178.   nntp_sock = netsocket(hostname);
  1179.  
  1180.   if (stricmp(grouprec[0].groupname, "newsrc") == 0) {
  1181.     grouprec[0].groupname[0] = 0;
  1182.     write_groups(0);
  1183.     if (grouprec)
  1184.       free(grouprec);
  1185.     sprintf(fn, "%s\\NEWSRC", net_data);
  1186.     log_it("\n ■ Creating newsgroup list : %s...         ", fn);
  1187.     saveactive(nntp_sock, fn);
  1188.     nntp_shutdown(nntp_sock);
  1189.     free_Mail_Socket(nntp_sock);
  1190.     return 0;
  1191.   }
  1192.   nug = nup = 1;
  1193.   while ((cug < ngroups) && (!abort)) {
  1194.     if (kbhit()) {
  1195.       if (getch() == 27) {
  1196.         log_it("\n ■ Aborting news retrieval session...");
  1197.         if (fp)
  1198.           fclose(fp);
  1199.         grouprec[cug].lastread = cur_article;
  1200.         write_groups(1);
  1201.         nntp_shutdown(nntp_sock);
  1202.         free_Mail_Socket(nntp_sock);
  1203.         return 1;
  1204.       }
  1205.     }
  1206.     if (nup) {
  1207.       nup = 0;
  1208.       if (grouprec[cug].subtype) {
  1209.         if (fp)
  1210.           fclose(fp);
  1211.         write_groups(0);
  1212.         name_packet(pktname);
  1213.         if ((fp = fsh_open(pktname, "wb")) == NULL) {
  1214.           log_it("\n ■ Unable to create %s!", pktname);
  1215.           qexit(nntp_sock, 1);
  1216.         } else {
  1217.           fnsplit(pktname, NULL, NULL, s, s1);
  1218.           fprintf(stderr, "\n ■ Creating new packet : %s%s", s, s1);
  1219.         }
  1220.       } else {
  1221.         if (fp) {
  1222.           fclose(fp);
  1223.         }
  1224.       }
  1225.     }
  1226.     if (nug) {
  1227.       cur_article = ++grouprec[cug].lastread;
  1228.       nug = 0;
  1229.       if (cgroup(nntp_sock, grouprec[cug].groupname)) {
  1230.         log_it("\n ■ %s is an invalid or deleted newsgroup...",
  1231.                  grouprec[cug].groupname);
  1232.         grouprec[cug].groupname[0] = 0;
  1233.         if (++bogus >= 10) {
  1234.           log_it("\n ■ More than 10 invalid newsgroups... possible NEWS.RC error!");
  1235.           qexit(nntp_sock, 10);
  1236.         }
  1237.         nug = 1;
  1238.         continue;
  1239.       }
  1240.       log_it("\n ■ Requesting %s... ", grouprec[cug].groupname);
  1241.       if (grouprec[cug].lastread < cur_first)
  1242.         grouprec[cug].lastread = cur_first;
  1243.       if (grouprec[cug].lastread > cur_last) {
  1244.         grouprec[cug].lastread = cur_last;
  1245.         log_it("no new articles.");
  1246.         nug = 1;
  1247.       } else {
  1248.         new_articles = cur_last - grouprec[cug].lastread + 1;
  1249.         log_it("%lu new article%s.        ",
  1250.                  cur_last - grouprec[cug].lastread + 1,
  1251.                  new_articles == 1 ? "" : "s");
  1252.         if (new_articles > 100) {
  1253.           fprintf(stderr, "\n ■ Checking maximum articles allowed on sub :     ");
  1254.           max_articles = max_on_sub(cug);
  1255.           if (max_articles && (new_articles > max_articles)) {
  1256.             log_it("\n ■ Requesting most recent %d articles", max_articles);
  1257.             grouprec[cug].lastread = cur_last - max_articles;
  1258.           }
  1259.         }
  1260.       }
  1261.       postnews(nntp_sock, cug);
  1262.       if (!nug) {
  1263.         if (cur_numa == 0) {
  1264.           log_it("\n ■ No articles available in %s...",
  1265.                    grouprec[cug].groupname);
  1266.           nug = 1;
  1267.           continue;
  1268.         } else {
  1269.           if (cstat(nntp_sock, grouprec[cug].lastread) &&
  1270.               cstat(nntp_sock, cur_last))
  1271.             nug = 1;
  1272.         }
  1273.       }
  1274.     } else {
  1275.       if (cnext(nntp_sock)) {
  1276.         fprintf(stderr, "\n ■ End of new articles in %s",
  1277.                   grouprec[cug].groupname);
  1278.         nug = 1;
  1279.         write_groups(1);
  1280.       }
  1281.     }
  1282.     if (!nug) {
  1283.       if ((!chead(nntp_sock)) || (!checkx(cug))) {
  1284.         if (cur_subject[0]) {
  1285.           treat(cur_subject);
  1286.           if (strlen(cur_subject) > 65)
  1287.             cur_subject[65] = '\0';
  1288.         } else
  1289.           strcpy(cur_subject, "No subject");
  1290.         strcpy(orig_subj, cur_subject);
  1291.         if (cur_from[0]) {
  1292.           treat(cur_from);
  1293.           if (strlen(cur_from) > 45)
  1294.             cur_from[45] = 0;
  1295.         } else
  1296.           strcpy(cur_from, "Unknown");
  1297.         if (cur_replyto[0]) {
  1298.           /* treat(cur_replyto);     */
  1299.           /* good_name(cur_replyto); */
  1300.           if (strlen(cur_replyto) > 45)
  1301.             cur_replyto[45] = 0;
  1302.         }
  1303.         strncpy(_temp_buffer, orig_subj, 55);
  1304.         _temp_buffer[55] = '\0';
  1305.         fprintf(stderr, "\n ■ [%lu/%lu] : %s ", cur_article,
  1306.                   cur_last, _temp_buffer);
  1307.         ok = savebody(nntp_sock, cug, &abort);
  1308.         if (ok && grouprec[cug].subtype) {
  1309.           strcpy(msgarea, grouprec[cug].groupname);
  1310.           sprintf(msgto, "All");
  1311.           sprintf(fn, "%s\\INPUT*.MSG", tmpdir);
  1312.           done = 1;
  1313.           parts = 0;
  1314.           if (findfirst(fn, &ff, 0) == 0) {
  1315.             parts = 1;
  1316.             done = 0;
  1317.           }
  1318.           while (!done) {
  1319.             sprintf(fn, "%s\\%s", tmpdir, ff.ff_name);
  1320.             f1 = sh_open1(fn, O_RDONLY | O_BINARY);
  1321.             text_len = (unsigned int) filelength(f1);
  1322.             if (text_len > 32000L) {
  1323.               fprintf(stderr, "\n ■ Truncating %ld bytes from input file",
  1324.                         text_len - 32000L);
  1325.               text_len = 32000L;
  1326.             }
  1327.             p = (char *) malloca(32767);
  1328.             if (!p) {
  1329.               log_it("\n ■ Insufficient memory to read entire message");
  1330.               qexit(nntp_sock, 1);
  1331.             }
  1332.             sh_read(f1, (void *) p, text_len);
  1333.             sh_close(f1);
  1334.             nh.tosys = sy;
  1335.             nh.touser = 0;
  1336.             nh.fromsys = 32767L;
  1337.             nh.fromuser = 0;
  1338.             nh.main_type = main_type_pre_post;
  1339.             nh.minor_type = grouprec[cug].subtype;
  1340.             nh.list_len = 0;
  1341.             gettime(&tm);
  1342.             getdate(&dt);
  1343.             nh.daten = dostounix(&dt, &tm);
  1344.             nh.method = 0;
  1345.             if (parts > 1) {
  1346.               sprintf(_temp_buffer, "%d%s ", parts, ordinal_text(parts));
  1347.               strcat(_temp_buffer, orig_subj);
  1348.               strcpy(cur_subject, _temp_buffer);
  1349.               if (strlen(cur_subject) > 72)
  1350.                 cur_subject[72] = '\0';
  1351.               else
  1352.                 cur_subject[strlen(cur_subject)] = '\0';
  1353.             }
  1354.             nh.length = text_len + strlen(cur_subject) + 1;
  1355.             strncpy(mailname, cur_replyto, 46);
  1356.             strcat(mailname, "\r\n");
  1357.             nh.length += strlen(mailname);
  1358.             nh.length += 24 + 2;
  1359.             strncpy(reline, cur_articleid, 60);
  1360.             sprintf(cur_articleid, "RE: %s\r\n\r\n", reline);
  1361.             nh.length += strlen(cur_articleid);
  1362.             fwrite(&nh, sizeof(net_header_rec), 1, fp);
  1363.             fwrite(cur_subject, sizeof(char), strlen(cur_subject) +1, fp);
  1364.             fwrite(mailname, sizeof(char), strlen(mailname), fp);
  1365.             strncpy(_temp_buffer, ctime(&(time_t) nh.daten), 24);
  1366.             _temp_buffer[24] = '\0';
  1367.             strcat(_temp_buffer, "\r\n");
  1368.             fwrite(_temp_buffer, sizeof(char), strlen(_temp_buffer), fp);
  1369.             sprintf(_temp_buffer, "%s\n\n", cur_articleid);
  1370.             fwrite(cur_articleid, sizeof(char), strlen(cur_articleid), fp);
  1371.             fwrite(p, sizeof(char), text_len, fp);
  1372.             if (p)
  1373.               free(p);
  1374.             unlink(fn);
  1375.             if (findnext(&ff) == 0) {
  1376.               done = 0;
  1377.               ++parts;
  1378.             } else
  1379.               done = 1;
  1380.           }
  1381.         }
  1382.         grouprec[cug].lastread = cur_article;
  1383.       } else
  1384.         grouprec[cug].lastread = cur_article + 1;
  1385.       if ((filelength(fileno(fp)) > 250000L) && grouprec[cug].subtype)
  1386.         nup = 1;
  1387.     }
  1388.     if (nug) {
  1389.       ++cug;
  1390.       if ((grouprec[cug - 1].subtype == 0) && (grouprec[cug].subtype)) {
  1391.         nup = 1;
  1392.       } else {
  1393.         if ((grouprec[cug - 1].subtype) && (grouprec[cug].subtype == 0)) {
  1394.           if (fp) {
  1395.             fclose(fp);
  1396.           }
  1397.         }
  1398.       }
  1399.     }
  1400.   }
  1401.   if (fp)
  1402.     fclose(fp);
  1403.   if (abort)
  1404.     log_it("\n ■ Session aborted from keyboard");
  1405.   write_groups(1);
  1406.   nntp_shutdown(nntp_sock);
  1407.   free_Mail_Socket(nntp_sock);
  1408.   return 0;
  1409. }
  1410.  
  1411. void main(int argc, char *argv[])
  1412. {
  1413.   int f;
  1414.   char s[201], fn[201], *ss;
  1415.   FILE *fp;
  1416.   struct tm *time_now;
  1417.   time_t some;
  1418.  
  1419.   cursor('S');
  1420.   cursor('H');
  1421.   fprintf(stderr, "\n ■ %s", version);
  1422.   if (argc != 4)
  1423.     err_exit(EXIT_FAILURE, "\n ■ Invalid arguments for %s", argv[0]);
  1424.   ss = getenv("WWIV_INSTANCE");
  1425.   if (ss) {
  1426.     instance = atoi(ss);
  1427.     if ((instance <= 0) || (instance >= 1000)) {
  1428.       log_it("\n ■ WWIV_INSTANCE set to %d.  Can only be 1..999!", instance);
  1429.       instance = 1;
  1430.     }
  1431.   } else
  1432.     instance = 1;
  1433.   SOCK_DELAY = 120;
  1434.   get_dir(maindir, 0);
  1435.   strcpy(net_data, argv[1]);
  1436.   strcpy(serverhost, argv[2]);
  1437.   time(&some);
  1438.   time_now = localtime(&some);
  1439.   strftime(s, 80, "\n\nNEWS session beginning on %A, %B %d, %Y at %H:%M %p",
  1440.              time_now);
  1441.   sprintf(fn, "%s\\NEWS.LOG", net_data);
  1442.   if ((fp = fsh_open(fn, "at")) != NULL) {
  1443.     fprintf(fp, s);
  1444.     fclose(fp);
  1445.   }
  1446.   sprintf(tmpdir, "%s\\SPOOL", net_data);
  1447.   sy = atoi(argv[3]);
  1448.   sprintf(s, "%s\\CONFIG.DAT", maindir);
  1449.   f = sh_open1(s, O_RDONLY | O_BINARY);
  1450.   if (f < 0)
  1451.     err_exit(EXIT_FAILURE, "\n ■ %s NOT FOUND.", s);
  1452.   sh_read(f, (void *) (&syscfg), sizeof(configrec));
  1453.   sh_close(f);
  1454.   sprintf(newsrc, "%s\\NEWS.RC", net_data);
  1455.   read_groups();
  1456.   if (ngroups == 0)
  1457.     err_exit(EXIT_FAILURE, "\n ■ Unable to access newsgroup file: %s!", newsrc);
  1458.   if (stricmp(grouprec[0].groupname, "newsrc") == 0)
  1459.     log_it("\n ■ Retrieving current newsgroup listing from %s",
  1460.               serverhost);
  1461.   else
  1462.     log_it("\n ■ %d newsgroup%s defined in %s", ngroups,
  1463.               ngroups == 1 ? "" : "s", strlwr(newsrc));
  1464.   if (getnews(serverhost))
  1465.     err_exit(EXIT_FAILURE, "\n ■ Exiting program.");
  1466.   if (grouprec)
  1467.     free(grouprec);
  1468.   grouprec = NULL;
  1469.   cd_to(maindir);
  1470.   log_it("\n ■ NEWS succesfully completed processing %d newsgroups", ngroups);
  1471.   err_exit(EXIT_SUCCESS, "\n ■ Normal program termination");
  1472. }
  1473.