home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume30 / tin / part14 < prev    next >
Encoding:
Text File  |  1992-05-19  |  47.0 KB  |  2,010 lines
  1. Newsgroups: comp.sources.misc
  2. From: iain%anl433.uucp@germany.eu.net (Iain J. Lea)
  3. Subject:  v30i014:  tin - threaded full screen newsreader, Part14/14
  4. Message-ID: <1992May20.173051.236@sparky.imd.sterling.com>
  5. X-Md4-Signature: 54bb81c5eedeec6b90b74b63e4ec7cae
  6. Date: Wed, 20 May 1992 17:30:51 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: iain%anl433.uucp@germany.eu.net (Iain J. Lea)
  10. Posting-number: Volume 30, Issue 14
  11. Archive-name: tin/part14
  12. Environment: BSD, SCO, ISC, SUNOS, SYSVR3, SYSVR4, ULTRIX, XENIX
  13. Supersedes: tin: Volume 29, Issue 19-30
  14.  
  15. #! /bin/sh
  16. # This is a shell archive.  Remove anything before this line, then feed it
  17. # into a shell via "sh file" or similar.  To overwrite existing files,
  18. # type "sh file -c".
  19. # The tool that generated this appeared in the comp.sources.unix newsgroup;
  20. # send mail to comp-sources-unix@uunet.uu.net if you want that tool.
  21. # Contents:  FTP INSTALL.NNTP common.patch debug.c hashstr.c inews.c
  22. #   patchlev.h prompt.c screen.c search.c wildmat.3 xindex.c xuser.c
  23. # Wrapped by kent@sparky on Tue May 19 13:38:07 1992
  24. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  25. echo If this archive is complete, you will see the following message:
  26. echo '          "shar: End of archive 14 (of 14)."'
  27. if test -f 'FTP' -a "${1}" != "-c" ; then 
  28.   echo shar: Will not clobber existing file \"'FTP'\"
  29. else
  30.   echo shar: Extracting \"'FTP'\" \(2568 characters\)
  31.   sed "s/^X//" >'FTP' <<'END_OF_FILE'
  32. XThis document informs you how to get tin source & binaries in one of 3 ways.
  33. X
  34. X1) Via FTP.
  35. X2) Source code via mail.
  36. X3) Pre-compiled Binaries. 
  37. X
  38. X--------------------------------------------------------------------------------
  39. X
  40. X1) FTP sites that carry the latest version of tin are:
  41. X  
  42. X    ftp.Germany.EU.net  [192.76.144.129]  cd pub/news/tin
  43. X    src.doc.ic.ac.uk    [146.169.2.1]     cd ??
  44. X
  45. XNOTE1: Both sites are in Europe (Germany & England respectively).
  46. XNOTE2: There will be a small time lag before each of these sites makes
  47. X       the newest version available as I post firstly to alt.sources
  48. X
  49. X--------------------------------------------------------------------------------
  50. X
  51. X2) For people that do not have FTP access I am willing to send a copy of the 
  52. X   latest released version (or a beta version of the next patchlevel if so 
  53. X   desired).
  54. X
  55. X2.1) I can handle the following media formats. Specify:
  56. X    5.25 & 3.5 inch floppy disks.
  57. X    0.25 (1/4) inch cartridge tapes (you supply it).
  58. X    5.25 inch ISO Read/Write optical disks (you supply it).
  59. X
  60. X2.2) I can handle the following software formats. Specify:
  61. X    Unix   *.tar *.tar.Z *.tar.z *.tar.zoo
  62. X    Msdos  *.zoo *.zip formats 
  63. X
  64. X2.3) I make a small handling charge for this service as listed below:
  65. X    Germany  15 Deustche Marks
  66. X    England   5 Pounds Sterling
  67. X    USA      10 Dollars 
  68. X
  69. XIf you find the above points 2.1 - 2.3 OK send money/cheque with a self-addressed
  70. Xenvelope stating which media & software format you want to the following address:
  71. X
  72. X    Iain J. Lea
  73. X    BrueckenStr. 12
  74. X    8500 Nuernberg 90
  75. X    Germany.
  76. X
  77. X    Phone. +49-911-331963 (home) +49-911-3089-407 (work) +49-911-3089-290 (FAX)
  78. X    Email. iain%anl433.uucp@Germany.EU.net
  79. X
  80. X--------------------------------------------------------------------------------
  81. X
  82. X3) For people that are having problems compiling tin I am willing to send a 
  83. X   copy of a pre-compiled binary for the following machines:
  84. X
  85. X    i386/486 + SCO Xenix 2.3
  86. X    i386/486 + SCO Unix 3.2
  87. X    i386/486 + ISC Unix 3.2 v3.0
  88. X    SunSparc + SunOS 4.1
  89. X    SonyMIPS + NewsOS 4.1
  90. X    DecMIPS  + Ultrix 4.2
  91. X    DG Avion + DG/UX 4.3
  92. X    Apollo68xxx + DomainOS10.3
  93. X    Siemens MX330 + Sinix v5.23
  94. X    Siemens MX350i + Sinix v5.4
  95. X
  96. X    NOTE: Specify how you want tin to be compiled to access news:
  97. X          1) local spool directory (specify path for newsspool & newslib)
  98. X          2) local spool directory & via NNTP
  99. X          3) via NNTP only
  100. X          4) local spool directory & via news archived on CD-ROM
  101. X    
  102. XFor conditions & shipping read points 2.1 - 2.3 above. 
  103. X
  104. XEnjoy
  105. X    Iain.
  106. END_OF_FILE
  107.   if test 2568 -ne `wc -c <'FTP'`; then
  108.     echo shar: \"'FTP'\" unpacked with wrong size!
  109.   fi
  110.   # end of 'FTP'
  111. fi
  112. if test -f 'INSTALL.NNTP' -a "${1}" != "-c" ; then 
  113.   echo shar: Will not clobber existing file \"'INSTALL.NNTP'\"
  114. else
  115.   echo shar: Extracting \"'INSTALL.NNTP'\" \(3160 characters\)
  116.   sed "s/^X//" >'INSTALL.NNTP' <<'END_OF_FILE'
  117. XThis document explains the install procedure for the supplied patch to the
  118. XNNTP server nntpd & to the TIN newsreader to retrieve index files from the
  119. XNNTP server. 
  120. X
  121. XNNTP server
  122. X-----------
  123. X1) Copy the following files to <nntp-source-dir>/server
  124. X     cp xindex.c <nntp-source-dir>/server
  125. X     cp xuser.c <nntp-source-dir>/server
  126. X
  127. X2) Copy the following files to <nntp-source-dir>
  128. X     cp server.patch <nntp-source-dir>
  129. X     cp common.patch <nntp-source-dir>
  130. X
  131. X3) Patch the files in <nntp-source-dir>/common & <nntp-source-dir>/server
  132. X     cd <nntp-source-dir>
  133. X     patch < common.patch
  134. X     patch < server.patch
  135. X
  136. X4) Copy <nntp-source-dir>/common/conf.h.dist to <nntp-source-dir>/common/conf.h
  137. X     cd <nntp-source-dir>/common
  138. X     cp conf.h.dist conf.h
  139. X
  140. X5) Edit <nntp-source-dir>/common/conf.h to suit your sites needs. The XINDEX
  141. X   & XUSER are #defined by default. You may need to change the path for
  142. X   the #define SUBSCRIBTIONS. The default is /usr/lib/news/subscriptions.
  143. X     cd <nntp-source-dir>/common
  144. X     [vi|emacs] conf.h
  145. X
  146. X6) Recompile & install the NNTP server nntpd
  147. X     cd  <nntp-source-dir>
  148. X     make server
  149. X     make install_server
  150. X
  151. XTIN client
  152. X----------
  153. X1) Edit tin Makefile to enable XINDEX & XUSER functionality.
  154. X     cd <tin-dir>
  155. X     [vi|emacs] Makefile
  156. X     Add -DNNTP_XINDEX to CFLAGS if you want tin to retrieve index files 
  157. X     from the server.
  158. X     Add -DNNTP_XUSER to CFLAGS if you want tin to log the username to
  159. X     the NNTP logfile.
  160. X     Add -DNNTP_EXTS to CFLAGS if you want both NNTP_XINDEX & NNTP_XUSER
  161. X     enabled.
  162. X
  163. X2) Recompile & install tin.
  164. X     cd <tin-dir>
  165. X     make <system>
  166. X     make install
  167. X
  168. XTIN daemon (on NNTP server)
  169. X---------------------------
  170. X1) Edit tin Makefile to enable index daemon functionality.
  171. X     cd <tin-dir>
  172. X     [vi|emacs] Makefile
  173. X     Add -DINDEX_DAEMON to CFLAGS to create a version of tin 'tind' to
  174. X     create & update index files on the NNTP server.
  175. X
  176. X2) Compile & install tind.
  177. X     cd <tin-dir>
  178. X     make <system>
  179. X     make install_daemon
  180. X
  181. X3) Add entry to crontab to start 'tind' index daemon every so often.
  182. X     cd /usr/spool/cron/crontabs
  183. X     [vi|emacs] root
  184. X     Add following line to run tind every 30 minutes: 
  185. X       0,30 * * * * su news -c '/usr/lib/news/tind'
  186. X
  187. XOK. If you have gotten this far you will have the following configuration:
  188. X  o  tind will run every 30 minutes to update a central directory (usually
  189. X     /usr/spool/news/.index) of tin index files for all groups in the active
  190. X     file. The directory can be changed by 'tind -I dir' if so desired.
  191. X
  192. X  o  The NNTP server nntpd will service all requests for tin index files
  193. X     from tin clients. It will do this by returning the contents of the
  194. X     group index file in the index directory (ie. /usr/spool/news/.index/*)
  195. X
  196. X  o  The tin client will issue requests for index files to the NNTP server
  197. X     therefore saving space on the client machine and ensuring that there
  198. X     are only one copy of index files on the whole network.  Also clients
  199. X     will not have to wait while index files are built locally as the index
  200. X     daemon tind runs frequently on the news server.
  201. X             
  202. XEnjoy & happy newsreading
  203. X
  204. X  Iain
  205. END_OF_FILE
  206.   if test 3160 -ne `wc -c <'INSTALL.NNTP'`; then
  207.     echo shar: \"'INSTALL.NNTP'\" unpacked with wrong size!
  208.   fi
  209.   # end of 'INSTALL.NNTP'
  210. fi
  211. if test -f 'common.patch' -a "${1}" != "-c" ; then 
  212.   echo shar: Will not clobber existing file \"'common.patch'\"
  213. else
  214.   echo shar: Extracting \"'common.patch'\" \(2369 characters\)
  215.   sed "s/^X//" >'common.patch' <<'END_OF_FILE'
  216. XFiles common.old/Makefile and common/Makefile are identical
  217. XFiles common.old/README and common/README are identical
  218. XFiles common.old/README.HPUX and common/README.HPUX are identical
  219. XFiles common.old/README.IRIX and common/README.IRIX are identical
  220. XFiles common.old/README.LIB and common/README.LIB are identical
  221. XFiles common.old/README.MTXNIU and common/README.MTXNIU are identical
  222. XFiles common.old/README.SYSV and common/README.SYSV are identical
  223. XFiles common.old/README.XENIX and common/README.XENIX are identical
  224. XFiles common.old/clientlib.c and common/clientlib.c are identical
  225. XFiles common.old/clientlib.h and common/clientlib.h are identical
  226. XOnly in common: conf.h
  227. Xdiff -rcs common.old/conf.h.dist common/conf.h.dist
  228. X*** common.old/conf.h.dist    Wed May  6 09:01:11 1992
  229. X--- common/conf.h.dist    Mon May  4 07:31:14 1992
  230. X***************
  231. X*** 7,12 ****
  232. X--- 7,20 ----
  233. X   * Compile time options.
  234. X   */
  235. X    
  236. X+ /*
  237. X+  * Extensions to NNTP RFC977 (I.Lea 07-03-92)
  238. X+  */
  239. X+ 
  240. X+ #define XUSER            /* log clients username to nntp logfile */
  241. X+ #define XINDEX            /* retieve tin index files from server */
  242. X+ #define SUBSCRIPTIONS_FILE    "/usr/lib/news/subscriptions"
  243. X+ 
  244. X  
  245. X  #undef    ALONE        /* True if we're running without inetd */
  246. X  
  247. XOnly in common: conf.h.dst.old
  248. XOnly in common: conf.h.norisc
  249. Xdiff -rcs common.old/nntp.h common/nntp.h
  250. X*** common.old/nntp.h    Wed May  6 09:01:11 1992
  251. X--- common/nntp.h    Tue Mar 10 08:52:12 1992
  252. X***************
  253. X*** 38,43 ****
  254. X--- 38,46 ----
  255. X  #define    OK_GOODBYE    205    /* Closing connection */
  256. X  #define    OK_GROUP    211    /* Group selected */
  257. X  #define    OK_GROUPS    215    /* Newsgroups follow */
  258. X+ #ifdef XINDEX
  259. X+ #define    OK_XINDEX    218    /* Group index file follows */
  260. X+ #endif
  261. X  #define    OK_ARTICLE    220    /* Article (head & body) follows */
  262. X  #define    OK_HEAD        221    /* Head follows */
  263. X  #define    OK_BODY        222    /* Body follows */
  264. X***************
  265. X*** 57,62 ****
  266. X--- 60,68 ----
  267. X  #define    ERR_GOODBYE    400    /* Have to hang up for some reason */
  268. X  #define    ERR_NOGROUP    411    /* No such newsgroup */
  269. X  #define    ERR_NCING    412    /* Not currently in newsgroup */
  270. X+ #ifdef XINDEX
  271. X+ #define    ERR_XINDEX    418    /* No index file for newsgroup */
  272. X+ #endif
  273. X  #define    ERR_NOCRNT    420    /* No current article selected */
  274. X  #define    ERR_NONEXT    421    /* No next article in this group */
  275. X  #define    ERR_NOPREV    422    /* No previous article in this group */
  276. XFiles common.old/version.c and common/version.c are identical
  277. END_OF_FILE
  278.   if test 2369 -ne `wc -c <'common.patch'`; then
  279.     echo shar: \"'common.patch'\" unpacked with wrong size!
  280.   fi
  281.   # end of 'common.patch'
  282. fi
  283. if test -f 'debug.c' -a "${1}" != "-c" ; then 
  284.   echo shar: Will not clobber existing file \"'debug.c'\"
  285. else
  286.   echo shar: Extracting \"'debug.c'\" \(4195 characters\)
  287.   sed "s/^X//" >'debug.c' <<'END_OF_FILE'
  288. X/*
  289. X *  Project   : tin - a threaded Netnews reader
  290. X *  Module    : debug.c
  291. X *  Author    : I.Lea
  292. X *  Created   : 01-04-91
  293. X *  Updated   : 10-05-92
  294. X *  Notes     : debug routines
  295. X *  Copyright : (c) Copyright 1991-92 by Iain Lea
  296. X *              You may  freely  copy or  redistribute  this software,
  297. X *              so  long as there is no profit made from its use, sale
  298. X *              trade or  reproduction.  You may not change this copy-
  299. X *              right notice, and it must be included in any copy made
  300. X */
  301. X
  302. X#include "tin.h"
  303. X#include "nntplib.h"
  304. X
  305. Xint debug;
  306. X
  307. X/*
  308. X *  nntp specific debug routines
  309. X */
  310. X 
  311. Xvoid debug_nntp (func, line)
  312. X    char *func;    
  313. X    char *line;    
  314. X{
  315. X#ifdef DEBUG
  316. X    FILE *fp;
  317. X
  318. X    if (debug != 1)
  319. X        return;
  320. X
  321. X    if ((fp = fopen ("/tmp/NNTP","a+")) != NULL) {
  322. X        fprintf (fp,"%s: %s\n", func, line);
  323. X        fclose (fp);
  324. X        chmod ("/tmp/NNTP", 0666);
  325. X    }
  326. X#endif
  327. X}
  328. X
  329. X
  330. Xvoid debug_nntp_respcode (respcode)
  331. X    int respcode;
  332. X{
  333. X#ifdef DEBUG
  334. X    debug_nntp ("get_respcode", nntp_respcode (respcode));
  335. X#endif
  336. X}    
  337. X
  338. X/*
  339. X *  tin specific debug routines
  340. X */
  341. X 
  342. Xvoid debug_print_arts ()
  343. X{
  344. X#ifdef DEBUG
  345. X    int i;
  346. X
  347. X    if (debug != 2)
  348. X        return;
  349. X
  350. X    for (i = 0; i < top; i++) {    /* for each group */
  351. X        debug_print_header (&arts[i]);
  352. X    }
  353. X#endif
  354. X}
  355. X
  356. X
  357. Xvoid debug_print_header (s)
  358. X    struct article_t *s;
  359. X{
  360. X#ifdef DEBUG
  361. X    FILE *fp;
  362. X
  363. X    if (debug != 2)
  364. X        return;
  365. X
  366. X    if ((fp = fopen ("/tmp/ARTS","a+")) != NULL) {
  367. X        fprintf (fp,"art=[%5ld] tag=[%s] kill=[%s] hot=[%s]\n", s->artnum,
  368. X            (s->tagged ? "TRUE" : "FALSE"),
  369. X            (s->killed ? "TRUE" : "FALSE"),
  370. X            (s->hot ? "TRUE" : "FALSE"));
  371. X        fprintf (fp,"subj=[%-38s]\n", s->subject);
  372. X        fprintf (fp,"date=[%s]  from=[%s]  name=[%s]\n", s->date, s->from, s->name);
  373. X         if (s->archive) {
  374. X             fprintf (fp, "arch=[%-38s]  ", s->archive);
  375. X         } else {
  376. X             fprintf (fp, "arch=[]  ");
  377. X         }
  378. X         if (s->part) {
  379. X             fprintf (fp, "part=[%s]  ", s->part);
  380. X         } else {
  381. X             fprintf (fp, "part=[]  ");
  382. X         }
  383. X         if (s->patch) {
  384. X             fprintf (fp, "patch=[%s]\n", s->patch);
  385. X        } else {
  386. X             fprintf (fp, "patch=[]\n");
  387. X         }
  388. X        fprintf (fp,"thread=[%d]  inthread=[%d]  unread=[%d]\n\n",
  389. X            s->thread, s->inthread, s->unread);
  390. X/*        fprintf (fp,"thread=[%s]  inthread=[%s]  unread=[%s]\n",
  391. X            (s->thread == ART_NORMAL ? "ART_NORMAL" : "ART_EXPIRED"),
  392. X            (s->inthread ? "TRUE" : "FALSE"),
  393. X            (s->unread ? "TRUE" : "FALSE"));
  394. X*/
  395. X        fflush (fp);
  396. X        fclose (fp);
  397. X        chmod ("/tmp/DUMP", 0666);
  398. X    }
  399. X#endif
  400. X}
  401. X
  402. X
  403. Xvoid debug_print_comment (comment)
  404. X    char *comment;
  405. X{
  406. X#ifdef DEBUG
  407. X    FILE *fp;
  408. X
  409. X    if (debug != 2)
  410. X        return;
  411. X
  412. X    if ((fp = fopen ("/tmp/BASE","a+")) != NULL) {
  413. X        fprintf (fp,"\n%s\n\n", comment);
  414. X        fflush (fp);
  415. X        fclose (fp);
  416. X        chmod ("/tmp/BASE", 0666);
  417. X    }
  418. X#endif
  419. X}
  420. X
  421. X
  422. Xvoid debug_print_base ()
  423. X{
  424. X#ifdef DEBUG
  425. X    FILE *fp;
  426. X    int i;
  427. X
  428. X    if (debug != 2)
  429. X        return;
  430. X
  431. X    if ((fp = fopen ("/tmp/BASE","a+")) != NULL) {
  432. X        for (i = 0; i < top_base; i++) {
  433. X            fprintf (fp, "base[%3d]=[%5ld]\n",i,base[i]);
  434. X        }
  435. X        fflush (fp);
  436. X        fclose (fp);
  437. X        chmod ("/tmp/BASE", 0666);
  438. X    }
  439. X#endif
  440. X}
  441. X
  442. X
  443. Xvoid debug_print_active ()
  444. X{
  445. X#ifdef DEBUG
  446. X    FILE *fp;
  447. X    int i;
  448. X
  449. X    if (debug != 2)
  450. X        return;
  451. X
  452. X    if ((fp = fopen ("/tmp/ACTIVE","w")) != NULL) {
  453. X        for (i = 0; i < num_active; i++) {    /* for each group */
  454. X            fprintf (fp, "[%4d]=[%-28s] max=[%4ld] min=[%4ld] mod=[%c] nxt=[%4d] flag=[%d]\n",
  455. X                i, active[i].name, active[i].max, active[i].min,
  456. X                active[i].moderated, active[i].next, active[i].flag);
  457. X            fprintf (fp, "read=[%d] show=[%d] thread=[%d] sort=[%d] author=[%d] auto=[%d] process=[%d]\n",
  458. X                active[i].attribute.read,    active[i].attribute.showall,
  459. X                active[i].attribute.thread,  active[i].attribute.sortby,
  460. X                active[i].attribute.author,  active[i].attribute.autosave,
  461. X                active[i].attribute.process);
  462. X            fprintf (fp, "server=[%s] ", (active[i].attribute.server  == (char *) 0 ? "" : active[i].attribute.server));
  463. X            fprintf (fp, "maildir=[%s] ",(active[i].attribute.maildir == (char *) 0 ? "" : active[i].attribute.maildir));            
  464. X            fprintf (fp, "savedir=[%s] ",(active[i].attribute.savedir == (char *) 0 ? "" : active[i].attribute.savedir));
  465. X            fprintf (fp, "sigfile=[%s]\n\n",(active[i].attribute.sigfile == (char *) 0 ? "" : active[i].attribute.sigfile));
  466. X        }
  467. X        fflush (fp);
  468. X        fclose (fp);
  469. X        chmod ("/tmp/ACTIVE", 0666);
  470. X    }
  471. X#endif
  472. X}
  473. END_OF_FILE
  474.   if test 4195 -ne `wc -c <'debug.c'`; then
  475.     echo shar: \"'debug.c'\" unpacked with wrong size!
  476.   fi
  477.   # end of 'debug.c'
  478. fi
  479. if test -f 'hashstr.c' -a "${1}" != "-c" ; then 
  480.   echo shar: Will not clobber existing file \"'hashstr.c'\"
  481. else
  482.   echo shar: Extracting \"'hashstr.c'\" \(2510 characters\)
  483.   sed "s/^X//" >'hashstr.c' <<'END_OF_FILE'
  484. X/*
  485. X *  Project   : tin - a threaded Netnews reader
  486. X *  Module    : hashstr.c
  487. X *  Author    : I.Lea & R.Skrenta
  488. X *  Created   : 01-04-91
  489. X *  Updated   : 21-03-92
  490. X *  Notes     :
  491. X *  Copyright : (c) Copyright 1991-92 by Iain Lea & Rich Skrenta
  492. X *              You may  freely  copy or  redistribute  this software,
  493. X *              so  long as there is no profit made from its use, sale
  494. X *              trade or  reproduction.  You may not change this copy-
  495. X *              right notice, and it must be included in any copy made
  496. X */
  497. X
  498. X#include    "tin.h"
  499. X
  500. X/*
  501. X *  Maintain a table of all strings we have seen.
  502. X *  If a new string comes in, add it to the table and return a pointer
  503. X *  to it.  If we've seen it before, just return the pointer to it.
  504. X *
  505. X *  Usage:  hash_str("some string") returns char *
  506. X *
  507. X *  Spillovers are chained on the end
  508. X */
  509. X
  510. X/*
  511. X *  Arbitrary table size, but make sure it's prime!
  512. X */
  513. X
  514. X#define        HASHNODE_TABLE_SIZE    2411
  515. X
  516. Xstruct hashnode *table[HASHNODE_TABLE_SIZE];
  517. X
  518. X
  519. Xchar *hash_str (s)
  520. X    char *s;
  521. X{
  522. X    long h;                /* result of hash:  index into hash table */
  523. X    struct hashnode *p;    /* used to descend the spillover structs */
  524. X
  525. X    if (s == (char *) 0) {
  526. X        return ((char *) 0);
  527. X    }
  528. X
  529. X    {
  530. X        unsigned char *t = (unsigned char *) s;
  531. X
  532. X        h = *t++;
  533. X        while (*t)
  534. X            h = ((h << 1) ^ *t++) % (long) HASHNODE_TABLE_SIZE;
  535. X    }
  536. X
  537. X    p = table[h];
  538. X
  539. X    if (p == (struct hashnode *) 0) {
  540. X        table[h] = add_string (s);
  541. X        return table[h]->s;
  542. X    }
  543. X
  544. X    while (1) {
  545. X        if (strcmp (s, p->s) == 0) {
  546. X            return (p->s);
  547. X        }
  548. X
  549. X        if (p->next == (struct hashnode *) 0) {
  550. X            p->next = add_string (s);
  551. X            return p->next->s;
  552. X        } else {
  553. X            p = p->next;
  554. X        }
  555. X    }
  556. X    /* NOTREACHED */
  557. X}
  558. X
  559. X
  560. Xstruct hashnode *add_string (s)
  561. X    char *s;
  562. X{
  563. X    int *iptr;
  564. X    struct hashnode *p;
  565. X
  566. X    p = (struct hashnode *) my_malloc ((unsigned) sizeof (struct hashnode));
  567. X
  568. X    p->next = (struct hashnode *) 0;
  569. X    iptr = (int *) my_malloc ((unsigned) strlen (s) + sizeof (int) + 1);
  570. X    *iptr++ = -1;
  571. X    p->s = (char *) iptr;
  572. X    strcpy (p->s, s);
  573. X    return (p);
  574. X}
  575. X
  576. X
  577. Xvoid hash_init ()
  578. X{
  579. X    int i;
  580. X
  581. X    for (i = 0; i < HASHNODE_TABLE_SIZE; i++) {
  582. X        table[i] = (struct hashnode *) 0;
  583. X    }
  584. X}
  585. X
  586. X
  587. Xvoid hash_reclaim ()
  588. X{
  589. X    int i;
  590. X    int *iptr;
  591. X    struct hashnode *p, *next;
  592. X
  593. X    for (i = 0; i < HASHNODE_TABLE_SIZE; i++)
  594. X        if (table[i] != (struct hashnode *) 0) {
  595. X            p = table[i];
  596. X            while (p != (struct hashnode *) 0) {
  597. X                next = p->next;
  598. X                if (p->s != (char *) 0) {
  599. X                    iptr = (int *) p->s;
  600. X                    iptr--;
  601. X                    free ((char *) iptr);
  602. X                }
  603. X                free ((char *) p);
  604. X                p = next;
  605. X            }
  606. X            table[i] = (struct hashnode *) 0;
  607. X        }
  608. X}
  609. END_OF_FILE
  610.   if test 2510 -ne `wc -c <'hashstr.c'`; then
  611.     echo shar: \"'hashstr.c'\" unpacked with wrong size!
  612.   fi
  613.   # end of 'hashstr.c'
  614. fi
  615. if test -f 'inews.c' -a "${1}" != "-c" ; then 
  616.   echo shar: Will not clobber existing file \"'inews.c'\"
  617. else
  618.   echo shar: Extracting \"'inews.c'\" \(3615 characters\)
  619.   sed "s/^X//" >'inews.c' <<'END_OF_FILE'
  620. X/*
  621. X *  Project   : tin - a threaded Netnews reader
  622. X *  Module    : inews.c
  623. X *  Author    : I.Lea
  624. X *  Created   : 17-03-92
  625. X *  Updated   : 06-05-92
  626. X *  Notes     : NNTP builtin version of inews
  627. X *  Copyright : (c) Copyright 1991-92 by Iain Lea
  628. X *              You may  freely  copy or  redistribute  this software,
  629. X *              so  long as there is no profit made from its use, sale
  630. X *              trade or  reproduction.  You may not change this copy-
  631. X *              right notice, and it must be included in any copy made
  632. X */
  633. X
  634. X#include    "tin.h"
  635. X#include    "nntplib.h"
  636. X
  637. X#ifdef BSD
  638. X#    ifdef apollo
  639. X#        include    </bsd4.3/usr/include/netdb.h>
  640. X#    else
  641. X#        include    <netdb.h>
  642. X#    endif
  643. X#endif
  644. X
  645. X
  646. Xint submit_inews (name)
  647. X    char *name;
  648. X{
  649. X    int    ret_code = FALSE;
  650. X
  651. X#if !defined(INDEX_DAEMON) && !defined(XSPOOLDIR)
  652. X
  653. X#ifdef NNTP_INEWS
  654. X    char    from_name[256];
  655. X    char    host_name[128];
  656. X    char    line[NNTP_STRLEN];
  657. X    FILE    *fp;
  658. X    int    len = 0;
  659. X    int    respcode;
  660. X
  661. X    if ((fp = fopen (name, "r")) == NULL) {
  662. X        return (ret_code);
  663. X    }
  664. X
  665. X    /*
  666. X     * Send POST command to NNTP server
  667. X     */
  668. X    put_server ("post");
  669. X
  670. X    /*
  671. X     * Receive CONT_POST or ERROR response code from NNTP server
  672. X     */
  673. X    if ((respcode = get_respcode ()) != CONT_POST) {
  674. X        error_message ("%s", nntp_respcode (respcode));
  675. X        debug_nntp ("submit_inews", nntp_respcode (respcode));
  676. X        return (ret_code);
  677. X    }
  678. X
  679. X    get_host_name (host_name);    
  680. X    get_from_name (from_name);
  681. X    
  682. X    /*
  683. X     * Send Path: and From: article headers
  684. X     */
  685. X#ifdef NNTP_INEWS_GATEWAY
  686. X    sprintf (line, "Path: %s", userid);
  687. X#else
  688. X    sprintf (line, "Path: %s!%s", host_name, userid);
  689. X#endif    
  690. X    put_server (line);
  691. X    sprintf (line, "From: %s", from_name);
  692. X    put_server (line);
  693. X
  694. X    /*
  695. X     * Send article 1 line at a time ending with "."
  696. X     */
  697. X    while (fgets (line, sizeof (line), fp) != NULL) {
  698. X        len = strlen (line);
  699. X        line[len-1] = '\0';
  700. X        fprintf (ser_wr_fp, "%s\r\n", line);
  701. X    }
  702. X    
  703. X    put_server (".");
  704. X
  705. X    /*
  706. X     * Receive OK_POSTED or ERROR response code from NNTP server
  707. X     */
  708. X    if ((respcode = get_respcode ()) != OK_POSTED) {
  709. X        error_message ("%s", nntp_respcode (respcode));
  710. X        debug_nntp ("submit_inews", nntp_respcode (respcode));
  711. X        return (ret_code);
  712. X      }
  713. X      
  714. X    ret_code = TRUE;
  715. X
  716. X#endif /* NNTP_ABLE */
  717. X
  718. X#endif /* INDEX_DAEMON */
  719. X
  720. X    return (ret_code);
  721. X}
  722. X
  723. X/*
  724. X * Find real hostname / substitute hostname if news gateway name 
  725. X */
  726. X 
  727. Xvoid get_host_name (host_name)
  728. X    char *host_name;
  729. X{
  730. X#ifndef INDEX_DAEMON
  731. X
  732. X#ifdef NNTP_INEWS_GATEWAY
  733. X    strcpy (host_name, NNTP_INEWS_GATEWAY);
  734. X#else
  735. X    char host[256];
  736. X
  737. X#    if defined(BSD) || defined(sinix) || defined(RS6000) || defined(HPUX)
  738. X    {
  739. X        struct hostent *host_entry;
  740. X
  741. X        gethostname (host, sizeof (host)); 
  742. X        host_entry = gethostbyname (host);
  743. X        my_strncpy (host, host_entry->h_name, sizeof (host)); 
  744. X    }    
  745. X#    else    
  746. X    {
  747. X        struct utsname uts_name;
  748. X
  749. X        uname (&uts_name);
  750. X        my_strncpy (host, uts_name.nodename, sizeof (host));
  751. X    }
  752. X#    endif
  753. X
  754. X    strcpy (host_name, host);
  755. X#endif
  756. X
  757. X#endif /* INDEX_DAEMON */
  758. X}
  759. X
  760. X/*
  761. X * Find users & hosts name
  762. X */
  763. X
  764. Xvoid get_from_name (from_name)
  765. X    char *from_name;
  766. X{
  767. X#ifndef INDEX_DAEMON
  768. X
  769. X    char full_name[128];
  770. X    char host_name[256];
  771. X    char *ptr;
  772. X    
  773. X    if ((ptr = (char *) getenv ("NAME")) != (char *) 0) {
  774. X        my_strncpy (full_name, ptr, sizeof (full_name));
  775. X    } else {    
  776. X        my_strncpy (full_name, myentry->pw_gecos, sizeof (full_name));
  777. X        if ((ptr = (char *) strchr (full_name, ','))) {
  778. X            *ptr = '\0';            
  779. X        }
  780. X    }
  781. X
  782. X    get_host_name (host_name);
  783. X
  784. X#ifdef NNTP_INEWS_DOMAIN
  785. X    sprintf (from_name, "%s@%s%s (%s)",
  786. X        userid, host_name, NNTP_INEWS_DOMAIN, full_name);
  787. X#else    
  788. X    sprintf (from_name, "%s@%s (%s)", userid, host_name, full_name);
  789. X#endif
  790. X
  791. X    if (debug == 2) {
  792. X        error_message ("FROM: %s", from_name);
  793. X    }    
  794. X
  795. X#endif /* INDEX_DAEMON */
  796. X}
  797. END_OF_FILE
  798.   if test 3615 -ne `wc -c <'inews.c'`; then
  799.     echo shar: \"'inews.c'\" unpacked with wrong size!
  800.   fi
  801.   # end of 'inews.c'
  802. fi
  803. if test -f 'patchlev.h' -a "${1}" != "-c" ; then 
  804.   echo shar: Will not clobber existing file \"'patchlev.h'\"
  805. else
  806.   echo shar: Extracting \"'patchlev.h'\" \(585 characters\)
  807.   sed "s/^X//" >'patchlev.h' <<'END_OF_FILE'
  808. X/*
  809. X *  Project   : tin - a threaded Netnews reader
  810. X *  Module    : patchlev.h
  811. X *  Author    : I.Lea
  812. X *  Created   : 01-04-91
  813. X *  Updated   : 12-05-92
  814. X *  Notes     :
  815. X *  Copyright : (c) Copyright 1991-92 by Iain Lea
  816. X *              You may  freely  copy or  redistribute  this software,
  817. X *              so  long as there is no profit made from its use, sale
  818. X *              trade or  reproduction.  You may not change this copy-
  819. X *              right notice, and it must be included in any copy made
  820. X */
  821. X
  822. X#define VERSION        "1.1"        /* Beta versions are "1.n Beta" */
  823. X#define PATCHLEVEL    3
  824. END_OF_FILE
  825.   if test 585 -ne `wc -c <'patchlev.h'`; then
  826.     echo shar: \"'patchlev.h'\" unpacked with wrong size!
  827.   fi
  828.   # end of 'patchlev.h'
  829. fi
  830. if test -f 'prompt.c' -a "${1}" != "-c" ; then 
  831.   echo shar: Will not clobber existing file \"'prompt.c'\"
  832. else
  833.   echo shar: Extracting \"'prompt.c'\" \(3818 characters\)
  834.   sed "s/^X//" >'prompt.c' <<'END_OF_FILE'
  835. X/*
  836. X *  Project   : tin - a threaded Netnews reader
  837. X *  Module    : prompt.c
  838. X *  Author    : I.Lea
  839. X *  Created   : 01-04-91
  840. X *  Updated   : 12-04-92
  841. X *  Notes     :
  842. X *  Copyright : (c) Copyright 1991-92 by Iain Lea
  843. X *              You may  freely  copy or  redistribute  this software,
  844. X *              so  long as there is no profit made from its use, sale
  845. X *              trade or  reproduction.  You may not change this copy-
  846. X *              right notice, and it must be included in any copy made
  847. X */
  848. X
  849. X#include    "tin.h"
  850. X
  851. X/*
  852. X *  prompt_num
  853. X *  get a number from the user
  854. X *  Return -1 if missing or bad number typed
  855. X */
  856. X
  857. Xint prompt_num (ch, prompt)
  858. X    char ch;
  859. X    char *prompt;
  860. X{
  861. X    char *p;
  862. X    int num;
  863. X    int time_remaining;
  864. X
  865. X#ifndef NO_RESYNC_ACTIVE_FILE
  866. X    time_remaining = alarm (0);
  867. X#endif
  868. X    
  869. X    clear_message ();
  870. X
  871. X    sprintf (msg, "%c", ch);
  872. X
  873. X    if ((p = getline (prompt, TRUE, msg)) != (char *) 0) {
  874. X        strcpy (msg, p);
  875. X        num = atoi (msg);
  876. X    } else {
  877. X        num = -1;
  878. X    }
  879. X
  880. X    clear_message ();
  881. X
  882. X#ifndef NO_RESYNC_ACTIVE_FILE
  883. X    alarm (time_remaining);
  884. X#endif
  885. X    
  886. X    return (num);
  887. X}
  888. X
  889. X/*
  890. X *  prompt_string
  891. X *  get a string from the user
  892. X *  Return TRUE if a valid string was typed, FALSE otherwise
  893. X */
  894. X
  895. Xint prompt_string (prompt, buf)
  896. X    char *prompt;
  897. X    char *buf;
  898. X{
  899. X    char *p;
  900. X    int time_remaining;
  901. X
  902. X#ifndef NO_RESYNC_ACTIVE_FILE
  903. X    time_remaining = alarm (0);
  904. X#endif
  905. X
  906. X    clear_message ();
  907. X
  908. X    if ((p = getline (prompt, FALSE, (char *) 0)) == (char *) 0) {
  909. X        buf[0] = '\0';
  910. X        clear_message ();
  911. X#ifndef NO_RESYNC_ACTIVE_FILE
  912. X        alarm (time_remaining);
  913. X#endif
  914. X        return FALSE;
  915. X    }
  916. X    strcpy (buf, p);
  917. X    
  918. X    clear_message ();
  919. X#ifndef NO_RESYNC_ACTIVE_FILE
  920. X    alarm (time_remaining);
  921. X#endif
  922. X    
  923. X    return TRUE;
  924. X}
  925. X
  926. X/*
  927. X *  prompt_menu_string
  928. X *  get a string from the user
  929. X *  Return TRUE if a valid string was typed, FALSE otherwise
  930. X */
  931. X
  932. Xint prompt_menu_string (line, col, var)
  933. X    int line;
  934. X    int col;
  935. X    char *var;
  936. X{
  937. X    char *p;
  938. X    int time_remaining;
  939. X#ifndef NO_RESYNC_ACTIVE_FILE
  940. X    time_remaining = alarm (0);
  941. X#endif
  942. X
  943. X    MoveCursor (line, col);
  944. X
  945. X    if ((p = getline ("", FALSE, var)) == (char *) 0) {
  946. X#ifndef NO_RESYNC_ACTIVE_FILE
  947. X        alarm (time_remaining);
  948. X#endif
  949. X        return FALSE;
  950. X    }
  951. X    strcpy (var, p);
  952. X#ifndef NO_RESYNC_ACTIVE_FILE
  953. X    alarm (time_remaining);
  954. X#endif
  955. X    
  956. X    return TRUE;
  957. X}
  958. X
  959. X
  960. Xint prompt_yn (line, prompt, prompt_ch)
  961. X    int line;
  962. X    char *prompt;
  963. X    int prompt_ch;
  964. X{
  965. X    char ch;
  966. X    int time_remaining;
  967. X#ifndef NO_RESYNC_ACTIVE_FILE
  968. X    time_remaining = alarm (0);
  969. X#endif
  970. X
  971. X    MoveCursor (line, 0);
  972. X    CleartoEOLN ();
  973. X    printf ("%s%c", prompt, prompt_ch);
  974. X    fflush (stdout);
  975. X    MoveCursor (line, (int) strlen (prompt));
  976. X
  977. X    if ((ch = (char) ReadCh()) == CR) {
  978. X        ch = prompt_ch;
  979. X    }    
  980. X
  981. X    if (line == LINES) {
  982. X        clear_message();
  983. X    } else {
  984. X        MoveCursor (line, (int) strlen (prompt));
  985. X        if (ch == ESC) {
  986. X            fputc (prompt_ch, stdout);
  987. X        } else {
  988. X            fputc (ch, stdout);
  989. X        }
  990. X        fflush (stdout);
  991. X    }
  992. X#ifndef NO_RESYNC_ACTIVE_FILE
  993. X    alarm (time_remaining);
  994. X#endif
  995. X
  996. X    return (ch == 'y' ? TRUE : FALSE);
  997. X}
  998. X
  999. X
  1000. Xvoid prompt_on_off (row, col, var, help_text, prompt_text)
  1001. X    int row;
  1002. X    int col;
  1003. X    int *var;
  1004. X    char *help_text;
  1005. X    char *prompt_text;
  1006. X{
  1007. X    int ch, var_orig;
  1008. X    int time_remaining;
  1009. X#ifndef NO_RESYNC_ACTIVE_FILE
  1010. X    time_remaining = alarm (0);
  1011. X#endif
  1012. X
  1013. X    var_orig = *var;
  1014. X
  1015. X    show_menu_help (help_text);
  1016. X    do {
  1017. X        MoveCursor (row, col + (int) strlen (prompt_text));
  1018. X        if ((ch = (char) ReadCh ()) == ' ') {
  1019. X            *var = !*var;
  1020. X            printf ("%s", (*var ? "ON " : "OFF"));
  1021. X            fflush (stdout);
  1022. X        }
  1023. X    } while (ch != CR && ch != ESC);
  1024. X
  1025. X    if (ch == ESC) {
  1026. X        *var = var_orig;
  1027. X        printf ("%s", (*var ? "ON " : "OFF"));
  1028. X        fflush (stdout);
  1029. X    }
  1030. X#ifndef NO_RESYNC_ACTIVE_FILE
  1031. X    alarm (time_remaining);
  1032. X#endif
  1033. X}
  1034. X
  1035. X
  1036. Xvoid continue_prompt ()
  1037. X{
  1038. X    char ch;
  1039. X    int time_remaining;
  1040. X#ifndef NO_RESYNC_ACTIVE_FILE
  1041. X    time_remaining = alarm (0);
  1042. X#endif
  1043. X    
  1044. X    info_message (txt_hit_any_key);
  1045. X    ch = (char) ReadCh ();
  1046. X#ifndef NO_RESYNC_ACTIVE_FILE
  1047. X    alarm (time_remaining);
  1048. X#endif
  1049. X}
  1050. X
  1051. X
  1052. END_OF_FILE
  1053.   if test 3818 -ne `wc -c <'prompt.c'`; then
  1054.     echo shar: \"'prompt.c'\" unpacked with wrong size!
  1055.   fi
  1056.   # end of 'prompt.c'
  1057. fi
  1058. if test -f 'screen.c' -a "${1}" != "-c" ; then 
  1059.   echo shar: Will not clobber existing file \"'screen.c'\"
  1060. else
  1061.   echo shar: Extracting \"'screen.c'\" \(2916 characters\)
  1062.   sed "s/^X//" >'screen.c' <<'END_OF_FILE'
  1063. X/*
  1064. X *  Project   : tin - a threaded Netnews reader
  1065. X *  Module    : screen.c
  1066. X *  Author    : I.Lea & R.Skrenta
  1067. X *  Created   : 01-04-91
  1068. X *  Updated   : 18-04-92
  1069. X *  Notes     :
  1070. X *  Copyright : (c) Copyright 1991-92 by Iain Lea & Rich Skrenta
  1071. X *              You may  freely  copy or  redistribute  this software,
  1072. X *              so  long as there is no profit made from its use, sale
  1073. X *              trade or  reproduction.  You may not change this copy-
  1074. X *              right notice, and it must be included in any copy made
  1075. X */
  1076. X
  1077. X#include    "tin.h"
  1078. X
  1079. Xextern int errno;
  1080. X
  1081. Xchar msg[LEN];
  1082. Xstruct screen_t *screen;
  1083. X
  1084. X
  1085. Xvoid info_message (str)
  1086. X    char *str;
  1087. X{
  1088. X    clear_message ();                /* Clear any old messages hanging around */
  1089. X    center_line (LINES, FALSE, str);    /* center the message at screen bottom */
  1090. X    if (! cmd_line) {
  1091. X        MoveCursor (LINES, 0);
  1092. X    }
  1093. X}
  1094. X
  1095. X
  1096. Xvoid wait_message (str)
  1097. X    char *str;
  1098. X{
  1099. X    clear_message ();      /* Clear any old messages hanging around */
  1100. X    fputs (str, stdout);
  1101. X    fflush (stdout);
  1102. X}
  1103. X
  1104. X
  1105. Xvoid error_message (template, str)
  1106. X    char *template;
  1107. X    char *str;
  1108. X{
  1109. X    errno = 0;
  1110. X
  1111. X    clear_message ();      /* Clear any old messages hanging around */
  1112. X    
  1113. X    fprintf (stderr, template, str);
  1114. X    fflush (stderr);
  1115. X
  1116. X    if (cmd_line) {
  1117. X        fputc ('\n', stderr);
  1118. X        fflush (stderr);
  1119. X    } else {
  1120. X        MoveCursor (LINES, 0);
  1121. X        sleep (2);
  1122. X    }
  1123. X}
  1124. X
  1125. X
  1126. Xvoid perror_message (template, str)
  1127. X    char *template;
  1128. X    char *str;
  1129. X{
  1130. X    char str2[512];
  1131. X
  1132. X    clear_message ();      /* Clear any old messages hanging around */
  1133. X    
  1134. X    sprintf (str2, template, str);
  1135. X    perror (str2);
  1136. X    errno = 0;
  1137. X
  1138. X    if (cmd_line) {
  1139. X        fputc ('\n', stderr);
  1140. X        fflush (stderr);
  1141. X    } else {
  1142. X        MoveCursor (LINES, 0);
  1143. X        sleep (2);
  1144. X    }
  1145. X}
  1146. X
  1147. X
  1148. Xvoid clear_message ()
  1149. X{
  1150. X    if (! cmd_line) {
  1151. X        MoveCursor (LINES, 0);
  1152. X        CleartoEOLN ();
  1153. X    }
  1154. X}
  1155. X
  1156. X
  1157. Xvoid center_line (line, inverse, str)
  1158. X    int line;
  1159. X    int inverse;
  1160. X    char *str;
  1161. X{
  1162. X    int pos;
  1163. X
  1164. X    if (! cmd_line) {
  1165. X        pos = (COLS - (int) strlen (str)) / 2;
  1166. X        MoveCursor (line, pos);
  1167. X        if (inverse) {
  1168. X            StartInverse ();
  1169. X        }
  1170. X    }
  1171. X
  1172. X    fputs (str, stdout);
  1173. X    fflush (stdout);
  1174. X
  1175. X    if (! cmd_line) {
  1176. X        if (inverse) {
  1177. X            EndInverse ();
  1178. X        }
  1179. X    }
  1180. X}
  1181. X
  1182. X
  1183. Xvoid draw_arrow (line)
  1184. X    int line;
  1185. X{
  1186. X    MoveCursor (line, 0);
  1187. X
  1188. X    if (draw_arrow_mark) {
  1189. X        fputs ("->", stdout);
  1190. X        fflush (stdout);
  1191. X    } else {
  1192. X        StartInverse ();
  1193. X        fputs (screen[line-INDEX_TOP].col, stdout);
  1194. X        fflush (stdout);
  1195. X        EndInverse ();
  1196. X    }
  1197. X    MoveCursor (LINES, 0);
  1198. X}
  1199. X
  1200. X
  1201. Xvoid erase_arrow (line)
  1202. X    int line;
  1203. X{
  1204. X    MoveCursor (line, 0);
  1205. X
  1206. X    if (draw_arrow_mark) {
  1207. X        fputs ("  ", stdout);
  1208. X    } else {
  1209. X        EndInverse ();
  1210. X        fputs (screen[line-INDEX_TOP].col, stdout);
  1211. X    }
  1212. X    fflush (stdout);
  1213. X}
  1214. X
  1215. X
  1216. Xvoid show_title (title)
  1217. X    char *title;
  1218. X{    
  1219. X    int col;
  1220. X    
  1221. X    col = (COLS - (int) strlen (txt_type_h_for_help))+1;
  1222. X    if (col) {
  1223. X        MoveCursor (0, col);
  1224. X        if (mail_check ()) {        /* you have mail message in */
  1225. X            fputs (txt_you_have_mail, stdout);
  1226. X        } else {
  1227. X            fputs (txt_type_h_for_help, stdout);
  1228. X        }
  1229. X    }
  1230. X    center_line (0, TRUE, title);
  1231. X}
  1232. X
  1233. X
  1234. Xvoid ring_bell ()
  1235. X{
  1236. X    fputc ('\007', stdout);
  1237. X    fflush (stdout);
  1238. X}
  1239. END_OF_FILE
  1240.   if test 2916 -ne `wc -c <'screen.c'`; then
  1241.     echo shar: \"'screen.c'\" unpacked with wrong size!
  1242.   fi
  1243.   # end of 'screen.c'
  1244. fi
  1245. if test -f 'search.c' -a "${1}" != "-c" ; then 
  1246.   echo shar: Will not clobber existing file \"'search.c'\"
  1247. else
  1248.   echo shar: Extracting \"'search.c'\" \(7173 characters\)
  1249.   sed "s/^X//" >'search.c' <<'END_OF_FILE'
  1250. X/*
  1251. X *  Project   : tin - a threaded Netnews reader
  1252. X *  Module    : search.c
  1253. X *  Author    : I.Lea & R.Skrenta
  1254. X *  Created   : 01-04-91
  1255. X *  Updated   : 13-03-92
  1256. X *  Notes     :
  1257. X *  Copyright : (c) Copyright 1991-92 by Iain Lea & Rich Skrenta
  1258. X *              You may  freely  copy or  redistribute  this software,
  1259. X *              so  long as there is no profit made from its use, sale
  1260. X *              trade or  reproduction.  You may not change this copy-
  1261. X *              right notice, and it must be included in any copy made
  1262. X */
  1263. X
  1264. X#include    "tin.h"
  1265. X
  1266. Xextern FILE *note_fp;
  1267. Xextern int cur_groupnum;
  1268. Xextern int first_group_on_screen;
  1269. Xextern int last_group_on_screen;
  1270. Xextern int first_subj_on_screen;
  1271. Xextern int last_subj_on_screen;
  1272. Xextern int index_point;
  1273. Xextern int note_line;
  1274. Xextern int note_page;
  1275. Xextern int note_end;
  1276. Xextern long note_mark[MAX_PAGES];
  1277. X
  1278. X/*
  1279. X * last search patterns
  1280. X */
  1281. X
  1282. Xchar default_author_search[LEN];
  1283. Xchar default_group_search[LEN];
  1284. Xchar default_subject_search[LEN];
  1285. Xchar default_art_search[LEN];
  1286. X
  1287. X
  1288. X/*
  1289. X *  group.c & page.c
  1290. X */
  1291. X 
  1292. Xint search_author (only_unread, current_art, forward)
  1293. X    int only_unread;
  1294. X    int current_art;
  1295. X    int forward;
  1296. X{
  1297. X    char buf[LEN];
  1298. X    char buf2[LEN];
  1299. X    int i, patlen;
  1300. X
  1301. X    clear_message ();
  1302. X
  1303. X    if (forward) {
  1304. X        sprintf (buf2, txt_author_search_forwards, default_author_search);
  1305. X    } else {
  1306. X        sprintf (buf2, txt_author_search_backwards, default_author_search);
  1307. X    }
  1308. X    
  1309. X    if (! prompt_string (buf2, buf)) {
  1310. X        return -1;
  1311. X    }
  1312. X    
  1313. X    if (strlen (buf)) {
  1314. X        strcpy (default_author_search, buf);
  1315. X    } else {
  1316. X        if (default_author_search[0]) {
  1317. X            strcpy (buf, default_author_search);
  1318. X        } else {
  1319. X            info_message (txt_no_search_string);    
  1320. X            return -1;
  1321. X        }
  1322. X    }
  1323. X
  1324. X    wait_message (txt_searching);
  1325. X
  1326. X    make_lower (default_author_search, buf);
  1327. X
  1328. X    patlen = strlen (default_author_search);
  1329. X
  1330. X    i = current_art;
  1331. X
  1332. X    do {
  1333. X        if (forward) {
  1334. X            i = next_response (i);
  1335. X            if (i < 0)
  1336. X                i = base[0];
  1337. X        } else {
  1338. X            i = prev_response (i);
  1339. X            if (i < 0)
  1340. X                i = base[top_base - 1] + 
  1341. X                    num_of_responses (top_base - 1);
  1342. X        }
  1343. X
  1344. X        if (only_unread && arts[i].unread != ART_UNREAD) {
  1345. X            continue;
  1346. X        }
  1347. X            
  1348. X        if (arts[i].name == (char *) 0) {
  1349. X            make_lower (arts[i].from, buf2);
  1350. X        } else {
  1351. X            sprintf (msg, "%s (%s)", arts[i].from, arts[i].name);
  1352. X            make_lower (msg, buf2);
  1353. X        }
  1354. X
  1355. X        if (str_str (buf2, buf, patlen) != 0) {
  1356. X            clear_message ();
  1357. X            return i;
  1358. X        }
  1359. X    } while (i != current_art);
  1360. X
  1361. X    info_message (txt_no_match);
  1362. X    return -1;
  1363. X}
  1364. X
  1365. X/*
  1366. X * select.c
  1367. X */
  1368. X 
  1369. Xvoid search_group (forward)
  1370. X    int forward;
  1371. X{
  1372. X    char buf[LEN];
  1373. X    char buf2[LEN];
  1374. X    int i, patlen;
  1375. X
  1376. X    clear_message ();
  1377. X
  1378. X    if (forward) {
  1379. X        sprintf (buf2, txt_search_forwards, default_group_search);
  1380. X    } else {
  1381. X        sprintf (buf2, txt_search_backwards, default_group_search);
  1382. X    }
  1383. X
  1384. X    if (! prompt_string (buf2, buf)) {
  1385. X        return;
  1386. X    }
  1387. X
  1388. X    if (strlen (buf)) {
  1389. X        strcpy (default_group_search, buf);
  1390. X    } else {
  1391. X        if (default_group_search[0]) {
  1392. X            strcpy (buf, default_group_search);
  1393. X        } else {
  1394. X            info_message (txt_no_search_string);    
  1395. X            return;
  1396. X        }
  1397. X    }
  1398. X
  1399. X    wait_message (txt_searching);
  1400. X
  1401. X    make_lower (default_group_search, buf);
  1402. X
  1403. X    patlen = strlen (default_group_search);
  1404. X
  1405. X    i = cur_groupnum;
  1406. X
  1407. X    do {
  1408. X        if (forward)
  1409. X            i++;
  1410. X        else
  1411. X            i--;
  1412. X
  1413. X        if (i >= group_top)
  1414. X            i = 0;
  1415. X        if (i < 0)
  1416. X            i = group_top - 1;
  1417. X
  1418. X        make_lower (active[my_group[i]].name, buf2);
  1419. X
  1420. X        if (str_str (buf2, buf, patlen) != 0) {
  1421. X            if (i >= first_group_on_screen
  1422. X            &&  i < last_group_on_screen) {
  1423. X                clear_message ();
  1424. X                erase_group_arrow ();
  1425. X                cur_groupnum = i;
  1426. X                draw_group_arrow ();
  1427. X            } else {
  1428. X                cur_groupnum = i;
  1429. X                group_selection_page ();
  1430. X            }
  1431. X            return;
  1432. X        }
  1433. X    } while (i != cur_groupnum);
  1434. X
  1435. X    info_message (txt_no_match);
  1436. X}
  1437. X
  1438. X/*
  1439. X * group.c
  1440. X */
  1441. X
  1442. Xvoid search_subject (forward, group)
  1443. X    int forward;
  1444. X    char *group;
  1445. X{
  1446. X    char buf[LEN];
  1447. X    char buf2[LEN];
  1448. X    int i, j, patlen;
  1449. X
  1450. X    if (index_point < 0) {
  1451. X        info_message (txt_no_arts);
  1452. X        return;
  1453. X    }
  1454. X    
  1455. X    clear_message ();
  1456. X
  1457. X    if (forward) {
  1458. X        sprintf (buf2, txt_search_forwards, default_subject_search);
  1459. X    } else {
  1460. X        sprintf (buf2, txt_search_backwards, default_subject_search);
  1461. X    }
  1462. X
  1463. X    if (! prompt_string (buf2, buf)) {
  1464. X        return;
  1465. X    }
  1466. X
  1467. X    if (strlen (buf)) {
  1468. X        strcpy (default_subject_search, buf);
  1469. X    } else {
  1470. X        if (default_subject_search[0]) {
  1471. X            strcpy (buf, default_subject_search);
  1472. X        } else {
  1473. X            info_message (txt_no_search_string);    
  1474. X            return;
  1475. X        }
  1476. X    }
  1477. X
  1478. X    wait_message (txt_searching);
  1479. X
  1480. X    make_lower (default_subject_search, buf);
  1481. X
  1482. X    patlen = strlen (default_subject_search);
  1483. X
  1484. X    i = index_point;
  1485. X
  1486. X    do {
  1487. X        if (forward)
  1488. X            i++;
  1489. X        else
  1490. X            i--;
  1491. X
  1492. X        if (i >= top_base)
  1493. X            i = 0;
  1494. X        if (i < 0)
  1495. X            i = top_base - 1;
  1496. X
  1497. X        j = (int) base[i];
  1498. X
  1499. X        make_lower (arts[j].subject, buf2);
  1500. X
  1501. X        if (str_str (buf2, buf, patlen) != 0) {
  1502. X            if (i >= first_subj_on_screen
  1503. X                &&  i < last_subj_on_screen) {
  1504. X                clear_message ();
  1505. X                erase_subject_arrow ();
  1506. X                index_point = i;
  1507. X                draw_subject_arrow ();
  1508. X            } else {
  1509. X                index_point = i;
  1510. X                show_group_page (group);
  1511. X            }
  1512. X            return;
  1513. X        }
  1514. X    } while (i != index_point);
  1515. X
  1516. X    info_message (txt_no_match);
  1517. X}
  1518. X
  1519. X/*
  1520. X *  page.c (search article body)
  1521. X */
  1522. X
  1523. Xint search_article (forward)
  1524. X    int forward;
  1525. X{
  1526. X    char buf[LEN];
  1527. X    char buf2[LEN];
  1528. X    char string[LEN];
  1529. X    char pattern[LEN];
  1530. X    char *p, *q;
  1531. X    int ctrl_L;
  1532. X    int i, j, patlen;
  1533. X    int orig_note_end;
  1534. X    int orig_note_page;
  1535. X
  1536. X    clear_message ();
  1537. X
  1538. X    if (forward) {
  1539. X        sprintf (buf2, txt_search_forwards, default_art_search);
  1540. X    } else {
  1541. X        sprintf (buf2, txt_search_backwards, default_art_search);
  1542. X    }
  1543. X
  1544. X    if (! prompt_string (buf2, buf)) {
  1545. X        return FALSE;
  1546. X    }
  1547. X
  1548. X    if (strlen (buf)) {
  1549. X        strcpy (default_art_search, buf);
  1550. X    } else {
  1551. X        if (default_art_search[0]) {
  1552. X            strcpy (buf, default_art_search);
  1553. X        } else {
  1554. X            info_message (txt_no_search_string);    
  1555. X            return FALSE;
  1556. X        }
  1557. X    }
  1558. X
  1559. X    wait_message (txt_searching);
  1560. X    
  1561. X    make_lower (default_art_search, pattern);
  1562. X
  1563. X    patlen = strlen (default_art_search);
  1564. X
  1565. X    /*
  1566. X     *  save current position in article
  1567. X     */
  1568. X    orig_note_end = note_end;
  1569. X    orig_note_page = note_page;
  1570. X    
  1571. X    while (! note_end) {
  1572. X        note_line = 1;
  1573. X        ctrl_L = FALSE;
  1574. X
  1575. X        if (note_page == 0) {
  1576. X            note_line += 4;
  1577. X        } else {
  1578. X            note_line += 2;
  1579. X        }
  1580. X        while (note_line < LINES) {
  1581. X            if (fgets (buf, sizeof buf, note_fp) == NULL) {
  1582. X                note_end = TRUE;
  1583. X                break;
  1584. X            }
  1585. X            buf[LEN-1] = '\0';
  1586. X            for (p = buf, q = buf2;    *p && *p != '\n' && q<&buf2[LEN]; p++) {
  1587. X                if (*p == '\b' && q > buf2) {
  1588. X                    q--;
  1589. X                } else if (*p == '\f') {        /* ^L */
  1590. X                    *q++ = '^';
  1591. X                    *q++ = 'L';
  1592. X                    ctrl_L = TRUE;
  1593. X                } else if (*p == '\t') {
  1594. X                    i = q - buf2;
  1595. X                    j = (i|7) + 1;
  1596. X
  1597. X                    while (i++ < j) {
  1598. X                        *q++ = ' ';
  1599. X                    }
  1600. X                } else if (((*p) & 0xFF) < ' ') {
  1601. X                    *q++ = '^';
  1602. X                    *q++ = ((*p) & 0xFF) + '@';
  1603. X                } else {
  1604. X                    *q++ = *p;
  1605. X                }
  1606. X            }
  1607. X            *q = '\0';
  1608. X
  1609. X            make_lower (buf2, string);
  1610. X
  1611. X            if (str_str (string, pattern, patlen) != 0) {
  1612. X                fseek (note_fp, note_mark[note_page], 0);
  1613. X                return TRUE;
  1614. X            }
  1615. X
  1616. X            note_line += ((int) strlen(buf2) / COLS) + 1;
  1617. X
  1618. X            if (ctrl_L) {
  1619. X                break;
  1620. X            }
  1621. X        }
  1622. X        if (! note_end) {
  1623. X            note_mark[++note_page] = ftell (note_fp);
  1624. X        }
  1625. X    }
  1626. X
  1627. X    note_end = orig_note_end;
  1628. X    note_page = orig_note_page;
  1629. X    fseek (note_fp, note_mark[note_page], 0);
  1630. X    info_message (txt_no_match);
  1631. X    return FALSE;
  1632. X}
  1633. X
  1634. X
  1635. Xvoid make_lower (s, t)
  1636. X    char *s;
  1637. X    char *t;
  1638. X{
  1639. X
  1640. X    while (*s) {
  1641. X        if (isupper(*s))
  1642. X            *t = tolower(*s);
  1643. X        else
  1644. X            *t = *s;
  1645. X        s++;
  1646. X        t++;
  1647. X    }
  1648. X    *t = 0;
  1649. X}
  1650. END_OF_FILE
  1651.   if test 7173 -ne `wc -c <'search.c'`; then
  1652.     echo shar: \"'search.c'\" unpacked with wrong size!
  1653.   fi
  1654.   # end of 'search.c'
  1655. fi
  1656. if test -f 'wildmat.3' -a "${1}" != "-c" ; then 
  1657.   echo shar: Will not clobber existing file \"'wildmat.3'\"
  1658. else
  1659.   echo shar: Extracting \"'wildmat.3'\" \(2247 characters\)
  1660.   sed "s/^X//" >'wildmat.3' <<'END_OF_FILE'
  1661. X.TH WILDMAT 3
  1662. X.SH NAME
  1663. Xwildmat \- perform shell-style wildcard matching
  1664. X.SH SYNOPSIS
  1665. X.nf
  1666. X.B "int"
  1667. X.B "wildmat(text, pattern)"
  1668. X.B "    char        *text;"
  1669. X.B "    char        *pattern;"
  1670. X.fi
  1671. X.SH DESCRIPTION
  1672. X.I Wildmat
  1673. Xcompares the
  1674. X.I text
  1675. Xagainst the
  1676. X.I pattern
  1677. Xand
  1678. Xreturns non-zero if the pattern matches the text.
  1679. XThe pattern is interpreted similar to shell filename wildcards, and not
  1680. Xas a full regular expression such as those handled by the
  1681. X.IR grep (1)
  1682. Xfamily of programs or the
  1683. X.IR regex (3)
  1684. Xor
  1685. X.IR regexp (3)
  1686. Xset of routines.
  1687. X.PP
  1688. XThe pattern is interpreted according to the following rules:
  1689. X.TP
  1690. X.BI \e x
  1691. XTurns off the special meaning of
  1692. X.I x
  1693. Xand matches it directly; this is used mostly before a question mark or
  1694. Xasterisk, and is not valid inside square brackets.
  1695. X.TP
  1696. X.B ?
  1697. XMatches any single character.
  1698. X.TP
  1699. X.B *
  1700. XMatches any sequence of zero or more characters.
  1701. X.TP
  1702. X.BI [ x...y ]
  1703. XMatches any single character specified by the set
  1704. X.IR x...y .
  1705. XA minus sign may be used to indicate a range of characters.
  1706. XThat is,
  1707. X.I [0\-5abc]
  1708. Xis a shorthand for
  1709. X.IR [012345abc] .
  1710. XMore than one range may appear inside a character set;
  1711. X.I [0-9a-zA-Z._]
  1712. Xmatches almost all of the legal characters for a host name.
  1713. XThe close bracket,
  1714. X.IR ] ,
  1715. Xmay be used if it is the first character in the set.
  1716. XThe minus sign,
  1717. X.IR \- ,
  1718. Xmay be used if it is either the first or last character in the set.
  1719. X.TP
  1720. X.BI [^ x...y ]
  1721. XThis matches any character
  1722. X.I not
  1723. Xin the set
  1724. X.IR x...y ,
  1725. Xwhich is interpreted as described above.
  1726. XFor example,
  1727. X.I [^]\-]
  1728. Xmatches any character other than a close bracket or minus sign.
  1729. X.SH "BUGS AND LIMITATIONS"
  1730. XThere is no way to end a range with a close bracket.
  1731. X.SH HISTORY
  1732. XWritten by Rich $alz <rsalz@bbn.com> in 1986, and posted to Usenet
  1733. Xseveral times since then, most notably in comp.sources.misc in
  1734. XMarch, 1991.
  1735. X.PP
  1736. XLars Mathiesen <thorinn@diku.dk> enhanced the multi-asterisk failure
  1737. Xmode in early 1991.
  1738. X.PP
  1739. XRich and Lars increased the efficiency of star patterns and reposted it
  1740. Xto comp.sources.misc in April, 1991.
  1741. X.PP
  1742. XRobert Elz <kre@munnari.oz.au> added minus sign and close bracket handling
  1743. Xin June, 1991.
  1744. X.PP
  1745. X.de R$
  1746. XThis is revision \\$3, dated \\$4.
  1747. X..
  1748. X.R$ $Id: wildmat.3,v 1.7 91/07/05 17:50:16 rsalz Exp $
  1749. X.SH "SEE ALSO"
  1750. Xgrep(1), regex(3), regexp(3).
  1751. END_OF_FILE
  1752.   if test 2247 -ne `wc -c <'wildmat.3'`; then
  1753.     echo shar: \"'wildmat.3'\" unpacked with wrong size!
  1754.   fi
  1755.   # end of 'wildmat.3'
  1756. fi
  1757. if test -f 'xindex.c' -a "${1}" != "-c" ; then 
  1758.   echo shar: Will not clobber existing file \"'xindex.c'\"
  1759. else
  1760.   echo shar: Extracting \"'xindex.c'\" \(3476 characters\)
  1761.   sed "s/^X//" >'xindex.c' <<'END_OF_FILE'
  1762. X/*
  1763. X *  Project   : NNTP (RFC 977) extension
  1764. X *  Module    : xindex.c
  1765. X *  Author    : I.Lea
  1766. X *  Created   : 07-03-92
  1767. X *  Updated   : 22-03-92
  1768. X *  Notes     : Add a command to retieve index files from the
  1769. X *              NNTP server so as to save space on the client.
  1770. X *              Ideas borrowed from XTHREAD nntp extension code
  1771. X *              posted by Tim Iverson to alt.sources in mid'91.
  1772. X *  Copyright : (c) Copyright 1992 by Iain Lea
  1773. X *              You may  freely  copy or  redistribute  this software,
  1774. X *              so  long as there is no profit made from its use, sale
  1775. X *              trade or  reproduction.  You may not change this copy-
  1776. X *              right notice, and it must be included in any copy made
  1777. X */
  1778. X
  1779. X#include "common.h"
  1780. X
  1781. X#ifdef XINDEX
  1782. X
  1783. X#undef    DEBUG_XINDEX        /* set to define to turn on more debug info */
  1784. X#define HASH_VALUE 1409        /* mod value for hashing group name */
  1785. X
  1786. X#ifdef __STDC__
  1787. Xvoid xindex (int argc, char *argv[]);
  1788. Xstatic void find_index_file (char *group, char *index_file);
  1789. Xstatic long hash_groupname (char *group);
  1790. X#else
  1791. Xvoid xindex ();
  1792. Xstatic void find_index_file ();
  1793. Xstatic long hash_groupname ();
  1794. X#endif
  1795. X
  1796. X/*
  1797. X *  Usage: XINDEX GROUP
  1798. X *
  1799. X *  GROUP    Group for which to retrieve index file
  1800. X *
  1801. X *  This command is NOT documented in RFC977.
  1802. X */
  1803. X
  1804. Xvoid xindex (argc, argv)
  1805. X    int    argc;
  1806. X    char    *argv[];
  1807. X{
  1808. X    char    line[NNTP_STRLEN];
  1809. X    char    group[256];
  1810. X    char    index_file[256];
  1811. X    char    *cp;
  1812. X    FILE    *fp;
  1813. X    
  1814. X    /*
  1815. X     * "parse" the argument list
  1816. X     */
  1817. X    if (argc == 1) {
  1818. X        printf("%d Usage: XINDEX group\r\n", ERR_CMDSYN);
  1819. X        (void) fflush(stdout);
  1820. X        return;
  1821. X    } else {
  1822. X        strncpy (group, argv[1], sizeof (group)-1);
  1823. X#if defined(SYSLOG) && defined(DEBUG_XINDEX)
  1824. X        syslog(LOG_INFO, "%s xindex %s", hostname, group);
  1825. X#endif
  1826. X
  1827. X        find_index_file(group, index_file);
  1828. X        
  1829. X        if ((fp = fopen(index_file, "r")) == NULL) {
  1830. X#ifdef SYSLOG
  1831. X            syslog(LOG_INFO, "%s xindex cannot open %s (%s)",
  1832. X                hostname, group, index_file);
  1833. X#endif
  1834. X            printf("%d XINDEX Cannot open %s\r\n",
  1835. X                ERR_XINDEX, group);
  1836. X            (void) fflush(stdout);
  1837. X            return;
  1838. X        }
  1839. X
  1840. X        printf("%d XINDEX group in index format\r\n", OK_XINDEX);
  1841. X        (void) fflush(stdout);
  1842. X        
  1843. X        while (fgets(line, sizeof(line), fp) != NULL) {
  1844. X            if ((cp = index(line, '\n')) != NULL)
  1845. X                *cp = '\0';
  1846. X            putline(line);
  1847. X        }
  1848. X        (void) fclose(fp);
  1849. X    
  1850. X        putline(".");
  1851. X        (void) fflush(stdout);
  1852. X    }
  1853. X}
  1854. X
  1855. X/*
  1856. X *  Look in <SPOOLDIR>/.index directory for the index file for the
  1857. X *  given group.  Hashing the group name gets a number. See if that
  1858. X *  #.1 file exists; if so, read first line. Group we want? If not,
  1859. X *  try #.2.  Repeat until no such file or we find the right file.
  1860. X */
  1861. X
  1862. Xstatic void find_index_file (group, index_file)
  1863. X    char *group;
  1864. X    char *index_file;
  1865. X{
  1866. X    char buf[256], *p;
  1867. X    FILE *fp;
  1868. X    int i = 1;
  1869. X    unsigned long hash;
  1870. X
  1871. X    hash = hash_groupname (group);
  1872. X
  1873. X    while (1) {
  1874. X        sprintf (index_file, "%s/.index/%lu.%d", SPOOLDIR, hash, i);
  1875. X        
  1876. X        if ((fp = fopen (index_file, "r")) == NULL) {
  1877. X            return;
  1878. X        }
  1879. X
  1880. X        if (fgets (buf, sizeof (buf), fp) == NULL) {
  1881. X            fclose (fp);
  1882. X            return;
  1883. X        }
  1884. X        fclose (fp);
  1885. X
  1886. X        for (p = buf; *p && *p != '\n'; p++) {
  1887. X            continue;
  1888. X        }    
  1889. X        *p = '\0';
  1890. X
  1891. X        if (strcmp (buf, group) == 0) {
  1892. X            return;
  1893. X        }    
  1894. X        i++;
  1895. X    }    
  1896. X}
  1897. X
  1898. X/*
  1899. X * hash group name for filename of group
  1900. X */
  1901. X
  1902. Xstatic long hash_groupname (group)
  1903. X    char *group;
  1904. X{
  1905. X    unsigned long hash_value;
  1906. X    unsigned char *ptr = (unsigned char *) group;
  1907. X
  1908. X    hash_value = *ptr++;
  1909. X
  1910. X    while (*ptr)
  1911. X        hash_value = ((hash_value << 1) ^ *ptr++) % HASH_VALUE;
  1912. X
  1913. X    return (hash_value);
  1914. X}
  1915. X
  1916. X
  1917. X#endif /* XINDEX */
  1918. X
  1919. END_OF_FILE
  1920.   if test 3476 -ne `wc -c <'xindex.c'`; then
  1921.     echo shar: \"'xindex.c'\" unpacked with wrong size!
  1922.   fi
  1923.   # end of 'xindex.c'
  1924. fi
  1925. if test -f 'xuser.c' -a "${1}" != "-c" ; then 
  1926.   echo shar: Will not clobber existing file \"'xuser.c'\"
  1927. else
  1928.   echo shar: Extracting \"'xuser.c'\" \(1344 characters\)
  1929.   sed "s/^X//" >'xuser.c' <<'END_OF_FILE'
  1930. X/*
  1931. X *  Project   : NNTP (RFC 977) extension
  1932. X *  Module    : xuser.c
  1933. X *  Author    : I.Lea / T.Iverson (iverson@xstor.com)
  1934. X *  Created   : 07-03-92
  1935. X *  Updated   : 07-03-92
  1936. X *  Notes     : Add a command to log nntp clients username.
  1937. X *              Ideas borrowed from XTHREAD nntp extension code
  1938. X *              posted by Tim Iverson to alt.sources in mid'91.
  1939. X *  Copyright : (c) Copyright 1991-92 by Iain Lea
  1940. X *              You may  freely  copy or  redistribute  this software,
  1941. X *              so  long as there is no profit made from its use, sale
  1942. X *              trade or  reproduction.  You may not change this copy-
  1943. X *              right notice, and it must be included in any copy made
  1944. X */
  1945. X
  1946. X#include "common.h"
  1947. X
  1948. X#ifdef XUSER
  1949. X
  1950. X/*
  1951. X *  Usage: XUSER USER
  1952. X *
  1953. X *  USER    log clients username to nntp logfile
  1954. X *
  1955. X *  This command is NOT documented in RFC977.
  1956. X */
  1957. X
  1958. Xvoid xuser (argc, argv)
  1959. X    int    argc;
  1960. X    char    *argv[];
  1961. X{
  1962. X    char    userinfo[NNTP_STRLEN];
  1963. X    int    i;
  1964. X    
  1965. X    /*
  1966. X     * "parse" the argument list
  1967. X     */
  1968. X    if (argc == 1) {
  1969. X        printf("%d Usage: XUSER user\r\n", ERR_CMDSYN);
  1970. X        (void) fflush(stdout);
  1971. X        return;
  1972. X    } else {
  1973. X        sprintf (userinfo, "user %s", argv[1]);
  1974. X        for (i = 2 ; i < argc ; i++) {
  1975. X            strcat (userinfo,  " ");
  1976. X            strcat (userinfo,  argv[i]);
  1977. X        }
  1978. X    }
  1979. X
  1980. X#ifdef SYSLOG
  1981. X        syslog(LOG_INFO, "%s %s", hostname, userinfo);
  1982. X#endif
  1983. X}
  1984. X
  1985. X#endif /* XUSER */
  1986. X
  1987. END_OF_FILE
  1988.   if test 1344 -ne `wc -c <'xuser.c'`; then
  1989.     echo shar: \"'xuser.c'\" unpacked with wrong size!
  1990.   fi
  1991.   # end of 'xuser.c'
  1992. fi
  1993. echo shar: End of archive 14 \(of 14\).
  1994. cp /dev/null ark14isdone
  1995. MISSING=""
  1996. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 ; do
  1997.     if test ! -f ark${I}isdone ; then
  1998.     MISSING="${MISSING} ${I}"
  1999.     fi
  2000. done
  2001. if test "${MISSING}" = "" ; then
  2002.     echo You have unpacked all 14 archives.
  2003.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  2004. else
  2005.     echo You still must unpack the following archives:
  2006.     echo "        " ${MISSING}
  2007. fi
  2008. exit 0
  2009. exit 0 # Just in case...
  2010.