home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3895 < prev    next >
Internet Message Format  |  1991-08-23  |  50KB
  1. Path: wupost!uunet!mcsun!unido!estevax!norisc!iain
  2. From: iain@norisc.UUCP (Iain Lea)
  3. Newsgroups: alt.sources
  4. Subject: tin v1.00 - YAN (Yet Another Newsreader) Part 01/08
  5. Message-ID: <582@norisc.UUCP>
  6. Date: 23 Aug 91 13:50:34 GMT
  7. Sender: iain@norisc.UUCP (Iain Lea)
  8. Organization: What organization?
  9. Lines: 1985
  10.  
  11. Submitted-by: iain@estevax.uucp
  12. Archive-name: tin/part01
  13.  
  14. #!/bin/sh
  15. # This is tin, a shell archive (shar 3.24)
  16. # made 08/23/1991 13:37 UTC by iain@estevax.uucp
  17. # Source directory /piez/iain/.src/tin
  18. #
  19. # existing files WILL be overwritten
  20. #
  21. # This is part 1 of a multipart archive                                    
  22. # do not concatenate these parts, unpack them in order with /bin/sh        
  23. #
  24. # This shar contains:
  25. # length  mode       name
  26. # ------ ---------- ------------------------------------------
  27. #    570 -rw------- MANIFEST
  28. #   8147 -rw------- Makefile
  29. #   4930 -rw------- README
  30. #   1305 -rw------- TODO
  31. #    512 -rwx------ UPDATE_INDEX
  32. #   5457 -rw------- alloca.c
  33. #  23276 -rw------- art.c
  34. #   6075 -rw------- curses.c
  35. #   2276 -rw------- debug.c
  36. #  20085 -rw------- group.c
  37. #   2673 -rw------- hashstr.c
  38. #   4794 -rw------- help.c
  39. #   9014 -rw------- kill.c
  40. #  16340 -rw------- lang.c
  41. #   8856 -rw------- lang.h
  42. #   1260 -rw------- mail.c
  43. #   6852 -rw------- main.c
  44. #   5489 -rw------- memory.c
  45. #  12707 -rw------- misc.c
  46. #  16290 -rw------- newsrc.c
  47. #   3688 -rw------- nntp.h
  48. #   6594 -rw------- open.c
  49. #  34638 -rw------- page.c
  50. #   2328 -rw------- posted.c
  51. #   3061 -rw------- prompt.c
  52. #  16291 -rw------- proto.h
  53. #  15340 -rw------- rcfile.c
  54. #  22644 -rw------- save.c
  55. #   1936 -rw------- screen.c
  56. #   7656 -rw------- search.c
  57. #  17154 -rw------- select.c
  58. #   1611 -rw------- time.c
  59. #   7369 -rw------- tin.h
  60. #   3866 -rw------- wildmat.c
  61. #  18929 -rw------- tin.1
  62. #
  63. if touch 2>&1 | fgrep '[-amc]' > /dev/null
  64.  then TOUCH=touch
  65.  else TOUCH=true
  66. fi
  67. if test -r shar3_seq_.tmp; then
  68.     echo "Must unpack archives in sequence!"
  69.     next=`cat shar3_seq_.tmp`; echo "Please unpack part $next next"
  70.     exit 1
  71. fi
  72. # ============= MANIFEST ==============
  73. echo "x - extracting MANIFEST (Text)"
  74. sed 's/^X//' << 'SHAR_EOF' > MANIFEST &&
  75. XMANIFEST for tin v1.00
  76. X----------------------
  77. X  567  MANIFEST
  78. X 8187  Makefile
  79. X 4930  README
  80. X  889  TODO
  81. X  512  UPDATE_INDEX
  82. X 5457  alloca.c
  83. X23418  art.c
  84. X 6075  curses.c
  85. X 2272  debug.c
  86. X20085  group.c
  87. X 2673  hashstr.c
  88. X 4734  help.c
  89. X 9014  kill.c
  90. X16120  lang.c
  91. X 8704  lang.h
  92. X 1260  mail.c
  93. X 6852  main.c
  94. X 5452  memory.c
  95. X12197  misc.c
  96. X16281  newsrc.c
  97. X 3688  nntp.h
  98. X 6594  open.c
  99. X34637  page.c
  100. X 2328  posted.c
  101. X 3061  prompt.c
  102. X15901  proto.h
  103. X15340  rcfile.c
  104. X22473  save.c
  105. X 1936  screen.c
  106. X 7648  search.c
  107. X16958  select.c
  108. X 1611  time.c
  109. X18933  tin.1
  110. X 7363  tin.h
  111. X 3866  wildmat.c
  112. SHAR_EOF
  113. $TOUCH -am 0821104491 MANIFEST &&
  114. chmod 0600 MANIFEST ||
  115. echo "restore of MANIFEST failed"
  116. set `wc -c MANIFEST`;Wc_c=$1
  117. if test "$Wc_c" != "570"; then
  118.     echo original size 570, current size $Wc_c
  119. fi
  120. # ============= Makefile ==============
  121. echo "x - extracting Makefile (Text)"
  122. sed 's/^X//' << 'SHAR_EOF' > Makefile &&
  123. X# Makefile
  124. X
  125. X# name of executable file
  126. X#
  127. XEXE=tin
  128. X
  129. X# command line compile flags
  130. X#
  131. X# -D DONT_USE_START_LINE
  132. X#   stop editor being started with line offset into file
  133. X#
  134. X# -D DONT_USE_REGEX
  135. X#   don't match strings using regular expressions
  136. X#
  137. X# -D USE_LONG_FILENAMES
  138. X#   include -DUSE_LONG_FILENAMES if filesystem supports filenames
  139. X#   longer than 14 chars. (default for BSD type systems)
  140. X#
  141. X# -D USE_CLEARSCREEN
  142. X#   define if the you wish screen to use ClearScreen() and not MoveCursor()
  143. X#   and CleartoEOLN(). This is perhaps faster on slow terminals but I have
  144. X#   not really run any speed tests.
  145. X#
  146. X# -D LIBDIR=\"\"
  147. X#   defaults to /usr/lib/news if not defined
  148. X#
  149. X# -D SPOOLDIR=\"\"
  150. X#   defaults to /usr/spool/news if not defined
  151. X#
  152. X# -D USE_NNTP
  153. X#   include -DUSE_NNTP if you want to allow reading of news locally and
  154. X#   also remotely via the -r option over an NNTP server.
  155. X#
  156. X#  You only need to worry about the following two defines if you have
  157. X#  defined NNTP to build a version to access news locally & remotely
  158. X#
  159. X#  NNTPLIB=
  160. X#    point NNTPLIB at the nntp clientlib.o support library
  161. X#
  162. X#  NETLIBS=
  163. X#    NETLIBS should be the networking libraries you need to link with
  164. X#    the nntp clientlib.o
  165. X
  166. XBINDIR = /piez/iain/bin
  167. XTROFF=drf
  168. XPRINT=-Pps0
  169. X
  170. XHFILES    =    tin.h proto.h lang.h nntp.h
  171. X
  172. XCFILES    =    art.c curses.c debug.c group.c hashstr.c help.c kill.c lang.c mail.c \
  173. X        main.c memory.c misc.c newsrc.c open.c page.c prompt.c posted.c \
  174. X        rcfile.c save.c screen.c search.c select.c time.c wildmat.c
  175. X
  176. XOBJECTS    =    art.o curses.o debug.o group.o hashstr.o help.o kill.o lang.o mail.o \
  177. X        main.o memory.o misc.o newsrc.o open.o page.o prompt.o posted.o \
  178. X        rcfile.o save.o screen.o search.o select.o time.o wildmat.o
  179. X
  180. XLINTFLAGS=-a -c -h -n -x 
  181. X
  182. X.c.o :
  183. X    $(CC) $(CFLAGS) $*.c
  184. X
  185. Xall : 
  186. X    @echo "There is no default. Specify one of the following targets."
  187. X    @echo "    make bsd       (BSD/Ultrix)"
  188. X    @echo "    make sysv      (SysV)"
  189. X    @echo "    make sysvr4    (SysV R4)"
  190. X    @echo "    make sco       (SCO Unix)"
  191. X    @echo "    make xenix     (Xenix 386)"
  192. X    @echo "    make norisc    (Site specific)"
  193. X    @echo "    make estevax   (Site specific)"
  194. X
  195. X# For Berkeley systems:
  196. Xbsd:
  197. X    @echo "Compiling for BSD/Ultrix..."
  198. X    @$(MAKE) CFLAGS='-c -O -DBSD -DLIBDIR=\"/usr/lib/news\" -DSPOOLDIR=\"/usr/spool/news\"' \
  199. X             LIBS="-lcurses -ltermcap" \
  200. X             STRIP=strip EXE=tin linkit
  201. X
  202. X# For System V:
  203. Xsysv:
  204. X    @echo "Compiling for System V..."
  205. X    @$(MAKE) CFLAGS='-c -O -DUSE_NNTP -DLIBDIR="\\"/usr/lib/news\\"" -DSPOOLDIR="\\"/usr/spool/news\\""' \
  206. X             NNTPLIB="clientlib.o" \
  207. X             NETLIBS="-lnet -lnsl_s" \
  208. X             LIBS="-lcurses -ltermcap" \
  209. X             STRIP=strip EXE=tin linkit
  210. X
  211. X# For System V Release 4:
  212. Xsysvr4:
  213. X    @echo "Compiling for System V Release 4..."
  214. X    @$(MAKE) CFLAGS='-c -O -DUSE_NNTP -DLIBDIR=\"/usr/lib/news\" -DSPOOLDIR=\"/usr/spool/news\"' \
  215. X             NNTPLIB="./nntp/clientlib.o" \
  216. X             NETLIBS="-lnsl -lsocket" \
  217. X             LIBS="-lcurses -ltermcap" \
  218. X             STRIP=strip EXE=tin linkit
  219. X
  220. X# For Sco Unix:
  221. Xsco:
  222. X    @echo "Compiling for Sco Unix..."
  223. X    @$(MAKE) CFLAGS='-c -O -UM_XENIX -DLIBDIR=\"/usr/lib/news\" -DSPOOLDIR=\"/usr/spool/news\"' \
  224. X             LIBS="-lcurses -lgen -lc_s" \
  225. X             STRIP=strip EXE=tin linkit
  226. X
  227. X# For Xenix 386:
  228. Xxenix:
  229. X    @echo "Compiling for Xenix 386..."
  230. X    @$(MAKE) CFLAGS='-c -Zi -DLIBDIR="\\"/usr/lib/news\\"" -DSPOOLDIR="\\"/usr/spool/news\\""' \
  231. X             LIBS="-lcurses -ltinfo -lx" \
  232. X             STRIP=echo EXE=tin linkit
  233. X
  234. X# SITE SPECIFIC - IGNORE
  235. Xnorisc:
  236. X    @echo "Compiling for NORISC with NNTP..."
  237. X    @$(MAKE) CFLAGS='-c -O -DBSD -DUSE_NNTP -DLIBDIR=\"/news/lib\" -DSPOOLDIR=\"/news/spool\"' \
  238. X             NNTPLIB=/news/nntp/clientlib.o \
  239. X             LIBS="-lcurses -ltermcap" \
  240. X             STRIP=strip EXE=tin linkit
  241. X
  242. X# SITE SPECIFIC - IGNORE
  243. Xestevax:
  244. X    @echo "Compiling for ESTEVAX with NNTP..."
  245. X    @$(MAKE) CFLAGS='-c -O -DBSD -DUSE_NNTP -DLIBDIR=\"/usr/lib/news\" -DSPOOLDIR=\"/usr/spool/news\"' \
  246. X             NNTPLIB=/others/mtz/bnews2/NNTP/common/clientlib.o \
  247. X             LIBS="-lcurses -ltermcap" \
  248. X             STRIP=strip EXE=tin linkit
  249. X
  250. Xlinkit: $(OBJECTS)
  251. X    @echo "Linking $(EXE)..."
  252. X#    $(CC) -o $(EXE) $(OBJECTS) alloca.o $(NNTPLIB) $(NETLIBS) $(LIBS) 
  253. X    $(CC) -o $(EXE) $(OBJECTS) $(NNTPLIB) $(NETLIBS) $(LIBS) 
  254. X    @$(STRIP) $(EXE)
  255. X    @ls -l $(EXE)
  256. X
  257. Xcflow:
  258. X    @echo "creating cflow for $(EXE)..."
  259. X    @cflow $(CFILES) > cflow.$(EXE) &
  260. X
  261. Xproto:
  262. X    @echo "generating function prototypes for proto.h..."
  263. X    @echo "#ifdef __STDC__" > PROTO.H
  264. X    @echo " " >> PROTO.H
  265. X    @cproto *.c >> PROTO.H
  266. X    @echo " " >> PROTO.H
  267. X    @echo "#else" >> PROTO.H
  268. X    @echo " " >> PROTO.H
  269. X    @cproto -f1 *.c >> PROTO.H
  270. X    @echo " " >> PROTO.H
  271. X    @echo "#endif" >> PROTO.H
  272. X    @-mv PROTO.H proto.h
  273. X
  274. Xinstall: all
  275. X    @echo "installing $(EXE)..."
  276. X    @-mv $(EXE) $(BINDIR)
  277. X    @chmod 755 $(BINDIR)/$(EXE)
  278. X
  279. Xshar:
  280. X    @-mv -f ../$(EXE).shar ../$(EXE).shar-
  281. X    @shar -a -n $(EXE) -s iain@estevax.uucp -L50 -o ../$(EXE).shar [A-Z]* [A-Za-z0-9]*.[ch] $(EXE).1
  282. X
  283. Xtar:
  284. X    @echo "archiving files to $(EXE).tar..."
  285. X    @-rm $(EXE).tar $(EXE).tar.Z > /dev/null 2>&1
  286. X    @tar cvf $(EXE).tar $(HFILES) $(CFILES) Makefile README TODO UPDATE_INDEX $(EXE).1
  287. X    @echo "compressing $(EXE).tar..."
  288. X    @compress $(EXE).tar 
  289. X    @ls -l $(EXE).tar.Z
  290. X
  291. Xzoo:
  292. X    @echo "archiving files to $(EXE).zoo..."
  293. X    @-rm $(EXE).zoo > /dev/null 2>&1
  294. X    @zoo ah $(EXE).zoo $(HFILES) $(CFILES) Makefile README TODO UPDATE_INDEX $(EXE).1
  295. X    @ls -l $(EXE).zoo
  296. X
  297. Xtags:
  298. X    @echo "generating tags (results in ./tags)..."
  299. X    @-rm tags
  300. X    @ctags $(HFILES) $(CFILES) 
  301. X
  302. Xlint:
  303. X    @echo "linting source (results in ./LINT)..."
  304. X    @lint $(LINTFLAGS) $(CFILES) > LINT
  305. X
  306. Xclean:
  307. X    @echo "cleaning..."
  308. X    @-rm -rf *.o #* $(EXE)
  309. X
  310. Xgrind:
  311. X    @echo "grinding tags index..."
  312. X    @ctags -v *.[ch] | sort -f > $(EXE).index
  313. X
  314. Xman:
  315. X    @echo "printing $(EXE) manual to $(PRINT)..."
  316. X    @+ $(TROFF) -F Helvetica -man3 $(PRINT) $(EXE).1
  317. X
  318. Xprint:
  319. X    @echo "printing to $(PRINT)..."
  320. X    @expand -4 art.c     | enscript -2r -h -G $(PRINT) -b art.c
  321. X    @expand -4 curses.c  | enscript -2r -h -G $(PRINT) -b curses.c
  322. X    @expand -4 debug.c   | enscript -2r -h -G $(PRINT) -b debug.c
  323. X    @expand -4 group.c   | enscript -2r -h -G $(PRINT) -b group.c
  324. X    @expand -4 hashstr.c | enscript -2r -h -G $(PRINT) -b hashstr.c
  325. X    @expand -4 help.c    | enscript -2r -h -G $(PRINT) -b help.c
  326. X    @expand -4 kill.c    | enscript -2r -h -G $(PRINT) -b kill.c
  327. X    @expand -4 lang.c    | enscript -2r -h -G $(PRINT) -b lang.c
  328. X    @expand -4 lang.h    | enscript -2r -h -G $(PRINT) -b lang.h
  329. X    @expand -4 mail.c    | enscript -2r -h -G $(PRINT) -b mail.c
  330. X    @expand -4 main.c    | enscript -2r -h -G $(PRINT) -b main.c 
  331. X    @expand -4 memory.c  | enscript -2r -h -G $(PRINT) -b memory.c
  332. X    @expand -4 misc.c    | enscript -2r -h -G $(PRINT) -b misc.c
  333. X    @expand -4 newsrc.c  | enscript -2r -h -G $(PRINT) -b newsrc.c
  334. X    @expand -4 nntp.h    | enscript -2r -h -G $(PRINT) -b nntp.h
  335. X    @expand -4 open.c    | enscript -2r -h -G $(PRINT) -b open.c
  336. X    @expand -4 page.c    | enscript -2r -h -G $(PRINT) -b page.c
  337. X    @expand -4 posted.c  | enscript -2r -h -G $(PRINT) -b posted.c
  338. X    @expand -4 prompt.c  | enscript -2r -h -G $(PRINT) -b prompt.c
  339. X    @expand -4 rcfile.c  | enscript -2r -h -G $(PRINT) -b rcfile.c
  340. X    @expand -4 save.c    | enscript -2r -h -G $(PRINT) -b save.c
  341. X    @expand -4 screen.c  | enscript -2r -h -G $(PRINT) -b screen.c
  342. X    @expand -4 search.c  | enscript -2r -h -G $(PRINT) -b search.c
  343. X    @expand -4 select.c  | enscript -2r -h -G $(PRINT) -b select.c
  344. X    @expand -4 tin.h     | enscript -2r -h -G $(PRINT) -b tin.h
  345. X    @expand -4 time.c    | enscript -2r -h -G $(PRINT) -b time.c
  346. X
  347. Xvaxb:
  348. X    @echo "copying to estevax..."
  349. X    @rcp $(EXE).tar.Z estevax:.src/tin &
  350. X
  351. Xkommu:
  352. X    @echo "copying to kommu..."
  353. X    @uncompress $(EXE).tar.Z 
  354. X    @rcp $(EXE).tar kommu:.src/tin &
  355. X    @compress $(EXE).tar 
  356. X
  357. Xart.o:        art.c $(HFILES)
  358. Xcurses.o:    curses.c
  359. Xdebug.o:    debug.c $(HFILES)
  360. Xgroup.o:    group.c $(HFILES)
  361. Xhashstr.o:    hashstr.c $(HFILES)
  362. Xhelp.o:        help.c $(HFILES)
  363. Xkill.o:        kill.c $(HFILES)
  364. Xlang.o:        lang.c $(HFILES)
  365. Xmail.o:        mail.c
  366. Xmain.o:        main.c $(HFILES)
  367. Xmemory.o:    memory.c $(HFILES)
  368. Xmisc.o:        misc.c $(HFILES)
  369. Xnewsrc.o:    newsrc.c $(HFILES)
  370. Xopen.o:        open.c $(HFILES)
  371. Xpage.o:        page.c $(HFILES)
  372. Xposted.o:    posted.c $(HFILES)
  373. Xprompt.o:    prompt.c $(HFILES)
  374. Xrcfile.o:    rcfile.c $(HFILES)
  375. Xsave.o:        save.c $(HFILES)
  376. Xscreen.o:    screen.c $(HFILES)
  377. Xsearch.o:    search.c $(HFILES)
  378. Xselect.o:    select.c $(HFILES)
  379. Xtime.o:        time.c
  380. Xwildmat.o:    wildmat.c $(HFILES)
  381. SHAR_EOF
  382. $TOUCH -am 0823153791 Makefile &&
  383. chmod 0600 Makefile ||
  384. echo "restore of Makefile failed"
  385. set `wc -c Makefile`;Wc_c=$1
  386. if test "$Wc_c" != "8147"; then
  387.     echo original size 8147, current size $Wc_c
  388. fi
  389. # ============= README ==============
  390. echo "x - extracting README (Text)"
  391. sed 's/^X//' << 'SHAR_EOF' > README &&
  392. XTin is a full screen threaded newsreader that uses the tass newsreader as 
  393. Xits base. Tass was developed by Rich Skrenta (skrenta@blekko.commodore.com).
  394. XTin can read news locally and also via an NNTP server (-r option). Tin 
  395. Xcontains more features than tass but they are still accessable to the
  396. Xbeginner and expert alike. I tried to follow the tass UI conventions as 
  397. Xmuch as possible.
  398. X
  399. XThis is a late beta release (I hope!). I am looking for people to test this
  400. Xand send me ideas/comments & bugs so that I can correct any and then send
  401. Xit off to comp.sources.misc sometime in the near future. 
  402. X
  403. XI find myself getting more done using this new reader than rn/vn and the like. 
  404. X
  405. XThis is the only newsreader that I know of that threads on the Archive-name:
  406. Xfield as used in comp.sources.* groups as well as on the more normal Subject:
  407. Xfield. Before anyone comments on Subject: threading not being right and I 
  408. Xshould look at trn, I have and its threads are neat but I get more done with
  409. Xtin than trn. It is especially good at saving and processing saved articles
  410. X& threads.
  411. X
  412. XI may be off the net for a couple of months at the end of September, but
  413. Xwill be contactable at the following address:
  414. X    Iain J. Lea
  415. X    BrueckenStr. 12
  416. X    8500 Nuernberg 90
  417. X    Germany.
  418. X    Phone. +49-911-331963
  419. X    Email. iain@estevax.uucp
  420. X
  421. XBugs and new features to be added are described in the file TODO
  422. X
  423. XBuilt & used on the following machines
  424. X--------------------------------------
  425. X    1) Vax 8850 & Ultrix 4.1 (Developed & most tested platform)
  426. X    2) Vax 11/785 & BSD 4.3
  427. X    3) 386 PC & Xenix 386
  428. X    4) 386 PC & ATT Unix SysVR4.0 (strange behaviour with inverse video)
  429. X    5) 386 PC & SCO Unix SysVR3.2 (strange behaviour with inverse video)
  430. X    6) 386 PC & ISC Unix SysVR3.2 with WINTCP (shakey ??)
  431. X
  432. XBuilding Tin
  433. X------------
  434. X    1)  type make and a few system types will be displayed
  435. X    2)  edit Makefile if you want to add/change -D DEFINES
  436. X    3)  type 'make <system type>' for your system
  437. X    4)  NOTE. the mmakefile needs rewriting (Any takers?) 
  438. X
  439. X    Note: the supplied Makefile will not run directly on BSD. It 
  440. X    requires a little work (Any takers to write a good Makefile?)
  441. X
  442. XInstalling Tin
  443. X--------------
  444. X    1)  make install
  445. X
  446. XCredits
  447. X-------
  448. XI wish to give credit to the following people for the routines
  449. Xthat they have written and I have used in tin:
  450. X
  451. XRich Skrenta  - tass v3.2 that tin is based upon.
  452. XSyd Weinstein - curses.c is taken from the elm mailreader
  453. XRich Salz     - wildmat regex pattern matching routine
  454. XWayne Brandt  - multi-part uudecode routine 
  455. X
  456. XI wish to thank the following people for comments & ideas:
  457. X
  458. XKlaus Arzig, Reiner Balling, Georg Biehler, Peter Dressler,
  459. XGerhard Ermer, Joachim Feld, Bernhard Gmelch, Joe Johnson,
  460. XCyrill Jung, Clifford Luke, Toni Metz, Klaus Neuberger,
  461. XOtto Niesser, Fredy Schwatz, Bernd Schwerin, Chris Smith
  462. X
  463. XFeatures of tass v3.2
  464. X---------------------
  465. Xo Organizes articles by threads.  Displays a really nice article
  466. X  selection page.
  467. X
  468. Xo Group selection page makes it easy to scan newsgroups, subscribe,
  469. X  unsubscribe, reorder your .newsrc
  470. X
  471. Xo If you've ever used Notes, this is the program for you.
  472. X  Tass looks a lot like Notes, but has a few improvements:
  473. X  visual group selection page, Notes didn't have one
  474. X  rn style unread article detection as opposed to single timeline
  475. X  uses standard /usr/spool/news article layout
  476. X
  477. XNewsreading style under Tass tends to be different than with rn.  Instead of
  478. Xplowing through each group reading everything unread, you may find yourself
  479. Xreading fewer articles in more groups.  It's easier to skip about and only
  480. Xread interesting threads with Tass.
  481. X
  482. XTass keeps an index file for each group.  The first time you enter a group,
  483. Xit will be a bit slow creating this file.  After that Tass will incrementally
  484. Xupdate the index file and there should be little delay.
  485. X
  486. XYou can also run Tass in "update mode" out of cron to update the indexes.
  487. X
  488. XFeatures New to Tin v1.00
  489. X-------------------------
  490. Xo  News can be read locally (ie. /usr/spool/news) or remotely by NNTP (-r option)
  491. X 
  492. Xo  User can config tin's options dynamically by 'M' command and have them
  493. X   saved to ~/.tin/tinrc.
  494. X
  495. Xo  Archive-name: mail header is used when saving and post processing 
  496. X   articles / threads.
  497. X
  498. Xo  Adjusts to size of screen for how much of Subject: & From: is displayed.
  499. X
  500. Xo  Post processes saved articles/threads. It will handle sh, uudecode,
  501. X   zoo, lharc, arc and zip (unzip) formats.
  502. X
  503. Xo  Articles can be sorted on Subject:, From:, Date: field or nothing. 
  504. X
  505. Xo  Killfile support (Not fully debugged). Kill articles at single group
  506. X   / all groups on Subject:,From: line or on user entered pattern.
  507. X
  508. Xo  Saves articles / threads to elm mailbox by pressing '=' when asked
  509. X   for name of saved file.
  510. X
  511. Xo  Displays history of user posted articles/replies & followups.
  512. X
  513. Xo  Higlighted bar / -> arrow can be used for selecting articles
  514. X
  515. Xo  Tagging of articles to save in a particular order
  516. X
  517. XAnd many other small changes.
  518. SHAR_EOF
  519. $TOUCH -am 0820185891 README &&
  520. chmod 0600 README ||
  521. echo "restore of README failed"
  522. set `wc -c README`;Wc_c=$1
  523. if test "$Wc_c" != "4930"; then
  524.     echo original size 4930, current size $Wc_c
  525. fi
  526. # ============= TODO ==============
  527. echo "x - extracting TODO (Text)"
  528. sed 's/^X//' << 'SHAR_EOF' > TODO &&
  529. XFIX FEATURES
  530. X------------
  531. Xo  Fix Makefile file to be more portable across platforms
  532. X
  533. Xo  Rewrite README and finish man page
  534. X
  535. Xo  Fix code to sort arts. At page level funny things happen.
  536. X
  537. Xo  Fix code to KILL articles. At page level funny things happen.
  538. X
  539. Xo  Fix code to KILL articles with 't' command.
  540. X
  541. Xo  Fix 'z' so that it stays unread even if a KILL is performed before
  542. X   leaving the group.
  543. X
  544. Xo  Fix job control? under SysVR4 where a ^Z makes the screen redraw
  545. X   itself and does not suspend the process as it should.
  546. X
  547. Xo  Fix help screens so that they understand if the terminal has more
  548. X   than 25 lines (ie. use LINES).
  549. X
  550. Xo  Fix -u -v -c that get malloc error sometimes on SysV machines
  551. X
  552. XADD FEATURES
  553. X------------
  554. Xo  Sort .newsrc according to preference.
  555. X
  556. Xo  Add 'H' context senstive level help screens
  557. X
  558. Xo  Add code to do unpack patches
  559. X
  560. Xo  Add '+' for saving in MH mail format
  561. X
  562. Xo  Add time period kill article
  563. X
  564. Xo  Add -s <dir> option to save new news to specifed spool dir for when
  565. X   one goes on holiday so that it can be read later by giving -S <dir>.
  566. X
  567. Xo  Add code to allow user to specify routine for post processing
  568. X   articles
  569. X
  570. XPIPEDREAMS
  571. X----------
  572. Xo  Add Virtual newsgroups (combination of newsgroups ie. virtual.ibm
  573. X   consists of comp.sys.ibm.* groups)
  574. X
  575. Xo  Add support for german text messages
  576. SHAR_EOF
  577. $TOUCH -am 0822182591 TODO &&
  578. chmod 0600 TODO ||
  579. echo "restore of TODO failed"
  580. set `wc -c TODO`;Wc_c=$1
  581. if test "$Wc_c" != "1305"; then
  582.     echo original size 1305, current size $Wc_c
  583. fi
  584. # ============= UPDATE_INDEX ==============
  585. echo "x - extracting UPDATE_INDEX (Text)"
  586. sed 's/^X//' << 'SHAR_EOF' > UPDATE_INDEX &&
  587. X#! /bin/csh -f
  588. X#  Iain Lea, 21-08-91
  589. X#  Script to update tin indexes from the at queue 
  590. X
  591. X# required for at
  592. Xsetenv HOME  /piez/iain
  593. Xsetenv NAME  'Iain J. Lea'
  594. Xsetenv GROUP 'piez'
  595. Xsetenv PATH  :/usr/ucb:/bin:/usr/bin:/usr/local
  596. X
  597. X# specific for this script
  598. Xsetenv SCRIPT /piez/iain/bin/UPDATE_INDEX
  599. Xsetenv TIME 1000
  600. Xsetenv TINDIR /piez/iain/bin
  601. X
  602. X# hangs update indexes onto system batch queue
  603. X+ $TINDIR/tin -u
  604. X
  605. X# sleeps and then submits this script again for tommorow
  606. X/usr/bin/sleep 120
  607. X/usr/local/at $TIME $SCRIPT
  608. SHAR_EOF
  609. $TOUCH -am 0821093891 UPDATE_INDEX &&
  610. chmod 0700 UPDATE_INDEX ||
  611. echo "restore of UPDATE_INDEX failed"
  612. set `wc -c UPDATE_INDEX`;Wc_c=$1
  613. if test "$Wc_c" != "512"; then
  614.     echo original size 512, current size $Wc_c
  615. fi
  616. # ============= alloca.c ==============
  617. echo "x - extracting alloca.c (Text)"
  618. sed 's/^X//' << 'SHAR_EOF' > alloca.c &&
  619. X/*
  620. X    alloca -- (mostly) portable public-domain implementation -- D A Gwyn
  621. X
  622. X    last edit:    86/05/30    rms
  623. X       include config.h, since on VMS it renames some symbols.
  624. X       Use xmalloc instead of malloc.
  625. X
  626. X    This implementation of the PWB library alloca() function,
  627. X    which is used to allocate space off the run-time stack so
  628. X    that it is automatically reclaimed upon procedure exit, 
  629. X    was inspired by discussions with J. Q. Johnson of Cornell.
  630. X
  631. X    It should work under any C implementation that uses an
  632. X    actual procedure stack (as opposed to a linked list of
  633. X    frames).  There are some preprocessor constants that can
  634. X    be defined when compiling for your specific system, for
  635. X    improved efficiency; however, the defaults should be okay.
  636. X
  637. X    The general concept of this implementation is to keep
  638. X    track of all alloca()-allocated blocks, and reclaim any
  639. X    that are found to be deeper in the stack than the current
  640. X    invocation.  This heuristic does not reclaim storage as
  641. X    soon as it becomes invalid, but it will do so eventually.
  642. X
  643. X    As a special case, alloca(0) reclaims storage without
  644. X    allocating any.  It is a good idea to use alloca(0) in
  645. X    your main control loop, etc. to force garbage collection.
  646. X*/
  647. X
  648. X#ifndef lint
  649. Xstatic char    SCCSid[] = "@(#)alloca.c    1.1";    /* for the "what" utility */
  650. X#endif
  651. X
  652. X#ifdef emacs
  653. X#include "config.h"
  654. X#ifdef static
  655. X/* actually, only want this if static is defined as ""
  656. X   -- this is for usg, in which emacs must undefine static
  657. X   in order to make unexec workable
  658. X   */
  659. X#ifndef STACK_DIRECTION
  660. Xyou
  661. Xlose
  662. X-- must know STACK_DIRECTION at compile-time
  663. X#endif /* STACK_DIRECTION undefined */
  664. X#endif /* static */
  665. X#endif /* emacs */
  666. X
  667. X#ifdef X3J11
  668. Xtypedef void    *pointer;        /* generic pointer type */
  669. X#else
  670. Xtypedef char    *pointer;        /* generic pointer type */
  671. X#endif
  672. X
  673. X#define    NULL    0            /* null pointer constant */
  674. X
  675. Xextern void    free();
  676. Xextern pointer    xmalloc();
  677. X
  678. X/*
  679. X    Define STACK_DIRECTION if you know the direction of stack
  680. X    growth for your system; otherwise it will be automatically
  681. X    deduced at run-time.
  682. X
  683. X    STACK_DIRECTION > 0 => grows toward higher addresses
  684. X    STACK_DIRECTION < 0 => grows toward lower addresses
  685. X    STACK_DIRECTION = 0 => direction of growth unknown
  686. X*/
  687. X
  688. X#ifndef STACK_DIRECTION
  689. X#define    STACK_DIRECTION    0        /* direction unknown */
  690. X#endif
  691. X
  692. X#if STACK_DIRECTION != 0
  693. X
  694. X#define    STACK_DIR    STACK_DIRECTION    /* known at compile-time */
  695. X
  696. X#else    /* STACK_DIRECTION == 0; need run-time code */
  697. X
  698. Xstatic int    stack_dir;        /* 1 or -1 once known */
  699. X#define    STACK_DIR    stack_dir
  700. X
  701. Xstatic void
  702. Xfind_stack_direction (/* void */)
  703. X{
  704. X  static char    *addr = NULL;    /* address of first
  705. X                   `dummy', once known */
  706. X  auto char    dummy;        /* to get stack address */
  707. X
  708. X  if (addr == NULL)
  709. X    {                /* initial entry */
  710. X      addr = &dummy;
  711. X
  712. X      find_stack_direction ();    /* recurse once */
  713. X    }
  714. X  else                /* second entry */
  715. X    if (&dummy > addr)
  716. X      stack_dir = 1;        /* stack grew upward */
  717. X    else
  718. X      stack_dir = -1;        /* stack grew downward */
  719. X}
  720. X
  721. X#endif    /* STACK_DIRECTION == 0 */
  722. X
  723. X/*
  724. X    An "alloca header" is used to:
  725. X    (a) chain together all alloca()ed blocks;
  726. X    (b) keep track of stack depth.
  727. X
  728. X    It is very important that sizeof(header) agree with malloc()
  729. X    alignment chunk size.  The following default should work okay.
  730. X*/
  731. X
  732. X#ifndef    ALIGN_SIZE
  733. X#define    ALIGN_SIZE    sizeof(double)
  734. X#endif
  735. X
  736. Xtypedef union hdr
  737. X{
  738. X  char    align[ALIGN_SIZE];    /* to force sizeof(header) */
  739. X  struct
  740. X    {
  741. X      union hdr *next;        /* for chaining headers */
  742. X      char *deep;        /* for stack depth measure */
  743. X    } h;
  744. X} header;
  745. X
  746. X/*
  747. X    alloca( size ) returns a pointer to at least `size' bytes of
  748. X    storage which will be automatically reclaimed upon exit from
  749. X    the procedure that called alloca().  Originally, this space
  750. X    was supposed to be taken from the current stack frame of the
  751. X    caller, but that method cannot be made to work for some
  752. X    implementations of C, for example under Gould's UTX/32.
  753. X*/
  754. X
  755. Xstatic header *last_alloca_header = NULL; /* -> last alloca header */
  756. X
  757. Xpointer
  758. Xalloca (size)            /* returns pointer to storage */
  759. X     unsigned    size;        /* # bytes to allocate */
  760. X{
  761. X  auto char    probe;        /* probes stack depth: */
  762. X  register char    *depth = &probe;
  763. X
  764. X#if STACK_DIRECTION == 0
  765. X  if (STACK_DIR == 0)        /* unknown growth direction */
  766. X    find_stack_direction ();
  767. X#endif
  768. X
  769. X                /* Reclaim garbage, defined as all alloca()ed storage that
  770. X                   was allocated from deeper in the stack than currently. */
  771. X
  772. X  {
  773. X    register header    *hp;    /* traverses linked list */
  774. X
  775. X    for (hp = last_alloca_header; hp != NULL;)
  776. X      if (STACK_DIR > 0 && hp->h.deep > depth
  777. X      || STACK_DIR < 0 && hp->h.deep < depth)
  778. X    {
  779. X      register header    *np = hp->h.next;
  780. X
  781. X      free ((pointer) hp);    /* collect garbage */
  782. X
  783. X      hp = np;        /* -> next header */
  784. X    }
  785. X      else
  786. X    break;            /* rest are not deeper */
  787. X
  788. X    last_alloca_header = hp;    /* -> last valid storage */
  789. X  }
  790. X
  791. X  if (size == 0)
  792. X    return NULL;        /* no allocation required */
  793. X
  794. X  /* Allocate combined header + user data storage. */
  795. X
  796. X  {
  797. X    register pointer    new = xmalloc (sizeof (header) + size);
  798. X    /* address of header */
  799. X
  800. X    ((header *)new)->h.next = last_alloca_header;
  801. X    ((header *)new)->h.deep = depth;
  802. X
  803. X    last_alloca_header = (header *)new;
  804. X
  805. X    /* User storage begins just after header. */
  806. X
  807. X    return (pointer)((char *)new + sizeof(header));
  808. X  }
  809. X}
  810. X
  811. Xpointer xmalloc(n)
  812. Xunsigned int n;
  813. X{
  814. X  extern pointer malloc();
  815. X  pointer cp;
  816. X  static char mesg[] = "xmalloc: no memory!\n";
  817. X
  818. X  cp = malloc(n);
  819. X  if (! cp) {
  820. X    write (2, mesg, sizeof(mesg) - 1);
  821. X    exit(1);
  822. X  }
  823. X  return cp;
  824. X}
  825. SHAR_EOF
  826. $TOUCH -am 0815172991 alloca.c &&
  827. chmod 0600 alloca.c ||
  828. echo "restore of alloca.c failed"
  829. set `wc -c alloca.c`;Wc_c=$1
  830. if test "$Wc_c" != "5457"; then
  831.     echo original size 5457, current size $Wc_c
  832. fi
  833. # ============= art.c ==============
  834. echo "x - extracting art.c (Text)"
  835. sed 's/^X//' << 'SHAR_EOF' > art.c &&
  836. X/*
  837. X *  Project   : tin - a visual threaded usenet newsreader
  838. X *  Module    : art.c
  839. X *  Author    : R.Skrenta / I.Lea
  840. X *  Created   : 01-04-91
  841. X *  Updated   : 22-08-91
  842. X *  Release   : 1.0
  843. X *  Notes     :
  844. X *  Copyright : (c) Copyright 1991 by Rich Skrenta & Iain Lea
  845. X *                You may  freely  copy or  redistribute  this software,
  846. X *              so  long as there is no profit made from its use, sale
  847. X *              trade or  reproduction.  You may not change this copy-
  848. X *              right notice, and it must be included in any copy made
  849. X */
  850. X
  851. X#include    "tin.h"
  852. X
  853. X#define HEADER_LEN    1024
  854. X
  855. Xextern int errno;
  856. X
  857. Xchar index_file[LEN+1];
  858. Xchar *glob_art_group;
  859. Xint index_file_killed = FALSE;
  860. Xlong last_read_article;
  861. X
  862. X#ifdef SIGTSTP
  863. Xvoid art_susp (sig)
  864. X    int sig;
  865. X{
  866. X    char buf[LEN];
  867. X    
  868. X    Raw(FALSE);
  869. X    putchar('\n');
  870. X    signal(SIGTSTP, SIG_DFL);
  871. X#ifdef BSD
  872. X    sigsetmask(sigblock(0) & ~(1 << (SIGTSTP -1)));
  873. X#endif
  874. X    kill(0, SIGTSTP);
  875. X
  876. X    signal(SIGTSTP, art_susp);
  877. X
  878. X    if (! update) {
  879. X        mail_setup ();
  880. X    
  881. X        Raw(TRUE);
  882. X
  883. X        ClearScreen();
  884. X        sprintf (buf, txt_group, glob_art_group);
  885. X        wait_message (buf);
  886. X    }
  887. X}
  888. X#endif
  889. X
  890. X
  891. X/*
  892. X *  Convert a string to a long, only look at first n characters
  893. X */
  894. X
  895. Xlong my_atol (s, n)
  896. X    char *s;
  897. X    int n;
  898. X{
  899. X    long ret = 0;
  900. X
  901. X    while (*s && n--) {
  902. X        if (*s >= '0' && *s <= '9')
  903. X            ret = ret * 10 + (*s - '0');
  904. X        else
  905. X            return -1;
  906. X        s++;
  907. X    }
  908. X
  909. X    return ret;
  910. X}
  911. X
  912. X
  913. X/*
  914. X *  Construct the pointers to the basenotes of each thread
  915. X *  arts[] contains every article in the group.  inthread is
  916. X *  set on each article that is after the first article in the
  917. X *  thread.  Articles which have been expired have their thread
  918. X *  set to -2 (ART_EXPIRED).
  919. X */
  920. X
  921. Xvoid find_base ()
  922. X{
  923. X    int i;
  924. X
  925. X    top_base = 0;
  926. X
  927. X    for (i = 0; i < top; i++)
  928. X        if (! arts[i].inthread && arts[i].thread != ART_EXPIRED) {
  929. X            if (top_base >= max_art)
  930. X                expand_art ();
  931. X            base[top_base++] = i;
  932. X        }
  933. X}
  934. X
  935. X/* 
  936. X *  Count the number of non-expired and non-killed articles in arts[]
  937. X */
  938. X
  939. Xint num_of_arts ()
  940. X{
  941. X    int sum = 0;
  942. X    register int i;
  943. X
  944. X    for (i = 0; i < top; i++) {
  945. X        if (arts[i].thread != ART_EXPIRED && ! arts[i].tagged) {
  946. X            sum++;
  947. X        }
  948. X    }
  949. X
  950. X    return sum;
  951. X}
  952. X
  953. X/*
  954. X *  Do we have an entry for article art?
  955. X */
  956. X
  957. Xint valid_artnum (art)
  958. X    long art;
  959. X{
  960. X    register int i;
  961. X
  962. X    for (i = 0; i < top; i++)
  963. X        if (arts[i].artnum == art)
  964. X            return i;
  965. X
  966. X    return -1;
  967. X}
  968. X
  969. X
  970. X/*
  971. X *  Return TRUE if arts[] contains any expired articles
  972. X *  (articles we have an entry for which don't have a corresponding
  973. X *   article file in the spool directory)
  974. X */
  975. X
  976. Xint purge_needed ()
  977. X{
  978. X    register int i;
  979. X
  980. X    for (i = 0; i < top; i++)
  981. X        if (arts[i].thread == ART_EXPIRED)
  982. X            return TRUE;
  983. X
  984. X    return FALSE;
  985. X}
  986. X
  987. X
  988. X/*
  989. X *  Main group indexing routine.  Group should be the name of the
  990. X *  newsgroup, i.e. "comp.unix.amiga".  group_path should be the
  991. X *  same but with the .'s turned into /'s: "comp/unix/amiga"
  992. X *
  993. X *  Will read any existing index, create or incrementally update
  994. X *  the index by looking at the articles in the spool directory,
  995. X *  and attempt to write a new index if necessary.
  996. X */
  997. X
  998. Xvoid index_group (group, group_path)
  999. X    char *group;
  1000. X    char *group_path;
  1001. X{
  1002. X    int killed = FALSE;
  1003. X    int modified = FALSE;
  1004. X    glob_art_group = group;
  1005. X
  1006. X#ifdef SIGTSTP
  1007. X    signal(SIGTSTP, art_susp);
  1008. X#endif
  1009. X
  1010. X    if (! update) {
  1011. X        sprintf (msg, txt_group, group);
  1012. X        wait_message (msg);
  1013. X    }
  1014. X
  1015. X    hash_reclaim ();
  1016. X    free_art_array ();
  1017. X
  1018. X    if (local_index)
  1019. X        find_local_index (group);
  1020. X    else
  1021. X        sprintf (index_file, "%s/%s/%s", spooldir, group_path, INDEXDIR);
  1022. X
  1023. X    /*
  1024. X     *  load articles from index file if it exists
  1025. X     */
  1026. X    load_index ();
  1027. X
  1028. X    /*
  1029. X     *  load killed articles into arts[] because kill arts is OFF
  1030. X     */
  1031. X    if (! kill_articles && index_file_killed) {
  1032. X        index_file_killed = FALSE;
  1033. X        last_read_article = 0L;
  1034. X    }
  1035. X
  1036. X    /*
  1037. X     *  add any articles to arts[] that are new or were killed
  1038. X     */
  1039. X    modified = read_group (group, group_path);
  1040. X
  1041. X    /*
  1042. X     *  compare kill descriptions to arts[] and kill mark any that match
  1043. X     */
  1044. X    killed = kill_any_articles (group);
  1045. X    
  1046. X    if (modified || killed || purge_needed()) {
  1047. X        if (local_index) {        /* writing index in home directory */
  1048. X            setuid(real_uid);    /* so become them */
  1049. X            setgid(real_gid);
  1050. X        }
  1051. X
  1052. X        if (killed) {
  1053. X            reload_index_file (group, killed);
  1054. X        } else {
  1055. X            dump_index (group, FALSE);
  1056. X            make_threads (FALSE);
  1057. X            find_base ();
  1058. X        }
  1059. X
  1060. X        if (local_index) {
  1061. X            setuid(tin_uid);
  1062. X            setgid(tin_gid);
  1063. X        }
  1064. X    } else {
  1065. X        make_threads (FALSE);
  1066. X        find_base ();
  1067. X    }
  1068. X    
  1069. X    if ((modified || killed) && ! update) {
  1070. X        clear_message();
  1071. X    }
  1072. X}
  1073. X
  1074. X/*
  1075. X *  Index a group.  Assumes any existing index has already been
  1076. X *  loaded.
  1077. X */
  1078. X
  1079. Xint read_group (group, group_path)
  1080. X    char *group;
  1081. X    char *group_path;
  1082. X{
  1083. X    int fd;
  1084. X    long art;
  1085. X    int count;
  1086. X    int modified = FALSE;
  1087. X    int respnum;
  1088. X    register int i;
  1089. X
  1090. X    setup_base (group, group_path);    /* load article numbers into base[] */
  1091. X    count = 0;
  1092. X
  1093. X    for (i = 0; i < top_base; i++) {    /* for each article # */
  1094. X        art = base[i];
  1095. X
  1096. X/*
  1097. X *  Do we already have this article in our index?  Change thread from
  1098. X *  -2 (ART_EXPIRED) to -1 (ART_NORMAL) if so and skip the header eating.
  1099. X */
  1100. X
  1101. X        if ((respnum = valid_artnum (art)) >= 0 || art <= last_read_article) {
  1102. X            arts[respnum].thread = ART_NORMAL;
  1103. X            arts[respnum].unread = ART_UNREAD;
  1104. X            continue;
  1105. X        }
  1106. X
  1107. X        if (! modified) {
  1108. X            modified = TRUE;   /* we've modified the index */
  1109. X                               /* it will need to be re-written */
  1110. X        }
  1111. X
  1112. X        if ((fd = open_header_fd (group_path, art)) < 0) {
  1113. X            continue;
  1114. X        }
  1115. X        
  1116. X        /*
  1117. X         *  Add article to arts[]
  1118. X         */
  1119. X        if (top >= max_art)
  1120. X            expand_art();
  1121. X
  1122. X        arts[top].artnum = art;
  1123. X        arts[top].thread = ART_NORMAL;
  1124. X
  1125. X        set_article (&arts[top]);
  1126. X
  1127. X        if (! parse_headers (fd, &arts[top])) {
  1128. X            continue;
  1129. X        }
  1130. X        close (fd);
  1131. X        last_read_article = arts[top].artnum;    /* used if arts are killed */
  1132. X        top++;
  1133. X
  1134. X        if (++count % 10 == 0 && ! update) {
  1135. X            sprintf (msg, txt_indexing, count);
  1136. X            wait_message (msg);
  1137. X        }
  1138. X    }
  1139. X
  1140. X    return modified;
  1141. X}
  1142. X
  1143. X
  1144. X/*
  1145. X *  Go through the articles in arts[] and use .thread to snake threads
  1146. X *  through them.  Use the subject line to construct threads.  The
  1147. X *  first article in a thread should have .inthread set to FALSE, the
  1148. X *  rest TRUE.  Only do unexprired articles we haven't visited yet
  1149. X *  (arts[].thread == -1 ART_NORMAL).
  1150. X */
  1151. X
  1152. Xvoid make_threads (rethread)
  1153. X    int rethread;
  1154. X{
  1155. X    register int i;
  1156. X    register int j;
  1157. X
  1158. X    /*
  1159. X     *  .thread & .inthread need to be reset if re-threading arts[]
  1160. X     */
  1161. X    if (rethread) {
  1162. X        for (i=0 ; i < top ; i++) {
  1163. X            arts[i].thread = ART_NORMAL;
  1164. X            arts[i].inthread = FALSE;
  1165. X        }
  1166. X    }
  1167. X
  1168. X    switch (sort_art_type) {
  1169. X        case SORT_BY_NONE:        /* don't sort at all */
  1170. X            qsort (arts, top, sizeof (struct header), artnum_comp);
  1171. X            break;
  1172. X        case SORT_BY_SUBJ:
  1173. X            qsort (arts, top, sizeof (struct header), subj_comp);
  1174. X            break;
  1175. X        case SORT_BY_FROM:
  1176. X            qsort (arts, top, sizeof (struct header), from_comp);
  1177. X            break;
  1178. X        case SORT_BY_DATE:
  1179. X            qsort (arts, top, sizeof (struct header), date_comp);
  1180. X            break;
  1181. X        default:
  1182. X            break;
  1183. X    }
  1184. X
  1185. X    for (i = 0; i < top; i++) {
  1186. X        if (arts[i].thread == ART_NORMAL) {
  1187. X            for (j = i+1; j < top; j++) {
  1188. X                if (arts[j].thread != ART_EXPIRED &&
  1189. X                    ((arts[i].subject == arts[j].subject) ||
  1190. X                    ((arts[i].part || arts[i].patch) &&
  1191. X                    arts[i].archive == arts[j].archive))) {
  1192. X                        arts[i].thread = j;
  1193. X                        arts[j].inthread = TRUE;
  1194. X                        break;
  1195. X                }
  1196. X            }
  1197. X        }
  1198. X    }
  1199. X}
  1200. X
  1201. X/*
  1202. X *  Return a pointer into s eliminating any leading Re:'s.  Example:
  1203. X *
  1204. X *      Re: Reorganization of misc.jobs
  1205. X *      ^   ^
  1206. X */
  1207. X
  1208. Xchar *eat_re (s)
  1209. X    char *s;
  1210. X{
  1211. X
  1212. X    while (*s == 'r' || *s == 'R') {
  1213. X        if ((*(s+1) == 'e' || *(s+1) == 'E')) {
  1214. X            if (*(s+2) == ':')
  1215. X                s += 3;
  1216. X            else if (*(s+2) == '^' && isdigit(*(s+3)) && *(s+4) == ':')
  1217. X                s += 5;            /* hurray nn */
  1218. X            else
  1219. X                break;
  1220. X        } else
  1221. X            break;
  1222. X        while (*s == ' ')
  1223. X            s++;
  1224. X    }
  1225. X
  1226. X    return s;
  1227. X}
  1228. X
  1229. X/*
  1230. X *  Hash the subjects (after eating the Re's off) for a quicker
  1231. X *  thread search later.  We store the hashes for subjects in the
  1232. X *  index file for speed.
  1233. X */
  1234. X
  1235. Xlong hash_s(s)
  1236. X    char *s;
  1237. X{
  1238. X    char *t;
  1239. X    long h = 0;
  1240. X
  1241. X    t = s;
  1242. X
  1243. X    while (*t)
  1244. X        h = h * 64 + *t++;
  1245. X
  1246. X    return h;
  1247. X}
  1248. X
  1249. X
  1250. Xint parse_headers (fd, h)
  1251. X    int fd;
  1252. X    struct header *h;
  1253. X{
  1254. X    char buf[HEADER_LEN];
  1255. X    char buf2[HEADER_LEN];
  1256. X    char *ptr, *ptrline, *s;
  1257. X    int n = 0, len = 0, lineno = 0;
  1258. X    int flag;
  1259. X    int got_subject = FALSE;
  1260. X    int got_from = FALSE;
  1261. X    int got_date = FALSE;
  1262. X    int got_archive = FALSE;
  1263. X    
  1264. X    if ((n = read(fd, buf, HEADER_LEN)) <= 0)
  1265. X        return FALSE;
  1266. X
  1267. X    buf[n-1] = '\0';
  1268. X
  1269. X    ptr = buf;
  1270. X
  1271. X    while (1) {
  1272. X        for (ptrline = ptr; *ptr && *ptr != '\n'; ptr++) {
  1273. X            if (((*ptr) & 0x7F) < 32) {
  1274. X                *ptr = ' ';
  1275. X            }
  1276. X        }
  1277. X        flag = *ptr;
  1278. X        *ptr++ = '\0';
  1279. X        lineno++;
  1280. X
  1281. X        if (! got_from && strncmp(ptrline, "From: ", 6) == 0) {
  1282. X            my_strncpy(buf2, ptrline+6, max_from+1);
  1283. X            buf2[max_from] = '\0';
  1284. X            h->from = hash_str (buf2);
  1285. X            got_from = TRUE;
  1286. X        } else if (! got_subject && strncmp(ptrline, "Subject: ", 9) == 0) {
  1287. X            my_strncpy (buf2, ptrline+9, max_subj+max_from+1);
  1288. X            s = eat_re (buf2);
  1289. X            s[max_subj+max_from] = '\0';
  1290. X            h->subject = hash_str (eat_re (s));
  1291. X            got_subject = TRUE;
  1292. X        } else if (! got_date && strncmp(ptrline, "Date: ", 6) == 0) {
  1293. X            my_strncpy (buf2, ptrline+6, 32);
  1294. X            parse_date (buf2 ,h->date);
  1295. X            got_date = TRUE;
  1296. X        } else if (strncmp(ptrline, "Archive-name: ", 14) == 0) {
  1297. X            if ((s = (char *) strchr (ptrline+14, '/')) != NULL) {
  1298. X                my_strncpy(buf2, ptrline+14, MAX_ARCH);
  1299. X                if (strncmp (s+1,"part",4) == 0 ||
  1300. X                    strncmp (s+1,"Part",4) == 0) {
  1301. X                    h->part = str_dup (s+5);
  1302. X                    len = (int) strlen (h->part);
  1303. X                    if (h->part[len-1] == '\n') {
  1304. X                        h->part[len-1] = '\0';
  1305. X                    }
  1306. X                } else {
  1307. X                    if (strncmp (s+1,"patch",5) == 0 ||
  1308. X                        strncmp (s+1,"Patch",5) == 0) {
  1309. X                        h->patch = str_dup (s+6);
  1310. X                        len = (int) strlen (h->patch);
  1311. X                        if (h->patch[len-1] == '\n') {
  1312. X                            h->patch[len-1] = '\0';
  1313. X                        }
  1314. X                    }
  1315. X                }
  1316. X                if (h->part || h->patch) {
  1317. X                    s = buf2;
  1318. X                    while (*s && *s != '/')
  1319. X                        s++;
  1320. X                    *s = '\0';    
  1321. X                    s = buf2;
  1322. X                    h->archive = hash_str (s);
  1323. X                    got_archive = TRUE;
  1324. X                }
  1325. X            }
  1326. X        }
  1327. X
  1328. X        if (! flag || lineno > 25 || got_archive) {
  1329. X            debug_print_header (h);
  1330. X            return TRUE;
  1331. X        }
  1332. X    }
  1333. X}
  1334. X
  1335. X/* 
  1336. X *  Write out an index file.  Write the group name first so if
  1337. X *  local indexing is done we can disambiguate between group name
  1338. X *  hash collisions by looking at the index file.
  1339. X *
  1340. X *  NOTE: check out the add_string routine in hashstr.c to
  1341. X *  understand what *iptr is doing in this routine.
  1342. X */
  1343. X
  1344. Xvoid dump_index (group, killed)
  1345. X    char *group;
  1346. X    int killed;
  1347. X{
  1348. X    char nam[LEN+1];
  1349. X    FILE *fp;
  1350. X    int *iptr;
  1351. X    int realnum;
  1352. X    register int i;
  1353. X
  1354. X    sprintf (nam, "%s.%d", index_file, getpid());
  1355. X    if ((fp = fopen (nam, "w")) == NULL) {
  1356. X        error_message (txt_cannot_open, nam);
  1357. X        return;
  1358. X    }
  1359. X
  1360. X    /*
  1361. X     *  dump group header info.
  1362. X     */
  1363. X    if (sort_art_type != SORT_BY_NONE) {
  1364. X        qsort (arts, top, sizeof (struct header), artnum_comp);
  1365. X    }
  1366. X    fprintf(fp, "%s\n", group);
  1367. X    fprintf(fp, "%d\n", num_of_arts ());
  1368. X    if (last_read_article > arts[top-1].artnum) {
  1369. X        fprintf(fp, "%ld\n", last_read_article);
  1370. X    } else {
  1371. X        fprintf(fp, "%ld\n", arts[top-1].artnum);
  1372. X    }
  1373. X    if (index_file_killed && killed) {
  1374. X        fprintf (fp, "KILLED\n");
  1375. X    } else {
  1376. X        fprintf (fp, "COMPLETE\n");
  1377. X    }
  1378. X
  1379. X    /*
  1380. X     *  dump articles
  1381. X     */
  1382. X    realnum = 0; 
  1383. X    for (i = 0; i < top; i++) {
  1384. X        if (arts[i].thread != ART_EXPIRED && ! arts[i].tagged) { 
  1385. X            debug_print_header (&arts[i]);
  1386. X
  1387. X            fprintf(fp, "%ld\n", arts[i].artnum);
  1388. X
  1389. X            iptr = (int *) arts[i].subject;
  1390. X            iptr--;
  1391. X
  1392. X            if (! arts[i].subject) {
  1393. X                fprintf(fp, " \n");
  1394. X            } else if (*iptr < 0 || *iptr > top) {
  1395. X                fprintf(fp, " %s\n", arts[i].subject);
  1396. X                *iptr = realnum;
  1397. X/*
  1398. X            } else if (arts[*iptr].tagged) {
  1399. X                fprintf(fp, " %s\n", arts[i].subject);
  1400. X                *iptr = realnum;
  1401. X            } else if (killed && *iptr == i) {
  1402. X*/
  1403. X            } else if (killed || *iptr == i) {
  1404. X                fprintf(fp, " %s\n", arts[i].subject);
  1405. X            } else {
  1406. X                fprintf(fp, "%%%d\n", *iptr);
  1407. X            }
  1408. X    
  1409. X            iptr = (int *) arts[i].from;
  1410. X            iptr--;
  1411. X
  1412. X            if (! arts[i].from) {
  1413. X                fprintf (fp, " \n");
  1414. X            } else if (*iptr < 0 || *iptr > top) {
  1415. X                fprintf (fp, " %s\n", arts[i].from);
  1416. X                *iptr = realnum;
  1417. X/*
  1418. X            } else if (arts[*iptr].tagged) {
  1419. X                fprintf(fp, " %s\n", arts[i].from);
  1420. X                *iptr = realnum;
  1421. X            } else if (killed && *iptr == i) {
  1422. X*/            
  1423. X            } else if (killed || *iptr == i) {
  1424. X                fprintf(fp, " %s\n", arts[i].from);
  1425. X            } else {
  1426. X                fprintf(fp, "%%%d\n", *iptr);
  1427. X            }
  1428. X
  1429. X            fprintf (fp, "%s\n", arts[i].date);
  1430. X            
  1431. X            iptr = (int *) arts[i].archive;
  1432. X            iptr--;
  1433. X
  1434. X            if (! arts[i].archive) {
  1435. X                fprintf (fp, "\n");
  1436. X            } else if (*iptr < 0 || *iptr > top) {
  1437. X                fprintf (fp, " %s\n", arts[i].archive);
  1438. X                *iptr = realnum;
  1439. X/*
  1440. X            } else if (arts[*iptr].tagged) {
  1441. X                fprintf (fp, " %s\n", arts[i].archive);
  1442. X                *iptr = realnum;
  1443. X*/                
  1444. X            } else if (arts[i].part || arts[i].patch) {
  1445. X/*
  1446. X                if (killed && *iptr == i) {
  1447. X*/                
  1448. X                if (killed || *iptr == i) {
  1449. X                    fprintf(fp, " %s\n", arts[i].archive);
  1450. X                } else {
  1451. X                    fprintf (fp, "%%%d\n", *iptr);
  1452. X                }
  1453. X            } else {
  1454. X                fprintf (fp, "\n");
  1455. X            }
  1456. X            
  1457. X            if (! arts[i].part) {
  1458. X                fprintf (fp, " \n");
  1459. X            } else {
  1460. X                fprintf (fp, "%s\n", arts[i].part);
  1461. X            }
  1462. X
  1463. X            if (! arts[i].patch) {
  1464. X                fprintf (fp, " \n");
  1465. X            } else {
  1466. X                fprintf (fp, "%s\n", arts[i].patch);
  1467. X            }
  1468. X
  1469. X            realnum++;
  1470. X        }
  1471. X    }
  1472. X    fclose (fp);
  1473. X    chmod (index_file, 0644);
  1474. X    rename_file (nam, index_file);
  1475. X    if (debug) {
  1476. X        sprintf (msg, "/bin/cp %s INDEX", index_file);
  1477. X        system (msg);
  1478. X    }
  1479. X}
  1480. X
  1481. X/*
  1482. X *  strncpy that stops at a newline and null terminates
  1483. X */
  1484. X
  1485. Xvoid my_strncpy(p, q, n)
  1486. X    char *p;
  1487. X    char *q;
  1488. X    int n;
  1489. X{
  1490. X    while (n--) {
  1491. X        if (!*q || *q == '\n')
  1492. X            break;
  1493. X        *p++ = *q++;
  1494. X    }
  1495. X    *p = '\0';
  1496. X}
  1497. X
  1498. X/*
  1499. X *  Read in an index file.
  1500. X *
  1501. X *  index file header 
  1502. X *    1.  newsgroup name (ie. alt.sources)
  1503. X *    2.  number of articles (ie. 26)
  1504. X *    3.  number of last read article (ie. 210)
  1505. X *    4.  Is this a complete/killed index file (ie. COMPLETE/KILLED)
  1506. X *  index file record
  1507. X *    1.  article number   (ie. 183)                [mandatory]
  1508. X *    2.  Subject: line    (ie. Which newsreader?)  [mandatory]
  1509. X *    3.  From: line       (ie. iain@norisc)        [mandatory]
  1510. X *    4.  Date: of posting (ie. 911231125959)       [mandatory]
  1511. X *    5.  Archive: name    (ie. compiler)           [optional]
  1512. X *    6.  Part number of Archive: name  (ie. 01)    [optional]
  1513. X *    7.  Patch number of Archive: name (ie. 01)    [optional]
  1514. X */
  1515. X
  1516. Xint load_index ()
  1517. X{
  1518. X    int error = 0;
  1519. X    int i, n;
  1520. X    char buf[LEN+1], *p;
  1521. X    FILE *fp;
  1522. X
  1523. X    top = 0;
  1524. X    last_read_article = 0L;
  1525. X
  1526. X    if ((fp = fopen (index_file, "r")) == NULL) {
  1527. X        return FALSE;
  1528. X    }
  1529. X
  1530. X    debug_print_comment ("*** LOADING ***");
  1531. X
  1532. X    /*
  1533. X     *  load header - discard group name, num. of arts in index file after any arts were killed
  1534. X     */
  1535. X    if (fgets(buf, LEN, fp) == NULL ||
  1536. X        fgets(buf, LEN, fp) == NULL) {
  1537. X        error = 0;            
  1538. X        goto corrupt_index;    
  1539. X    }
  1540. X    i = atoi (buf);
  1541. X
  1542. X    /*
  1543. X     * num. of last_read_article including any that were killed
  1544. X     */
  1545. X    if (fgets(buf, LEN, fp) == NULL) {
  1546. X        error = 1;                
  1547. X        goto corrupt_index;    
  1548. X    }                            
  1549. X    last_read_article = atol (buf);
  1550. X    
  1551. X    /*
  1552. X     * is index file complete or were articles killed when it was dumped
  1553. X     */
  1554. X    if (fgets(buf, LEN, fp) == NULL) {
  1555. X        error = 2;                
  1556. X        goto corrupt_index;    
  1557. X    }
  1558. X    index_file_killed = (buf[0] == 'K' ? TRUE : FALSE);
  1559. X    
  1560. X    /*
  1561. X     *  load articles
  1562. X     */
  1563. X    for (; top < i ; top++) {
  1564. X        if (top >= max_art) {
  1565. X            expand_art ();
  1566. X        }
  1567. X
  1568. X        arts[top].thread = ART_EXPIRED;
  1569. X        set_article (&arts[top]);
  1570. X
  1571. X        /*
  1572. X         * Article no.
  1573. X         */
  1574. X        if (fgets(buf, LEN, fp) == NULL) {
  1575. X            error = 3;
  1576. X            goto corrupt_index;
  1577. X        }
  1578. X        arts[top].artnum = atol(buf);
  1579. X
  1580. X        /*
  1581. X         * Subject:
  1582. X         */
  1583. X        if (fgets(buf, LEN, fp) == NULL) {
  1584. X            error = 4;
  1585. X            goto corrupt_index;
  1586. X        }
  1587. X
  1588. X        if (buf[0] == '%') {
  1589. X            n = atoi (&buf[1]);
  1590. X            if (n >= top || n < 0) {
  1591. X                error = 5;
  1592. X                goto corrupt_index;
  1593. X            }
  1594. X            arts[top].subject = arts[n].subject;
  1595. X        } else if (buf[0] == ' ') {
  1596. X            for (p = &buf[1];  *p && *p != '\n'; p++) ;    
  1597. X            *p = '\0';
  1598. X            buf[max_subj+max_from] = '\0';
  1599. X            arts[top].subject = hash_str (&buf[1]);
  1600. X        } else {
  1601. X            error = 6;
  1602. X            goto corrupt_index;
  1603. X        }
  1604. X            
  1605. X        /*
  1606. X         * From:
  1607. X         */
  1608. X        if (fgets(buf, LEN, fp) == NULL) {
  1609. X            error = 7;
  1610. X            goto corrupt_index;
  1611. X        }
  1612. X
  1613. X        if (buf[0] == '%') {
  1614. X            n = atoi (&buf[1]);
  1615. X            if (n >= top || n < 0) {
  1616. X                error = 8;
  1617. X                goto corrupt_index;
  1618. X            }
  1619. X            arts[top].from = arts[n].from;
  1620. X        } else if (buf[0] == ' ') {
  1621. X            for (p = &buf[1];  *p && *p != '\n'; p++) ;
  1622. X            *p = '\0';
  1623. X            buf[max_from] = '\0';
  1624. X            arts[top].from = hash_str (&buf[1]);
  1625. X        } else {
  1626. X            error = 9;
  1627. X            goto corrupt_index;
  1628. X        }
  1629. X
  1630. X        /*
  1631. X         * Date:
  1632. X         */
  1633. X        if (fgets(buf, LEN, fp) == NULL) {
  1634. X            error = 10;
  1635. X            goto corrupt_index;
  1636. X        }
  1637. X
  1638. X        buf[strlen (buf)-1] = '\0';
  1639. X        my_strncpy (arts[top].date, buf, 12);
  1640. X
  1641. X        /*
  1642. X         * Archive-name:
  1643. X         */
  1644. X        if (fgets(buf, LEN, fp) == NULL) {
  1645. X            error = 11;
  1646. X            goto corrupt_index;
  1647. X        }
  1648. X
  1649. X        if (buf[0] == '\n') {
  1650. X            arts[top].archive = (char *) 0;
  1651. X        } else if (buf[0] == '%') {
  1652. X            n = atoi (&buf[1]);
  1653. X            if (n > top || n < 0) {
  1654. X                error = 12;
  1655. X                goto corrupt_index;
  1656. X            }
  1657. X            arts[top].archive = arts[n].archive;
  1658. X        } else if (buf[0] == ' ') {
  1659. X            for (p = &buf[1];  *p && *p != '\n'; p++) ;
  1660. X            *p = '\0';
  1661. X            buf[MAX_ARCH] = '\0';
  1662. X            arts[top].archive = hash_str (&buf[1]);
  1663. X        } else {
  1664. X            error = 13;
  1665. X            goto corrupt_index;
  1666. X        }
  1667. X
  1668. X        /*
  1669. X         * part no.
  1670. X         */
  1671. X        if (fgets(buf, LEN, fp) == NULL) {
  1672. X            error = 14;
  1673. X            goto corrupt_index;
  1674. X        }
  1675. X
  1676. X        if (buf[0] != ' ') { 
  1677. X            buf[strlen (buf)-1] = '\0';
  1678. X            arts[top].part = str_dup (buf);
  1679. X        }
  1680. X
  1681. X        /*
  1682. X         * patch no.
  1683. X         */
  1684. X        if (fgets(buf, LEN, fp) == NULL) {
  1685. X            error = 15;
  1686. X            goto corrupt_index;
  1687. X        }
  1688. X
  1689. X        if (buf[0] != ' ') { 
  1690. X            buf[strlen (buf)-1] = '\0';
  1691. X            arts[top].patch = str_dup (buf);
  1692. X        }
  1693. X
  1694. X        debug_print_header (&arts[top]);
  1695. X    }
  1696. X
  1697. X    fclose(fp);
  1698. X    return TRUE;
  1699. X
  1700. Xcorrupt_index:
  1701. X    if (! update) {
  1702. X        sprintf (msg, txt_corrupt_index, index_file, error, top); 
  1703. X        error_message (msg, NULL);
  1704. X    }
  1705. X
  1706. X    if (debug) {
  1707. X        sprintf (msg, "cp %s INDEX.BAD", index_file);
  1708. X        system (msg);
  1709. X    }
  1710. X
  1711. X    unlink (index_file);
  1712. X    top = 0;
  1713. X    return FALSE;
  1714. X}
  1715. X
  1716. X
  1717. X/*
  1718. X *  Look in the local $HOME/RCDIR/INDEXDIR (or wherever) directory for the
  1719. X *  index file for the given group.  Hashing the group name gets
  1720. X *  a number.  See if that #.1 file exists; if so, read first line.
  1721. X *  Group we want?  If no, try #.2.  Repeat until no such file or
  1722. X *  we find an existing file that matches our group.
  1723. X */
  1724. X
  1725. Xvoid find_local_index (group)
  1726. X    char *group;
  1727. X{
  1728. X    unsigned long h;
  1729. X    static char buf[LEN+1];
  1730. X    int i;
  1731. X    char *p;
  1732. X    FILE *fp;
  1733. X
  1734. X    h = hash_groupname (group);
  1735. X
  1736. X    i = 1;
  1737. X    while (1) {
  1738. X        sprintf(index_file, "%s/%lu.%d", indexdir, h, i);
  1739. X
  1740. X        if ((fp = fopen(index_file, "r")) == NULL) {
  1741. X            return;
  1742. X        }
  1743. X
  1744. X        if (fgets(buf, LEN, fp) == NULL) {
  1745. X            fclose(fp);
  1746. X            return;
  1747. X        }
  1748. X        fclose(fp);
  1749. X
  1750. X        for (p = buf; *p && *p != '\n'; p++) ;
  1751. X        *p = '\0';
  1752. X
  1753. X        if (strcmp(buf, group) == 0)
  1754. X            return;
  1755. X
  1756. X        i++;
  1757. X    }
  1758. X}
  1759. X
  1760. X
  1761. X/*
  1762. X *  Run the index file updater only for the groups we've loaded.
  1763. X */
  1764. X
  1765. Xvoid do_update()
  1766. X{
  1767. X    int i, j;
  1768. X    char group_path[LEN+1];
  1769. X    char *p;
  1770. X
  1771. X    for (i = 0; i < local_top; i++) {
  1772. X        strcpy(group_path, active[my_group[i]].name);
  1773. X        for (p = group_path; *p; p++) {
  1774. X            if (*p == '.') {
  1775. X                *p = '/';
  1776. X            }
  1777. X        }
  1778. X        if (verbose) {
  1779. X            printf ("%s %s\n", (catchup ? "catchup" : "updating"),
  1780. X                    active[my_group[i]].name);
  1781. X            fflush (stdout);
  1782. X        }
  1783. X        index_group (active[my_group[i]].name, group_path);
  1784. X        if (catchup) {
  1785. X            for (j = 0; j < top; j++) {
  1786. X                arts[j].unread = ART_READ;
  1787. X            }
  1788. X            update_newsrc (active[my_group[i]].name, my_group[i]);
  1789. X        }
  1790. X    }
  1791. X}
  1792. X
  1793. X/*
  1794. X *  reload index after any articles have been killed
  1795. X */
  1796. X 
  1797. Xvoid reload_index_file (group, killed)
  1798. X    char *group;
  1799. X    int killed;
  1800. X{
  1801. X    char group_path[LEN+1];
  1802. X    char *p;
  1803. X    int i, respnum;
  1804. X    long art;
  1805. X
  1806. X    if (local_index) {        /* writing index in home directory */
  1807. X        setuid (real_uid);    /* so become them */
  1808. X        setgid (real_gid);
  1809. X    }
  1810. X
  1811. X    strcpy (group_path, group);            /* turn comp.unix.amiga into */
  1812. X    for (p = group_path; *p; p++)        /* comp/unix/amiga */
  1813. X        if (*p == '.')
  1814. X            *p = '/';
  1815. X
  1816. X    if (killed) {
  1817. X        if (! update) {
  1818. X            wait_message ("Killing...");
  1819. X        }
  1820. X        index_file_killed = TRUE;
  1821. X        setup_base (group, group_path);
  1822. X        dump_index (group, killed);
  1823. X        load_index ();
  1824. X    } else {
  1825. X        if (! update) {
  1826. X            wait_message ("Unkilling...");
  1827. X        }
  1828. X        if (local_index) {
  1829. X            find_local_index (group);
  1830. X        } else {
  1831. X            sprintf (index_file, "%s/%s/%s", spooldir, group_path, INDEXDIR);
  1832. X        }
  1833. X
  1834. X        unlink (index_file);    /* delete index file */
  1835. X
  1836. X        index_file_killed = FALSE;
  1837. X        last_read_article = 0L;
  1838. X
  1839. X        if (read_group (group, group_path)) {
  1840. X            dump_index (group, killed);
  1841. X        }
  1842. X    }
  1843. X
  1844. X    make_threads (TRUE);
  1845. X    find_base ();
  1846. X
  1847. X    if (local_index) {
  1848. X        setuid (tin_uid);
  1849. X        setgid (tin_gid);
  1850. X    }
  1851. X
  1852. X    return; 
  1853. X}
  1854. X
  1855. X/*
  1856. X * convert date from "24 Jul 91 12:59:59" to "910724125959"
  1857. X */
  1858. X
  1859. Xchar *parse_date (date, str)
  1860. X    char *date;
  1861. X    char *str;
  1862. X{
  1863. X    char buf[4];
  1864. X    int i = 3;
  1865. X
  1866. X    if (date[1] == ' ') {    /* ie. "2 Aug..." instead of "12 Aug... */
  1867. X        str[4] = '0';        /* day */
  1868. X        str[5] = date[0];
  1869. X        i = 2;
  1870. X    } else {
  1871. X        str[4] = date[0];        /* day */
  1872. X        str[5] = date[1];
  1873. X    }
  1874. X    
  1875. X    buf[0] = date[i++];        /* month in Jan,Feb,.. form */
  1876. X    buf[1] = date[i++];
  1877. X    buf[2] = date[i++];
  1878. X    buf[3] = '\0';
  1879. X
  1880. X    i++;
  1881. X    
  1882. X    str[0] = date[i++];        /* year */
  1883. X    str[1] = date[i++];
  1884. X    
  1885. X    i++;
  1886. X    
  1887. X    if (strcmp (buf, "Jan") == 0) {        /* convert Jan to 01 etc */
  1888. X        str[2] = '0';
  1889. X        str[3] = '1';
  1890. X    } else if (strcmp (buf, "Feb") == 0) {
  1891. X        str[2] = '0';
  1892. X        str[3] = '2';
  1893. X    } else if (strcmp (buf, "Mar") == 0) {
  1894. X        str[2] = '0';
  1895. X        str[3] = '3';
  1896. X    } else if (strcmp (buf, "Apr") == 0) {
  1897. X        str[2] = '0';
  1898. X        str[3] = '4';
  1899. X    } else if (strcmp (buf, "May") == 0) {
  1900. X        str[2] = '0';
  1901. X        str[3] = '5';
  1902. X    } else if (strcmp (buf, "Jun") == 0) {
  1903. X        str[2] = '0';
  1904. X        str[3] = '6';
  1905. X    } else if (strcmp (buf, "Jul") == 0) {
  1906. X        str[2] = '0';
  1907. X        str[3] = '7';
  1908. X    } else if (strcmp (buf, "Aug") == 0) {
  1909. X        str[2] = '0';
  1910. X        str[3] = '8';
  1911. X    } else if (strcmp (buf, "Sep") == 0) {
  1912. X        str[2] = '0';
  1913. X        str[3] = '9';
  1914. X    } else if (strcmp (buf, "Oct") == 0) {
  1915. X        str[2] = '1';
  1916. X        str[3] = '0';
  1917. X    } else if (strcmp (buf, "Nov") == 0) {
  1918. X        str[2] = '1';
  1919. X        str[3] = '1';
  1920. X    } else if (strcmp (buf, "Dec") == 0) {
  1921. X        str[2] = '1';
  1922. X        str[3] = '2';
  1923. X    } else {
  1924. X        str[2] = '0';
  1925. X        str[3] = '0';
  1926. X    }
  1927. X    
  1928. X    str[6] = date[i++];        /* hour */
  1929. X    str[7] = date[i++];
  1930. X
  1931. X    i++;
  1932. X    
  1933. X    str[8] = date[i++];        /* minutes */
  1934. X    str[9] = date[i++];
  1935. X    
  1936. X    i++;
  1937. X    
  1938. X    str[10] = date[i++];    /* seconds */
  1939. X    str[11] = date[i++];
  1940. X
  1941. X    str[12] = '\0';        /* terminate string */
  1942. X
  1943. X    return (str);
  1944. X}
  1945. X
  1946. X
  1947. Xint artnum_comp (s1, s2)
  1948. X    struct header *s1;
  1949. X    struct header *s2;
  1950. X{
  1951. X    /* s1->artnum less than s2->artnum */
  1952. X    if (s1->artnum < s2->artnum) {
  1953. X        return -1;
  1954. X    }
  1955. X    /* s1->artnum greater than s2->artnum */
  1956. X    if (s1->artnum > s2->artnum) {
  1957. X        return 1;
  1958. X    }
  1959. X    return 0;
  1960. X}
  1961. X
  1962. X
  1963. Xint subj_comp (s1, s2)
  1964. X    struct header *s1;
  1965. X    struct header *s2;
  1966. X{
  1967. X    /* s1->subject less than s2->subject */
  1968. X    if (strcmp (s1->subject, s2->subject) < 0) {
  1969. X        return -1;
  1970. X    }
  1971. X    /* s1->subject greater than s2->subject */
  1972. X    if (strcmp (s1->subject, s2->subject) > 0) {
  1973. X        return 1;
  1974. X    }
  1975. X    return 0;
  1976. X}
  1977. X
  1978. X
  1979. Xint from_comp (s1, s2)
  1980. X    struct header *s1;
  1981. X    struct header *s2;
  1982. X{
  1983. X    /* s1->from less than s2->from */
  1984. X    if (strcmp (s1->from, s2->from) < 0) {
  1985. SHAR_EOF
  1986. echo "End of tin part 1"
  1987. echo "File art.c is continued in part 2"
  1988. echo "2" > shar3_seq_.tmp
  1989. exit 0
  1990.  
  1991. --
  1992. NAME   Iain Lea
  1993. EMAIL  norisc!iain@estevax.UUCP  ...!unido!estevax!norisc!iain
  1994. SNAIL  Siemens AG, AUT 922C, Postfach 4848, Nuernberg, Germany
  1995. PHONE  +49-911-895-3853, +49-911-895-3877, +49-911-331963
  1996.