home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume19 / cnews2 / pch23jun89 < prev    next >
Internet Message Format  |  1989-09-17  |  54KB
  1. From attcan!utzoo!henry@uunet.uu.net Wed Aug  9 10:39:34 1989
  2. Received: from BBN.COM by pineapple.bbn.com
  3.     id <AA14000@pineapple.bbn.com>; Wed, 9 Aug 89 10:39:14 -0400
  4. Received: from uunet.uu.net by BBN.COM id aa27369; 9 Aug 89 10:38 EDT
  5. Received: from attcan.UUCP by uunet.uu.net (5.61/1.14) with UUCP 
  6.     id AA02312; Wed, 9 Aug 89 10:36:39 -0400
  7. Date: Wed, 9 Aug 89 10:36:39 -0400
  8. From: attcan!utzoo!henry@uunet.uu.net
  9. Message-Id: <8908091436.AA02312@uunet.uu.net>
  10. To: source-patches@uunet.UU.NET
  11. Subject: C News patch of 23-Jun-1989 (cumulative to that time)
  12. Content-Type: text  
  13. Content-Length: 53332  
  14. Status: R
  15.  
  16. The following is the first formal, official patch to C News.  It includes
  17. the two small ones that Geoff posted earlier; we apologize for the slightly
  18. disorganized way that was done, but we were caught slightly unprepared.
  19.  
  20. It seems the copy of C News we sent to comp.sources.unix fell into a black
  21. hole due to a mailer foulup.  It is being re-sent, including this patch.
  22. Only people who picked up copies earlier, by FTP or UUCP, need this.
  23. Existing FTPable copies will be updated as soon as possible; if there is
  24. a PATCHDATES file immediately after the copyright notice, you've got a
  25. current one.  The compressed current distribution is 387157 bytes.
  26.  
  27. This patch fixes a double handful of small bugs, one or two of them serious.
  28. It also makes a few small improvements, including a considerable streamlining
  29. of the processing in newsrun.  Finally, it includes a later version of the
  30. fast-start modifications to rn.
  31.  
  32. Oh yes, and it also introduces a patch-tracking mechanism, date-based rather
  33. than numeric but with the same sort of functionality.
  34.  
  35.  
  36. start of patch 23-Jun-1989
  37. this should be run with   patch -p0 <thisfile
  38.  
  39. The following are obsolete and should be deleted (there is no
  40. easy way we can convince patch to do this automatically):
  41. relay/TODO
  42.  
  43. Changed files, if any:
  44.  
  45. *** cnpatch/tmp.file    Fri Jun 23 14:34:49 1989
  46. --- README    Thu Jun 22 14:11:05 1989
  47. ***************
  48. *** 27,38 ****
  49.   syndrome.)
  50.   
  51.   C News's files are fully compatible with those of B News for any program
  52. ! that does not inspect the middle field of the history file closely.  (The
  53. ! one major program that does is "nntp"; we include diffs for NNTP 1.5 which
  54. ! handle our middle-field format, interface it to our input subsystem, and
  55. ! generally make it quite a bit faster than the original.)  C News complies
  56. ! fully with RFC 1036 (nee RFC 850), the official definition of news interchange
  57. ! format.
  58.   
  59.   C News is, by intent and *we think* in practice, compatible with B News
  60.   at the level of most interfaces to the normal user, which basically means
  61. --- 27,38 ----
  62.   syndrome.)
  63.   
  64.   C News's files are fully compatible with those of B News for any program
  65. ! that does not read log files and does not inspect the middle field of the
  66. ! history file closely.  (The one major program that does is "nntp"; we include
  67. ! diffs for NNTP 1.5 which handle our middle-field format, interface it to
  68. ! our input subsystem, and generally make it quite a bit faster than the
  69. ! original.)  C News complies fully with RFC 1036 (nee RFC 850), the official
  70. ! definition of news interchange format.
  71.   
  72.   C News is, by intent and *we think* in practice, compatible with B News
  73.   at the level of most interfaces to the normal user, which basically means
  74.  
  75. *** cnpatch/tmp.file    Fri Jun 23 14:34:52 1989
  76. --- batch/Makefile    Thu Jun 22 15:31:35 1989
  77. ***************
  78. *** 83,92 ****
  79.       rm -rf bin
  80.       mkdir bin
  81.       echo 'ln $$* >/dev/null 2>/dev/null' >bin/newslock
  82. !     echo 'cat $*' >bin/munch
  83. !     echo '( echo --- ; cat $* ) >>output' >bin/xmit
  84. !     echo 'echo 2 ; cat $*' >bin/munch2
  85. !     echo '( echo +++ ; cat $* ) >>output' >bin/xmit2
  86.       echo 'echo 4' >bin/queuelen
  87.       echo 'echo 99' >bin/spacefor
  88.       ln batcher bin/batcher
  89. --- 83,92 ----
  90.       rm -rf bin
  91.       mkdir bin
  92.       echo 'ln $$* >/dev/null 2>/dev/null' >bin/newslock
  93. !     echo 'cat' >bin/munch
  94. !     echo '( echo --- ; cat ) >>output' >bin/xmit
  95. !     echo 'echo 2 ; cat' >bin/munch2
  96. !     echo '( echo +++ ; cat ) >>output' >bin/xmit2
  97.       echo 'echo 4' >bin/queuelen
  98.       echo 'echo 99' >bin/spacefor
  99.       ln batcher bin/batcher
  100.  
  101. *** cnpatch/tmp.file    Fri Jun 23 14:35:02 1989
  102. --- batch/viainews    Wed Jun 21 19:44:49 1989
  103. ***************
  104. *** 1,4 ****
  105.   #! /bin/sh
  106.   # Feed batch to inews, for ihave/sendme mostly.
  107.   
  108. ! exec inews -h
  109. --- 1,4 ----
  110.   #! /bin/sh
  111.   # Feed batch to inews, for ihave/sendme mostly.
  112.   
  113. ! exec inews -h -W
  114.  
  115. *** cnpatch/tmp.file    Fri Jun 23 14:35:06 1989
  116. --- conf/Makefile    Thu Jun 22 16:12:47 1989
  117. ***************
  118. *** 79,87 ****
  119.       rm -f log mailpaths sys cron rc setnewsids setnewsids.o spacefor.bsd
  120.       rm -f replyusepath spacefor queuelen junk
  121.   
  122. ! gclean:
  123.       rm -f ../libcnews.a ../ranlibed
  124.       rm -rf ../include
  125.       for d in $(DIRS) ; do cd ../$$d ; make clean ; done
  126.   
  127.   spotless:    gclean
  128. --- 79,89 ----
  129.       rm -f log mailpaths sys cron rc setnewsids setnewsids.o spacefor.bsd
  130.       rm -f replyusepath spacefor queuelen junk
  131.   
  132. ! gclean:    tidy
  133.       rm -f ../libcnews.a ../ranlibed
  134.       rm -rf ../include
  135. + 
  136. + tidy:
  137.       for d in $(DIRS) ; do cd ../$$d ; make clean ; done
  138.   
  139.   spotless:    gclean
  140.  
  141. *** cnpatch/tmp.file    Fri Jun 23 14:35:12 1989
  142. --- conf/build    Thu Jun 22 16:11:17 1989
  143. ***************
  144. *** 346,356 ****
  145.       *)    fake="$fake $fn.o"    ;;
  146.       esac
  147.   done
  148. ! ./query "Does your system have a library function ldiv() as in ANSI C? [yes]? "
  149.   read answer
  150.   case "$answer" in
  151. ! y*|Y*|'')    ;;
  152. ! *)    fake="$fake ldiv.o"    ;;
  153.   esac
  154.   ./query 'Does your system have the "dbm" library [yes]? '
  155.   read answer
  156. --- 346,355 ----
  157.       *)    fake="$fake $fn.o"    ;;
  158.       esac
  159.   done
  160. ! ./query "Does your system have a library function ldiv() as in ANSI C? [no]? "
  161.   read answer
  162.   case "$answer" in
  163. ! n*|N*|'')    fake="$fake ldiv.o"    ;;
  164.   esac
  165.   ./query 'Does your system have the "dbm" library [yes]? '
  166.   read answer
  167. ***************
  168. *** 364,369 ****
  169. --- 363,371 ----
  170.           ;;
  171.   *)    fake="$fake dbm.o"
  172.       dbm='DBM='
  173. +     echo "Okay, we'll fake it for you.  You might want to look at"
  174. +     echo "contrib/dbz, which is a probably-superior fake that we have"
  175. +     echo "not examined closely."
  176.       ;;
  177.   esac
  178.   
  179. ***************
  180. *** 409,415 ****
  181.       echo
  182.       echo 'A well-tuned index() function customized to a particular machine'
  183.       echo 'is usually faster than portable C.  Is your index() function'
  184. !     ./query 'indeed fast [yes]? '
  185.       read fastindex
  186.       case "$fastindex" in
  187.       y*|Y*|'')    fastindex=y    ;;
  188. --- 411,417 ----
  189.       echo
  190.       echo 'A well-tuned index() function customized to a particular machine'
  191.       echo 'is usually faster than portable C.  Is your index() function'
  192. !     ./query 'indeed fast (okay to guess) [yes]? '
  193.       read fastindex
  194.       case "$fastindex" in
  195.       y*|Y*|'')    fastindex=y    ;;
  196. ***************
  197. *** 882,888 ****
  198.       echo "rm -f $ctlf"
  199.       echo "cp config.proto config"
  200.       echo "echo '$mailname' >mailname"
  201. !     echo "echo '$organization' >organization"
  202.       if test " $allowed" != " "
  203.       then
  204.           echo "echo '$allowed' >allowed"
  205. --- 884,892 ----
  206.       echo "rm -f $ctlf"
  207.       echo "cp config.proto config"
  208.       echo "echo '$mailname' >mailname"
  209. !     echo "cat <<'!' >organization"
  210. !     echo "$organization"
  211. !     echo '!'
  212.       if test " $allowed" != " "
  213.       then
  214.           echo "echo '$allowed' >allowed"
  215.  
  216. *** cnpatch/tmp.file    Fri Jun 23 14:35:18 1989
  217. --- conf/setnewsids.c    Thu Jun 22 14:32:47 1989
  218. ***************
  219. *** 80,86 ****
  220.               newsgid = grp->gr_gid;
  221.           (void) endgrent();
  222.       }
  223. !     if (setgid(newsgid) < 0 || setuid(newsuid) < 0)
  224.           error("set[ug]id failed", "");
  225.       /* we are now running as news, so you can all relax */
  226.   }
  227. --- 80,87 ----
  228.               newsgid = grp->gr_gid;
  229.           (void) endgrent();
  230.       }
  231. !     if (setgid(newsgid) < 0 || setuid(newsuid) < 0 ||
  232. !         getgid() != newsgid || getuid() != newsuid)    /* xenix workaround */
  233.           error("set[ug]id failed", "");
  234.       /* we are now running as news, so you can all relax */
  235.   }
  236.  
  237. *** cnpatch/tmp.file    Fri Jun 23 14:35:22 1989
  238. --- contrib/dbz    Fri Jun 23 13:11:14 1989
  239. ***************
  240. *** 170,178 ****
  241.           lseek(Data_fd, data_ptr, 0);
  242.           read(Data_fd, buffer, (unsigned)key.dsize);
  243.   
  244. !         /* key should be lcase version of article id and no tab */
  245.   
  246. !         lcase(buffer, key.dsize);
  247.           if (buffer[key.dsize - 1] == '\t') {
  248.               buffer[key.dsize - 1] = '\0';
  249.           }
  250. --- 170,178 ----
  251.           lseek(Data_fd, data_ptr, 0);
  252.           read(Data_fd, buffer, (unsigned)key.dsize);
  253.   
  254. !         /* key should be article id and no tab */
  255.   
  256. !         /* lcase(buffer, key.dsize);    lcase is a B news botch */
  257.           if (buffer[key.dsize - 1] == '\t') {
  258.               buffer[key.dsize - 1] = '\0';
  259.           }
  260.  
  261. *** cnpatch/tmp.file    Fri Jun 23 14:35:34 1989
  262. --- contrib/rn.mod/README    Thu Jun 22 16:42:26 1989
  263. ***************
  264. *** 31,34 ****
  265.   group/1 will be around for a very long time, making rn spuriously think
  266.   that the old groups are new.  Proper fixes for this problem involve
  267.   reworking rn's strategy for determining new newsgroups completely,
  268. ! using the "active.times" file.  Volunteers?
  269. --- 31,35 ----
  270.   group/1 will be around for a very long time, making rn spuriously think
  271.   that the old groups are new.  Proper fixes for this problem involve
  272.   reworking rn's strategy for determining new newsgroups completely,
  273. ! using the "active.times" file.  The file "better.way" is an attempt
  274. ! to do exactly that.
  275.  
  276. *** cnpatch/tmp.file    Fri Jun 23 14:35:40 1989
  277. --- doc/interface    Thu Jun 22 14:08:40 1989
  278. ***************
  279. *** 183,188 ****
  280. --- 183,192 ----
  281.   Beware introducing major inefficiencies:
  282.   \fIspacefor\fR is called a lot.
  283.   (Our current one could stand to be faster, in fact.)
  284. + Beware, also, that \fIspacefor\fR is not intended to permit routine operation
  285. + using filesystems that are on the brink of being full;
  286. + the limits it imposes are only approximate, and no attempt has been made
  287. + to tune its clients to exploit every last available block.
  288.   .PP
  289.   \fIQueuelen\fR is invoked by the batcher to determine how long the current
  290.   \fIuucp\fR queues are, so it can judge whether it should suspend batching
  291.  
  292. *** cnpatch/tmp.file    Fri Jun 23 14:35:46 1989
  293. --- expire/dircheck    Thu Jun 22 15:23:30 1989
  294. ***************
  295. *** 30,32 ****
  296. --- 30,33 ----
  297.           fi
  298.       fi
  299.   done
  300. + exit 0                # for stupid shells
  301.  
  302. *** cnpatch/tmp.file    Fri Jun 23 14:35:48 1989
  303. --- expire/expire.c    Thu Jun 22 15:36:25 1989
  304. ***************
  305. *** 102,108 ****
  306. --- 102,112 ----
  307.    * and also large enough for virtual certainty of getting the
  308.    * Subject: line in the first bufferload.
  309.    */
  310. + #ifdef SMALLMEM
  311. + char abuf[2*1024];        /* expire reported to be tight on 11 */
  312. + #else
  313.   char abuf[8*1024];
  314. + #endif
  315.   
  316.   char *progname;
  317.   
  318.  
  319. *** cnpatch/tmp.file    Fri Jun 23 14:35:59 1989
  320. --- input/Makefile    Thu Jun 22 14:27:07 1989
  321. ***************
  322. *** 29,34 ****
  323. --- 29,35 ----
  324.   bininstall:    all
  325.       chmod +x $(THEM) rnews
  326.       -if test ! -d $(NEWSBIN)/input ; then mkdir $(NEWSBIN)/input ; fi
  327. +     rm -f $(NEWSBIN)/input/newsspool
  328.       cp $(THEM) $(NEWSBIN)/input
  329.       cp rnews $(RBIN)/rnews
  330.       cp rnews $(RBIN)/cunbatch
  331. ***************
  332. *** 95,106 ****
  333.       rm -rf bin
  334.       mkdir bin
  335.       cp $(THEM) bin
  336.       rm -f tmp.1
  337.       here=`pwd` ; echo "cat >>$$here/tmp.1" >bin/relaynews
  338.       echo "echo 1" >bin/spacefor
  339.       echo 'ln $$*' >bin/newslock
  340.       echo 'echo 10' >bin/sizeof
  341. !     chmod +x bin/*
  342.       rm -rf in.coming
  343.       mkdir in.coming
  344.   
  345. --- 96,109 ----
  346.       rm -rf bin
  347.       mkdir bin
  348.       cp $(THEM) bin
  349. +     mkdir bin/input
  350. +     cp newsrun bin/input
  351.       rm -f tmp.1
  352.       here=`pwd` ; echo "cat >>$$here/tmp.1" >bin/relaynews
  353.       echo "echo 1" >bin/spacefor
  354.       echo 'ln $$*' >bin/newslock
  355.       echo 'echo 10' >bin/sizeof
  356. !     chmod +x bin/* bin/input/*
  357.       rm -rf in.coming
  358.       mkdir in.coming
  359.   
  360. ***************
  361. *** 125,131 ****
  362.       rm tmp.1
  363.       NEWSARTS=`pwd` NEWSCTL=`pwd` ./rnews.batch <test.1
  364.       NEWSARTS=`pwd` NEWSCTL=`pwd` ./rnews.batch <test.2
  365. !     NEWSARTS=`pwd` NEWSCTL=`pwd` ./rnews.immed <test.3
  366.       cmp tmp.1 test.out
  367.       test " `echo in.coming/*`" = ' in.coming/bad'
  368.       rm tmp.1
  369. --- 128,134 ----
  370.       rm tmp.1
  371.       NEWSARTS=`pwd` NEWSCTL=`pwd` ./rnews.batch <test.1
  372.       NEWSARTS=`pwd` NEWSCTL=`pwd` ./rnews.batch <test.2
  373. !     NEWSARTS=`pwd` NEWSCTL=`pwd` NEWSBIN=`pwd`/bin ./rnews.immed <test.3
  374.       cmp tmp.1 test.out
  375.       test " `echo in.coming/*`" = ' in.coming/bad'
  376.       rm tmp.1
  377.  
  378. *** cnpatch/tmp.file    Fri Jun 23 14:36:01 1989
  379. --- input/newsrun    Fri Jun 23 12:42:42 1989
  380. ***************
  381. *** 28,95 ****
  382.       exit 0
  383.   fi
  384.   
  385. - # Get rid of any old temporaries.
  386. - rm -f nruntmp.*
  387. - for f in `ls | egrep '^nspool'`
  388. - do
  389. -     find $f -mtime +1 -exec rm -f '{}' ';'
  390. - done
  391. - 
  392.   # Sort out where we are.
  393. - me="`hostname`"
  394.   if test -r $NEWSCTL/server
  395.   then
  396.       server=`cat $NEWSCTL/server`
  397.   else
  398.       server="$me"        # no server file --> we're it
  399.   fi
  400.   
  401.   # Master loop.
  402. ! while true
  403.   do
  404.       # Find some work.
  405. !     them=`ls | egrep '^[0-9]+$' | sort | sed 50q`
  406. !     if test "$them" = ""
  407.       then
  408. !         break
  409.       fi
  410.   
  411.       # Do it.
  412.       for f in $them
  413.       do
  414.           # Check for request to stop.
  415.           if test -r stop
  416.           then
  417.               exit 0
  418.           fi
  419.   
  420. !         # Check space.  It is *probably* better to stop processing
  421. !         # when things get too full.  (This test is actually a bit
  422. !         # inaccurate since the batch may be compressed, but it's
  423. !         # good enough to catch major space problems.)
  424. !         batchsize=`sizeof $f`
  425. !         if test " $batchsize" -eq 0        # empty batch
  426.           then
  427.               rm -f $f
  428. !             continue        # ugh
  429.           fi
  430. !         if test " `spacefor $batchsize articles`" -le 0
  431.           then
  432. !             exit 0
  433.           fi
  434.   
  435. !         # Decompress if necessary.
  436.           text=nruntmp.$$
  437.           if compress -d <$f >$text 2>/dev/null
  438.           then
  439. !             rmlist="$f $text"
  440.           elif c7decode <$f 2>/dev/null | compress -d >$text 2>/dev/null
  441.           then
  442. !             rmlist="$f $text"
  443.           else
  444.               rm -f $text
  445.               text=$f
  446. !             rmlist="$f"
  447.           fi
  448.   
  449.           # Do it.  -r redirects stdout and stderr into logs.  -n makes
  450. --- 28,108 ----
  451.       exit 0
  452.   fi
  453.   
  454.   # Sort out where we are.
  455.   if test -r $NEWSCTL/server
  456.   then
  457. +     me="`hostname`"
  458.       server=`cat $NEWSCTL/server`
  459.   else
  460. +     me=me            # don't need actual name
  461.       server="$me"        # no server file --> we're it
  462.   fi
  463.   
  464.   # Master loop.
  465. ! while :                # "while true", but : is faster
  466.   do
  467.       # Find some work.
  468. !     them=`ls | sed '/[^0-9]/d;50q'`
  469. !     if test " $them" = " "
  470.       then
  471. !         break            # NOTE BREAK OUT
  472.       fi
  473.   
  474. +     # Check space.  It is *probably* better to stop processing
  475. +     # when things get too full.  (This test is actually a bit
  476. +     # inaccurate since the batches may be compressed, but it's
  477. +     # good enough to catch major space problems.)
  478. +     allsize=`sizeof $them`
  479. +     if test " `spacefor $allsize articles`" -gt 1    # lots of room
  480. +     then
  481. +         muchroom=y
  482. +     else
  483. +         muchroom=
  484. +     fi
  485. + 
  486.       # Do it.
  487. +     rmlist=
  488.       for f in $them
  489.       do
  490.           # Check for request to stop.
  491.           if test -r stop
  492.           then
  493. +             rm -f $rmlist
  494.               exit 0
  495.           fi
  496.   
  497. !         # Check for empty.
  498. !         if test ! -s $f
  499.           then
  500.               rm -f $f
  501. !             continue            # NOTE CONTINUE
  502.           fi
  503. ! 
  504. !         # Space check, if we're close.
  505. !         if test " $muchroom" != " y"
  506.           then
  507. !             batchsize=`sizeof $f`
  508. !             if test " `spacefor $batchsize articles`" -le 0
  509. !             then
  510. !                 rm -f $rmlist
  511. !                 exit 0
  512. !             fi
  513.           fi
  514.   
  515. !         # Decompress if necessary.  People who get lots of
  516. !         # uncompressed batches and never use c7 encoding might
  517. !         # want to remove the c7decode attempt to speed things up.
  518.           text=nruntmp.$$
  519.           if compress -d <$f >$text 2>/dev/null
  520.           then
  521. !             rmlist="$rmlist $f $text"
  522.           elif c7decode <$f 2>/dev/null | compress -d >$text 2>/dev/null
  523.           then
  524. !             rmlist="$rmlist $f $text"
  525.           else
  526.               rm -f $text
  527.               text=$f
  528. !             rmlist="$rmlist $f"
  529.           fi
  530.   
  531.           # Do it.  -r redirects stdout and stderr into logs.  -n makes
  532. ***************
  533. *** 128,137 ****
  534.                               mail "$NEWSMASTER"
  535.           fi
  536.   
  537. -         rm -f $rmlist
  538.       done
  539.   done
  540. - 
  541. - find bad -mtime +7 -exec rm -f '{}' ';'
  542.   
  543.   exit 0
  544. --- 141,148 ----
  545.                               mail "$NEWSMASTER"
  546.           fi
  547.   
  548.       done
  549. +     rm -f $rmlist
  550.   done
  551.   
  552.   exit 0
  553.  
  554. *** cnpatch/tmp.file    Fri Jun 23 14:36:03 1989
  555. --- input/newsspool.c    Thu Jun 22 14:14:32 1989
  556. ***************
  557. *** 105,111 ****
  558.               }
  559.   
  560.       if (immed) {
  561. !         execlp("newsrun", "newsrun", (char *)NULL);
  562.           error("attempt to run newsrun failed!", "");
  563.       }
  564.       exit(0);
  565. --- 105,112 ----
  566.               }
  567.   
  568.       if (immed) {
  569. !         /* execlp because shell files may not be directly execable */
  570. !         execlp(binfile("input/newsrun"), "newsrun", (char *)NULL);
  571.           error("attempt to run newsrun failed!", "");
  572.       }
  573.       exit(0);
  574.  
  575. *** cnpatch/tmp.file    Fri Jun 23 14:36:19 1989
  576. --- libcnews/string.c    Thu Jun 22 14:34:38 1989
  577. ***************
  578. *** 166,172 ****
  579.       register int ch;
  580.   
  581.       for (; *path != '\0'; path++)
  582. !         if (nothostchar(path[0], ch) && hostchar(path[1], ch))
  583.               ++count;    /* trailing edge of delimiters */
  584.       return count;
  585.   }
  586. --- 166,173 ----
  587.       register int ch;
  588.   
  589.       for (; *path != '\0'; path++)
  590. !         if (nothostchar(path[0], ch) &&
  591. !             (hostchar(path[1], ch) || path[1] == '\0'))
  592.               ++count;    /* trailing edge of delimiters */
  593.       return count;
  594.   }
  595. ***************
  596. *** 195,203 ****
  597.   }
  598.   
  599.   /*
  600. !  * Canonicalise rawpath: NULL -> "", chop last site (actually user name),
  601. !  * and if approved:, chop everything after the site in approved (user@host):
  602. !  * (or sender).
  603.    * Result is malloced memory.
  604.    */
  605.   char *
  606. --- 196,204 ----
  607.   }
  608.   
  609.   /*
  610. !  * Canonicalise rawpath: NULL -> "", chop last site (actually user name) but not
  611. !  * its leading delimiter, and if Approved:, chop everything after the site,
  612. !  * and its trailing delimiter, from Approved: (or Sender:) (user@host).
  613.    * Result is malloced memory.
  614.    */
  615.   char *
  616. ***************
  617. *** 205,216 ****
  618.   char *rawpath, *approved, *sender;
  619.   {
  620.       register char *newpath = strsave(nullify(rawpath));
  621. !     register char *p, *lastdelim = NULL, *site = NULL;
  622.       register int ch;
  623.   
  624.       for (p = newpath; *p != '\0'; ++p)
  625.           if (nothostchar(*p, ch))
  626. !             lastdelim = p;
  627.       if (lastdelim != NULL)
  628.           *lastdelim = '\0';        /* omit user's name */
  629.   
  630. --- 206,217 ----
  631.   char *rawpath, *approved, *sender;
  632.   {
  633.       register char *newpath = strsave(nullify(rawpath));
  634. !     register char *p, *lastdelim = newpath, *site = NULL;
  635.       register int ch;
  636.   
  637.       for (p = newpath; *p != '\0'; ++p)
  638.           if (nothostchar(*p, ch))
  639. !             lastdelim = p + 1;    /* just past delim */
  640.       if (lastdelim != NULL)
  641.           *lastdelim = '\0';        /* omit user's name */
  642.   
  643. ***************
  644. *** 221,227 ****
  645.       }
  646.       if (site != NULL) {
  647.           p = findhost(site+1, newpath);
  648. !         if (p != NULL)
  649.               *p = '\0';        /* terminate newpath after site */
  650.       }
  651.       return newpath;
  652. --- 222,228 ----
  653.       }
  654.       if (site != NULL) {
  655.           p = findhost(site+1, newpath);
  656. !         if (p != NULL && *p++ != '\0')    /* delim after site? */
  657.               *p = '\0';        /* terminate newpath after site */
  658.       }
  659.       return newpath;
  660.  
  661. *** cnpatch/tmp.file    Fri Jun 23 14:36:44 1989
  662. --- man/newsaux.8    Thu Jun 22 12:57:24 1989
  663. ***************
  664. *** 6,12 ****
  665.   .ds c /usr/lib/news
  666.   .\" =()<.ds m @<NEWSMASTER>@>()=
  667.   .ds m usenet
  668. ! .TH NEWSAUX 8 "9 June 1989" "C News"
  669.   .SH NAME
  670.   spacefor \- check available space for news
  671.   .br
  672. --- 6,12 ----
  673.   .ds c /usr/lib/news
  674.   .\" =()<.ds m @<NEWSMASTER>@>()=
  675.   .ds m usenet
  676. ! .TH NEWSAUX 8 "22 June 1989" "C News"
  677.   .SH NAME
  678.   spacefor \- check available space for news
  679.   .br
  680. ***************
  681. *** 89,95 ****
  682.   The precise locations of these places, and how low space gets before
  683.   it is unduly cramped, are site-specific.
  684.   .I Spacefor
  685. ! invokes \fIdu\fR(1) to determine the available space.
  686.   .PP
  687.   .I Queuelen
  688.   reports how many news batches \fIuucp\fR has queued up for \fIsite\fR.
  689. --- 89,95 ----
  690.   The precise locations of these places, and how low space gets before
  691.   it is unduly cramped, are site-specific.
  692.   .I Spacefor
  693. ! invokes \fIdf\fR(1) to determine the available space.
  694.   .PP
  695.   .I Queuelen
  696.   reports how many news batches \fIuucp\fR has queued up for \fIsite\fR.
  697. ***************
  698. *** 212,218 ****
  699.   .I Spacefor
  700.   and
  701.   .I queuelen
  702. ! are unfortunately somewhat system-specific, since \fIdu\fR output and
  703.   \fIuucp\fR file layout vary between different versions.
  704.   .PP
  705.   The need for \fIsizeof\fR and \fInewslock\fR is a botch.
  706. --- 212,218 ----
  707.   .I Spacefor
  708.   and
  709.   .I queuelen
  710. ! are unfortunately somewhat system-specific, since \fIdf\fR output and
  711.   \fIuucp\fR file layout vary between different versions.
  712.   .PP
  713.   The need for \fIsizeof\fR and \fInewslock\fR is a botch.
  714.  
  715. *** cnpatch/tmp.file    Fri Jun 23 14:36:46 1989
  716. --- man/newsmail.8    Thu Jun 22 15:22:51 1989
  717. ***************
  718. *** 6,16 ****
  719.   .ds c /usr/lib/news
  720.   .\" =()<.ds m @<NEWSMASTER>@>()=
  721.   .ds m usenet
  722. ! .TH NEWSMAIL 8 "31 May 1989" "C News"
  723.   .SH NAME
  724.   mailnews, sendnews \- send unbatched news as mail
  725.   .br
  726.   recenews, recpnews \- receive mailed news
  727.   .SH SYNOPSIS
  728.   .B \*b/relay/mailnews
  729.   address ...
  730. --- 6,18 ----
  731.   .ds c /usr/lib/news
  732.   .\" =()<.ds m @<NEWSMASTER>@>()=
  733.   .ds m usenet
  734. ! .TH NEWSMAIL 8 "22 June 1989" "C News"
  735.   .SH NAME
  736.   mailnews, sendnews \- send unbatched news as mail
  737.   .br
  738.   recenews, recpnews \- receive mailed news
  739. + .br
  740. + bdecode \- decode encoded mailed news
  741.   .SH SYNOPSIS
  742.   .B \*b/relay/mailnews
  743.   address ...
  744. ***************
  745. *** 21,26 ****
  746. --- 23,31 ----
  747.   .B \*b/input/recenews
  748.   .br
  749.   .B \*b/input/recpnews
  750. + .br
  751. + .B \*b/input/bdecode
  752. + [ file ]
  753.   .SH DESCRIPTION
  754.   Sometimes it is necessary to transmit news via mail,
  755.   to deal with network connections that have no notion of arbitrary file
  756. ***************
  757. *** 57,63 ****
  758. --- 62,75 ----
  759.   is sent to \fIrecenews\fR
  760.   and likewise for ``rnews'' (the name is historical, for compatibility
  761.   again) and \fIrecpnews\fR.
  762. + .PP
  763. + .I Bdecode
  764. + passes standard input, or the \fIfile\fR if there is one, to standard
  765. + output, decoding the \fIbencode\fR encoding and stripping off
  766. + debris prepended and appended by mailers.
  767.   .SH SEE ALSO
  768.   bencode(1), mail(1), news(5), newsbatch(8), rnews(8)
  769.   .SH HISTORY
  770.   Written at U of Toronto by Henry Spencer, with contributions by Geoff Collyer.
  771. + .I Bdecode
  772. + written at University of Waterloo by Reg Quinton and Ken Lalonde.
  773.  
  774. *** cnpatch/tmp.file    Fri Jun 23 14:36:50 1989
  775. --- man/rnews.8    Thu Jun 22 15:20:42 1989
  776. ***************
  777. *** 6,17 ****
  778.   .ds c /usr/lib/news
  779.   .\" =()<.ds m @<NEWSMASTER>@>()=
  780.   .ds m usenet
  781. ! .TH RNEWS 8 "24 May 1989" "C News"
  782.   .SH NAME
  783.   rnews, cunbatch \- accept and spool news input
  784.   .br
  785. - recbnews, recpnews, bdecode \- accept and spool news received via mail
  786. - .br
  787.   newsspool, newsrun, c7decode \- news input spooler and processing
  788.   .br
  789.   newsrunning \- control news-processing daemon
  790. --- 6,15 ----
  791.   .ds c /usr/lib/news
  792.   .\" =()<.ds m @<NEWSMASTER>@>()=
  793.   .ds m usenet
  794. ! .TH RNEWS 8 "22 June 1989" "C News"
  795.   .SH NAME
  796.   rnews, cunbatch \- accept and spool news input
  797.   .br
  798.   newsspool, newsrun, c7decode \- news input spooler and processing
  799.   .br
  800.   newsrunning \- control news-processing daemon
  801. ***************
  802. *** 22,32 ****
  803.   .B cunbatch
  804.   [ file ... ]
  805.   .br
  806. - .B \*b/input/recbnews
  807. - .br
  808. - .B \*b/input/recpnews
  809. - .br
  810. - .br
  811.   .B \*b/input/newsspool
  812.   [
  813.   .B \-i
  814. --- 20,25 ----
  815. ***************
  816. *** 36,44 ****
  817.   .br
  818.   .B \*b/input/c7decode
  819.   .br
  820. - .B \*b/input/bdecode
  821. - [ file ]
  822. - .br
  823.   .B \*b/input/newsrunning
  824.   {\fBon\fR|\fBoff\fR}
  825.   .SH DESCRIPTION
  826. --- 29,34 ----
  827. ***************
  828. *** 50,62 ****
  829.   .IR rnews ;
  830.   there is no difference in what they do.
  831.   .PP
  832. - .I Recbnews
  833. - receives news sent as mail in
  834. - \fIbencode\fR format (see \fInewsbatch\fR(8)),
  835. - runs it through \fIbdecode\fR, and feeds it to \fIrnews\fR.
  836. - .I Recpnews
  837. - does likewise for news sent as mail with `N' prepended to each line.
  838. - .PP
  839.   .I Newsspool
  840.   is the actual spooling program.
  841.   It creates a spool file with a name based on the current time
  842. --- 40,45 ----
  843. ***************
  844. *** 99,108 ****
  845.   .I C7decode
  846.   passes standard input to standard output, decoding a complex and bizarre
  847.   encoding of 8-bit data as printable ASCII characters.
  848. - .I Bdecode
  849. - passes standard input, or the \fIfile\fR if there is one, to standard
  850. - output, decoding the \fIbencode\fR encoding and stripping off
  851. - debris prepended and appended by mailers.
  852.   .SH FILES
  853.   .nf
  854.   (All in \fI\*a/in.coming\fR)
  855. --- 82,87 ----
  856. ***************
  857. *** 115,120 ****
  858. --- 94,100 ----
  859.   .SH SEE ALSO
  860.   compress(1),
  861.   newsbatch(8),
  862. + newsmail(8),
  863.   relaynews(8)
  864.   .SH DIAGNOSTICS
  865.   Complaints are mailed to \fB\*m\fR if something goes wrong.
  866. ***************
  867. *** 124,130 ****
  868.   .SH BUGS
  869.   \fIC7decode\fR should be part of the underlying transport mechanism.
  870.   It hasn't been tested very well in the C News environment.
  871. ! \fIBencode\fR is probably better.
  872. ! .PP
  873. ! \fIRecpnews\fR and the protocol it uses are obsolescent,
  874. ! as \fIrecbnews\fR and \fIbdecode\fR are far superior.
  875. --- 104,107 ----
  876.   .SH BUGS
  877.   \fIC7decode\fR should be part of the underlying transport mechanism.
  878.   It hasn't been tested very well in the C News environment.
  879. ! \fIBdecode\fR (see \fInewsmail\fR(8)) is probably better for most uses.
  880.  
  881. *** cnpatch/tmp.file    Fri Jun 23 14:36:52 1989
  882. --- misc/addgroup    Thu Jun 22 15:06:04 1989
  883. ***************
  884. *** 4,10 ****
  885.   # =()<. ${NEWSCONFIG-@<NEWSCONFIG>@}>()=
  886.   . ${NEWSCONFIG-/usr/lib/news/bin/config}
  887.   
  888. ! PATH=$NEWSCTL/bin:$NEWSBIN/maint:$NEWSBIN:$NEWSPATH ; export PATH
  889.   umask $NEWSUMASK
  890.   
  891.   usage="Usage: $0 groupname {y|n|m|x|=realgroup}"
  892. --- 4,10 ----
  893.   # =()<. ${NEWSCONFIG-@<NEWSCONFIG>@}>()=
  894.   . ${NEWSCONFIG-/usr/lib/news/bin/config}
  895.   
  896. ! PATH=$NEWSCTL/bin:$NEWSBIN/maint:$NEWSBIN/relay:$NEWSBIN:$NEWSPATH ; export PATH
  897.   umask $NEWSUMASK
  898.   
  899.   usage="Usage: $0 groupname {y|n|m|x|=realgroup}"
  900. ***************
  901. *** 48,50 ****
  902. --- 48,55 ----
  903.   done
  904.   
  905.   echo "$1 0000000000 0000000000 $2" >>$NEWSCTL/active
  906. + mkpdir $NEWSARTS/`echo $1 | tr . /`
  907. + 
  908. + SENDER=${USER-unknown}@`hostname`
  909. + echo "$1 `getdate now` $SENDER" >>$NEWSCTL/active.times  # rn hook
  910. + echo "newsgroup $1 was created locally by $SENDER." | mail $NEWSMASTER
  911.  
  912. *** cnpatch/tmp.file    Fri Jun 23 14:36:54 1989
  913. --- misc/newsboot    Fri Jun 23 12:29:14 1989
  914. ***************
  915. *** 10,19 ****
  916.   cd $NEWSCTL
  917.   rm -f L.* LOCK*                # leftover locks
  918.   rm -f history.n*            # leftover expire work files
  919. - rm -f $NEWSARTS/in.coming/nspool.*    # leftover input temporaries
  920.   
  921. - # nntp goo processing
  922.   cd $NEWSARTS/in.coming
  923.   for f in nntp.*                # find partial batches
  924.   do
  925.       while test -f $f        # still there?
  926. --- 10,18 ----
  927.   cd $NEWSCTL
  928.   rm -f L.* LOCK*                # leftover locks
  929.   rm -f history.n*            # leftover expire work files
  930.   
  931.   cd $NEWSARTS/in.coming
  932. + rm -f nspool.* nruntmp.*        # leftover temporaries
  933.   for f in nntp.*                # find partial batches
  934.   do
  935.       while test -f $f        # still there?
  936.  
  937. *** cnpatch/tmp.file    Fri Jun 23 14:36:55 1989
  938. --- misc/newsdaily    Fri Jun 23 12:29:41 1989
  939. ***************
  940. *** 68,73 ****
  941. --- 68,74 ----
  942.           echo
  943.       ) >>$gripes
  944.   fi
  945. + find bad -type f -mtime +7 -exec rm -f '{}' ';'
  946.   
  947.   # look for output anomalies
  948.   cd $NEWSARTS/out.going
  949.  
  950. *** cnpatch/tmp.file    Fri Jun 23 14:37:07 1989
  951. --- relay/README    Fri Jun 23 13:57:30 1989
  952. ***************
  953. *** 17,20 ****
  954.   wish to disable ihave/sendme (typically because of foolishness like
  955.   proprietary newsgroups).
  956.   
  957. ! To run a regression test, make relaynews, cd regress, and run "regress".
  958. --- 17,20 ----
  959.   wish to disable ihave/sendme (typically because of foolishness like
  960.   proprietary newsgroups).
  961.   
  962. ! To run a regression test, "make r".
  963.  
  964. *** cnpatch/tmp.file    Fri Jun 23 14:37:08 1989
  965. --- relay/active.c    Mon Jun 12 04:46:50 1989
  966. ***************
  967. *** 34,39 ****
  968. --- 34,43 ----
  969.   char actrelnm[] = "active";
  970.   
  971.   static FILE *actfp = NULL;
  972. + static struct lastngcache {
  973. +     char *lnc_ng;            /* newsgroup name */
  974. +     char *lnc_line;            /* matching active file line */
  975. + } lnc = { NULL, NULL };
  976.   
  977.   /*
  978.    * return a pointer to the active file entry for ng
  979. ***************
  980. *** 47,56 ****
  981.   {
  982.       register char *ngline, *ng, *flag;
  983.       register int loopbreak = 100;
  984. -     static struct lastngcache {
  985. -         char *lnc_ng;        /* newsgroup name */
  986. -         char *lnc_line;        /* matching active file line */
  987. -     } lnc = { NULL, NULL };
  988.   
  989.       if (lnc.lnc_ng != NULL && STREQ(lnc.lnc_ng, ang))
  990.           return lnc.lnc_line;
  991. --- 51,56 ----
  992. ***************
  993. *** 132,138 ****
  994.   }
  995.   
  996.   /*
  997. !  * Write back to disk the active file cache, if any.
  998.    */
  999.   statust
  1000.   actsync()
  1001. --- 132,139 ----
  1002.   }
  1003.   
  1004.   /*
  1005. !  * Write back to disk the active file cache, if any, and flush the
  1006. !  * last-newsgroup-cache, since it refers to the (now invalid) active file cache.
  1007.    */
  1008.   statust
  1009.   actsync()
  1010. ***************
  1011. *** 140,145 ****
  1012. --- 141,147 ----
  1013.       register statust status = ST_OKAY;
  1014.   
  1015.       if (actfp != NULL) {
  1016. +         lnc.lnc_ng = lnc.lnc_line = NULL;
  1017.           status |= actfsync(actfp);
  1018.           if (nfclose(actfp) == EOF || status != ST_OKAY) {
  1019.               warning("error writing `%s'", ctlfile(actrelnm));
  1020.  
  1021. *** cnpatch/tmp.file    Fri Jun 23 14:37:18 1989
  1022. --- relay/aux/mkpdir    Mon Jun 12 20:59:28 1989
  1023. ***************
  1024. *** 4,10 ****
  1025.   # =()<. ${NEWSCONFIG-@<NEWSCONFIG>@}>()=
  1026.   . ${NEWSCONFIG-/usr/lib/news/bin/config}
  1027.   export NEWSCTL NEWSBIN NEWSARTS
  1028. ! PATH=$NEWSCTL/bin:$NEWSBIN:$NEWSPATH ; export PATH    # must include this file's dir.
  1029.   
  1030.   umask $NEWSUMASK
  1031.   
  1032. --- 4,10 ----
  1033.   # =()<. ${NEWSCONFIG-@<NEWSCONFIG>@}>()=
  1034.   . ${NEWSCONFIG-/usr/lib/news/bin/config}
  1035.   export NEWSCTL NEWSBIN NEWSARTS
  1036. ! PATH=$NEWSCTL/bin:$NEWSBIN/relay:$NEWSBIN:$NEWSPATH ; export PATH    # must include this file's dir.
  1037.   
  1038.   umask $NEWSUMASK
  1039.   
  1040.  
  1041. *** cnpatch/tmp.file    Fri Jun 23 14:37:22 1989
  1042. --- relay/control.c    Mon Jun 12 05:20:42 1989
  1043. ***************
  1044. *** 170,177 ****
  1045.    * runctlmsg is called from a child of relaynews, so it must always
  1046.    * call _exit() rather than exit() to avoid flushing stdio buffers.
  1047.    *
  1048. !  * Enforce at least minimal security: standardise the environment,
  1049. !  * including PATH and IFS using standard(), a local addition to libc;
  1050.    * reject shell metacharacters in ctlcmd.
  1051.    */
  1052.   STATIC void
  1053. --- 170,177 ----
  1054.    * runctlmsg is called from a child of relaynews, so it must always
  1055.    * call _exit() rather than exit() to avoid flushing stdio buffers.
  1056.    *
  1057. !  * Enforce at least minimal security: the environment was standardised at
  1058. !  * startup, including PATH and IFS; close non-standard file descriptors;
  1059.    * reject shell metacharacters in ctlcmd.
  1060.    */
  1061.   STATIC void
  1062. ***************
  1063. *** 181,187 ****
  1064.       register char *cmd;
  1065.       register int cmdstat;
  1066.   
  1067. !     standard();                /* close most files, etc. */
  1068.       if (!safecmd(ctlcmd)) {
  1069.           (void) fprintf(stderr,
  1070.               "%s: control `%s' looks unsafe to execute\n", progname, ctlcmd);
  1071. --- 181,187 ----
  1072.       register char *cmd;
  1073.       register int cmdstat;
  1074.   
  1075. !     closeall(1);
  1076.       if (!safecmd(ctlcmd)) {
  1077.           (void) fprintf(stderr,
  1078.               "%s: control `%s' looks unsafe to execute\n", progname, ctlcmd);
  1079.  
  1080. *** cnpatch/tmp.file    Fri Jun 23 14:37:23 1989
  1081. --- relay/ctl/checkgroups    Fri Jun 23 13:28:38 1989
  1082. ***************
  1083. *** 35,43 ****
  1084.       echo "The following newsgroups are not valid and should be removed."
  1085.       sed "s/^/    /" /tmp/$$remove
  1086.       echo ""
  1087. !     echo "You can do this by executing the command:"
  1088. !     echo "    $NEWSBIN/maint/rmgroup \\"
  1089. !     sed 's;.*;        & \\;' /tmp/$$remove
  1090.       echo ""
  1091.   fi 2>&1 >/tmp/$$out
  1092.   
  1093. --- 35,42 ----
  1094.       echo "The following newsgroups are not valid and should be removed."
  1095.       sed "s/^/    /" /tmp/$$remove
  1096.       echo ""
  1097. !     echo "You can do this by executing the commands:"
  1098. !     sed "s;.*;     $NEWSBIN/maint/delgroup &;" /tmp/$$remove
  1099.       echo ""
  1100.   fi 2>&1 >/tmp/$$out
  1101.   
  1102.  
  1103. *** cnpatch/tmp.file    Fri Jun 23 14:37:24 1989
  1104. --- relay/ctl/newgroup    Fri Jun 23 13:31:33 1989
  1105. ***************
  1106. *** 14,20 ****
  1107.   cat >$F
  1108.   
  1109.   # unapproved ctl msg? then quit
  1110. ! grep -s '^Approved:' $F || { rm -f $F; exit 0; }
  1111.   
  1112.   SENDER="`grep '^Sender:' $F | sed 's/^[^:]*: *//'`"
  1113.   case "$SENDER" in
  1114. --- 14,20 ----
  1115.   cat >$F
  1116.   
  1117.   # unapproved ctl msg? then quit
  1118. ! grep -s '^Approved:' $F >/dev/null || { rm -f $F; exit 0; }
  1119.   
  1120.   SENDER="`grep '^Sender:' $F | sed 's/^[^:]*: *//'`"
  1121.   case "$SENDER" in
  1122. ***************
  1123. *** 22,28 ****
  1124.   esac
  1125.   
  1126.   greppat="^`echo $1 | sed 's/\./\\\\./g' ` "
  1127. ! if grep -s "$greppat" $NEWSCTL/active; then    # group exists?
  1128.       export SENDER
  1129.       chamod "$1" "$2"         # change moderated flag if needed
  1130.       exit
  1131. --- 22,28 ----
  1132.   esac
  1133.   
  1134.   greppat="^`echo $1 | sed 's/\./\\\\./g' ` "
  1135. ! if grep -s "$greppat" $NEWSCTL/active >/dev/null; then    # group exists?
  1136.       export SENDER
  1137.       chamod "$1" "$2"         # change moderated flag if needed
  1138.       exit
  1139.  
  1140. *** cnpatch/tmp.file    Fri Jun 23 14:37:31 1989
  1141. --- relay/makefile    Fri Jun 23 13:56:50 1989
  1142. ***************
  1143. *** 67,72 ****
  1144. --- 67,73 ----
  1145.   install: $(NEWSBIN)/relay/relaynews
  1146.   $(NEWSBIN)/relay/relaynews: relaynews
  1147.       -mkdir $(NEWSBIN)/relay $(NEWSBIN)/inject $(NEWSBIN)/ctl
  1148. +     rm -f $(NEWSBIN)/relay/relaynews
  1149.       cp relaynews $(NEWSBIN)/relay
  1150.       : needs to be news-owned, setuid -- build looks after that
  1151.       chmod +x sh/* aux/* ctl/*
  1152. ***************
  1153. *** 96,102 ****
  1154.       (echo relaynews update of `date`; echo ""; bundle $?) | /bin/mail cnews-updates
  1155.       touch $@
  1156.   clean:
  1157. !     rm -f core a.out relaynews *.o
  1158.       
  1159.   # header dependencies follow
  1160.   active.o: ../include/libc.h ../include/news.h ../include/config.h
  1161. --- 97,108 ----
  1162.       (echo relaynews update of `date`; echo ""; bundle $?) | /bin/mail cnews-updates
  1163.       touch $@
  1164.   clean:
  1165. !     rm -f core a.out relaynews *.o    
  1166. !     rm -rf regress/tmp
  1167. ! 
  1168. ! r:    relaynews
  1169. !     chmod +x regress/regress
  1170. !     cd regress; ./regress
  1171.       
  1172.   # header dependencies follow
  1173.   active.o: ../include/libc.h ../include/news.h ../include/config.h
  1174.  
  1175. *** cnpatch/tmp.file    Fri Jun 23 14:37:45 1989
  1176. --- relay/relaynews.c    Thu Jun 22 14:32:32 1989
  1177. ***************
  1178. *** 22,34 ****
  1179.    * testing is possible (and encouraged) in alternate directories.  This
  1180.    * does cause a loss of privilege, to avoid spoofing.
  1181.    *
  1182. !  * The disused old ihave/sendme protocol is dead; it's been broken in
  1183. !  * B news for ages but no one has noticed because it's essentially
  1184. !  * useless on the uucp network, especially when batching news articles.
  1185. !  * It is also only semi-documented, very wasteful and kludgey in the extreme.
  1186. !  * It is unreasonable to expect an ill-documented protocol to be implemented
  1187. !  * in new software, particularly one as kludgey as this one.
  1188. !  * The new ihave sys flag ("I") for NNTP is implemented (trivially).
  1189.    *
  1190.    * Portability vs SystemV.  relaynews uses dbm(3) and makes no apologies
  1191.    * for so doing.  Imitation UNIX (registered trademark of AT&T in the
  1192. --- 22,30 ----
  1193.    * testing is possible (and encouraged) in alternate directories.  This
  1194.    * does cause a loss of privilege, to avoid spoofing.
  1195.    *
  1196. !  * The disused old unbatched ihave/sendme protocol is gone because it was
  1197. !  * too wasteful; use the batched form instead (see the ihave sys flag
  1198. !  * ("I") instead).
  1199.    *
  1200.    * Portability vs SystemV.  relaynews uses dbm(3) and makes no apologies
  1201.    * for so doing.  Imitation UNIX (registered trademark of AT&T in the
  1202. ***************
  1203. *** 175,180 ****
  1204. --- 171,179 ----
  1205.    * setuid()," and exec this program again.  If NEWSPERMS is set,
  1206.    * the failure is a fatal error (recursive loop).
  1207.    * This program (relaynews) can be setuid-news.
  1208. +  *
  1209. +  * The peculiar tests for failure (getuid() != newsuid) are to work
  1210. +  * around a Xenix bug which returns 0 from setuid() upon failure.
  1211.    */
  1212.   void
  1213.   setids(argv)
  1214. ***************
  1215. *** 187,193 ****
  1216.           newsuid = getuid(), newsgid = getgid();
  1217.       else
  1218.           newsuid = geteuid(), newsgid = getegid();
  1219. !     if (setgid(newsgid) < 0 || setuid(newsuid) < 0) {
  1220.           if (getenv("NEWSPERMS") != 0)
  1221.               error("recursive loop setting ids", "");
  1222.           execv(ctlfile(SETNEWSIDS), argv);
  1223. --- 186,193 ----
  1224.           newsuid = getuid(), newsgid = getgid();
  1225.       else
  1226.           newsuid = geteuid(), newsgid = getegid();
  1227. !     if (setgid(newsgid) < 0 || setuid(newsuid) < 0 ||
  1228. !         getgid() != newsgid || getuid() != newsuid) {
  1229.           if (getenv("NEWSPERMS") != 0)
  1230.               error("recursive loop setting ids", "");
  1231.           execv(ctlfile(SETNEWSIDS), argv);
  1232.  
  1233. *** cnpatch/tmp.file    Fri Jun 23 14:37:47 1989
  1234. --- relay/sh/inews    Fri Jun 23 13:31:33 1989
  1235. ***************
  1236. *** 204,210 ****
  1237.   
  1238.   # to post or to mail? that is the question; whether 'tis nobler in the mind
  1239.   # to suffer the slings and arrows of outrageous mailers - Bill Shakespeare
  1240. ! if grep -s '^Control:' $inhdrs; then
  1241.       echo "control"            # a dreadful hack around all.all.ctl
  1242.   else
  1243.       sed -n '
  1244. --- 204,210 ----
  1245.   
  1246.   # to post or to mail? that is the question; whether 'tis nobler in the mind
  1247.   # to suffer the slings and arrows of outrageous mailers - Bill Shakespeare
  1248. ! if grep -s '^Control:' $inhdrs >/dev/null; then
  1249.       echo "control"            # a dreadful hack around all.all.ctl
  1250.   else
  1251.       sed -n '
  1252. ***************
  1253. *** 235,248 ****
  1254.           >>$grpok
  1255.           case "$flag" in
  1256.           [nx])
  1257. !             echo "$0: bugger off, $ng may not be posted to." >&2
  1258.               echo 1 >$exitflag
  1259.               trap 0        # this is a child process - no cleanup
  1260.               exit 1        # dregs in /tmp/in$$*
  1261.               ;;
  1262.           m)
  1263. !             if grep -s '^Approved:[     ]' $inhdrs; then
  1264. !                 rm $modroute        # just post normally
  1265.               else
  1266.                   # un-Approved: mail it to the moderator(s).
  1267.                   echo "%s" >$modroute    # in case no route
  1268. --- 235,248 ----
  1269.           >>$grpok
  1270.           case "$flag" in
  1271.           [nx])
  1272. !             echo "$0: sorry, $ng may not be posted to locally." >&2
  1273.               echo 1 >$exitflag
  1274.               trap 0        # this is a child process - no cleanup
  1275.               exit 1        # dregs in /tmp/in$$*
  1276.               ;;
  1277.           m)
  1278. !             if grep -s '^Approved:[     ]' $inhdrs >/dev/null; then
  1279. !                 rm -f $modroute        # just post normally
  1280.               else
  1281.                   # un-Approved: mail it to the moderator(s).
  1282.                   echo "%s" >$modroute    # in case no route
  1283.  
  1284. *** cnpatch/tmp.file    Fri Jun 23 14:37:49 1989
  1285. --- relay/sh/postnews    Thu Jun 22 14:02:03 1989
  1286. ***************
  1287. *** 32,38 ****
  1288.       ans=
  1289.       while test " $ans" = " "
  1290.       do
  1291. !         echo -n "Newsgroup(s)$dprompt? "
  1292.           read ans
  1293.           case "$ans" in
  1294.           '')    if test " $defg" != " "
  1295. --- 32,38 ----
  1296.       ans=
  1297.       while test " $ans" = " "
  1298.       do
  1299. !         echo "Newsgroup(s)$dprompt? " | tr -d '\012'
  1300.           read ans
  1301.           case "$ans" in
  1302.           '')    if test " $defg" != " "
  1303. ***************
  1304. *** 58,64 ****
  1305.   subj=
  1306.   while test " $subj" = " "
  1307.   do
  1308. !     echo -n 'Subject: '
  1309.       read subj
  1310.   done
  1311.   echo "Subject: $subj" >>$tmp
  1312. --- 58,64 ----
  1313.   subj=
  1314.   while test " $subj" = " "
  1315.   do
  1316. !     echo 'Subject: ' | tr -d '\012'
  1317.       read subj
  1318.   done
  1319.   echo "Subject: $subj" >>$tmp
  1320. ***************
  1321. *** 82,88 ****
  1322.   while egrep '^(DELETE|REPLACE) THIS LINE' $tmp >/dev/null
  1323.   do
  1324.       echo 'This posting does not appear to have been edited properly.'
  1325. !     echo -n 'Abandon it [y] ? '
  1326.       read ans
  1327.       case "$ans" in
  1328.       ''|y*|Y*)
  1329. --- 82,88 ----
  1330.   while egrep '^(DELETE|REPLACE) THIS LINE' $tmp >/dev/null
  1331.   do
  1332.       echo 'This posting does not appear to have been edited properly.'
  1333. !     echo 'Abandon it [y] ? ' | tr -d '\012'
  1334.       read ans
  1335.       case "$ans" in
  1336.       ''|y*|Y*)
  1337.  
  1338. Files that are new:
  1339.  
  1340. new contrib/rn.mod/better.way (patch can't create, so diff against null):
  1341. Index: contrib/rn.mod/better.way
  1342. *** cnpatch/tmp.preposterously.long.name.to.make.patch.behave.right    Fri Jun 23 14:34:45 1989
  1343. --- contrib/rn.mod/better.way    Thu Jun 22 16:38:07 1989
  1344. ***************
  1345. *** 0 ****
  1346. --- 1,465 ----
  1347. + Date:  9 Jun 1989 1852-EDT (Friday)
  1348. + From: csri.toronto.edu!moraes
  1349. + Received: by neat.ai.toronto.edu id 11723; Fri, 9 Jun 89 18:52:43 EDT
  1350. + Reply-To: moraes@csri.toronto.edu
  1351. + X-Mailer: Mail User's Shell (6.3 6/25/88)
  1352. + To:    henry@utzoo, geoff@utstat.toronto.edu
  1353. + Subject: rn fixes
  1354. + Cc:    moraes@csri.toronto.edu
  1355. + Message-Id: <89Jun9.185243edt.11723@neat.ai.toronto.edu>
  1356. + 
  1357. + These are the rn fixes to make it use the new active.times file to
  1358. + stop the startup problems when new newsgroups are created.
  1359. + 
  1360. + It seems fast, and reliable - also completely backward compatible, as
  1361. + far as I can tell. Note that a new newsreader will now not be asked
  1362. + about all the newsgroups - they can pick the ones they want later.
  1363. + 
  1364. +     - moraes
  1365. + 
  1366. + # To unbundle, sh this file
  1367. + echo README.rn 1>&2
  1368. + sed 's/^-//' >README.rn <<'!'
  1369. + The rn.mod file is a set of speedups for rn, which make use of a new file
  1370. + which C news can generate, called $NEWSCTL/active.times. This file contains
  1371. + the creation times of the newsgroups, and solves the problem of rn stat'ing
  1372. + every newsgroup spool directory to figure out if it is a new newsgroup or
  1373. + not.
  1374. + 
  1375. + The changes to addng.c prevent rn stating all ~700 directories under
  1376. + -/usr/spool/news every time the active file changes (this is known as "the rn
  1377. + huddle").  This reduced start up time after touching active from 108 seconds
  1378. + elapsed on a Sun 3 to 5 seconds.
  1379. + 
  1380. + The theory behind the 700 stats in the newgroup huddle is apparently that if
  1381. + rn stats group/1, and it exists, then group must be a newly-created group.
  1382. + With rapid expiry, group/1 won't be around for long in most groups, causing
  1383. + rn to miss some new groups, and in "valuable" groups with long expiry times,
  1384. + group/1 will be around for a very long time, making rn spuriously think that
  1385. + the old groups are new.
  1386. + 
  1387. + To get this to work - apply the diffs to rn. You may need some hand patching
  1388. + -- our version of rn has been hacked to apply various local fixes and some U
  1389. + of Waterloo fixes. (The base U of Waterloo rn contains two other handy
  1390. + changes:  a -q which disables the interrogation when the active file
  1391. + changes, and a third answer during the interrogation: "q" means "I don't
  1392. + care, just show me some news, right now".)
  1393. + 
  1394. + The main changes are to addng.c, and init.c, to use the new procedure
  1395. + checknewgroups() for detecting new groups, instead of the earlier heuristic.
  1396. + 
  1397. + Create a active.times file from your active file using the act.to.times
  1398. + script in the C News distribution. (C News 'newgroup' will keep it uptodate)
  1399. + 
  1400. + Try it.
  1401. + !
  1402. + echo rn.mod 1>&2
  1403. + sed 's/^-//' >rn.mod <<'!'
  1404. + -*** /tmp/,RCSt1a11034    Fri Jun  9 18:36:21 1989
  1405. + ---- addng.c    Fri Jun  9 18:33:55 1989
  1406. + -***************
  1407. + -*** 39,44 ****
  1408. + ---- 39,50 ----
  1409. + -  
  1410. + -  #ifdef FINDNEWNG
  1411. + -  /* generate a list of new newsgroups from active file */
  1412. + -+ /*
  1413. + -+  * The arguments are redundant - they used to be used in a heuristic to
  1414. + -+  * determine new newsgroups. With C News active.times file, this is
  1415. + -+  * unnecessary, since we use the faster, more reliable checknewgroups()
  1416. + -+  * procedure.
  1417. + -+  */
  1418. + -  
  1419. + -  bool
  1420. + -  newlist(munged,checkinlist)
  1421. + -***************
  1422. + -*** 71,86 ****
  1423. + -          fprintf(tmpfp,"%s\n",buf);
  1424. + -                      /* then remember said newsgroup */
  1425. + -          }
  1426. + -- #ifdef FASTNEW
  1427. + --         else {            /* not really a new group */
  1428. + --         if (!munged) {        /* did we assume not munged? */
  1429. + --             fclose(tmpfp);    /* then go back, knowing that */
  1430. + --             UNLINK(tmpname);
  1431. + --             free(tmpname);
  1432. + --             return TRUE;    /* active file was indeed munged */
  1433. + --         }
  1434. + --         }
  1435. + -- #endif
  1436. + -      }
  1437. + -  #ifdef DEBUGGING
  1438. + -      else
  1439. + ---- 77,82 ----
  1440. + -***************
  1441. + -*** 106,127 ****
  1442. + -      return FALSE;            /* do not call us again */
  1443. + -  }
  1444. + -  
  1445. + -! /* return creation time of newsgroup */
  1446. + -  
  1447. + -  long
  1448. + -  birthof(ngnam,ngsize)
  1449. + -  char *ngnam;
  1450. + -  ART_NUM ngsize;
  1451. + -  {
  1452. + --     long time();
  1453. + -- 
  1454. + --     /*
  1455. + --      * This used to try and stat article 1 to find the newsgroup creating
  1456. + --      * time. Almost never finds article 1, since it will always long gone.
  1457. + --      * Nuke the stat() and speed up startup immensely.
  1458. + --      */
  1459. + --     /* not there, assume something good */
  1460. + --     return (ngsize ? 0L : time(Null(long *)));
  1461. + -  }
  1462. + -  
  1463. + -  bool
  1464. + ---- 102,229 ----
  1465. + -      return FALSE;            /* do not call us again */
  1466. + -  }
  1467. + -  
  1468. + -! /*
  1469. + -!  * gets the group time, from the second field, simultaneously null terminating
  1470. + -!  * after the first field in buf.
  1471. + -!  */
  1472. + -! static long
  1473. + -! getgrptime(buf)
  1474. + -! char *buf;
  1475. + -! {
  1476. + -!     char *s;
  1477. + -!     
  1478. + -!     s = index(buf, ' ');
  1479. + -!     if (s == Nullch || *(s+1) == '\0')
  1480. + -!         return 0L;
  1481. + -!     *s++ = '\0';
  1482. + -!     return(atol(s));
  1483. + -! }
  1484. + -  
  1485. + -+ /*
  1486. + -+  * Use the groups file (ACTIVE.times, typically /usr/lib/news/active.times) to
  1487. + -+  * see if there are any new newsgroups
  1488. + -+  */
  1489. + -+ checknewgroups()
  1490. + -+ {
  1491. + -+     FILE *fp;
  1492. + -+     long grptime;
  1493. + -+     long ngrptime;
  1494. + -+     long pos;
  1495. + -+     long npos;
  1496. + -+     char *s;
  1497. + -+     char *grpfile;
  1498. + -+     char tmpbuf[LBUFLEN];
  1499. + -+ #define GROUPEXT ".times"
  1500. + -+ 
  1501. + -+     grpfile = safemalloc(strlen(filexp(ACTIVE)) + sizeof(GROUPEXT));
  1502. + -+     strcpy(grpfile, filexp(ACTIVE));
  1503. + -+     strcat(grpfile, GROUPEXT);
  1504. + -+     
  1505. + -+     fp = fopen(grpfile, "r");
  1506. + -+     if (fp == (FILE *) NULL) {
  1507. + -+     printf(cantopen, grpfile) FLUSH;
  1508. + -+         return;
  1509. + -+     }
  1510. + -+ 
  1511. + -+     pos = npos = lastpos;
  1512. + -+     grptime = lastgrptime;
  1513. + -+     if (lastnewgroup != Nullch)
  1514. + -+     strcpy(tmpbuf, lastnewgroup);
  1515. + -+     /*
  1516. + -+      * In the general case, this 'if()' will be false, unless someone has
  1517. + -+      * messed up the groups file, or this is the first time this person is
  1518. + -+      * reading news
  1519. + -+      */
  1520. + -+     if (lastnewgroup == Nullch || fseek(fp, lastpos, 0) == -1 ||
  1521. + -+         fgets(buf, LBUFLEN, fp) == NULL ||
  1522. + -+     !strnEQ(buf, lastnewgroup, strlen(lastnewgroup))) {
  1523. + -+         /* We need to check the file from the start - use time */
  1524. + -+         if (fseek(fp, 0L, 0) == -1) {
  1525. + -+             printf(cantseek, grpfile) FLUSH;
  1526. + -+             fclose(fp);
  1527. + -+             free(grpfile);
  1528. + -+             return;
  1529. + -+         }
  1530. + -+         pos = npos = 0L;
  1531. + -+         while (fgets(buf, LBUFLEN, fp) != Nullch) {
  1532. + -+             buf[strlen(buf)-1] = '\0';
  1533. + -+             ngrptime = getgrptime(buf);
  1534. + -+             if (ngrptime > lastgrptime)
  1535. + -+                 break;
  1536. + -+             if (ngrptime == 0L)
  1537. + -+                 continue;
  1538. + -+             grptime = ngrptime;
  1539. + -+             strcpy(tmpbuf, buf);
  1540. + -+             pos = npos;
  1541. + -+             npos = ftell(fp);
  1542. + -+         }
  1543. + -+         if (fseek(fp, pos, 0) == -1) {
  1544. + -+             printf(cantseek, grpfile) FLUSH;
  1545. + -+             fclose(fp);
  1546. + -+             free(grpfile);
  1547. + -+             return;
  1548. + -+         }
  1549. + -+         npos = pos;
  1550. + -+     }
  1551. + -+     /*
  1552. + -+      * At this point, the file pointer is positioned at the start of the first
  1553. + -+      * new group. This is the value of pos. Now start asking about new groups.
  1554. + -+      */
  1555. + -+     while (fgets(buf, LBUFLEN, fp) != Nullch) {
  1556. + -+     buf[strlen(buf)-1] = '\0';
  1557. + -+     ngrptime = getgrptime(buf);
  1558. + -+     if (ngrptime == 0L)
  1559. + -+         continue;
  1560. + -+     grptime = ngrptime;
  1561. + -+     strcpy(tmpbuf, buf);
  1562. + -+     pos = npos;
  1563. + -+     if (grptime > lastgrptime && find_ng(buf) == nextrcline)
  1564. + -+         /* not in .newsrc and newer that last new newsgroup */
  1565. + -+         get_ng(buf, TRUE);
  1566. + -+     npos = ftell(fp);
  1567. + -+     }
  1568. + -+     lastpos = pos;
  1569. + -+     lastgrptime = grptime;
  1570. + -+     if (lastnewgroup != Nullch)
  1571. + -+         free(lastnewgroup);
  1572. + -+     lastnewgroup = savestr(tmpbuf);
  1573. + -+     fclose(fp);
  1574. + -+     free(grpfile);
  1575. + -+ }
  1576. + -+ 
  1577. + -+     
  1578. + -+ 
  1579. + -+ /*
  1580. + -+  * return creation time of newsgroup - procedure made redundant by C News
  1581. + -+  * active.times and checknewgroups()
  1582. + -+  */
  1583. + -+ 
  1584. + -+ /*ARGSUSED*/
  1585. + -  long
  1586. + -  birthof(ngnam,ngsize)
  1587. + -  char *ngnam;
  1588. + -  ART_NUM ngsize;
  1589. + -  {
  1590. + -  }
  1591. + -  
  1592. + -  bool
  1593. + -*** /tmp/,RCSt1a11034    Fri Jun  9 18:36:24 1989
  1594. + ---- common.h    Fri Jun  9 18:30:10 1989
  1595. + -***************
  1596. + -*** 1,9 ****
  1597. + -! /* $Header: /ai/car/src/rn/RCS/common.h,v 4.6 89/06/09 18:29:44 moraes Exp $
  1598. + -   * 
  1599. + -   * $Log:    common.h,v $
  1600. + --  * Revision 4.6  89/06/09  18:29:44  moraes
  1601. + --  * *** empty log message ***
  1602. + --  * 
  1603. + -   * Revision 4.5  89/06/05  21:59:37  moraes
  1604. + -   * enabled -q option permanantly. New speed mods make it unnecessary for
  1605. + -   * most people, but some people just want to see general/gradnews/ut.*
  1606. + ---- 1,6 ----
  1607. + -! /* $Header: /ai/car/src/rn/RCS/common.h,v 4.5 89/06/05 21:59:37 moraes Exp $
  1608. + -   * 
  1609. + -   * $Log:    common.h,v $
  1610. + -   * Revision 4.5  89/06/05  21:59:37  moraes
  1611. + -   * enabled -q option permanantly. New speed mods make it unnecessary for
  1612. + -   * most people, but some people just want to see general/gradnews/ut.*
  1613. + -***************
  1614. + -*** 292,299 ****
  1615. + -              /* (Note: both VERBOSE and TERSE can be defined; -t
  1616. + -               * sets terse mode.  One or the other MUST be defined.
  1617. + -               */
  1618. + -- #define QUICK        /* -q option - Don't ask about new newsgroups */
  1619. + -- 
  1620. + -  #ifndef pdp11
  1621. + -  #   define CACHESUBJ    /* cache subject lines in memory */
  1622. + -              /* without this ^N still works but runs really slow */
  1623. + ---- 289,294 ----
  1624. + -*** /tmp/,RCSt1a11034    Fri Jun  9 18:36:25 1989
  1625. + ---- init.c    Fri Jun  9 18:30:10 1989
  1626. + -***************
  1627. + -*** 1,4 ****
  1628. + -! /* $Header: /ai/car/src/rn/RCS/init.c,v 1.2 88/07/14 18:15:22 ken Exp $
  1629. + -   *
  1630. + -   * $Log:    init.c,v $
  1631. + -   * Revision 1.2  88/07/14  18:15:22  ken
  1632. + ---- 1,4 ----
  1633. + -! /* $Header: init.c,v 1.2 88/07/14 18:15:22 ken Exp $
  1634. + -   *
  1635. + -   * $Log:    init.c,v $
  1636. + -   * Revision 1.2  88/07/14  18:15:22  ken
  1637. + -***************
  1638. + -*** 166,185 ****
  1639. + -  
  1640. + -  #ifdef FINDNEWNG
  1641. + -      fstat(actfp->_file,&filestat);    /* did active file grow? */
  1642. + -- #ifdef QUICK
  1643. + -      /* maintain the old active file size, to avoid "new newsgroup" blather */
  1644. + -      if (quick)
  1645. + -      filestat.st_size = lastactsiz;
  1646. + -- #endif
  1647. + -      if (filestat.st_size != lastactsiz) {
  1648. + -      long actsiz = filestat.st_size;    /* remember new size */
  1649. + -      NG_NUM oldnext = nextrcline;    /* remember # lines in newsrc */
  1650. + -- #ifdef FASTNEW
  1651. + --     bool munged = writesoft || !lastactsiz;
  1652. + --                     /* bad soft ptrs -> edited active */
  1653. + -- #else
  1654. + --     bool munged = TRUE;        /* just assume .newsrc munged */
  1655. + -- #endif
  1656. + -  
  1657. + -  #ifdef VERBOSE
  1658. + -      IF(verbose)
  1659. + ---- 166,177 ----
  1660. + -***************
  1661. + -*** 190,208 ****
  1662. + -  #ifdef TERSE
  1663. + -          fputs("\nNew newsgroups:\n",stdout) FLUSH;
  1664. + -  #endif
  1665. + -! #ifdef FASTNEW
  1666. + -!     if (!munged) {            /* maybe just do tail of file? */
  1667. + -!         fseek(actfp,lastactsiz-1,0);
  1668. + -!         fgets(buf,LBUFLEN,actfp);
  1669. + -!         munged = (*buf != '\n');
  1670. + -!         if (!munged)
  1671. + -!         munged = newlist(munged,FALSE);
  1672. + -!     }
  1673. + -! #endif
  1674. + -!     if (munged) {            /* must we scan entire file? */
  1675. + -!         fseek(actfp,0L,0);        /* rewind active file */
  1676. + -!         newlist(munged,FALSE);      /* sure hope they use hashing... */
  1677. + -!     }
  1678. + -      lastactsiz = actsiz;        /* remember for .rnlast */
  1679. + -      if (nextrcline != oldnext) {    /* did we add any new groups? */
  1680. + -          foundany = TRUE;        /* let main() know */
  1681. + ---- 182,188 ----
  1682. + -  #ifdef TERSE
  1683. + -          fputs("\nNew newsgroups:\n",stdout) FLUSH;
  1684. + -  #endif
  1685. + -!     checknewgroups();
  1686. + -      lastactsiz = actsiz;        /* remember for .rnlast */
  1687. + -      if (nextrcline != oldnext) {    /* did we add any new groups? */
  1688. + -          foundany = TRUE;        /* let main() know */
  1689. + -*** /tmp/,RCSt1a11034    Fri Jun  9 18:36:26 1989
  1690. + ---- last.c    Fri Jun  9 17:06:01 1989
  1691. + -***************
  1692. + -*** 1,9 ****
  1693. + -! /* $Header: /ai/car/src/rn/RCS/last.c,v 1.1 89/06/09 03:52:49 moraes Exp $
  1694. + -   *
  1695. + -   * $Log:    last.c,v $
  1696. + --  * Revision 1.1  89/06/09  03:52:49  moraes
  1697. + --  * Initial revision
  1698. + --  * 
  1699. + -   * Revision 4.3  85/05/01  11:42:16  lwall
  1700. + -   * Baseline for release with 4.3bsd.
  1701. + -   * 
  1702. + ---- 1,6 ----
  1703. + -! /* $Header: last.c,v 4.3 85/05/01 11:42:16 lwall Exp $
  1704. + -   *
  1705. + -   * $Log:    last.c,v $
  1706. + -   * Revision 4.3  85/05/01  11:42:16  lwall
  1707. + -   * Baseline for release with 4.3bsd.
  1708. + -   * 
  1709. + -***************
  1710. + -*** 26,37 ****
  1711. + -      lastname = savestr(filexp(LASTNAME));
  1712. + -      if ((tmpfp = fopen(lastname,"r")) != Nullfp) {
  1713. + -      fgets(tcbuf,1024,tmpfp);
  1714. + -!     tcbuf[strlen(tcbuf)-1] = '\0';
  1715. + -      lastngname = savestr(tcbuf);
  1716. + -      fgets(tcbuf,1024,tmpfp);
  1717. + -      lasttime = atol(tcbuf);
  1718. + -      fgets(tcbuf,1024,tmpfp);
  1719. + -      lastactsiz = atol(tcbuf);
  1720. + -      fclose(tmpfp);
  1721. + -      }
  1722. + -      else {
  1723. + ---- 23,52 ----
  1724. + -      lastname = savestr(filexp(LASTNAME));
  1725. + -      if ((tmpfp = fopen(lastname,"r")) != Nullfp) {
  1726. + -      fgets(tcbuf,1024,tmpfp);
  1727. + -!     tcbuf[strlen(tcbuf) - 1] = '\0';
  1728. + -      lastngname = savestr(tcbuf);
  1729. + -      fgets(tcbuf,1024,tmpfp);
  1730. + -      lasttime = atol(tcbuf);
  1731. + -      fgets(tcbuf,1024,tmpfp);
  1732. + -      lastactsiz = atol(tcbuf);
  1733. + -+     /*
  1734. + -+      * The first time when new rn is used by a user who was using the old
  1735. + -+      * rn, the lastgrptime is taken to be 'now', so the user is not
  1736. + -+      * hassled with hundreds of newsgroups
  1737. + -+      */
  1738. + -+     if (fgets(tcbuf, 1024,tmpfp) != (char *) NULL)
  1739. + -+         lastgrptime = atol(tcbuf);
  1740. + -+     else 
  1741. + -+         lastgrptime = time(0);
  1742. + -+     if (fgets(tcbuf, 1024, tmpfp) != (char *) NULL) {
  1743. + -+         tcbuf[strlen(tcbuf) - 1] = '\0';
  1744. + -+         lastnewgroup = savestr(tcbuf);
  1745. + -+     } else
  1746. + -+         lastnewgroup = NULL;
  1747. + -+     if (fgets(tcbuf, 1024, tmpfp) != (char *) NULL)
  1748. + -+         lastpos = atol(tcbuf);
  1749. + -+     else
  1750. + -+         lastpos = 0;
  1751. + -      fclose(tmpfp);
  1752. + -      }
  1753. + -      else {
  1754. + -***************
  1755. + -*** 38,43 ****
  1756. + ---- 53,67 ----
  1757. + -      lastngname = nullstr;
  1758. + -      lasttime = 0;
  1759. + -      lastactsiz = 0;
  1760. + -+     /*
  1761. + -+      * The default for the new reader is not to show hundreds of new
  1762. + -+      * newsgroups. The system admin should use newsetup to provide a
  1763. + -+      * proper starting subset - the user can select new newsgroups by
  1764. + -+      * hand. Much faster
  1765. + -+      */
  1766. + -+     lastgrptime = time(0);
  1767. + -+     lastnewgroup = Nullch;
  1768. + -+     lastpos = 0;
  1769. + -      }
  1770. + -  }
  1771. + -  
  1772. + -***************
  1773. + -*** 47,54 ****
  1774. + -  writelast()
  1775. + -  {
  1776. + -      if ((tmpfp = fopen(lastname,"w")) != Nullfp) {
  1777. + -!     fprintf(tmpfp,"%s\n%ld\n%ld\n",
  1778. + -!         (ngname==Nullch?nullstr:ngname),(long)lasttime,(long)lastactsiz);
  1779. + -      fclose(tmpfp);
  1780. + -      }
  1781. + -      else
  1782. + ---- 71,81 ----
  1783. + -  writelast()
  1784. + -  {
  1785. + -      if ((tmpfp = fopen(lastname,"w")) != Nullfp) {
  1786. + -!     fprintf(tmpfp,"%s\n%ld\n%ld\n%ld\n%s\n%ld\n",
  1787. + -!         (ngname==Nullch?nullstr:ngname),(long)lasttime,(long)lastactsiz,
  1788. + -!         lastgrptime, 
  1789. + -!         ((lastnewgroup == (char *) NULL) ? nullstr:lastnewgroup),
  1790. + -!         lastpos);
  1791. + -      fclose(tmpfp);
  1792. + -      }
  1793. + -      else
  1794. + -*** /tmp/,RCSt1a11034    Fri Jun  9 18:36:27 1989
  1795. + ---- last.h    Fri Jun  9 05:32:16 1989
  1796. + -***************
  1797. + -*** 12,17 ****
  1798. + ---- 12,20 ----
  1799. + -  EXT char *lastngname INIT(Nullch);    /* last newsgroup read, from .rnlast file */
  1800. + -  EXT long lasttime INIT(0);    /* time last rn was started up */
  1801. + -  EXT long lastactsiz INIT(0);    /* size of active file when rn last started up */
  1802. + -+ EXT long lastgrptime INIT(0);    /* time the groups file was last changed */
  1803. + -+ EXT char *lastnewgroup INIT(Nullch);    /* last new newsgroup */
  1804. + -+ EXT long lastpos INIT(0);    /* pos. of last new newsgroup in groups file */
  1805. + -  
  1806. + -  void    last_init();
  1807. + -  void    writelast();
  1808. + No differences encountered
  1809. + !
  1810. + 
  1811. + 
  1812.  
  1813. Finally, update PATCHDATES:
  1814. *** ../cnpatch/tmp.dates    Fri Jun 23 14:38:03 1989
  1815. --- PATCHDATES    Fri Jun 23 14:38:03 1989
  1816. ***************
  1817. *** 0 ****
  1818. --- 1 ----
  1819. + 23-Jun-1989
  1820.  
  1821. end of patch 23-Jun-1989
  1822.  
  1823.  
  1824.