home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / PPPBCKP / SRC / SRC15B97.ZIP / NEWS.CPP < prev    next >
Text File  |  1998-11-08  |  60KB  |  2,214 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 <malloc.h>
  16. #include <mem.h>
  17. #include <sys\stat.h>
  18. #include <math.h>
  19.  
  20. extern "C" {
  21.   #include "tcp.h"
  22. }
  23.  
  24. #include "net.h"
  25. #include "vardec.h"
  26. #include "version.h"
  27. #include "retcode.h"
  28.  
  29. #define SIZE_OF_EMULATOR 415
  30. #define FILL_CHAR 0xFF
  31.  
  32. extern unsigned _stklen = 12000U;
  33.  
  34. #define SHARE_LEVEL 10
  35. #define WAIT_TIME 10
  36. #define TRIES 100
  37.  
  38. struct ts_os_ver {
  39.   int maj;
  40.   int min;
  41. };
  42.  
  43. #define DOS     0
  44. #define OS2     1
  45. #define DV      2
  46. #define WINS    3
  47. #define WIN3    4
  48.  
  49. #define MT_DOS  0x01
  50. #define MT_OS2  0x02
  51. #define MT_DV   0x04
  52. #define MT_WINS 0x08
  53. #define MT_WIN3 0x10
  54.  
  55. struct ts_os_ver t_os_ver[5];
  56. int t_os_type;
  57. int t_os;
  58. char t_os_name[41];
  59.  
  60. #define BIGSTR 2048
  61. #define STRING 513
  62. #define STR 129
  63. #define WAIT_TIME 10
  64. #define TRIES 100
  65. #define NUL '\0'
  66. #define LAST(s) s[strlen(s)-1]
  67. #define NNTP_PORT 119
  68.  
  69. typedef struct {
  70.   tcp_Socket *sock;
  71. } Mail_Socket;
  72.  
  73. configrec syscfg;
  74.  
  75. char *version = "Freeware PPP Project News Retrieval " VERSION;
  76.  
  77. static char _temp_buffer[STRING];
  78. char POPNAME[25], POPDOMAIN[45];
  79. char cur_path[STRING], cur_from[STRING], cur_subject[STRING], cur_replyto[STRING];
  80. char cur_newsgroups[STRING], cur_message_ID[STRING], cur_organization[STRING];
  81. char cur_articleid[STRING], cur_references[STRING], cur_lines[STR], cur_date[STRING];
  82. static char maindir[MAXPATH], net_data[MAXPATH];
  83. int instance, crossposts, newsrc_upd, binxpost, MOREINFO, QUIET;
  84. static int spooltodisk, NNTP_stat;
  85. unsigned long cur_daten, reparticle, cur_numa, cur_first, cur_last;
  86. unsigned short reply, sy;
  87. static char NEWSNAME[STRING], NEWSPASS[STRING];
  88.  
  89. typedef struct {
  90.   char groupname[60];
  91.   unsigned long lastread;
  92.   char subtype[8];
  93. } GROUPFILEREC;
  94.  
  95. GROUPFILEREC *grouprec;
  96. int ngroups;
  97.  
  98. #define SOCK_READ_ERR(PROTOCOL) sock_err:                                 \
  99.   switch (PROTOCOL##_stat) {                                              \
  100.     case 1 :                                                              \
  101.       fprintf(stderr, "\n ! Session error : %s",                          \
  102.           sockerr(PROTOCOL##_sock->sock));                                \
  103.       if (grouprec != NULL) write_groups(1);                              \
  104.       if (PROTOCOL##_sock->sock != NULL)                                  \
  105.         farfree(PROTOCOL##_sock->sock);                                   \
  106.       if (PROTOCOL##_sock != NULL)                                        \
  107.         farfree(PROTOCOL##_sock);                                         \
  108.       fcloseall();                                                        \
  109.       cursor('R');                                                        \
  110.       exit(EXIT_FAILURE);                                                 \
  111.     case -1:                                                              \
  112.       fprintf(stderr, "\n ! Timeout : %s",                                \
  113.           sockerr(PROTOCOL##_sock->sock));                                \
  114.       if (grouprec != NULL) write_groups(1);                              \
  115.       if (PROTOCOL##_sock->sock != NULL)                                  \
  116.         farfree(PROTOCOL##_sock->sock);                                   \
  117.       if (PROTOCOL##_sock != NULL)                                        \
  118.         farfree(PROTOCOL##_sock);                                         \
  119.       fcloseall();                                                        \
  120.       cursor('R');                                                        \
  121.       exit(EXIT_FAILURE);                                                 \
  122.   }                                                                       \
  123.  
  124. char *texth[] = {"th", "st", "nd", "rd"};
  125.  
  126. char *ordinal_text(int number)
  127. {
  128.   if (((number %= 100) > 9 && number < 20) || (number %= 10) > 3)
  129.     number = 0;
  130.   return texth[number];
  131. }
  132.  
  133. static unsigned cursize;
  134.  
  135. void cursor(int tmp)
  136. {
  137.   union REGS inregs, outregs;
  138.  
  139.   switch (toupper(tmp)) {
  140.     case 'S':                               /* Save */
  141.       inregs.h.ah = 3;
  142.       inregs.h.bh = 0;
  143.       int86(0x10, &inregs, &outregs);
  144.       cursize = outregs.x.cx;
  145.       break;
  146.     case 'R':                               /* Restore */
  147.       inregs.h.ah = 1;
  148.       inregs.x.cx = cursize;
  149.       int86(0x10, &inregs, &outregs);
  150.       break;
  151.     case 'H':                               /* Hide */
  152.       inregs.h.ah = 1;
  153.       inregs.h.ch = 0x20;
  154.       int86(0x10, &inregs, &outregs);
  155.       break;
  156.     case 'N':                               /* Normal */
  157.       inregs.h.ah = 1;
  158.       inregs.h.ch = 6;
  159.       inregs.h.cl = 7;
  160.       int86(0x10, &inregs, &outregs);
  161.       break;
  162.   }
  163. }
  164.  
  165. int detect_multitask(void)
  166. {
  167.   union REGS t_regs;
  168.  
  169.   t_os_type = 0;
  170.   t_os = 0;
  171.  
  172.   if (_osmajor < 10) {
  173.     t_os_ver[DOS].maj = _osmajor;
  174.     t_os_ver[DOS].min = _osminor;
  175.     t_os_type = t_os_type | MT_DOS;
  176.     strcpy(t_os_name, "DOS");
  177.   } else {
  178.     t_os_type = t_os_type | MT_OS2;
  179.     t_os_ver[OS2].maj = _osmajor / 10;
  180.     t_os_ver[OS2].min = _osminor;
  181.     if (t_os_ver[OS2].maj == 3) {
  182.       strcpy(t_os_name, "OS/2 Warp");
  183.     } else {
  184.       strcpy(t_os_name, "OS/2");
  185.     }
  186.   }
  187.  
  188.   t_regs.x.ax = 0x4680;
  189.   int86(0x2F, &t_regs, &t_regs);
  190.  
  191.   if (t_regs.x.ax == 0x0000) {
  192.     t_os_ver[WINS].maj = 3;
  193.     t_os_ver[WINS].min = 0;
  194.     t_os_type = t_os_type | MT_WINS;
  195.   } else {
  196.     t_regs.x.ax = 0x1600;
  197.     int86(0x2F, &t_regs, &t_regs);
  198.     switch (t_regs.h.al) {
  199.       case 0x00:
  200.       case 0x80:
  201.       case 0x01:
  202.       case 0xFF:
  203.         break;
  204.       default:
  205.         t_os_type = t_os_type | MT_WIN3;
  206.         t_os_ver[WIN3].maj = t_regs.h.al;
  207.         t_os_ver[WIN3].min = t_regs.h.ah;
  208.         if (t_os_ver[WIN3].maj == 4) {
  209.           strcpy(t_os_name, "Windows 95");
  210.           t_os_ver[WIN3].maj = t_os_ver[WIN3].maj - 3;
  211.         } else {
  212.           strcpy(t_os_name, "Windows");
  213.         }
  214.         break;
  215.     }
  216.   }
  217.  
  218.   t_regs.x.cx = 0x4445;
  219.   t_regs.x.dx = 0x5351;
  220.   t_regs.x.ax = 0x2B01;
  221.  
  222.   intdos(&t_regs, &t_regs);
  223.   if (t_regs.h.al != 0xFF) {
  224.     t_os_type = t_os_type | MT_DV;
  225.     t_os_ver[DV].maj = t_regs.h.bh;
  226.     t_os_ver[DV].min = t_regs.h.bl;
  227.     strcpy(t_os_name, "DESQview");
  228.   }
  229.   if (t_os_type & MT_DOS)
  230.     t_os = DOS;
  231.   if (t_os_type & MT_DV)
  232.     t_os = DV;
  233.   if (t_os_type & MT_WINS)
  234.     t_os = WINS;
  235.   if (t_os_type & MT_WIN3)
  236.     t_os = WIN3;
  237.   if (t_os_type & MT_OS2)
  238.     t_os = OS2;
  239.   return (t_os - 1);
  240. }
  241.  
  242. void giveup_timeslice(void)
  243. {
  244.   union REGS t_regs;
  245.  
  246.   switch (t_os) {
  247.     case DOS:
  248.       break;
  249.     case OS2:
  250.     case WIN3:
  251.     case WINS:
  252.       t_regs.x.ax = 0x1680;
  253.       int86(0x2f, &t_regs, &t_regs);
  254.       break;
  255.     case DV:
  256.       t_regs.x.ax = 0x1000;
  257.       int86(0x15, &t_regs, &t_regs);
  258.       break;
  259.   }
  260. }
  261.  
  262.  
  263. void output(char *fmt,...)
  264. {
  265.   va_list v;
  266.   char s[255];
  267.  
  268.   va_start(v, fmt);
  269.   vsprintf(s, fmt, v);
  270.   va_end(v);
  271.   fputs(s, stderr);
  272. }
  273.  
  274. void backline(void)
  275. {
  276.   int i;
  277.  
  278.   output(" ");
  279.   for (i = wherex(); i > 0; i--)
  280.     output("\b \b");
  281. }
  282.  
  283. void cd_to(char *s)
  284. {
  285.   char *s1;
  286.   int i, db;
  287.  
  288.   s1 = s;
  289.   i = strlen(s1) - 1;
  290.   db = (s1[i] == '\\');
  291.   if (i == 0)
  292.     db = 0;
  293.   if ((i == 2) && (s1[1] == ':'))
  294.     db = 0;
  295.   if (db)
  296.     s1[i] = 0;
  297.   chdir(s1);
  298.   if (s[1] == ':')
  299.     setdisk(s[0] - 'A');
  300. }
  301.  
  302. void get_dir(char *s, int be)
  303. {
  304.   strcpy(s, "X:\\");
  305.   s[0] = 'A' + getdisk();
  306.   getcurdir(0, s + 3);
  307.   if (be) {
  308.     if (s[strlen(s) - 1] != '\\')
  309.       strcat(s, "\\");
  310.   }
  311. }
  312.  
  313. int sh_write(int handle, void *buffer, unsigned long length)
  314. {
  315.   if (handle == -1) {
  316.     return (-1);
  317.   }
  318.   return (write(handle, buffer, (unsigned) length));
  319. }
  320.  
  321. int sh_open(char *path, int file_access, unsigned fmode)
  322. {
  323.   int handle, count, share;
  324.   char drive[MAXDRIVE], dir[MAXDIR], file[MAXFILE], ext[MAXEXT];
  325.  
  326.   if ((file_access & O_RDWR) || (file_access & O_WRONLY) || (fmode & S_IWRITE)) {
  327.     share = SH_DENYRW;
  328.   } else {
  329.     share = SH_DENYWR;
  330.   }
  331.   handle = open(path, file_access | share, fmode);
  332.   if (handle < 0) {
  333.     count = 1;
  334.     fnsplit(path, drive, dir, file, ext);
  335.     if (access(path, 0) != -1) {
  336.       delay(WAIT_TIME);
  337.       handle = open(path, file_access | share, fmode);
  338.       while (((handle < 0) && (errno == EACCES)) && (count < TRIES)) {
  339.         if (count % 2)
  340.           delay(WAIT_TIME);
  341.         else
  342.           giveup_timeslice();
  343.         count++;
  344.         handle = open(path, file_access | share, fmode);
  345.       }
  346.     }
  347.   }
  348.   return (handle);
  349. }
  350.  
  351. int sh_open1(char *path, int access)
  352. {
  353.   unsigned fmode;
  354.  
  355.   fmode = 0;
  356.   if ((access & O_RDWR) || (access & O_WRONLY))
  357.     fmode |= S_IWRITE;
  358.   if ((access & O_RDWR) || (access & O_RDONLY))
  359.     fmode |= S_IREAD;
  360.   return (sh_open(path, access, fmode));
  361. }
  362.  
  363. int sh_close(int f)
  364. {
  365.   if (f != -1)
  366.     close(f);
  367.   return (-1);
  368. }
  369.  
  370. int sh_read(int handle, void *buf, unsigned length)
  371. {
  372.   if (handle == -1) {
  373.     return (-1);
  374.   }
  375.   return (read(handle, buf, length));
  376. }
  377.  
  378. long sh_lseek(int handle, long offset, int fromwhere)
  379. {
  380.   if (handle == -1) {
  381.     return (-1L);
  382.   }
  383.   return (lseek(handle, offset, fromwhere));
  384. }
  385.  
  386. FILE *fsh_open(char *path, char *fmode)
  387. {
  388.   FILE *f;
  389.   int count, share, md, fd;
  390.   char drive[MAXDRIVE], dir[MAXDIR], file[MAXFILE], ext[MAXEXT];
  391.  
  392.   share = SH_DENYWR;
  393.   md = 0;
  394.   if (((char *) _fstrchr(fmode, 'w')) != NULL) {
  395.     share = SH_DENYRD;
  396.     md = O_RDWR | O_CREAT | O_TRUNC;
  397.   } else
  398.     if (((char *) _fstrchr(fmode, 'a')) != NULL) {
  399.     share = SH_DENYRD;
  400.     md = O_RDWR | O_CREAT;
  401.   } else {
  402.     md = O_RDONLY;
  403.   }
  404.   if (((char *) _fstrchr(fmode, 'b')) != NULL) {
  405.     md |= O_BINARY;
  406.   }
  407.   if (((char *) _fstrchr(fmode, '+')) != NULL) {
  408.     md &= ~O_RDONLY;
  409.     md |= O_RDWR;
  410.     share = SH_DENYRD;
  411.   }
  412.   fd = open(path, md | share, S_IREAD | S_IWRITE);
  413.   if (fd < 0) {
  414.     count = 1;
  415.     fnsplit(path, drive, dir, file, ext);
  416.     if ((access(path, 0)) != -1) {
  417.       delay(WAIT_TIME);
  418.       fd = open(path, md | share, S_IREAD | S_IWRITE);
  419.       while (((fd < 0) && (errno == EACCES)) && (count < TRIES)) {
  420.         delay(WAIT_TIME);
  421.         count++;
  422.         fd = open(path, md | share, S_IREAD | S_IWRITE);
  423.       }
  424.     }
  425.   }
  426.   if (fd > 0) {
  427.     if (((char *) _fstrchr(fmode, 'a')) != NULL)
  428.       sh_lseek(fd, 0L, SEEK_END);
  429.     f = fdopen(fd, fmode);
  430.     if (!f) {
  431.       close(fd);
  432.     }
  433.   } else
  434.     f = 0;
  435.   return (f);
  436. }
  437.  
  438. size_t fsh_write(void *ptr, size_t size, size_t n, FILE * stream)
  439. {
  440.  
  441.   if (stream == NULL) {
  442.     return (0);
  443.   }
  444.   return (fwrite(ptr, size, n, stream));
  445. }
  446.  
  447. char *stristr(char *string, char *pattern)
  448. {
  449.   char *pptr, *sptr, *start;
  450.   unsigned int slen, plen;
  451.  
  452.   for (start = string, pptr = pattern, slen = strlen(string),
  453.        plen = strlen(pattern); slen >= plen; start++, slen--) {
  454.     while (toupper(*start) != toupper(*pattern)) {
  455.       start++;
  456.       slen--;
  457.       if (slen < plen)
  458.         return (NULL);
  459.     }
  460.     sptr = start;
  461.     pptr = pattern;
  462.     while (toupper(*sptr) == toupper(*pptr)) {
  463.       sptr++;
  464.       pptr++;
  465.       if ('\0' == *pptr)
  466.         return (start);
  467.     }
  468.   }
  469.   return (NULL);
  470. }
  471.  
  472. unsigned char *trimstr1(unsigned char *s)
  473. {
  474.   int i;
  475.   static char *whitespace = " \r\n\t";
  476.  
  477.   i = strlen(s);
  478.   while ((i > 0) && (_fstrchr(whitespace, s[i - 1])))
  479.     --i;
  480.   while ((i > 0) && (_fstrchr(whitespace, *s))) {
  481.     memmove(s, s + 1, --i);
  482.   }
  483.   s[i] = 0;
  484.   return (s);
  485. }
  486.  
  487.  
  488.  
  489. int log_it(int display, char *fmt,...)
  490. {
  491.   va_list v;
  492.   char s[255], fn[MAXPATH];
  493.   FILE *fp;
  494.  
  495.   sprintf(fn, "%sNEWS.LOG", net_data);
  496.   if ((fp = fsh_open(fn, "at")) == NULL)
  497.     return 1;
  498.   va_start(v, fmt);
  499.   vsprintf(s, fmt, v);
  500.   va_end(v);
  501.   if (display)
  502.     fputs(s, stderr);
  503.   fputs("\r\n", fp);
  504.   trimstr1(s);
  505.   fputs(s, fp);
  506.   fclose(fp);
  507.   return 0;
  508. }
  509.  
  510.  
  511. int count_lines(char *s)
  512. {
  513.   FILE *fp;
  514.   char fn[201];
  515.   unsigned int nl = 0;
  516.   const int NEWLINE = '\n';
  517.   int c;
  518.  
  519.   strcpy(fn, s);
  520.   if ((fp = fsh_open(fn, "rt")) == NULL) {
  521.     output("\n ■ Cannot open %s", fn);
  522.     return 0;
  523.   }
  524.   while ((c = getc(fp)) != EOF) {
  525.     if (c == NEWLINE)
  526.       ++nl;
  527.   }
  528.   fclose(fp);
  529.   return nl;
  530. }
  531.  
  532. int exist(char *s)
  533. {
  534.   int i;
  535.   struct ffblk ff;
  536.  
  537.   i = findfirst(s, &ff, 0);
  538.   if (i)
  539.     return (0);
  540.   else
  541.     return (1);
  542. }
  543.  
  544. void rename_pend(char *file)
  545. {
  546.   char s[181], s1[181];
  547.   int i, ok;
  548.  
  549.   sprintf(s, "%s%s", net_data, file);
  550.   ok = 0;
  551.   for (i = 0; i < 1000 && !ok; i++) {
  552.     sprintf(s1, "%sP0-%u.NET", net_data, i);
  553.     if (!exist(s1)) {
  554.       rename(s, s1);
  555.       ok = 1;
  556.     }
  557.   }
  558. }
  559.  
  560. void check_packets(void)
  561. {
  562.   char s[MAXPATH], s1[MAXPATH];
  563.   int f1;
  564.   struct ffblk ff;
  565.  
  566.   sprintf(s, "%sP0-*.%3.3d", net_data, instance);
  567.   f1 = findfirst(s, &ff, 0);
  568.   while (f1 == 0) {
  569.     if (ff.ff_fsize == 0L) {
  570.       sprintf(s1, "%s%s", net_data, ff.ff_name);
  571.       if (unlink(s1) != 0)
  572.         rename_pend(ff.ff_name);
  573.     } else
  574.       rename_pend(ff.ff_name);
  575.     f1 = findnext(&ff);
  576.   }
  577. }
  578.  
  579.  
  580. void write_groups(int display)
  581. {
  582.   int i;
  583.   char fn[160];
  584.   FILE *groupfp;
  585.  
  586.   sprintf(fn, "%sNEWS.RC", net_data);
  587.  
  588.   if ((groupfp = fsh_open(fn, "wt+")) == NULL) {
  589.     output("\n ■ Unable to open %s!", fn);
  590.     return;
  591.   } else {
  592.     if ((display) && (MOREINFO) && (!QUIET))
  593.       output("\n ■ Updating message pointers..");
  594.   }
  595.   for (i = 0; i < ngroups; i++)
  596.     if ((*grouprec[i].groupname) && (stricmp(grouprec[i].groupname, "newsrc") != 0))
  597.       fprintf(groupfp, "%s %lu %s\n", grouprec[i].groupname,
  598.               grouprec[i].lastread, grouprec[i].subtype);
  599.   if (groupfp != NULL)
  600.     fclose(groupfp);
  601. }
  602.  
  603. void nntp_shutdown(Mail_Socket * NNTP_sock)
  604. {
  605.   if (NNTP_sock->sock != NULL) {
  606.     sock_puts(NNTP_sock->sock, "QUIT");
  607.     sock_close(NNTP_sock->sock);
  608.     sock_wait_closed(NNTP_sock->sock, sock_delay, NULL, &NNTP_stat);
  609.   }
  610. sock_err:
  611.   return;
  612. }
  613.  
  614. void read_groups(void)
  615. {
  616.   int i = 0, ok;
  617.   unsigned short sn;
  618.   char *ss, fn[101], fn1[160], tmp[121];
  619.   FILE *groupfp;
  620.  
  621.   sprintf(fn1, "%sNEWS.RC", net_data);
  622.   ngroups = count_lines(fn1);
  623.   if (!ngroups)
  624.     return;
  625.   if (grouprec != NULL)
  626.     farfree(grouprec);
  627.   grouprec = NULL;
  628.   grouprec = (GROUPFILEREC *) farmalloc((ngroups + 1) * sizeof(GROUPFILEREC));
  629.   if (!grouprec) {
  630.     ngroups = 0;
  631.     output("\n ■ Insufficient memory for %d groups in %s.", ngroups, fn1);
  632.     return;
  633.   }
  634.   if ((groupfp = fsh_open(fn1, "rt")) == NULL) {
  635.     if (grouprec != NULL)
  636.       farfree(grouprec);
  637.     ngroups = 0;
  638.     return;
  639.   }
  640.   while (fgets(tmp, 120, groupfp)) {
  641.     if (*tmp) {
  642.       if (strncmpi(tmp, "newsrc", 6) == 0) {
  643.         strcpy(grouprec[i].groupname, "newsrc");
  644.         ++i;
  645.       } else {
  646.         ss = strtok(tmp, " ");
  647.         strcpy(grouprec[i].groupname, ss);
  648.         ss = strtok(NULL, " ");
  649.         if (ss) {
  650.           grouprec[i].lastread = atol(ss);
  651.           ss = strtok(NULL, " \n");
  652.           if (ss) {
  653.             strcpy(grouprec[i].subtype, strupr(ss));
  654.             ++i;
  655.           }
  656.         }
  657.       }
  658.     }
  659.   }
  660.   ngroups = i;
  661.   if (groupfp != NULL)
  662.     fclose(groupfp);
  663.   for (i = 0; i < ngroups; i++) {
  664.     if ((grouprec[i].subtype) && (atoi(grouprec[i].subtype) != 0)) {
  665.       sprintf(fn, "%sN%s.NET", net_data, grouprec[i].subtype);
  666.       if (exist(fn)) {
  667.         ok = 0;
  668.         if ((groupfp = fsh_open(fn, "rt")) != NULL) {
  669.           while ((fgets(tmp, 25, groupfp)) && !ok) {
  670.             sn = atoi(tmp);
  671.             if (sn == 32767)
  672.               ok = 1;
  673.           }
  674.           fclose(groupfp);
  675.         }
  676.         if (!ok)
  677.           log_it(1, "\n ■ @32767 not listed as a subscriber in N%s.NET!",
  678.                  grouprec[i].subtype);
  679.       }
  680.     }
  681.   }
  682. }
  683.  
  684. int sendauthinfo(Mail_Socket * NNTP_sock)
  685. {
  686.   char s[MAXPATH], buf[STR];
  687.  
  688.   *_temp_buffer = 0;
  689.  
  690.   log_it(MOREINFO, "\n ■ Server requested authentication information.");
  691.  
  692.   while (1) {
  693.     sprintf(buf, "authinfo user %s", NEWSNAME);
  694.     sock_printf(NNTP_sock->sock, buf);
  695.     sock_wait_input(NNTP_sock->sock, sock_delay, NULL, &NNTP_stat);
  696.     sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  697.     sscanf(_temp_buffer, "%hu %s", &reply, s);
  698.     if (reply == 381) {
  699.       sprintf(buf, "authinfo pass %s", NEWSPASS);
  700.       sock_printf(NNTP_sock->sock, buf);
  701.       sock_wait_input(NNTP_sock->sock, sock_delay, NULL, &NNTP_stat);
  702.       sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  703.       sscanf(_temp_buffer, "%hu %s", &reply, s);
  704.       if (reply == 281) {
  705.         log_it(MOREINFO, "\n ■ Authentication accepted.  Continuing news retrieval session.");
  706.         return 1;
  707.       } else {
  708.         log_it(1, "\n ■ Authentication failed.  Aborting news session.");
  709.         return 0;
  710.       }
  711.     } else {
  712.       log_it(1, "\n ■ Unknown AUTHINFO response %s.", _temp_buffer);
  713.       return 0;
  714.     }
  715.   }
  716.   SOCK_READ_ERR(NNTP);
  717.   return 0;
  718. }
  719.  
  720. int cgroup(Mail_Socket * NNTP_sock, char *s)
  721. {
  722.   char junk[STRING];
  723.  
  724.   *_temp_buffer = 0;
  725.  
  726.   sock_printf(NNTP_sock->sock, "GROUP %s", s);
  727.   sock_wait_input(NNTP_sock->sock, sock_delay, NULL, &NNTP_stat);
  728.   sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  729.   sscanf(_temp_buffer, "%hu %lu", &reply, &reparticle);
  730.   switch (reply) {
  731.     case 411:
  732.       return 0;
  733.     case 211:
  734.       sscanf(_temp_buffer, "%hu %lu %lu %lu %s",
  735.              &reply, &cur_numa, &cur_first, &cur_last, junk);
  736.       return 1;
  737.     case 480:
  738.       return (-1);
  739.     default:
  740.       sock_wait_closed(NNTP_sock->sock, sock_delay, NULL, &NNTP_stat);
  741.       log_it(MOREINFO, "\n ■ Unknown GROUP response : %s", _temp_buffer);
  742.       break;
  743.   }
  744.   SOCK_READ_ERR(NNTP);
  745.   return 0;
  746. }
  747.  
  748. char *treat(char *string)
  749. {
  750.   char *s;
  751.  
  752.   if (!string || !*string)
  753.     return NULL;
  754.  
  755.   for (s = string; *s; ++s) {
  756.     if ((*s < 32) || (*s > 126)) {
  757.       if ((*s != 9) && (*s != 10)) {
  758.         memmove(s, s + 1, strlen(s) + 1);
  759.         --s;
  760.       }
  761.     }
  762.   }
  763.  
  764.   return string;
  765. }
  766.  
  767. char *name_packet(char *pktname)
  768. {
  769.   int i;
  770.  
  771.   for (i = 0; i < 1000; i++) {
  772.     sprintf(pktname, "%sP0-%5.5d.%3.3d", net_data, i, instance);
  773.     if (!exist(pktname))
  774.       break;
  775.   }
  776.   return pktname;
  777. }
  778.  
  779. int jgets(char *s, int maxlen)
  780. {
  781.   char temp[500];
  782.   int done = 0, pos = 0, length = 0, i, c, zeroflag;
  783.  
  784.   while (!done) {
  785.     zeroflag = 0;
  786.     if ((c = getch()) == 0) {
  787.       zeroflag = 1;
  788.       c = getch();
  789.     }
  790.     switch (c) {
  791.       case 27:
  792.         return 0;
  793.       case 8:
  794.         if (c == 8) {
  795.           if (pos == 0)
  796.             break;
  797.           if (pos != length) {
  798.             for (i = pos - 1; i < length; i++)
  799.               temp[i] = temp[i + 1];
  800.             pos--;
  801.             length--;
  802.             putch(8);
  803.             for (i = pos; i < length; i++)
  804.               putch(temp[i]);
  805.             for (i = length; i >= pos; i--)
  806.               putch(8);
  807.           } else {
  808.             putch(8);
  809.             pos = --length;
  810.           }
  811.           break;
  812.         }
  813.       case 13:
  814.         if (c == 13) {
  815.           done = 1;
  816.           break;
  817.         }
  818.       default:
  819.         if (zeroflag)
  820.           break;
  821.         if (c == 0 || pos == maxlen)
  822.           break;
  823.         if (pos == length) {
  824.           temp[pos++] = c;
  825.           if (pos > length)
  826.             length++;
  827.           putch(c);
  828.         } else {
  829.           for (i = length++; i >= pos; i--)
  830.             temp[i + 1] = temp[i];
  831.           temp[pos++] = c;
  832.           putch(c);
  833.           for (i = pos; i < length; i++)
  834.             putch(temp[i]);
  835.           for (i = length; i > pos; i--)
  836.             putch(8);
  837.         }
  838.     }
  839.   }
  840.   temp[length] = '\0';
  841.   strcpy(s, temp);
  842.   return length;
  843. }
  844.  
  845.  
  846. int savebody(Mail_Socket * NNTP_sock, char *fn, int cug, unsigned long cur_article, int *abort)
  847. {
  848.   int i, f, place, length, curpos, count, part;
  849.   char _big_temp_buffer[BIGSTR];
  850.   char ch, *spin, buf[STRING];
  851.   unsigned long msgsize;
  852.  
  853.   place = count = 0;
  854.   *_temp_buffer = 0;
  855.   part = 1;
  856.  
  857.   if (!QUIET)
  858.     spin = "||//--\\\\";
  859.   else
  860.     spin = "";
  861.   length = strlen(spin);
  862.  
  863.   if (spooltodisk)
  864.     f = sh_open(fn, O_RDWR | O_APPEND | O_TEXT | O_CREAT, S_IREAD | S_IWRITE);
  865.   else
  866.     f = sh_open(fn, O_RDWR | O_TEXT | O_CREAT | O_TRUNC, S_IWRITE);
  867.  
  868.   if (f < 0) {
  869.     log_it(MOREINFO, "\n ■ Unable to write to %s.", fn);
  870.     return 0;
  871.   }
  872.  
  873.   sock_printf(NNTP_sock->sock, "BODY %ld", cur_article);
  874.   sock_wait_input(NNTP_sock->sock, sock_delay, NULL, &NNTP_stat);
  875.   sock_gets(NNTP_sock->sock, _big_temp_buffer, sizeof(_big_temp_buffer));
  876.   sscanf(_big_temp_buffer, "%hu %lu", &reply, &reparticle);
  877.   switch (reply) {
  878.     case 423:
  879.       return 0;
  880.     case 222:
  881.       if (QUIET)
  882.         output("[-]");
  883.       sh_write(f, "\n", sizeof(char));
  884.       if (spooltodisk) {
  885.         if ((MOREINFO) && (!QUIET))
  886.           output("\n ■ NEWS%d.UUE - [Esc], [Space], [Tab], ] = +10, } = +100, + = User Input [-]", cug);
  887.         for (i = 0; i < 79; i++)
  888.           sh_write(f, "-", sizeof(char));
  889.         sh_write(f, "\n", sizeof(char));
  890.         sprintf(buf, "Art  : %lu\n", cur_article);
  891.         sh_write(f, buf, strlen(buf));
  892.         if (*cur_lines) {
  893.           if ((atol(cur_lines) > 0L) && (atol(cur_lines) < 99999L))
  894.             sprintf(buf, "Lines: %s\n", cur_lines);
  895.           else
  896.             sprintf(buf, "Lines: Unknown\n");
  897.         }
  898.         sh_write(f, buf, strlen(buf));
  899.         sprintf(buf, "Group: %s\n", grouprec[cug].groupname);
  900.         sh_write(f, buf, strlen(buf));
  901.         if (*cur_date)
  902.           sprintf(buf, "Date : %s\n", cur_date);
  903.         else
  904.           sprintf(buf, "Date : Unknown\n");
  905.         sh_write(f, buf, strlen(buf));
  906.         if (*cur_replyto)
  907.           sprintf(buf, "From : %s\n", cur_replyto);
  908.         else
  909.           sprintf(buf, "From : Unknown\n");
  910.         sh_write(f, buf, strlen(buf));
  911.         if (*cur_subject)
  912.           sprintf(buf, "Subj : %s\n\n", cur_subject);
  913.         else
  914.           sprintf(buf, "Subj : Unknown\n");
  915.         sh_write(f, buf, strlen(buf));
  916.       } else {
  917.         if (*cur_replyto) {
  918.           sprintf(buf, "0RReply-To: %s\n", cur_replyto);
  919.           sh_write(f, buf, strlen(buf));
  920.         }
  921.         if (*cur_message_ID) {
  922.           sprintf(buf, "0RMessage-ID: %s\n", cur_message_ID);
  923.           sh_write(f, buf, strlen(buf));
  924.         }
  925.         if (*cur_references) {
  926.           sprintf(buf, "0RReferences: %s\n", cur_references);
  927.           sh_write(f, buf, strlen(buf));
  928.         }
  929.         if ((MOREINFO) && (!QUIET))
  930.           output("\n ■ Receiving message - [Esc] Abort - [Space] Skip Group - [Tab] Catch Up [-]");
  931.       }
  932.       msgsize = 0L;
  933.       curpos = 0L;
  934.       while (1) {
  935.         while (kbhit()) {
  936.           ch = (getch());
  937.           spin = "..oOOOo.";
  938.           length = strlen(spin);
  939.           switch (ch) {
  940.             case '+':
  941.               if (spooltodisk) {
  942.                 if (MOREINFO) {
  943.                   backline();
  944.                   log_it(MOREINFO, "\r ■ Jumping forward... wait until message is completed [.]");
  945.                 }
  946.                 *abort = 6;
  947.               }
  948.               break;
  949.             case '}':
  950.               if (spooltodisk) {
  951.                 if (MOREINFO) {
  952.                   backline();
  953.                   log_it(MOREINFO, "\r ■ Jumping 100 articles... wait until message is completed [.]");
  954.                 }
  955.                 *abort = 5;
  956.               }
  957.               break;
  958.             case ']':
  959.               if (spooltodisk) {
  960.                 if (MOREINFO) {
  961.                   backline();
  962.                   log_it(MOREINFO, "\r ■ Jumping 10 articles... wait until message is completed [.]");
  963.                 }
  964.                 *abort = 4;
  965.               }
  966.               break;
  967.             case 9:
  968.               if (MOREINFO) {
  969.                 backline();
  970.                 log_it(MOREINFO, "\r ■ Catching up on group... wait until message is completed [.]");
  971.               }
  972.               *abort = 3;
  973.               break;
  974.             case 32:
  975.               if (MOREINFO) {
  976.                 backline();
  977.                 log_it(MOREINFO, "\r ■ Skipping group... wait until message is completed [.]");
  978.               }
  979.               *abort = 2;
  980.               break;
  981.             case 27:
  982.               if (MOREINFO) {
  983.                 backline();
  984.                 log_it(MOREINFO, "\r ■ Aborting session... wait until message is completed [.]");
  985.               }
  986.               *abort = 1;
  987.               break;
  988.             default:
  989.               break;
  990.           }
  991.         }
  992.         if (count++ > 5) {
  993.           output("\b\b%c]", spin[place++]);
  994.           if (length)
  995.             place %= length;
  996.           count = 0;
  997.         }
  998.         sock_wait_input(NNTP_sock->sock, sock_delay, NULL, &NNTP_stat);
  999.         sock_gets(NNTP_sock->sock, _big_temp_buffer, sizeof(_big_temp_buffer));
  1000.         if (_big_temp_buffer[0] == '.' && _big_temp_buffer[1] == 0)
  1001.           break;
  1002.         else {
  1003.           treat(_big_temp_buffer);
  1004.           if (*_big_temp_buffer) {
  1005.             strcat(_big_temp_buffer, "\n");
  1006.             curpos = strlen(_big_temp_buffer);
  1007.             sh_write(f, _big_temp_buffer, strlen(_big_temp_buffer));
  1008.             msgsize += curpos;
  1009.           }
  1010.         }
  1011.         if ((msgsize > 30000L) && (!spooltodisk)) {
  1012.           strcpy(buf, "\nContinued in next message...\n");
  1013.           sh_write(f, buf, strlen(buf));
  1014.           sh_close(f);
  1015.           sprintf(fn, "%sSPOOL\\INPUT%d.MSG", net_data, ++part);
  1016.           unlink(fn);
  1017.           if ((f = sh_open(fn, O_WRONLY | O_TEXT | O_CREAT | O_TRUNC, S_IWRITE)) < 0) {
  1018.             log_it(MOREINFO, "\n ■ Unable to create %s", fn);
  1019.             sock_wait_closed(NNTP_sock->sock, sock_delay, NULL, &NNTP_stat);
  1020.             return 0;
  1021.           }
  1022.           if ((MOREINFO) && (!QUIET)) {
  1023.             backline();
  1024.             output("\r ■ Breaking into %d%s part [ ]", (part), ordinal_text(part));
  1025.           }
  1026.           strcpy(buf, "\nContinued from previous message...\n");
  1027.           sh_write(f, buf, strlen(buf));
  1028.           msgsize = strlen(buf);
  1029.         }
  1030.       }
  1031.       sh_close(f);
  1032.       if (!QUIET)
  1033.         output("\b\bX]");
  1034.       else
  1035.         output("\b\b■]");
  1036.       return 1;
  1037.     default:
  1038.       log_it(MOREINFO, "\n ■ Unknown BODY error : %s", _temp_buffer);
  1039.       break;
  1040.   }
  1041.   sh_close(f);
  1042.   SOCK_READ_ERR(NNTP);
  1043.   return 0;
  1044. }
  1045.  
  1046. int extract(char *to, char *key, char *from)
  1047. {
  1048.   if (!strnicmp(from, key, strlen(key))) {
  1049.     from += strlen(key);
  1050.     while (*from == ' ')
  1051.       from++;
  1052.     strcpy(to, from);
  1053.     return 1;
  1054.   } else
  1055.     return 0;
  1056. }
  1057.  
  1058.  
  1059. int chead(Mail_Socket * NNTP_sock, unsigned long which)
  1060. {
  1061.   char _big_temp_buffer[BIGSTR];
  1062.  
  1063.   *cur_path = 0;
  1064.   *cur_from = 0;
  1065.   *cur_replyto = 0;
  1066.   *cur_subject = 0;
  1067.   *cur_newsgroups = 0;
  1068.   *cur_message_ID = 0;
  1069.   *cur_references = 0;
  1070.   *cur_date = 0;
  1071.   *_temp_buffer = 0;
  1072.  
  1073.   sock_printf(NNTP_sock->sock, "HEAD %lu", which);
  1074.   sock_wait_input(NNTP_sock->sock, sock_delay, NULL, &NNTP_stat);
  1075.   sock_gets(NNTP_sock->sock, _big_temp_buffer, sizeof(_big_temp_buffer));
  1076.   sscanf(_big_temp_buffer, "%hu %lu", &reply, &reparticle);
  1077.   switch (reply) {
  1078.     case 423:
  1079.       if (!QUIET)
  1080.         output("%-53.53s", "Expired article.");
  1081.       return 0;
  1082.     case 221:
  1083.       while (1) {
  1084.         sock_wait_input(NNTP_sock->sock, sock_delay, NULL, &NNTP_stat);
  1085.         sock_gets(NNTP_sock->sock, _big_temp_buffer, sizeof(_big_temp_buffer));
  1086.         if (_big_temp_buffer[0] == '.' && _big_temp_buffer[1] == 0) {
  1087.           if (cur_replyto[0] == 0)
  1088.             strcpy(cur_replyto, cur_from);
  1089.           if (cur_subject[0] == 0)
  1090.             strcpy(cur_subject, "No Subject");
  1091.           return 1;
  1092.         }
  1093.         if ((strlen(_big_temp_buffer)) > STRING)
  1094.           _big_temp_buffer[STRING] = '\0';
  1095.         if (extract(cur_path, "Path:", _big_temp_buffer) ||
  1096.              extract(cur_from, "From:", _big_temp_buffer) ||
  1097.              extract(cur_subject, "Subject:", _big_temp_buffer) ||
  1098.              extract(cur_replyto, "Reply-To:", _big_temp_buffer) ||
  1099.              extract(cur_newsgroups, "Newsgroups:", _big_temp_buffer) ||
  1100.              extract(cur_organization, "Organization:", _big_temp_buffer) ||
  1101.              extract(cur_message_ID, "Message-ID:", _big_temp_buffer) ||
  1102.              extract(cur_references, "References:", _big_temp_buffer) ||
  1103.              extract(cur_lines, "Lines:", _big_temp_buffer) ||
  1104.              extract(cur_date, "Date:", _big_temp_buffer))
  1105.          continue;
  1106.       }
  1107.     default:
  1108.       sock_wait_closed(NNTP_sock->sock, sock_delay, NULL, &NNTP_stat);
  1109.       log_it(MOREINFO, "\n ■ Unknown chead error : %s", _big_temp_buffer);
  1110.       break;
  1111.   }
  1112.   SOCK_READ_ERR(NNTP);
  1113.   return 0;
  1114. }
  1115.  
  1116. Mail_Socket *netsocket(char *host)
  1117. {
  1118.   Mail_Socket *NNTP_sock = NULL;
  1119.   longword h;
  1120.  
  1121.   sock_init();
  1122.  
  1123.   if (!(h = resolve(host))) {
  1124.     if (!(h = resolve(host))) {
  1125.       log_it(1, "\n ■ Error : Cannot resolve host %s", host);
  1126.       return NULL;
  1127.     }
  1128.   }
  1129.   if ((NNTP_sock = (Mail_Socket *) farmalloc(sizeof(Mail_Socket))) == NULL) {
  1130.     log_it(1, "\n ■ Error: Insufficient memory to create socket... aborting.");
  1131.     return NULL;
  1132.   }
  1133.   if ((NNTP_sock->sock = (tcp_Socket *) farmalloc(sizeof(tcp_Socket))) == NULL) {
  1134.     log_it(1, "\n ■ Error : Insufficient memory to create socket... aborting.");
  1135.     farfree(NNTP_sock);
  1136.     return NULL;
  1137.   }
  1138.   if (!tcp_open(NNTP_sock->sock, 0, h, NNTP_PORT, NULL)) {
  1139.     log_it(1, "\n ■ Error : Unable to connect to to %s.", host);
  1140.     farfree(NNTP_sock);
  1141.     return NULL;
  1142.   }
  1143.   sock_mode(NNTP_sock->sock, TCP_MODE_ASCII);
  1144.   sock_wait_established(NNTP_sock->sock, sock_delay, NULL, &NNTP_stat);
  1145.   sock_wait_input(NNTP_sock->sock, sock_delay, NULL, &NNTP_stat);
  1146.   sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  1147.   sscanf(_temp_buffer, "%hu %lu", &reply, &reparticle);
  1148.   switch (reply) {
  1149.     case 200:
  1150.       log_it(MOREINFO, "\n ■ Connection to %s accepted...", host);
  1151.       return (NNTP_sock);
  1152.     case 502:
  1153.       log_it(1, "\n ■ Connection to %s refused... try again later.", host);
  1154.       break;
  1155.     case 503:
  1156.       log_it(1, "\n ■ NNTP service unavailable. Connection to %s refused.", host);
  1157.       break;
  1158.     default:
  1159.       log_it(1, "\n ■ Unknown NNTP error. Connection to %s failed.", host);
  1160.       break;
  1161.   }
  1162.   SOCK_READ_ERR(NNTP);
  1163.   return 0;
  1164. }
  1165.  
  1166. int cnext(Mail_Socket * NNTP_sock)
  1167. {
  1168.   char *p, *q;
  1169.  
  1170.   *_temp_buffer = 0;
  1171.  
  1172.   sock_printf(NNTP_sock->sock, "NEXT");
  1173.   sock_wait_input(NNTP_sock->sock, sock_delay, NULL, &NNTP_stat);
  1174.   sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  1175.   sscanf(_temp_buffer, "%hu %lu", &reply, &reparticle);
  1176.   switch (reply) {
  1177.     case 421:
  1178.       return 0;
  1179.     case 223:
  1180.       p = _temp_buffer;
  1181.       q = cur_articleid;
  1182.       while ((p < _temp_buffer + STRING - 2) && (*p != '<'))
  1183.         p++;
  1184.       while ((p < _temp_buffer + STRING - 2) && (*p != '>'))
  1185.         *q++ = *p++;
  1186.       *q++ = '>';
  1187.       *q++ = '\0';
  1188.       return 1;
  1189.     default:
  1190.       sock_wait_closed(NNTP_sock->sock, sock_delay, NULL, &NNTP_stat);
  1191.       log_it(MOREINFO, "\n ■ Unknown NEXT error : %s", _temp_buffer);
  1192.       break;
  1193.   }
  1194.   SOCK_READ_ERR(NNTP);
  1195.   return 0;
  1196. }
  1197.  
  1198. int cslave(Mail_Socket * NNTP_sock)
  1199. {
  1200.   char junk[STRING];
  1201.  
  1202.   *_temp_buffer = 0;
  1203.  
  1204.   sock_printf(NNTP_sock->sock, "SLAVE");
  1205.   sock_wait_input(NNTP_sock->sock, sock_delay, NULL, &NNTP_stat);
  1206.   sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  1207.   sscanf(_temp_buffer, "%hu %s", &reply, junk);
  1208.   SOCK_READ_ERR(NNTP);
  1209.   return 0;
  1210. }
  1211.  
  1212. char *stripspace(char *str)
  1213. {
  1214.   char *obuf, *nbuf;
  1215.  
  1216.   if (str) {
  1217.     for (obuf = str, nbuf = str; *obuf; ++obuf) {
  1218.       if (!isspace(*obuf))
  1219.         *nbuf++ = *obuf;
  1220.     }
  1221.     *nbuf = NULL;
  1222.   }
  1223.   return (str);
  1224. }
  1225.  
  1226.  
  1227. int saveactive(Mail_Socket * NNTP_sock, int forced)
  1228. {
  1229.   char s[181], prev_s[181], fn[MAXPATH], group[256], act;
  1230.   unsigned long to, from;
  1231.   unsigned fnday, fnmonth, fnyear, fnhour, fnminute, fnsecond;
  1232.   int f, done, inloop, update;
  1233.   unsigned long count;
  1234.   FILE *fp;
  1235.   struct ftime ft;
  1236.   struct date d;
  1237.  
  1238.   *_temp_buffer = 0;
  1239.  
  1240.   update = inloop = 0;
  1241.  
  1242.   sprintf(fn, "%sNEWSRC", net_data);
  1243.  
  1244.   f = sh_open1(fn, O_RDONLY);
  1245.   if (f < 0)
  1246.     forced = 1;
  1247.   else {
  1248.     getftime(f, &ft);
  1249.     sh_close(f);
  1250.   }
  1251.  
  1252.   getdate(&d);
  1253.   if ((ft.ft_month == 12) && ((d.da_day == 1) && (d.da_mon == 1))) {
  1254.     unlink(fn);
  1255.     forced = 1;
  1256.   }
  1257.  
  1258.   if (!forced) {
  1259.     fnsecond = 2 * ft.ft_tsec;
  1260.     fnminute = ft.ft_min;
  1261.     fnhour = ft.ft_hour;
  1262.     fnday = ft.ft_day;
  1263.     fnmonth = ft.ft_month;
  1264.     fnyear = ft.ft_year + 80;
  1265.     log_it(1, "\n ■ NEWSRC last updated %02u/%02u/%02u %.2u:%.2u:%.2u... ",
  1266.         fnmonth, fnday, fnyear, fnhour, fnminute, fnsecond);
  1267.     if ((d.da_day == ft.ft_day) && (d.da_mon == ft.ft_month) &&
  1268.         (d.da_year == (ft.ft_year + 1980))) {
  1269.       log_it(1, "no update required.");
  1270.       return 0;
  1271.     } else
  1272.       log_it(1, "updating.");
  1273.     if ((d.da_mon == ft.ft_month) && (d.da_day != ft.ft_day))
  1274.       update = 1;
  1275.   }
  1276.  
  1277.   if (update)
  1278.     fp = fsh_open(fn, "a+");
  1279.   else
  1280.     fp = fsh_open(fn, "w+");
  1281.  
  1282.   if (fp == NULL) {
  1283.     perror(fn);
  1284.     return 0;
  1285.   }
  1286.   done = 0;
  1287.  
  1288.   while (!done) {
  1289.     if (update) {
  1290.       sprintf(s, "NEWGROUPS %02.02u%02.02u%02.02u %02.02u%02.02u%02.02u",
  1291.             fnyear, fnmonth, fnday, fnhour, fnminute, fnsecond);
  1292.       sock_printf(NNTP_sock->sock, s);
  1293.       output("\n ■ Refreshing NEWSRC newsgroup listing :           ");
  1294.     } else {
  1295.       sock_printf(NNTP_sock->sock, "LIST");
  1296.       output("\n ■ Retrieving current newsgroup listing :           ");
  1297.     }
  1298.     sock_wait_input(NNTP_sock->sock, sock_delay, NULL, &NNTP_stat);
  1299.     sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  1300.     sscanf(_temp_buffer, "%hu %lu", &reply, &reparticle);
  1301.     if ((reply == 215) || (reply == 231)) {
  1302.       count = 0L;
  1303.       while (1) {
  1304.         strcpy(prev_s, _temp_buffer);
  1305.         sock_wait_input(NNTP_sock->sock, sock_delay, NULL, &NNTP_stat);
  1306.         sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  1307.         trimstr1(_temp_buffer);
  1308.         if (*_temp_buffer == '.' && _temp_buffer[1] == 0)
  1309.           break;
  1310.         if (strcmp(_temp_buffer, prev_s) == 0)
  1311.           ++inloop;
  1312.         else
  1313.           inloop = 0;
  1314.         if (inloop > 10) {
  1315.           log_it(1, "Looping problem at %s", _temp_buffer);
  1316.           if (fp != NULL)
  1317.             fclose(fp);
  1318.           break;
  1319.         }
  1320.         if (strlen(_temp_buffer) < 180) {
  1321.           if (count++ % 25 == 24L)
  1322.             output("\b\b\b\b\b\b\b%-7lu", count);
  1323.           sscanf(_temp_buffer, "%s %lu %lu %c", group, &to, &from, &act);
  1324.           sprintf(s, "%s %lu\n", group, to);
  1325.           fsh_write(s, sizeof(char), strlen(s), fp);
  1326.         }
  1327.       }
  1328.       if (update) {
  1329.         if (count == 0)
  1330.           log_it(1, "\b\b\b\b\b\b\bNo new groups.");
  1331.         else
  1332.           log_it(1, "\b\b\b\b\b\b\b%lu group%s added to NEWSRC.", count,
  1333.                 count == 1 ? "" : "s");
  1334.       } else
  1335.         output("\b\b\b\b\b\b\b%lu total groups.", count);
  1336.  
  1337.       done = 1;
  1338.       if (fp != NULL)
  1339.         fclose(fp);
  1340.       if (update) {
  1341.         f = sh_open1(fn, O_RDWR);
  1342.         ft.ft_day = d.da_day;
  1343.         setftime(f, &ft);
  1344.         sh_close(f);
  1345.       }
  1346.       return 1;
  1347.     } else {
  1348.       if (reply == 480) {
  1349.         if (fp != NULL)
  1350.           fclose(fp);
  1351.         return 0;
  1352.       } else {
  1353.         log_it(MOREINFO, "\n ■ Unknown saveactive error : %s", _temp_buffer);
  1354.         if (fp != NULL)
  1355.           fclose(fp);
  1356.         done = 1;
  1357.       }
  1358.     }
  1359.   }
  1360.   if (fp != NULL)
  1361.     fclose(fp);
  1362.   SOCK_READ_ERR(NNTP);
  1363.   return 0;
  1364. }
  1365.  
  1366. int checkx(int cug)
  1367. {
  1368.   char *ptr, *ptr2, *ptr3, fn[MAXPATH], buf[256], tmp[81];
  1369.   int i, spam, max, ok;
  1370.   FILE *fp;
  1371.  
  1372.   if ((stristr(grouprec[cug].groupname, "binaries")) && (binxpost))
  1373.     return 1;
  1374.  
  1375.   sprintf(buf, "%s!%s", POPNAME, POPDOMAIN);
  1376.   if (stristr(cur_path, buf) != 0) {
  1377.     sprintf(buf, "Local post - %s - skipped.", cur_subject);
  1378.     if (!QUIET)
  1379.       output("%-53.53s", buf);
  1380.     return 0;
  1381.   }
  1382.  
  1383.   ok = 1;
  1384.   spam = 0;
  1385.   sprintf(fn, "%sNOSPAM.TXT", net_data);
  1386.   if ((fp = fsh_open(fn, "r")) != NULL) {
  1387.     while ((!feof(fp)) && (!spam)) {
  1388.       fgets(buf, 80, fp);
  1389.       trimstr1(buf);
  1390.       if (strlen(buf) > 2) {
  1391.         if (buf[0] == '\"') {
  1392.           strcpy(tmp, &(buf[1]));
  1393.           LAST(tmp) = '\0';
  1394.           strcpy(buf, tmp);
  1395.         }
  1396.         if (buf[0] == '[') {
  1397.           if ((strnicmp(buf, "[GLOBAL]", 8) == 0) || (strnicmp(buf, "[NEWS]", 6) == 0))
  1398.             ok = 1;
  1399.           else
  1400.             ok = 0;
  1401.         }
  1402.         if ((ok) && ((stristr(cur_subject, buf)) || (stristr(cur_from, buf)))) {
  1403.           sprintf(tmp, "SPAM - %s - skipped.", buf);
  1404.           if (!QUIET)
  1405.             output("%-53.53s", tmp);
  1406.           spam = 1;
  1407.         }
  1408.       }
  1409.     }
  1410.     fclose(fp);
  1411.     if (spam)
  1412.       return 0;
  1413.   }
  1414.  
  1415.   ptr = cur_newsgroups;
  1416.  
  1417.   while (*ptr == ' ')
  1418.     ptr++;
  1419.   max = 0;
  1420.   while (1) {
  1421.     if (*ptr == 0)
  1422.       break;
  1423.     if (*ptr == ',') {
  1424.       ptr++;
  1425.       ++max;
  1426.     }
  1427.     while (*ptr == ' ')
  1428.       ptr++;
  1429.     ptr2 = ptr;
  1430.     ptr3 = buf;
  1431.     while (*ptr2 != 0 && *ptr2 != ',')
  1432.       *ptr3++ = *ptr2++;
  1433.     *ptr3 = 0;
  1434.     while (*(--ptr3) == ' ')
  1435.       *ptr3 = 0;
  1436.     ptr = ptr2;
  1437.     for (i = 0; i < cug; i++) {
  1438.       if (strcmpi(buf, grouprec[i].groupname) == 0) {
  1439.         sprintf(buf, "Already posted in %s.", grouprec[i].groupname);
  1440.         if (!QUIET)
  1441.           output("%-53.53s", buf);
  1442.         return 0;
  1443.       }
  1444.     }
  1445.     if ((crossposts > 0) && (max > crossposts)) {
  1446.       sprintf(buf, "Crosspost to %d newsgroups.", crossposts);
  1447.       if (!QUIET)
  1448.         output("%-53.53s", buf);
  1449.       return 0;
  1450.     }
  1451.   }
  1452.   return 1;
  1453. }
  1454.  
  1455. unsigned char *strrep(char *str, char oldstring, char newstring)
  1456. {
  1457.   int i;
  1458.  
  1459.   for (i = 0; str[i]; i++)
  1460.     if (str[i] == oldstring)
  1461.       str[i] = newstring;
  1462.   return (str);
  1463. }
  1464.  
  1465.  
  1466.  
  1467. int postnews(Mail_Socket * NNTP_sock, int cug)
  1468. {
  1469.   char s[160], s1[12], s2[5], fn[MAXPATH], *ss;
  1470.   int f1, nlines;
  1471.   FILE *fp;
  1472.   struct ffblk ff;
  1473.  
  1474.   *_temp_buffer = 0;
  1475.  
  1476.   sprintf(fn, "%sOUTBOUND\\%s.*", net_data, grouprec[cug].subtype);
  1477.   f1 = findfirst(fn, &ff, 0);
  1478.   if (f1 != 0) {
  1479.     log_it(!QUIET, "\n ■ No outbound news articles to post...");
  1480.     return 1;
  1481.   }
  1482.   while (f1 == 0) {
  1483.     sock_printf(NNTP_sock->sock, "POST");
  1484.     sock_wait_input(NNTP_sock->sock, sock_delay, NULL, &NNTP_stat);
  1485.     sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  1486.     if (*_temp_buffer != '3') {
  1487.       if (atoi(_temp_buffer) == 440)
  1488.         log_it(MOREINFO, "\n ■ No posting allowed to %s!", grouprec[cug].groupname);
  1489.       else
  1490.         log_it(1, "\n ■ Remote error: %s", _temp_buffer);
  1491.       return 0;
  1492.     }
  1493.     if ((MOREINFO) && (!QUIET))
  1494.       output("\n");
  1495.     else
  1496.       backline();
  1497.     log_it(!QUIET, " ■ Posting article to %s\n", grouprec[cug].groupname);
  1498.     sprintf(s, "%sOUTBOUND\\%s", net_data, ff.ff_name);
  1499.     if ((fp = fsh_open(s, "r")) == NULL) {
  1500.       log_it(MOREINFO, "\n ■ Error reading %s.", s);
  1501.       return 1;
  1502.     }
  1503.     nlines = 0;
  1504.     while (!feof(fp)) {
  1505.       fgets(_temp_buffer, sizeof(_temp_buffer), fp);
  1506.       strrep(_temp_buffer, '\n', '\0');
  1507.       strrep(_temp_buffer, '\r', '\0');
  1508.       if (*_temp_buffer == '.') {
  1509.         movmem(_temp_buffer, _temp_buffer + 1, sizeof(_temp_buffer) - 1);
  1510.         *_temp_buffer = '.';
  1511.       }
  1512.       sock_puts(NNTP_sock->sock, _temp_buffer);
  1513.       if (MOREINFO) {
  1514.         backline();
  1515.         log_it(!QUIET, "\r ■ Lines sent : %d", ++nlines);
  1516.       }
  1517.     }
  1518.     fclose(fp);
  1519.     sock_puts(NNTP_sock->sock, ".");
  1520.     if ((MOREINFO) && (!QUIET))
  1521.       output("\n ■ Awaiting acknowledgement - may take several minutes...");
  1522.     log_it(MOREINFO, "\n ■ Server response : ");
  1523.     sock_wait_input(NNTP_sock->sock, 180, NULL, &NNTP_stat);
  1524.     sock_gets(NNTP_sock->sock, _temp_buffer, sizeof(_temp_buffer));
  1525.     log_it(MOREINFO, "%s", _temp_buffer);
  1526.     if (*_temp_buffer != '2') {
  1527.       sscanf(_temp_buffer, "%hu %s", &reply, s);
  1528.       if (reply == 441) {
  1529.         ss = strtok(_temp_buffer, " ");
  1530.         ss = strtok(NULL, " ");
  1531.         if (atoi(ss) == 435)
  1532.           unlink(s);
  1533.         fnsplit(s, NULL, NULL, s1, s2);
  1534.         log_it(MOREINFO, "\n ■ %s%s not accepted by server - nothing posted", s1, s2);
  1535.         if (unlink(s) == 0)
  1536.           log_it(MOREINFO, "\n ■ Deleted message - %s", s);
  1537.       } else
  1538.         log_it(MOREINFO, "\n ■ Remote error: %s", _temp_buffer);
  1539.     } else {
  1540.       if (unlink(s) == 0)
  1541.         log_it(MOREINFO, "\n ■ Deleted sent message - %s", s);
  1542.     }
  1543.     f1 = findnext(&ff);
  1544.   }
  1545.   SOCK_READ_ERR(NNTP);
  1546.   return 0;
  1547. }
  1548.  
  1549. void get_subtype(int sub, char *where)
  1550. {
  1551.   int ok, which;
  1552.   char fn[181], s[81], net_name[21], *ss;
  1553.   FILE *fp;
  1554.  
  1555.   where[0] = 0;
  1556.   which = sub;
  1557.   sprintf(fn, "%sSUBS.XTR", syscfg.datadir);
  1558.   if ((fp = fsh_open(fn, "r")) == NULL)
  1559.     return;
  1560.   ok = 0;
  1561.   while (fgets(s, 80, fp)) {
  1562.     if (*s == '!') {
  1563.       if (which == atoi(&s[1]))
  1564.         ok = 1;
  1565.     }
  1566.     if (ok && (*s == '$')) {
  1567.       ss = strtok(s, " ");
  1568.       strcpy(net_name, &ss[1]);
  1569.       ss = strtok(NULL, " ");
  1570.       if (fp != NULL)
  1571.         fclose(fp);
  1572.       if ((stricmp(net_name, "FILENET") == 0)) {
  1573.         trimstr1(ss);
  1574.         strcpy(where, ss);
  1575.         return;
  1576.       } else
  1577.         return;
  1578.     }
  1579.   }
  1580.   if (fp != NULL)
  1581.     fclose(fp);
  1582. }
  1583.  
  1584. unsigned long max_on_sub(int cug)
  1585. {
  1586.   int i, num_subs;
  1587.   char fn[MAXPATH], subtype[12];
  1588.   unsigned long max;
  1589.   subboardrec sub;
  1590.   FILE *fp;
  1591.  
  1592.   max = 0;
  1593.   if ((strlen(grouprec[cug].subtype) == 1) && (*grouprec[cug].subtype == '0'))
  1594.     return max;
  1595.   if (!QUIET) {
  1596.     if (MOREINFO)
  1597.       output("\n ■ Max articles -     ");
  1598.     else
  1599.       output(" -     ");
  1600.   }
  1601.   sprintf(fn, "%sSUBS.DAT", syscfg.datadir);
  1602.   if ((fp = fsh_open(fn, "rb")) == NULL) {
  1603.     log_it(MOREINFO, "\n ■ Unable to read %s.", fn);
  1604.     return max;
  1605.   } else {
  1606.     fseek(fp, 0L, SEEK_END);
  1607.     num_subs = (int) (ftell(fp) / sizeof(subboardrec));
  1608.     for (i = 0; i < num_subs; i++) {
  1609.       if (!QUIET)
  1610.         output("\b\b\b\b%-4d", i);
  1611.       fseek(fp, (long) i * sizeof(subboardrec), SEEK_SET);
  1612.       fread(&sub, sizeof(subboardrec), 1, fp);
  1613.       get_subtype(i, subtype);
  1614.       if (stricmp(subtype, grouprec[cug].subtype) == 0) {
  1615.         max = (unsigned long)sub.maxmsgs;
  1616.         if (!QUIET) {
  1617.           if (MOREINFO)
  1618.             output("\b\b\b\b%s (%s) - %lu posts.", sub.name, subtype, max);
  1619.           else
  1620.             output("\b\b\b\b [%lu max]", max);
  1621.         }
  1622.         break;
  1623.       }
  1624.     }
  1625.   }
  1626.   fclose(fp);
  1627.   return max;
  1628. }
  1629.  
  1630.  
  1631. int getnews(Mail_Socket * NNTP_sock)
  1632. {
  1633.   int f1, nup, nug, cug, abort, ok, done, firstrun, parts, skipped, bogus;
  1634.   char *p, fn[MAXPATH], mailname[121], reline[121], pktname[MAXPATH];
  1635.   char ch, orig_subj[STRING], buf[STR];
  1636.   unsigned int text_len;
  1637.   unsigned short temptype;
  1638.   unsigned long new_articles, max_articles, skip_articles;
  1639.   net_header_rec nh;
  1640.   struct ffblk ff;
  1641.   FILE *fp;
  1642.  
  1643.   abort = cug = bogus = 0;
  1644.  
  1645.   if (stricmp(grouprec[0].groupname, "newsrc") == 0) {
  1646.     if (!saveactive(NNTP_sock, 1)) {
  1647.       if (sendauthinfo(NNTP_sock))
  1648.         saveactive(NNTP_sock, 1);
  1649.     }
  1650.     ++cug;
  1651.   } else {
  1652.     if (newsrc_upd)
  1653.       saveactive(NNTP_sock, 0);
  1654.   }
  1655.  
  1656.   nug = nup = 1;
  1657.   skipped = 0;
  1658.   cslave(NNTP_sock);
  1659.   name_packet(pktname);
  1660.   if ((!MOREINFO) && (!QUIET))
  1661.     output("\n ■ [Esc] aborts session - [Space] skips group - [Tab] catches up group");
  1662.   while ((cug < ngroups) && (!abort)) {
  1663.     if (*grouprec[cug].groupname == ';') {
  1664.       log_it(!QUIET, "\n ■ Skipped group - %s", &(grouprec[cug].groupname[1]));
  1665.       ++cug;
  1666.       continue;
  1667.     }
  1668.     if (*grouprec[cug].subtype == '0')
  1669.       spooltodisk = 1;
  1670.     else
  1671.       spooltodisk = 0;
  1672.     if (nup) {
  1673.       nup = 0;
  1674.       write_groups(1);
  1675.       if (*grouprec[cug].subtype != '0')
  1676.         name_packet(pktname);
  1677.     }
  1678.     if (nug) {
  1679.       nug = 0;
  1680.       while (1) {
  1681.         if (!cgroup(NNTP_sock, grouprec[cug].groupname)) {
  1682.           if (cgroup(NNTP_sock, grouprec[cug].groupname) == -1) {
  1683.             if (sendauthinfo(NNTP_sock))
  1684.               continue;
  1685.             else
  1686.               return 1;
  1687.           }
  1688.           if (++bogus > 10) {
  1689.             log_it(1, "\n ■ Too many invalid newsgroups... NEWS.RC error?");
  1690.             return 1;
  1691.           }
  1692.           log_it(!QUIET, "\n ■ Error accessing - %s", grouprec[cug].groupname);
  1693.           nug = 1;
  1694.           break;
  1695.         } else
  1696.           break;
  1697.       }
  1698.       if (!nug) {
  1699.         output("   ");
  1700.         backline();
  1701.         log_it(MOREINFO, "\r ■ Requesting %s ", grouprec[cug].groupname);
  1702.         if (grouprec[cug].lastread < cur_first)
  1703.           grouprec[cug].lastread = cur_first;
  1704.         if (grouprec[cug].lastread >= cur_last) {
  1705.           grouprec[cug].lastread = cur_last;
  1706.           log_it(!QUIET, "- [No new articles]");
  1707.           nug = 1;
  1708.         } else {
  1709.           new_articles = cur_last - grouprec[cug].lastread;
  1710.           if (new_articles) {
  1711.             log_it(!QUIET, "- [%lu new article%s]", new_articles,
  1712.                    new_articles == 1 ? "" : "s");
  1713.           } else {
  1714.             log_it(!QUIET, "- [No new articles]");
  1715.             nug = 1;
  1716.           }
  1717.           if (new_articles > 250L) {
  1718.             max_articles = max_on_sub(cug);
  1719.             if (max_articles && (new_articles > max_articles)) {
  1720.               log_it(!QUIET, "- [latest %lu articles]", max_articles);
  1721.               grouprec[cug].lastread = cur_last - max_articles;
  1722.             }
  1723.           } else
  1724.             ++grouprec[cug].lastread;
  1725.         }
  1726.         postnews(NNTP_sock, cug);
  1727.         if (!nug) {
  1728.           if (cur_numa == 0) {
  1729.             log_it(!QUIET, "\n ■ No articles in %s...", grouprec[cug].groupname);
  1730.             nug = 1;
  1731.             continue;
  1732.           }
  1733.         }
  1734.       }
  1735.     } else {
  1736.       if ((!cnext(NNTP_sock)) || (grouprec[cug].lastread > cur_last)) {
  1737.         log_it(!QUIET, "\n ■ End of articles in %s", grouprec[cug].groupname);
  1738.         nug = 1;
  1739.         write_groups(0);
  1740.       }
  1741.     }
  1742.     if (!nug) {
  1743.  
  1744.       if (!QUIET) {
  1745.         if (skipped)
  1746.           backline();
  1747.         else
  1748.           output("\n");
  1749.       }
  1750.  
  1751.       if (!QUIET) {
  1752.         backline();
  1753.         output(" ■ [%lu/%lu] : ", grouprec[cug].lastread, cur_last);
  1754.       }
  1755.  
  1756.       if ((chead(NNTP_sock, grouprec[cug].lastread)) && (checkx(cug))) {
  1757.         skipped = 0;
  1758.         if (*cur_subject) {
  1759.           if (strlen(cur_subject) > 78)
  1760.             cur_subject[78] = 0;
  1761.           treat(cur_subject);
  1762.         }
  1763.         strcpy(orig_subj, cur_subject);
  1764.         if (strlen(orig_subj) > 70)
  1765.           orig_subj[70] = 0;
  1766.         if (*cur_from) {
  1767.           treat(cur_from);
  1768.           if (strlen(cur_from) > 45)
  1769.             cur_from[45] = 0;
  1770.         } else
  1771.           strcpy(cur_from, "Unknown");
  1772.         if (*cur_replyto) {
  1773.           if (strlen(cur_replyto) > 45)
  1774.             cur_replyto[45] = 0;
  1775.         } else
  1776.           strcpy(cur_replyto, "Unknown");
  1777.         if (!QUIET)
  1778.           output("%-48.48s", orig_subj);
  1779.         if (spooltodisk)
  1780.           sprintf(fn, "%sSPOOL\\NEWS%d.UUE", net_data, cug);
  1781.         else
  1782.           sprintf(fn, "%sSPOOL\\INPUT1.MSG", net_data);
  1783.         abort = 0;
  1784.         fcloseall();
  1785.         ok = (savebody(NNTP_sock, fn, cug, grouprec[cug].lastread, &abort));
  1786.         if (QUIET)
  1787.           output("\b\b\b");
  1788.         if (ok && (*grouprec[cug].subtype != '0')) {
  1789.           if ((fp = fsh_open(pktname, "ab+")) == NULL) {
  1790.             log_it(MOREINFO, "\n ■ Unable to create %s!", pktname);
  1791.             return 1;
  1792.           }
  1793.           sprintf(fn, "%sSPOOL\\INPUT*.MSG", net_data);
  1794.           done = 1;
  1795.           parts = 0;
  1796.           if (findfirst(fn, &ff, 0) == 0) {
  1797.             parts = 1;
  1798.             done = 0;
  1799.           }
  1800.           firstrun = 1;
  1801.           while (!done) {
  1802.             sprintf(fn, "%sSPOOL\\%s", net_data, ff.ff_name);
  1803.             f1 = sh_open1(fn, O_RDONLY | O_BINARY);
  1804.             text_len = (unsigned int) filelength(f1);
  1805.             if (text_len > 32000L) {
  1806.               log_it(MOREINFO, "\n ■ Truncating %lu bytes from input file",
  1807.                      text_len - 32000L);
  1808.               text_len = 32000;
  1809.             }
  1810.             if ((p = (char *) malloc(32767)) == NULL) {
  1811.               log_it(MOREINFO, "\n ■ Insufficient memory to read entire message");
  1812.               return 1;
  1813.             }
  1814.             sh_read(f1, (void *) p, text_len);
  1815.             sh_close(f1);
  1816.             temptype = atoi(grouprec[cug].subtype);
  1817.             nh.tosys = sy;
  1818.             nh.touser = 0;
  1819.             nh.fromsys = 32767;
  1820.             nh.fromuser = 0;
  1821.             if (!temptype) {
  1822.               nh.main_type = main_type_new_post;
  1823.               nh.minor_type = 0;
  1824.             } else {
  1825.               nh.main_type = main_type_pre_post;
  1826.               nh.minor_type = temptype;
  1827.             }
  1828.             nh.list_len = 0;
  1829.             ++cur_daten;
  1830.             nh.daten = cur_daten;
  1831.             nh.method = 0;
  1832.             if (parts > 1) {
  1833.               sprintf(buf, "%d%s ", parts, ordinal_text(parts));
  1834.               strncat(buf, orig_subj, 72);
  1835.               strcpy(cur_subject, buf);
  1836.               cur_subject[72] = '\0';
  1837.             }
  1838.             nh.length = text_len + strlen(cur_subject) + 1;
  1839.             strncpy(mailname, cur_replyto, 46);
  1840.             strcat(mailname, "\r\n");
  1841.             nh.length += strlen(mailname);
  1842.             if (nh.main_type == main_type_new_post)
  1843.               nh.length += strlen(grouprec[cug].subtype) + 1;
  1844.             if (firstrun) {
  1845.               firstrun = 0;
  1846.               if (strncmpi(cur_articleid, "re: ", 4) == 0) {
  1847.                 strncpy(reline, cur_articleid, 60);
  1848.                 sprintf(cur_articleid, "Re: %s\r\n\r\n", reline);
  1849.               }
  1850.             }
  1851.             if (!*cur_date) {
  1852.               strncpy(cur_date, ctime(&(time_t) nh.daten), 24);
  1853.               cur_date[24] = '\0';
  1854.             }
  1855.             strcat(cur_date, "\r\n");
  1856.             nh.length += strlen(cur_date);
  1857.             nh.length += strlen(cur_articleid);
  1858.             fsh_write(&nh, sizeof(net_header_rec), 1, fp);
  1859.             if (nh.main_type == main_type_new_post)
  1860.               fsh_write(grouprec[cug].subtype, sizeof(char), strlen(grouprec[cug].subtype) +1, fp);
  1861.             fsh_write(cur_subject, sizeof(char), strlen(cur_subject) +1, fp);
  1862.             fsh_write(mailname, sizeof(char), strlen(mailname), fp);
  1863.             fsh_write(cur_date, sizeof(char), strlen(cur_date), fp);
  1864.             fsh_write(cur_articleid, sizeof(char), strlen(cur_articleid), fp);
  1865.             fsh_write(p, sizeof(char), text_len, fp);
  1866.             if (p)
  1867.               free(p);
  1868.             unlink(fn);
  1869.             if (findnext(&ff) == 0) {
  1870.               done = 0;
  1871.               ++parts;
  1872.             } else
  1873.               done = 1;
  1874.           }
  1875.           if (filelength(fileno(fp)) > 250000L)
  1876.             nup = 1;
  1877.           if (fp != NULL)
  1878.             fclose(fp);
  1879.         }
  1880.       } else
  1881.         skipped = 1;
  1882.       ++grouprec[cug].lastread;
  1883.       while (kbhit()) {
  1884.         ch = (getch());
  1885.         switch (ch) {
  1886.           case '+':
  1887.             if (spooltodisk) {
  1888.               if (MOREINFO)
  1889.                 backline();
  1890.               abort = 6;
  1891.             }
  1892.             break;
  1893.           case '}':
  1894.             if (spooltodisk) {
  1895.               if (MOREINFO)
  1896.                 backline();
  1897.               abort = 5;
  1898.             }
  1899.             break;
  1900.           case ']':
  1901.             if (spooltodisk) {
  1902.               if (MOREINFO)
  1903.                 backline();
  1904.               abort = 4;
  1905.             }
  1906.             break;
  1907.           case 9:
  1908.             abort = 3;
  1909.             break;
  1910.           case 32:
  1911.             abort = 2;
  1912.             break;
  1913.           case 27:
  1914.             abort = 1;
  1915.             break;
  1916.           default:
  1917.             break;
  1918.         }
  1919.       }
  1920.       switch (abort) {
  1921.         case 6:
  1922.           backline();
  1923.           output(" ? Skip how many articles? ");
  1924.           if (jgets(buf, 10)) {
  1925.             skip_articles = atol(buf);
  1926.             if ((grouprec[cug].lastread += skip_articles) < cur_last) {
  1927.               abort = 0;
  1928.               break;
  1929.             }
  1930.           } else
  1931.             break;
  1932.         case 5:
  1933.           if ((grouprec[cug].lastread += 100) < cur_last) {
  1934.             abort = 0;
  1935.             break;
  1936.           }
  1937.         case 4:
  1938.           if ((grouprec[cug].lastread += 10) < cur_last) {
  1939.             abort = 0;
  1940.             break;
  1941.           }
  1942.         case 3:
  1943.           grouprec[cug].lastread = cur_last;
  1944.         case 2:
  1945.           nug = 1;
  1946.           abort = 0;
  1947.           break;
  1948.         default:
  1949.           break;
  1950.       }
  1951.     }
  1952.     if (nug) {
  1953.       ++cug;
  1954.       if (*grouprec[cug].subtype == '0')
  1955.         nup = 1;
  1956.     }
  1957.   }
  1958.   write_groups(1);
  1959.   nntp_shutdown(NNTP_sock);
  1960.   if (abort)
  1961.     log_it(1, "\n ■ Session aborted from keyboard");
  1962.   return 0;
  1963. }
  1964.  
  1965. int copyfile(char *input, char *output)
  1966. {
  1967.   int f1, f2, i;
  1968.   char *b;
  1969.   struct ftime ft;
  1970.  
  1971.   if ((strcmp(input, output) != 0) && (exist(input)) && (!exist(output))) {
  1972.     if ((b = (char *) malloc(16400)) == NULL)
  1973.       return 0;
  1974.     f1 = sh_open1(input, O_RDONLY | O_BINARY);
  1975.     if (!f1) {
  1976.       free(b);
  1977.       b = NULL;
  1978.       return 0;
  1979.     }
  1980.     getftime(f1, &ft);
  1981.  
  1982.     f2 = sh_open(output, O_RDWR | O_BINARY | O_CREAT | O_TRUNC, S_IREAD | S_IWRITE);
  1983.     if (!f2) {
  1984.       free(b);
  1985.       b = NULL;
  1986.       f1 = sh_close(f1);
  1987.       return 0;
  1988.     }
  1989.     i = read(f1, (void *) b, 16384);
  1990.     while (i > 0) {
  1991.       sh_write(f2, (void *) b, i);
  1992.       i = read(f1, (void *) b, 16384);
  1993.     }
  1994.     f1 = sh_close(f1);
  1995.     setftime(f2, &ft);
  1996.     f2 = sh_close(f2);
  1997.     free(b);
  1998.     b = NULL;
  1999.   }
  2000.   return 1;
  2001. }
  2002.  
  2003.  
  2004.  
  2005. main(int argc, char *argv[])
  2006. {
  2007.   int ok, f, bAuth;
  2008.   char s[160], fn[MAXPATH], tempfn[MAXPATH], serverhost[50], *ss;
  2009.   FILE *fp;
  2010.   struct date dt;
  2011.   struct time tm;
  2012.   Mail_Socket *nntp_sock = NULL;
  2013.  
  2014.   crossposts = 10;
  2015.   binxpost = 0;
  2016.   newsrc_upd = 0;
  2017.   MOREINFO = 1;
  2018.   QUIET = 0;
  2019.   POPNAME[0] = 0;
  2020.   POPDOMAIN[0] = 0;
  2021.  
  2022.   cursor('S');
  2023.   cursor('H');
  2024.   output("\n ■ %s", version);
  2025.   if (argc != 4) {
  2026.     output("\n ■ Invalid arguments for %s\n", argv[0]);
  2027.     cursor('R');
  2028.     return EXIT_FAILURE;
  2029.   }
  2030.   strcpy(net_data, argv[1]);
  2031.   strcat(net_data, "\\");
  2032.   strcpy(serverhost, argv[2]);
  2033.   sy = atoi(argv[3]);
  2034.  
  2035.   get_dir(maindir, 0);
  2036.  
  2037.   detect_multitask();
  2038.  
  2039.   gettime(&tm);
  2040.   getdate(&dt);
  2041.   cur_daten = dostounix(&dt, &tm);
  2042.  
  2043.   ss = getenv("WWIV_INSTANCE");
  2044.   if (ss) {
  2045.     instance = atoi(ss);
  2046.     if ((instance <= 0) || (instance >= 1000)) {
  2047.       log_it(1, "\n ■ WWIV_INSTANCE set to %d.  Can only be 1..999!", instance);
  2048.       instance = 1;
  2049.     }
  2050.   } else
  2051.     instance = 1;
  2052.  
  2053.   sprintf(fn, "%s\\CONFIG.DAT", maindir);
  2054.   f = sh_open1(fn, O_RDONLY | O_BINARY);
  2055.   if (f < 0) {
  2056.     output("\n ■ %s NOT FOUND.", fn);
  2057.     cursor('R');
  2058.     return EXIT_FAILURE;
  2059.   }
  2060.   sh_read(f, (void *) (&syscfg), sizeof(configrec));
  2061.   sh_close(f);
  2062.  
  2063.   read_groups();
  2064.   if (ngroups == 0) {
  2065.     output("\n ■ Unable to access newsgroup file NEWS.RC!");
  2066.     cursor('R');
  2067.     return EXIT_FAILURE;
  2068.   } else {
  2069.     sprintf(fn, "%sNEWS.RC", net_data);
  2070.     sprintf(tempfn, "%sNEWS.BAK", net_data);
  2071.     if (exist(tempfn))
  2072.       unlink(tempfn);
  2073.     copyfile(fn, tempfn);
  2074.   }
  2075.  
  2076.   if (stricmp(grouprec[0].groupname, "newsrc") == 0)
  2077.     log_it(1, "\n ■ Forced retrieval of newsgroup listing from %s.",
  2078.            serverhost);
  2079.   else
  2080.     log_it(0, "\n ■ %u newsgroup%s defined in NEWS.RC.", ngroups,
  2081.            ngroups == 1 ? "" : "s");
  2082.  
  2083.   sprintf(fn, "%s\\NET.INI", maindir);
  2084.   if ((fp = fsh_open(fn, "rt")) == NULL)
  2085.     output("\n ■ Unable to read %s", fn);
  2086.   else {
  2087.     while (fgets(s, 100, fp)) {
  2088.       stripspace(s);
  2089.       if ((*s == ';') || (*s == '\n') || (*s == '['))
  2090.         continue;
  2091.       if (strlen(s) == 0)
  2092.         continue;
  2093.       if ((strnicmp(s, "POPNAME", 7) == 0) && (POPNAME[0] == 0)) {
  2094.         ss = strtok(s, "=");
  2095.         if (ss) {
  2096.           ss = strtok(NULL, "\n");
  2097.           trimstr1(ss);
  2098.           strcpy(POPNAME, ss);
  2099.         }
  2100.       }
  2101.       if (strnicmp(s, "FWDNAME", 7) == 0) {
  2102.         ss = strtok(s, "=");
  2103.         if (ss) {
  2104.           ss = strtok(NULL, "\n");
  2105.           trimstr1(ss);
  2106.           strcpy(POPNAME, ss);
  2107.         }
  2108.       }
  2109.       if ((strnicmp(s, "DOMAIN", 6) == 0) && (POPDOMAIN[0] == 0)) {
  2110.         ss = strtok(s, "=");
  2111.         if (ss) {
  2112.           ss = strtok(NULL, "\n");
  2113.           trimstr1(ss);
  2114.           strcpy(POPDOMAIN, ss);
  2115.         }
  2116.       }
  2117.       if (strnicmp(s, "FWDDOM", 6) == 0) {
  2118.         ss = strtok(s, "=");
  2119.         if (ss) {
  2120.           ss = strtok(NULL, "\n");
  2121.           trimstr1(ss);
  2122.           strcpy(POPDOMAIN, ss);
  2123.         }
  2124.       }
  2125.       if (strnicmp(s, "XPOSTS", 6) == 0) {
  2126.         ss = strtok(s, "=");
  2127.         if (ss) {
  2128.           ss = strtok(NULL, "\n");
  2129.           trimstr1(ss);
  2130.           crossposts = atoi(ss);
  2131.           if (crossposts > 99)
  2132.             crossposts = 10;
  2133.         }
  2134.       }
  2135.       if (strnicmp(s, "MORENEWS", 8) == 0) {
  2136.         ss = strtok(s, "=");
  2137.         if (ss) {
  2138.           ss = strtok(NULL, "\n");
  2139.           trimstr1(ss);
  2140.           if ((ss[0] == 'n') || (ss[0] == 'N'))
  2141.             MOREINFO = 0;
  2142.         }
  2143.       }
  2144.       if (strnicmp(s, "QUIET", 5) == 0) {
  2145.         ss = strtok(s, "=");
  2146.         if (ss) {
  2147.           ss = strtok(NULL, "\n");
  2148.           trimstr1(ss);
  2149.           if ((ss[0] == 'y') || (ss[0] == 'Y'))
  2150.             QUIET = 1;
  2151.         }
  2152.       }
  2153.       if (strnicmp(s, "BINXPOST", 8) == 0) {
  2154.         ss = strtok(s, "=");
  2155.         if (ss) {
  2156.           ss = strtok(NULL, "\n");
  2157.           trimstr1(ss);
  2158.           if ((ss[0] == 'y') || (ss[0] == 'Y'))
  2159.             binxpost = 1;
  2160.         }
  2161.       }
  2162.       if (strnicmp(s, "NEWSRC_UPD", 9) == 0) {
  2163.         ss = strtok(s, "=");
  2164.         if (ss) {
  2165.           ss = strtok(NULL, "\n");
  2166.           trimstr1(ss);
  2167.           if ((ss[0] == 'y') || (ss[0] == 'Y'))
  2168.             newsrc_upd = 1;
  2169.         }
  2170.       }
  2171.       if (strnicmp(s, "NEWSNAME", 8) == 0) {
  2172.         ss = strtok(s, "=");
  2173.         if (ss) {
  2174.           ss = strtok(NULL, "\n");
  2175.           trimstr1(ss);
  2176.           strcpy(NEWSNAME, ss);
  2177.         }
  2178.       }
  2179.       if (strnicmp(s, "NEWSPASS", 8) == 0) {
  2180.         ss = strtok(s, "=");
  2181.         if (ss) {
  2182.           ss = strtok(NULL, "\n");
  2183.           trimstr1(ss);
  2184.           strcpy(NEWSPASS, ss);
  2185.         }
  2186.       }
  2187.       ss = NULL;
  2188.     }
  2189.     if (fp != NULL)
  2190.       fclose(fp);
  2191.   }
  2192.   ok = 1;
  2193.   if ((nntp_sock = netsocket(serverhost)) != NULL) {
  2194.     bAuth = 1;
  2195.     if (NEWSNAME[0]) {
  2196.       if (!sendauthinfo(nntp_sock))
  2197.         bAuth = 0;
  2198.     }
  2199.     if (bAuth)
  2200.       ok = getnews(nntp_sock);
  2201.     if (ok)
  2202.       log_it(1, "\n ■ NEWS exited with an error.");
  2203.   }
  2204.   cd_to(maindir);
  2205.   log_it(1, "\n ■ NEWS completed processing %d newsgroups", ngroups);
  2206.   if (grouprec)
  2207.     farfree(grouprec);
  2208.   grouprec = NULL;
  2209.   check_packets();
  2210.   fcloseall();
  2211.   cursor('R');
  2212.   return ok;
  2213. }
  2214.