home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume39 / dist-3.0 / patch03 < prev    next >
Encoding:
Text File  |  1993-08-25  |  44.7 KB  |  1,668 lines
  1. Newsgroups: comp.sources.misc
  2. From: Raphael Manfredi <ram@acri.fr>
  3. Subject: v39i049:  dist-3.0 - Configure script generator and related tools, Patch03
  4. Message-ID: <1993Aug25.235012.23562@sparky.sterling.com>
  5. X-Md4-Signature: 8b61182fc1d55f0beb309ba59afd1380
  6. Sender: kent@sparky.sterling.com (Kent Landfield)
  7. Organization: Advanced Computer Research Institute, Lyon, France
  8. Date: Wed, 25 Aug 1993 23:50:12 GMT
  9. Approved: kent@sparky.sterling.com
  10.  
  11. Submitted-by: Raphael Manfredi <ram@acri.fr>
  12. Posting-number: Volume 39, Issue 49
  13. Archive-name: dist-3.0/patch03
  14. Environment: UNIX, Perl, RCS
  15. Patch-To: dist-3.0: Volume 39, Issue 5-32
  16.  
  17. [The latest patch for dist version 3.0 is #4.]
  18.  
  19. System: dist version 3.0
  20. Patch #: 3
  21. Priority: MEDIUM
  22. Subject: was not correctly writing the To: header field
  23. Subject: config.sh searching was not aborting properly
  24. Subject: added patnotify and patsnap
  25. Subject: forgot two people in main credit section
  26. Subject: new credit section for patches
  27. Subject: added entries for patnotify and patsnap
  28. Subject: privlib dir was ~name expanded in the wrong place
  29. Subject: added TOP as a local shell temporary variable
  30. Subject: typo fixes
  31. Subject: now removes older patch temporary files within bugs
  32. Subject: patcol has a new -S option
  33. Subject: the users file built by mailagent is now listed under FILES
  34. Subject: random cleanup
  35. Subject: new -S option for snapshot check-outs
  36. Subject: removed useless orgname variable
  37. Subject: now asks for patch mailing/posting after all patches edited
  38. Subject: patch release notification is done via new patnotify
  39. Subject: random cleanup, removed old RCS logs
  40. Subject: created five new files
  41. Subject: added ~name expansion for orgname
  42. Subject: new -u option
  43. Subject: added Precedence and X-Mailer headers in mail message
  44. Subject: added some comments about the users file format
  45. Date: Tue Aug 24 14:25:56 MET DST 1993
  46. From: Raphael Manfredi <ram@acri.fr>
  47.  
  48. Description:
  49.     Random cleanup in the patching tools:
  50.         - patsend was not correctly writing the To: header field
  51.         - patcol has a new -S option for snapshot check-outs
  52.         - removed useless orgname variable in patftp
  53.         - patch release notification is done via new patnotify
  54.         - now asks for patch mailing/posting after all patches edited
  55.         - added ~name expansion for orgname
  56.         - patsend has a brand new -u option
  57.         - added Precedence and X-Mailer headers in mail message
  58.         - pat now removes older patch temporary files within bugs
  59.  
  60.     Added patnotify and patsnap in the patching tools. Patnotify
  61.     is the pending of patsend for patch notification and is now
  62.     directly used by patmake. Patsnap creates RCS snapshots which
  63.     can then recreate the distribution when fed to patcol -S.
  64.  
  65.     Forgot two people in main credit section, sorry. There is also
  66.     a new section in the Credits file for people contributing to
  67.     the release from now on.
  68.  
  69.     Privlib dir was ~name expanded in the wrong place in jmake,
  70.     hence resulting in a /bin/cpp failure when portability was
  71.     asked in Configure.
  72.  
  73.     Added TOP as a local shell temporary variable in mcon/U/Config_h.U
  74.  
  75.     The users file built by mailagent is now listed under the FILES
  76.     section of the pat tools manual page.
  77.  
  78.     Added some comments about the users file format in the pl/users.pl
  79.     file itself.
  80.  
  81.     There are 5 new files created by this patch, one of which
  82.     (mcon/U/afs.U) was missing from the original distribution
  83.     although referenced by some other units...
  84.  
  85.  
  86. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your dist source
  87.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  88.     If you don't have the patch program, apply the following by hand,
  89.     or get patch (version 2.0, latest patchlevel).
  90.  
  91.     After patching:
  92.         *** DO NOTHING--INSTALL ALL PATCHES UP THROUGH #4 FIRST ***
  93.  
  94.     If patch indicates that patchlevel is the wrong version, you may need
  95.     to apply one or more previous patches, or the patch may already
  96.     have been applied.  See the patchlevel.h file to find out what has or
  97.     has not been applied.  In any event, don't continue with the patch.
  98.  
  99.     If you are missing previous patches they can be obtained from me:
  100.  
  101.         Raphael Manfredi <ram@acri.fr>
  102.  
  103.     If you send a mail message of the following form it will greatly speed
  104.     processing:
  105.  
  106.         Subject: Command
  107.         @SH mailpatch PATH dist 3.0 LIST
  108.                ^ note the c
  109.  
  110.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  111.     or in bang notation from some well-known host, and LIST is the number
  112.     of one or more patches you need, separated by spaces, commas, and/or
  113.     hyphens.  Saying 35- says everything from 35 to the end.
  114.  
  115.     To get some more detailed instructions, send me the following mail:
  116.  
  117.         Subject: Command
  118.         @SH mailhelp PATH
  119.  
  120.  
  121. Index: patchlevel.h
  122. Prereq: 2
  123. 4c4
  124. < #define PATCHLEVEL 2
  125. ---
  126. > #define PATCHLEVEL 3
  127.  
  128. Index: pat/patmake.SH
  129. Prereq: 3.0.1.1
  130. *** pat/patmake.SH.old    Tue Aug 24 14:25:43 1993
  131. --- pat/patmake.SH    Tue Aug 24 14:25:44 1993
  132. ***************
  133. *** 20,26 ****
  134.       eval "exec perl -S \$0 \$*"
  135.           if \$running_under_some_shell;
  136.   
  137. ! # $Id: patmake.SH,v 3.0.1.1 1993/08/19 06:42:38 ram Exp $
  138.   #
  139.   #  Copyright (c) 1991-1993, Raphael Manfredi
  140.   #  
  141. --- 20,26 ----
  142.       eval "exec perl -S \$0 \$*"
  143.           if \$running_under_some_shell;
  144.   
  145. ! # $Id: patmake.SH,v 3.0.1.2 1993/08/24 12:18:59 ram Exp $
  146.   #
  147.   #  Copyright (c) 1991-1993, Raphael Manfredi
  148.   #  
  149. ***************
  150. *** 34,39 ****
  151. --- 34,44 ----
  152.   # Contribution by: Graham Stoney <greyham@research.canon.oz.au>
  153.   #
  154.   # $Log: patmake.SH,v $
  155. + # Revision 3.0.1.2  1993/08/24  12:18:59  ram
  156. + # patch3: now asks for patch mailing/posting after all patches edited
  157. + # patch3: patch release notification is done via new patnotify
  158. + # patch3: random cleanup, removed old RCS logs
  159. + #
  160.   # Revision 3.0.1.1  1993/08/19  06:42:38  ram
  161.   # patch1: leading config.sh searching was not aborting properly
  162.   #
  163. ***************
  164. *** 40,59 ****
  165.   # Revision 3.0  1993/08/18  12:10:45  ram
  166.   # Baseline for dist 3.0 netwide release.
  167.   #
  168. - #
  169. - # Revision 2.8.1.3  91/10/11  09:58:51  ram
  170. - # patch5: allows dot in makefile rules
  171. - # 
  172. - # Revision 2.8.1.2  91/07/14  14:00:42  ram
  173. - # patch1: urgent fix due to a disk crash (file was not synced, grrr...)
  174. - # 
  175. - # Revision 2.8.1.1  91/07/14  13:31:01  ram
  176. - # patch1: added usage message which also briefly describes options
  177. - # patch1: now uses the perl library getopts.pl for option parsing
  178. - # 
  179. - # Revision 2.8  91/07/08  13:26:52  ram
  180. - # 3.0 alpha baseline.
  181. - # 
  182.   
  183.   \$defeditor='$defeditor';
  184.   \$version = '$VERSION';
  185. --- 45,50 ----
  186. ***************
  187. *** 75,81 ****
  188.   &readpackage;
  189.   &readusers;
  190.   
  191. - $RCSEXT = ',v' unless $RCSEXT;
  192.   $FILEOVERHEAD = 40;        # Name of files, Index, Prereq
  193.   $MAXPATSIZE = 50000;    # Maximum allowed size for a patch
  194.   $PATOVERHEAD = 2500;    # Litterature
  195. --- 66,71 ----
  196. ***************
  197. *** 304,310 ****
  198.   > #define PATCHLEVEL $bnum
  199.   ";
  200.       }
  201. !     $last = $bnum;        # Update last patch
  202.   
  203.       @ARGV = split(' ', $list[$i]);
  204.       while (<>) { print PATCH; }
  205. --- 294,301 ----
  206.   > #define PATCHLEVEL $bnum
  207.   ";
  208.       }
  209. !     $last = $bnum;            # Update last patch
  210. !     push(@patset, $bnum);    # Record set of generated patch(es)
  211.   
  212.       @ARGV = split(' ', $list[$i]);
  213.       while (<>) { print PATCH; }
  214. ***************
  215. *** 336,367 ****
  216.           close PL;
  217.           `mv -f patchlevel.h+ patchlevel.h`;
  218.           die "Malformed patchlevel.h file.\n" if $bnum eq '';
  219. - 
  220. -         if ($newsgroups) {
  221. -             print "\nDo you wish to post patch #$bnum to $newsgroups? [y] ";
  222. -             $ans = <stdin>;
  223. -             system 'patpost', $bnum unless $ans =~ /^n/i;
  224. -         }
  225. -         if ($recipients) {
  226. -             print "\n";
  227. -             if (0 == ($recipients =~ tr/ //)) {
  228. -                 print "Do you wish to send patch #$bnum to $recipients? [y] ";
  229. -             } else {
  230. -                 print "The following people are on the recipient list:\n\n";
  231. -                 foreach $addr (split(' ', $recipients)) {
  232. -                     print "\t$addr\n";
  233. -                 }
  234. -                 print "\nDo you wish to send patch #$bnum to them? [y] ";
  235. -             }
  236. -             $ans = <stdin>;
  237. -             system 'patsend', $bnum, $recipients unless $ans =~ /^n/i;
  238. -         }
  239. -         if ($ftpdir) {
  240. -             print "\nDo you wish to copy patch #$bnum to $ftpdir? [y] ";
  241. -             $ans = <stdin>;
  242. -             system 'patftp', $bnum unless $ans =~ /^n/i;
  243. -         }
  244. -     utime time, time, 'patchlevel.h';
  245.       } else {
  246.           unlink "patch$bnum";
  247.           die "Aborted.\n";
  248. --- 327,332 ----
  249. ***************
  250. *** 380,386 ****
  251.       $bnum++;    # For next patch in loop
  252.   }
  253.   
  254. ! # notify people about it.
  255.   if ($notify) {
  256.       print "\n";
  257.       if (0 == ($notify =~ tr/ //)) {
  258. --- 345,393 ----
  259.       $bnum++;    # For next patch in loop
  260.   }
  261.   
  262. ! utime time, time, 'patchlevel.h';    # Reset timestamp on patchlevel
  263. ! 
  264. ! if (@patset == 1) {
  265. !     $bnum = pop(@patset);
  266. !     $patch = "patch #$bnum";
  267. ! } else {
  268. !     $bmin = shift(@patset);
  269. !     $bmax = pop(@patset);
  270. !     $bnum = "$bmin-$bmax";
  271. !     $patch = "patches #$bmin thru #$bmax";
  272. ! }
  273. ! 
  274. ! # Post generated patches
  275. ! if ($newsgroups) {
  276. !     print "\nDo you wish to post $patch to $newsgroups? [y] ";
  277. !     $ans = <stdin>;
  278. !     system 'patpost', $bnum unless $ans =~ /^n/i;
  279. ! }
  280. ! 
  281. ! # Mail generated patches
  282. ! if ($recipients) {
  283. !     print "\n";
  284. !     if (0 == ($recipients =~ tr/ //)) {
  285. !         print "Do you wish to send $patch to $recipients? [y] ";
  286. !     } else {
  287. !         print "The following people are on the recipient list:\n\n";
  288. !         foreach $addr (split(' ', $recipients)) {
  289. !             print "\t$addr\n";
  290. !         }
  291. !         print "\nDo you wish to send $patch to them? [y] ";
  292. !     }
  293. !     $ans = <stdin>;
  294. !     system 'patsend', $bnum, $recipients unless $ans =~ /^n/i;
  295. ! }
  296. ! 
  297. ! # Copy patches to FTP directory
  298. ! if ($ftpdir) {
  299. !     print "\nDo you wish to copy $patch to $ftpdir? [y] ";
  300. !     $ans = <stdin>;
  301. !     system 'patftp', $bnum unless $ans =~ /^n/i;
  302. ! }
  303. ! 
  304. ! # Notify people about it.
  305.   if ($notify) {
  306.       print "\n";
  307.       if (0 == ($notify =~ tr/ //)) {
  308. ***************
  309. *** 393,435 ****
  310.           print "\nDo you wish to notify them? [y] ";
  311.       }
  312.       $ans = <STDIN>;
  313. !     if ($ans !~ /^n/i) {
  314. !         if ($numpat == 1) {
  315. !             $descr = "Patch $patbase";
  316. !             $has = "has"; $this = "this patch";
  317. !             $patlist = $patbase;
  318. !         } else {
  319. !             $descr = "Patches $patbase thru " . ($patbase+$numpat-1);
  320. !             $has = "have"; $this = "these patches";
  321. !             $patlist = $patbase . "-" . ($patbase+$numpat-1);
  322. !         }
  323. !         $opt = ($mailer =~ /sendmail/) ? '-odq' : '';
  324. !         open(MAILER, "|$mailer $opt $notify $cf'user");
  325. !         print MAILER
  326. ! "To: $notify
  327. ! Subject: $descr for $package version $baserev $has been released.
  328. ! X-Mailer: dist [version $version PL$patchlevel]
  329. ! 
  330. ! This is just a quick note to let you know that $descr for $package
  331. ! version $baserev $has just been released. If you are actively using $package,
  332. ! I strongly suggest you upgrade by applying $this.
  333. ! 
  334. ! You can fetch $this automatically by sending me the following mail:
  335. ! 
  336. !     Subject: Command
  337. !     @SH mailpatch - $package $baserev $patlist
  338. !            ^ note the c
  339. ! 
  340. ! If you are not interested in receiving information about future patches,
  341. ! please send me the following mail:
  342. ! 
  343. !     Subject: Command
  344. !     @SH package - $package $baserev
  345. ! 
  346. ! -- patmake speaking for $maintname.
  347. ! ";
  348. !         close MAILER;
  349. !     }
  350.   }
  351.   
  352.   sub usage {
  353. --- 400,406 ----
  354.           print "\nDo you wish to notify them? [y] ";
  355.       }
  356.       $ans = <STDIN>;
  357. !     system 'patnotify', $notify unless $ans =~ /^n/i;
  358.   }
  359.   
  360.   sub usage {
  361.  
  362. Index: pat/pat.man
  363. Prereq: 3.0
  364. *** pat/pat.man.old    Tue Aug 24 14:25:39 1993
  365. --- pat/pat.man    Tue Aug 24 14:25:40 1993
  366. ***************
  367. *** 1,5 ****
  368.   .rn '' }`
  369. ! ''' $Id: pat.man,v 3.0 1993/08/18 12:10:37 ram Exp $
  370.   '''
  371.   '''  Copyright (c) 1991-1993, Raphael Manfredi
  372.   '''  
  373. --- 1,5 ----
  374.   .rn '' }`
  375. ! ''' $Id: pat.man,v 3.0.1.1 1993/08/24 12:15:42 ram Exp $
  376.   '''
  377.   '''  Copyright (c) 1991-1993, Raphael Manfredi
  378.   '''  
  379. ***************
  380. *** 10,15 ****
  381. --- 10,20 ----
  382.   '''  of the source tree for dist 3.0.
  383.   '''
  384.   ''' $Log: pat.man,v $
  385. + ''' Revision 3.0.1.1  1993/08/24  12:15:42  ram
  386. + ''' patch3: added patnotify and patsnap
  387. + ''' patch3: patcol has a new -S option
  388. + ''' patch3: the users file built by mailagent is now listed under FILES
  389. + '''
  390.   ''' Revision 3.0  1993/08/18  12:10:37  ram
  391.   ''' Baseline for dist 3.0 netwide release.
  392.   '''
  393. ***************
  394. *** 85,91 ****
  395.   .br
  396.   .B patsend
  397.   [
  398. ! .B \-hV
  399.   ] [
  400.   .I patchlist
  401.   ] [
  402. --- 90,96 ----
  403.   .br
  404.   .B patsend
  405.   [
  406. ! .B \-huV
  407.   ] [
  408.   .I patchlist
  409.   ] [
  410. ***************
  411. *** 92,97 ****
  412. --- 97,109 ----
  413.   .I recipients
  414.   ]
  415.   .br
  416. + .B patnotify
  417. + [
  418. + .B \-huV
  419. + ] [
  420. + .I recipients
  421. + ]
  422. + .br
  423.   .B patpost
  424.   [
  425.   .B \-hrV
  426. ***************
  427. *** 116,121 ****
  428. --- 128,143 ----
  429.   .I filelist
  430.   ]
  431.   .br
  432. + .B patsnap
  433. + [
  434. + .B \-ahV
  435. + ] [
  436. + .B \-o
  437. + .I snapshot
  438. + ] [
  439. + .I filelist
  440. + ]
  441. + .br
  442.   .B patcol
  443.   [
  444.   .B \-achnmsCV
  445. ***************
  446. *** 123,128 ****
  447. --- 145,156 ----
  448.   .B \-d
  449.   .I directory
  450.   ] [
  451. + .B \-f
  452. + .I mani
  453. + ] [
  454. + .B \-S
  455. + .I snap
  456. + ] [
  457.   .I filelist
  458.   ]
  459.   .br
  460. ***************
  461. *** 263,279 ****
  462.   .PP
  463.   Patsend, patpost and patftp are used to distribute your patches to the world.
  464.   .I Patsend
  465. ! mails a set of patches to a set of recipients.
  466.   .I Patpost
  467.   posts a set of patches to a set of newsgroups.
  468.   .I Patftp
  469.   merely copies the patch into your public ftp directory.
  470.   .PP
  471.   .I Patname
  472.   can be used to tag a set of files with a symbolic name (specified with
  473.   \fB\-v\fR). This will set the name for the most recent revision of each
  474.   file.
  475.   .PP
  476.   .I Patcol
  477.   will check out a locked version of a file, eventually in an alternate
  478.   directory (specified with \fB\-d\fR, thus mirroring the distribution tree).
  479. --- 291,321 ----
  480.   .PP
  481.   Patsend, patpost and patftp are used to distribute your patches to the world.
  482.   .I Patsend
  483. ! mails a set of patches to a set of recipients. The \fB\-u\fR switch adds all
  484. ! the currently registered users who have asked for patches to be mailed to
  485. ! them, as well as the recipients specified while running \fIpackinit\fR.
  486.   .I Patpost
  487.   posts a set of patches to a set of newsgroups.
  488.   .I Patftp
  489.   merely copies the patch into your public ftp directory.
  490.   .PP
  491. + .I Patnotify simply notifies users that a new patch has been released so that
  492. + they can retrieve it by themselves from an archive site or via e-mail if they
  493. + are interested. The \fB\-u\fR switch can be used to include all the currently
  494. + registered users who have asked for such a notification.
  495. + .PP
  496.   .I Patname
  497.   can be used to tag a set of files with a symbolic name (specified with
  498.   \fB\-v\fR). This will set the name for the most recent revision of each
  499.   file.
  500.   .PP
  501. + .I Patsnap
  502. + will get a snapshot of your release by creating a SNAPSHOT file (name can be
  503. + changed via \fB\-o\fR) listing the file names and the latest RCS revision
  504. + number for that file. Such snapshots can be used to identify the release
  505. + at some random patchlevel and then later be able to retrieve it by feeding
  506. + the snapshot file to \fIpatcol\fR.
  507. + .PP
  508.   .I Patcol
  509.   will check out a locked version of a file, eventually in an alternate
  510.   directory (specified with \fB\-d\fR, thus mirroring the distribution tree).
  511. ***************
  512. *** 285,290 ****
  513. --- 327,340 ----
  514.   into a directory by using the \fB\-c\fR switch in conjunction with \fB\-d\fR
  515.   (or that former switch is simply ignored).
  516.   .PP
  517. + .I Patcol
  518. + can also take its file list from a SNAPSHOT file via the \fB\-S\fR switch, in
  519. + which case it will check out the files using the RCS version specified by the
  520. + snapshot file, such as one created by \fIpatsnap\fR. You may instead specify
  521. + \fB-a\fR, \fB\-m\fR or \fB\-n\fR to respectively use all the files in
  522. + MANIFEST.new, all the modified files (the one which have been \fIpatcil\fRed),
  523. + or all the files newer than \fIpatchlevel.h\fR.
  524. + .PP
  525.   .I Patclean
  526.   will remove the working files after having checked in all the
  527.   changes. You may  restores your working files by using patcol.
  528. ***************
  529. *** 337,342 ****
  530. --- 387,397 ----
  531.   .TP
  532.   bugs/.mods[0-9]+
  533.   Files modified in that patch (checked in with \fIpatcil\fR)
  534. + .TP
  535. + users
  536. + File filled in by \fImailagent\fR's "@SH package" command, normally
  537. + issued by Configure, recording some of the users who kindly registered
  538. + themselves.
  539.   .PD
  540.   .SH ENVIRONMENT
  541.   .PD 0
  542.  
  543. Index: pat/patsend.SH
  544. Prereq: 3.0.1.1
  545. *** pat/patsend.SH.old    Tue Aug 24 14:25:47 1993
  546. --- pat/patsend.SH    Tue Aug 24 14:25:47 1993
  547. ***************
  548. *** 20,26 ****
  549.       eval "exec perl -S \$0 \$*"
  550.           if \$running_under_some_shell;
  551.   
  552. ! # $Id: patsend.SH,v 3.0.1.1 1993/08/19 06:42:42 ram Exp $
  553.   #
  554.   #  Copyright (c) 1991-1993, Raphael Manfredi
  555.   #  
  556. --- 20,26 ----
  557.       eval "exec perl -S \$0 \$*"
  558.           if \$running_under_some_shell;
  559.   
  560. ! # $Id: patsend.SH,v 3.0.1.3 1993/08/24 12:21:59 ram Exp $
  561.   #
  562.   #  Copyright (c) 1991-1993, Raphael Manfredi
  563.   #  
  564. ***************
  565. *** 33,38 ****
  566. --- 33,46 ----
  567.   # Original Author: Larry Wall <lwall@netlabs.com>
  568.   #
  569.   # $Log: patsend.SH,v $
  570. + # Revision 3.0.1.3  1993/08/24  12:21:59  ram
  571. + # patch3: new -u option
  572. + # patch3: added Precedence and X-Mailer headers in mail message
  573. + # patch3: added ~name expansion for orgname
  574. + #
  575. + # Revision 3.0.1.2  1993/08/19  07:10:19  ram
  576. + # patch3: was not correctly writing the To: header field
  577. + #
  578.   # Revision 3.0.1.1  1993/08/19  06:42:42  ram
  579.   # patch1: leading config.sh searching was not aborting properly
  580.   #
  581. ***************
  582. *** 48,54 ****
  583.   cat >>patsend <<'!NO!SUBS!'
  584.   
  585.   require 'getopts.pl';
  586. ! &usage unless &Getopts("hV");
  587.   
  588.   if ($opt_V) {
  589.       print STDERR "patsend $version PL$patchlevel\n";
  590. --- 56,62 ----
  591.   cat >>patsend <<'!NO!SUBS!'
  592.   
  593.   require 'getopts.pl';
  594. ! &usage unless &Getopts("huV");
  595.   
  596.   if ($opt_V) {
  597.       print STDERR "patsend $version PL$patchlevel\n";
  598. ***************
  599. *** 57,67 ****
  600.       &usage;
  601.   }
  602.   
  603. - $RCSEXT = ',v' unless $RCSEXT;
  604.   chdir '..' if -d '../bugs';
  605.   
  606.   &readpackage;
  607.   
  608.   chop($orgname = `cat $orgname`) if $orgname =~ m|^/|;
  609.   
  610.   while ($_ = shift) {
  611. --- 65,76 ----
  612.       &usage;
  613.   }
  614.   
  615.   chdir '..' if -d '../bugs';
  616.   
  617.   &readpackage;
  618. + &readusers if $opt_u;
  619.   
  620. + $orgname = &tilda_expand($orgname);
  621.   chop($orgname = `cat $orgname`) if $orgname =~ m|^/|;
  622.   
  623.   while ($_ = shift) {
  624. ***************
  625. *** 73,78 ****
  626. --- 82,89 ----
  627.       }
  628.   }
  629.   $dest = join(' ',@dest);
  630. + $dest .= " $recipients" if $opt_u;
  631. + $to = join(', ', split(' ', $dest));
  632.   &usage unless $dest;
  633.   
  634.   @ARGV = @argv;
  635. ***************
  636. *** 85,97 ****
  637.   die "Malformed patchlevel.h file.\n" if $maxnum eq '';
  638.   
  639.   if ($#ARGV < 0) {
  640. !     $argv = $maxnum;
  641. !     @ARGV = $argv;
  642.   } else {
  643.       $argv = &rangeargs(@ARGV);
  644. -     @ARGV = split(' ',$argv);
  645.   }
  646.   
  647.   $argv =~ s/ $//;
  648.   
  649.   if ($#ARGV < 0) {
  650. --- 96,109 ----
  651.   die "Malformed patchlevel.h file.\n" if $maxnum eq '';
  652.   
  653.   if ($#ARGV < 0) {
  654. !     @patseq = &patseq($maxnum);
  655. !     $lastpat = pop(@patseq);
  656. !     $argv = &rangeargs("$lastpat-$maxnum");
  657.   } else {
  658.       $argv = &rangeargs(@ARGV);
  659.   }
  660.   
  661. + @ARGV = split(' ',$argv);
  662.   $argv =~ s/ $//;
  663.   
  664.   if ($#ARGV < 0) {
  665. ***************
  666. *** 103,112 ****
  667.       print "Sending $package $baserev patch $argv to $dest...\n";
  668.   }
  669.   
  670.   fork && exit;
  671.   
  672. - chdir 'bugs' || die "patsend: can't cd to bugs\n";
  673. - 
  674.   $opt = '-odq' if $mailer =~ /sendmail/;
  675.   
  676.   until ($#ARGV < 0) {
  677. --- 115,124 ----
  678.       print "Sending $package $baserev patch $argv to $dest...\n";
  679.   }
  680.   
  681. + chdir 'bugs' || die "patsend: can't cd to bugs: $!\n";
  682. + 
  683.   fork && exit;
  684.   
  685.   $opt = '-odq' if $mailer =~ /sendmail/;
  686.   
  687.   until ($#ARGV < 0) {
  688. ***************
  689. *** 113,120 ****
  690.       $patnum = shift;
  691.       open(XHEAD,">.xhead$$") || die "patsend: can't create temp file: $!\n";
  692.       print XHEAD
  693. ! "To: $dest
  694.   Subject: $package $baserev patch #$patnum
  695.   Organization: $orgname
  696.   
  697.   
  698. --- 125,134 ----
  699.       $patnum = shift;
  700.       open(XHEAD,">.xhead$$") || die "patsend: can't create temp file: $!\n";
  701.       print XHEAD
  702. ! "To: $to
  703.   Subject: $package $baserev patch #$patnum
  704. + Precedence: bulk
  705. + X-Mailer: dist [version $version PL$patchlevel]
  706.   Organization: $orgname
  707.   
  708.   
  709. ***************
  710. *** 131,138 ****
  711.   unlink ".xhead$$";
  712.   
  713.   sub usage {
  714. !     print STDERR "Usage: patsend [-hV] [patchlist] [recipients]\n";
  715.       print STDERR "  -h : print this message and exit\n";
  716.       print STDERR "  -V : print version number and exit\n";
  717.       exit 1;
  718.   }
  719. --- 145,153 ----
  720.   unlink ".xhead$$";
  721.   
  722.   sub usage {
  723. !     print STDERR "Usage: patsend [-huV] [patchlist] [recipients]\n";
  724.       print STDERR "  -h : print this message and exit\n";
  725. +     print STDERR "  -u : add all to-be-mailed users\n";
  726.       print STDERR "  -V : print version number and exit\n";
  727.       exit 1;
  728.   }
  729. ***************
  730. *** 140,144 ****
  731. --- 155,162 ----
  732.   !NO!SUBS!
  733.   $grep -v '^;#' ../pl/package.pl >>patsend
  734.   $grep -v '^;#' ../pl/rangeargs.pl >>patsend
  735. + $grep -v '^;#' ../pl/users.pl >>patsend
  736. + $grep -v '^;#' ../pl/patseq.pl >>patsend
  737. + $grep -v '^;#' ../pl/tilde.pl >>patsend
  738.   chmod +x patsend
  739.   $eunicefix patsend
  740.  
  741. Index: pat/patnotify.SH
  742. *** pat/patnotify.SH.old    Tue Aug 24 14:25:45 1993
  743. --- pat/patnotify.SH    Tue Aug 24 14:25:45 1993
  744. ***************
  745. *** 0 ****
  746. --- 1,144 ----
  747. + case $CONFIG in
  748. + '')
  749. +     if test -f config.sh; then TOP=.;
  750. +     elif test -f ../config.sh; then TOP=..;
  751. +     elif test -f ../../config.sh; then TOP=../..;
  752. +     elif test -f ../../../config.sh; then TOP=../../..;
  753. +     elif test -f ../../../../config.sh; then TOP=../../../..;
  754. +     else
  755. +         echo "Can't find config.sh."; exit 1
  756. +     fi
  757. +     . $TOP/config.sh
  758. +     ;;
  759. + esac
  760. + case "$0" in
  761. + */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  762. + esac
  763. + echo "Extracting pat/patnotify (with variable substitutions)"
  764. + cat >patnotify <<!GROK!THIS!
  765. + $startperl
  766. +     eval "exec perl -S \$0 \$*"
  767. +         if \$running_under_some_shell;
  768. + 
  769. + # $Id: patnotify.SH,v 3.0.1.1 1993/08/24 12:19:11 ram Exp $
  770. + #
  771. + #  Copyright (c) 1991-1993, Raphael Manfredi
  772. + #  
  773. + #  You may redistribute only under the terms of the Artistic Licence,
  774. + #  as specified in the README file that comes with the distribution.
  775. + #  You may reuse parts of this distribution only within the terms of
  776. + #  that same Artistic Licence; a copy of which may be found at the root
  777. + #  of the source tree for dist 3.0.
  778. + #
  779. + # $Log: patnotify.SH,v $
  780. + # Revision 3.0.1.1  1993/08/24  12:19:11  ram
  781. + # patch3: created
  782. + #
  783. + 
  784. + \$defeditor='$defeditor';
  785. + \$version = '$VERSION';
  786. + \$patchlevel = '$PATCHLEVEL';
  787. + \$mailer = '$mailer';
  788. + !GROK!THIS!
  789. + cat >>patnotify <<'!NO!SUBS!'
  790. + 
  791. + require 'getopts.pl';
  792. + &usage unless &Getopts("huV");
  793. + 
  794. + if ($opt_V) {
  795. +     print STDERR "patnotify $version PL$patchlevel\n";
  796. +     exit 0;
  797. + } elsif ($opt_h) {
  798. +     &usage;
  799. + }
  800. + 
  801. + chdir '..' if -d '../bugs';
  802. + 
  803. + &readpackage;
  804. + &readusers if $opt_u;
  805. + 
  806. + $dest = join(' ', @ARGV);
  807. + $dest .= " $notify" if $opt_u;
  808. + 
  809. + &usage unless $dest;
  810. + 
  811. + if (-f 'patchlevel.h') {
  812. +     open(PL,"patchlevel.h") || die "Can't open patchlevel.h\n";
  813. +     while (<PL>) {
  814. +         if (/^#define\s+PATCHLEVEL\s+(\d+)/) {
  815. +             $last = $1;
  816. +         }
  817. +     }
  818. +     die "Malformed patchlevel.h file.\n" if $last eq '';
  819. + } else {
  820. +     die "No patchlevel.h.\n";
  821. + }
  822. + 
  823. + @patches = &patseq($last);    # Compute patches sequence
  824. + $lastpat = pop(@patches);
  825. + 
  826. + warn "patnotify: missing last .logs and .mods files\n" if $lastpat eq '';
  827. + 
  828. + $missing = $last - $lastpat + 1;
  829. + $these = $missing == 1 ? 'this' : 'these';
  830. + $patches = $missing == 1 ? 'patch' : 'patches';
  831. + $through = $missing == 1 ? $lastpat : "$lastpat thru " . ($lastpat+$missing-1);
  832. + $have = $missing == 1 ? 'has' : 'have';
  833. + $patlist = "$lastpat-";        # They'll get everything up to the end
  834. + 
  835. + ($Patches = $patches) =~ s/^p/P/;
  836. + 
  837. + $opt = ($mailer =~ /sendmail/) ? '-odq' : '';
  838. + $to = join(', ', split(' ', $dest));    # Sensible To: for sendmail
  839. + 
  840. + print "Sending notification of $missing new $patches to $dest...\n";
  841. + 
  842. + fork && exit;
  843. + 
  844. + chdir 'bugs' || die "patnotify: can't cd to bugs: $!\n";
  845. + 
  846. + open(MAILER, "|$mailer $opt $dest");
  847. + print MAILER
  848. + "To: $to
  849. + Subject: $Patches $through for $package version $baserev $have been released.
  850. + Precedence: bulk
  851. + X-Mailer: dist [version $version PL$patchlevel]
  852. + 
  853. + This is just a quick note to let you know that $package version $baserev
  854. + has been recently upgraded and that $patches $through $have been released.
  855. + 
  856. + If you are actively using $package, I strongly suggest you upgrade by
  857. + applying $these $patches.
  858. + 
  859. + You can fetch $these $patches automatically by sending me the following mail:
  860. + 
  861. +     Subject: Command
  862. +     @SH mailpatch - $package $baserev $patlist
  863. +            ^ note the c
  864. + 
  865. + If you are not interested in receiving information about future patches,
  866. + please send me the following mail:
  867. + 
  868. +     Subject: Command
  869. +     @SH package - $package $baserev
  870. + 
  871. + -- patnotify speaking for $maintname.
  872. + ";
  873. + close MAILER;
  874. + 
  875. + sub usage {
  876. +     print STDERR <<EOH;
  877. + Usage: patnotify [-huV] [recipients]
  878. +   -h : print this message and exit
  879. +   -u : add all to-be-notified users
  880. +   -V : print version number and exit
  881. + EOM
  882. +     exit 1;
  883. + }
  884. + 
  885. + !NO!SUBS!
  886. + $grep -v '^;#' ../pl/package.pl >>patnotify
  887. + $grep -v '^;#' ../pl/users.pl >>patnotify
  888. + $grep -v '^;#' ../pl/patseq.pl >>patnotify
  889. + chmod +x patnotify
  890. + $eunicefix patnotify
  891.  
  892. Index: pat/patcol.SH
  893. Prereq: 3.0.1.1
  894. *** pat/patcol.SH.old    Tue Aug 24 14:25:41 1993
  895. --- pat/patcol.SH    Tue Aug 24 14:25:42 1993
  896. ***************
  897. *** 20,26 ****
  898.       eval "exec perl -S \$0 \$*"
  899.           if \$running_under_some_shell;
  900.   
  901. ! # $Id: patcol.SH,v 3.0.1.1 1993/08/19 06:42:34 ram Exp $
  902.   #
  903.   #  Copyright (c) 1991-1993, Raphael Manfredi
  904.   #  
  905. --- 20,26 ----
  906.       eval "exec perl -S \$0 \$*"
  907.           if \$running_under_some_shell;
  908.   
  909. ! # $Id: patcol.SH,v 3.0.1.2 1993/08/24 12:16:30 ram Exp $
  910.   #
  911.   #  Copyright (c) 1991-1993, Raphael Manfredi
  912.   #  
  913. ***************
  914. *** 31,36 ****
  915. --- 31,39 ----
  916.   #  of the source tree for dist 3.0.
  917.   #
  918.   # $Log: patcol.SH,v $
  919. + # Revision 3.0.1.2  1993/08/24  12:16:30  ram
  920. + # patch3: new -S option for snapshot check-outs
  921. + #
  922.   # Revision 3.0.1.1  1993/08/19  06:42:34  ram
  923.   # patch1: leading config.sh searching was not aborting properly
  924.   #
  925. ***************
  926. *** 48,54 ****
  927.   
  928.   require 'getopts.pl';
  929.   &usage unless $#ARGV >= 0;
  930. ! &usage unless &Getopts("acd:f:hnmsCRV");
  931.   
  932.   if ($opt_V) {
  933.       print STDERR "$progname $version PL$patchlevel\n";
  934. --- 51,57 ----
  935.   
  936.   require 'getopts.pl';
  937.   &usage unless $#ARGV >= 0;
  938. ! &usage unless &Getopts("acd:f:hnmsCRS:V");
  939.   
  940.   if ($opt_V) {
  941.       print STDERR "$progname $version PL$patchlevel\n";
  942. ***************
  943. *** 109,114 ****
  944. --- 112,122 ----
  945.           push(@ARGV,$_);
  946.       }
  947.       close MODS;
  948. + } elsif ($opt_S) {
  949. +     &readsnapshot($opt_S);
  950. +     foreach $file (sort keys %Snap) {
  951. +         push(@ARGV, $file);
  952. +     }
  953.   }
  954.   
  955.   # Now loop over each file specified, doing a 'co -l'
  956. ***************
  957. *** 117,126 ****
  958.           ©_file($file, $opt_d);
  959.           next;
  960.       }
  961.       if (! -f $file || $opt_d) {
  962. -         # Continue only if file does not exist or option -d was used.
  963.           $files = &rcsargs($file);
  964.           @files = split(' ', $files);
  965.           $rlog = `rlog -rlastpat- $files 2>&1`;
  966.           ($revs) = ($rlog =~ /selected revisions: (\d+)/);
  967.           if (!$revs) {
  968. --- 125,138 ----
  969.           ©_file($file, $opt_d);
  970.           next;
  971.       }
  972. +     # Continue only if file does not exist or option -d was used.
  973.       if (! -f $file || $opt_d) {
  974.           $files = &rcsargs($file);
  975.           @files = split(' ', $files);
  976. +         if ($opt_S && ($rev = $Snap{$file}) ne '') {    # Use snapshot file
  977. +             &col($rev);
  978. +             next;
  979. +         }
  980.           $rlog = `rlog -rlastpat- $files 2>&1`;
  981.           ($revs) = ($rlog =~ /selected revisions: (\d+)/);
  982.           if (!$revs) {
  983. ***************
  984. *** 191,197 ****
  985.   
  986.   sub usage {
  987.       print STDERR <<'EOM';
  988. ! Usage: patcol [-achnmsCRV] [-d directory] [-f mani] [filelist]
  989.     -a : all the files in MANIFEST.new (see also -f)
  990.     -c : copy files if checked-out copy exists (only when -d)
  991.     -d : check out (or copy) in the specified directory
  992. --- 203,209 ----
  993.   
  994.   sub usage {
  995.       print STDERR <<'EOM';
  996. ! Usage: patcol [-achnmsCRV] [-d directory] [-f mani] [-S snap] [filelist]
  997.     -a : all the files in MANIFEST.new (see also -f)
  998.     -c : copy files if checked-out copy exists (only when -d)
  999.     -d : check out (or copy) in the specified directory
  1000. ***************
  1001. *** 202,207 ****
  1002. --- 214,220 ----
  1003.     -s : silent mode
  1004.     -C : perform copyright expansion on checked out (or copied) file
  1005.     -R : strip out RCS $Locker marker from checked-out file (only when -d)
  1006. +   -S : use snapshot file to determine file list and RCS revisions
  1007.     -V : print version number and exit
  1008.   EOM
  1009.       exit 1;
  1010. ***************
  1011. *** 213,217 ****
  1012. --- 226,231 ----
  1013.   $grep -v '^;#' ../pl/rcsargs.pl >>patcol
  1014.   $grep -v '^;#' ../pl/copyright.pl >>patcol
  1015.   $grep -v '^;#' ../pl/makedir.pl >>patcol
  1016. + $grep -v '^;#' ../pl/snapshot.pl >>patcol
  1017.   chmod +x patcol
  1018.   $eunicefix patcol
  1019.  
  1020. Index: pat/patsnap.SH
  1021. *** pat/patsnap.SH.old    Tue Aug 24 14:25:48 1993
  1022. --- pat/patsnap.SH    Tue Aug 24 14:25:48 1993
  1023. ***************
  1024. *** 0 ****
  1025. --- 1,119 ----
  1026. + case $CONFIG in
  1027. + '')
  1028. +     if test -f config.sh; then TOP=.;
  1029. +     elif test -f ../config.sh; then TOP=..;
  1030. +     elif test -f ../../config.sh; then TOP=../..;
  1031. +     elif test -f ../../../config.sh; then TOP=../../..;
  1032. +     elif test -f ../../../../config.sh; then TOP=../../../..;
  1033. +     else
  1034. +         echo "Can't find config.sh."; exit 1
  1035. +     fi
  1036. +     . $TOP/config.sh
  1037. +     ;;
  1038. + esac
  1039. + case "$0" in
  1040. + */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  1041. + esac
  1042. + echo "Extracting pat/patsnap (with variable substitutions)"
  1043. + cat >patsnap <<!GROK!THIS!
  1044. + $startperl
  1045. +     eval "exec perl -S \$0 \$*"
  1046. +         if \$running_under_some_shell;
  1047. + 
  1048. + # $Id: patsnap.SH,v 3.0.1.1 1993/08/24 12:22:08 ram Exp $
  1049. + #
  1050. + #  Copyright (c) 1991-1993, Raphael Manfredi
  1051. + #  
  1052. + #  You may redistribute only under the terms of the Artistic Licence,
  1053. + #  as specified in the README file that comes with the distribution.
  1054. + #  You may reuse parts of this distribution only within the terms of
  1055. + #  that same Artistic Licence; a copy of which may be found at the root
  1056. + #  of the source tree for dist 3.0.
  1057. + #
  1058. + # $Log: patsnap.SH,v $
  1059. + # Revision 3.0.1.1  1993/08/24  12:22:08  ram
  1060. + # patch3: created
  1061. + #
  1062. + 
  1063. + \$version = '$VERSION';
  1064. + \$patchlevel = '$PATCHLEVEL';
  1065. + !GROK!THIS!
  1066. + cat >>patsnap <<'!NO!SUBS!'
  1067. + 
  1068. + $progname = 'patsnap';        # My name
  1069. + 
  1070. + require 'getopts.pl';
  1071. + &usage unless $#ARGV >= 0;
  1072. + &usage unless &Getopts("aho:V");
  1073. + 
  1074. + $SNAPSHOT = 'SNAPSHOT';        # Default snapshot file name
  1075. + 
  1076. + if ($opt_V) {
  1077. +     print STDERR "$progname $version PL$patchlevel\n";
  1078. +     exit 0;
  1079. + } elsif ($opt_h) {
  1080. +     &usage;
  1081. + }
  1082. + 
  1083. + &readpackage;
  1084. + 
  1085. + $RCSEXT = ',v' unless $RCSEXT;
  1086. + $TOPDIR = '';            # We are at the top-level directory
  1087. + $SNAPSHOT = $opt_o if $opt_o;
  1088. + 
  1089. + if ($opt_a) {
  1090. +     open(MANI,"MANIFEST.new") || die "No MANIFEST.new found.\n";
  1091. +     @ARGV = ();
  1092. +     while (<MANI>) {
  1093. +         chop;
  1094. +         s|^\./||;
  1095. +         next if m|^patchlevel.h|;        # Special file
  1096. +         ($_) = split(' ');
  1097. +         next if -d;
  1098. +         push(@ARGV,$_);
  1099. +     }
  1100. +     close MANI;
  1101. + }
  1102. + 
  1103. + open(SNAPSHOT, ">$SNAPSHOT") || die "$progname: can't create $SNAPSHOT: $!\n";
  1104. + 
  1105. + foreach $file (@ARGV) {
  1106. +     $files = &rcsargs($file);
  1107. +     @files = split(' ',$files);
  1108. +     $revs=0;
  1109. +     $rlog = `rlog -r$baserev -r$revbranch $files 2>&1`;
  1110. +     ($revs) = ($rlog =~ /selected revisions: (\d+)/);
  1111. +     if (!$revs) {
  1112. +         print "$progname: $file has never been checked in--skipping\n";
  1113. +         next;
  1114. +     }
  1115. +     elsif ($revs == 1) {
  1116. +         print "Last revision for $file is $baserev.\n";
  1117. +         print SNAPSHOT "$file\t$baserev\n";
  1118. +     }
  1119. +     else {
  1120. +         ($lastrev) = ($rlog =~ /revision $revbranch\.(\d+)/);
  1121. +         print "Last revision for $file is $revbranch.$lastrev.\n";
  1122. +         print SNAPSHOT "$file\t$revbranch.$lastrev\n";
  1123. +     }
  1124. + }
  1125. + 
  1126. + close SNAPSHOT;
  1127. + 
  1128. + sub usage {
  1129. +     print STDERR <<EOM;
  1130. + Usage: $progname [-ahV] [-o snapshot] [filelist]
  1131. +   -a : all the files in MANIFEST.new
  1132. +   -h : print this message and exit
  1133. +   -o : specify snapshot file output (default $SNAPSHOT)
  1134. +   -V : print version number and exit
  1135. + EOM
  1136. +     exit 1;
  1137. + }
  1138. + 
  1139. + !NO!SUBS!
  1140. + $grep -v '^;#' ../pl/package.pl >>patsnap
  1141. + $grep -v '^;#' ../pl/rcsargs.pl >>patsnap
  1142. + $grep -v '^;#' ../pl/comment.pl >>patsnap
  1143. + chmod +x patsnap
  1144. + $eunicefix patsnap
  1145.  
  1146. Index: pat/patpost.SH
  1147. Prereq: 3.0.1.1
  1148. *** pat/patpost.SH.old    Tue Aug 24 14:25:46 1993
  1149. --- pat/patpost.SH    Tue Aug 24 14:25:46 1993
  1150. ***************
  1151. *** 20,26 ****
  1152.       eval "exec perl -S \$0 \$*"
  1153.           if \$running_under_some_shell;
  1154.   
  1155. ! # $Id: patpost.SH,v 3.0.1.1 1993/08/19 06:42:41 ram Exp $
  1156.   #
  1157.   #  Copyright (c) 1991-1993, Raphael Manfredi
  1158.   #  
  1159. --- 20,26 ----
  1160.       eval "exec perl -S \$0 \$*"
  1161.           if \$running_under_some_shell;
  1162.   
  1163. ! # $Id: patpost.SH,v 3.0.1.2 1993/08/24 12:19:48 ram Exp $
  1164.   #
  1165.   #  Copyright (c) 1991-1993, Raphael Manfredi
  1166.   #  
  1167. ***************
  1168. *** 33,38 ****
  1169. --- 33,42 ----
  1170.   # Original Author: Larry Wall <lwall@netlabs.com>
  1171.   #
  1172.   # $Log: patpost.SH,v $
  1173. + # Revision 3.0.1.2  1993/08/24  12:19:48  ram
  1174. + # patch3: added ~name expansion for orgname
  1175. + # patch3: random cleanup
  1176. + #
  1177.   # Revision 3.0.1.1  1993/08/19  06:42:41  ram
  1178.   # patch1: leading config.sh searching was not aborting properly
  1179.   #
  1180. ***************
  1181. *** 64,73 ****
  1182.       $inews = '/usr/lib/news/inews' if -f '/usr/lib/news/inews';
  1183.   }
  1184.   
  1185. ! chdir '..' if -f '../.package';
  1186.   
  1187.   &readpackage;
  1188.   
  1189.   chop($orgname = `cat $orgname`) if $orgname =~ m|^/|;
  1190.   
  1191.   if ($opt_r) {
  1192. --- 68,78 ----
  1193.       $inews = '/usr/lib/news/inews' if -f '/usr/lib/news/inews';
  1194.   }
  1195.   
  1196. ! chdir '..' if -d '../bugs';
  1197.   
  1198.   &readpackage;
  1199.   
  1200. + $orgname = &tilda_expand($orgname);
  1201.   chop($orgname = `cat $orgname`) if $orgname =~ m|^/|;
  1202.   
  1203.   if ($opt_r) {
  1204. ***************
  1205. *** 94,107 ****
  1206.   die "Malformed patchlevel.h file.\n" if $maxnum eq '';
  1207.   
  1208.   if ($#ARGV < 0) {
  1209. !     $argv = $maxnum;
  1210. !     @ARGV = $argv;
  1211.   }
  1212.   else {
  1213.       $argv = &rangeargs(@ARGV);
  1214. -     @ARGV = split(' ',$argv);
  1215.   }
  1216.   
  1217.   $argv =~ s/ $//;
  1218.   
  1219.   if ($#ARGV < 0) {
  1220. --- 99,113 ----
  1221.   die "Malformed patchlevel.h file.\n" if $maxnum eq '';
  1222.   
  1223.   if ($#ARGV < 0) {
  1224. !     @patseq = &patseq($maxnum);
  1225. !     $lastpat = pop(@patseq);
  1226. !     $argv = &rangeargs("$lastpat-$maxnum");
  1227.   }
  1228.   else {
  1229.       $argv = &rangeargs(@ARGV);
  1230.   }
  1231.   
  1232. + @ARGV = split(' ',$argv);
  1233.   $argv =~ s/ $//;
  1234.   
  1235.   if ($#ARGV < 0) {
  1236. ***************
  1237. *** 113,119 ****
  1238.       print "Posting $package $baserev patch $argv to $newsgroups...\n";
  1239.   }
  1240.   
  1241. ! chdir 'bugs' || die "Can't cd to bugs\n";
  1242.   
  1243.   fork && exit;
  1244.   
  1245. --- 119,125 ----
  1246.       print "Posting $package $baserev patch $argv to $newsgroups...\n";
  1247.   }
  1248.   
  1249. ! chdir 'bugs' || die "patpost: can't cd to bugs: $!\n";
  1250.   
  1251.   fork && exit;
  1252.   
  1253. ***************
  1254. *** 150,156 ****
  1255.   }
  1256.   
  1257.   !NO!SUBS!
  1258. ! cat ../pl/package.pl >>patpost
  1259. ! cat ../pl/rangeargs.pl >>patpost
  1260.   chmod +x patpost
  1261.   $eunicefix patpost
  1262. --- 156,164 ----
  1263.   }
  1264.   
  1265.   !NO!SUBS!
  1266. ! $grep -v '^;#' ../pl/package.pl >>patpost
  1267. ! $grep -v '^;#' ../pl/rangeargs.pl >>patpost
  1268. ! $grep -v '^;#' ../pl/patseq.pl >>patpost
  1269. ! $grep -v '^;#' ../pl/tilde.pl >>patpost
  1270.   chmod +x patpost
  1271.   $eunicefix patpost
  1272.  
  1273. Index: pl/users.pl
  1274. Prereq: 3.0
  1275. *** pl/users.pl.old    Tue Aug 24 14:25:50 1993
  1276. --- pl/users.pl    Tue Aug 24 14:25:51 1993
  1277. ***************
  1278. *** 1,4 ****
  1279. ! ;# $Id: users.pl,v 3.0 1993/08/18 12:11:02 ram Exp $
  1280.   ;#
  1281.   ;#  Copyright (c) 1991-1993, Raphael Manfredi
  1282.   ;#  
  1283. --- 1,4 ----
  1284. ! ;# $Id: users.pl,v 3.0.1.1 1993/08/24 12:23:19 ram Exp $
  1285.   ;#
  1286.   ;#  Copyright (c) 1991-1993, Raphael Manfredi
  1287.   ;#  
  1288. ***************
  1289. *** 11,33 ****
  1290.   ;# Original Author: Graham Stoney <greyham@research.canon.oz.au>
  1291.   ;#
  1292.   ;# $Log: users.pl,v $
  1293.   ;# Revision 3.0  1993/08/18  12:11:02  ram
  1294.   ;# Baseline for dist 3.0 netwide release.
  1295.   ;#
  1296.   ;#
  1297.   sub readusers {
  1298. !     if (open(USERS,'users')) {
  1299. !         while (<USERS>) {
  1300. !             next if /^#/;
  1301. !             chop if /\n$/;            # Emacs may leave final line without \n
  1302. !             ($status,$name) = split;
  1303. !             if ($status eq 'M') {
  1304. !                 $recipients = $recipients ? "$recipients $name" : $name;
  1305. !             } elsif ($status eq 'N') {
  1306. !                 $notify = $notify ? "$notify $name" : $name;
  1307. !             }
  1308.           }
  1309. -         close USERS;
  1310.       }
  1311.   }
  1312.   
  1313. --- 11,43 ----
  1314.   ;# Original Author: Graham Stoney <greyham@research.canon.oz.au>
  1315.   ;#
  1316.   ;# $Log: users.pl,v $
  1317. + ;# Revision 3.0.1.1  1993/08/24  12:23:19  ram
  1318. + ;# patch3: added some comments about the users file format
  1319. + ;# patch3: random cleanup
  1320. + ;#
  1321.   ;# Revision 3.0  1993/08/18  12:11:02  ram
  1322.   ;# Baseline for dist 3.0 netwide release.
  1323.   ;#
  1324. + ;# The users file, as built by mailagent upon reception of an '@SH package'
  1325. + ;# command contains a list of e-mail addresses, prefixed by a single letter.
  1326. + ;# Users tagged with 'U' or 'L' are plain users, those with 'M' wish to
  1327. + ;# receive issued patches by e-mail while 'N' users simply want to be notified
  1328. + ;# when a new patch is released;
  1329.   ;#
  1330.   sub readusers {
  1331. !     return unless open(USERS, 'users');
  1332. !     local($_);
  1333. !     local($status, $name);
  1334. !     while (<USERS>) {
  1335. !         next if /^#/;
  1336. !         chop if /\n$/;                # Emacs may leave final line without \n
  1337. !         ($status, $name) = split;
  1338. !         if ($status eq 'M') {
  1339. !             $recipients = $recipients ? "$recipients $name" : $name;
  1340. !         } elsif ($status eq 'N') {
  1341. !             $notify = $notify ? "$notify $name" : $name;
  1342.           }
  1343.       }
  1344. +     close USERS;
  1345.   }
  1346.   
  1347.  
  1348. Index: pat/Makefile.SH
  1349. *** pat/Makefile.SH.old    Tue Aug 24 14:25:37 1993
  1350. --- pat/Makefile.SH    Tue Aug 24 14:25:37 1993
  1351. ***************
  1352. *** 1,4 ****
  1353. ! : Makefile.SH generated from Jmake.tmpl and Jmakefile [jmake 3.0 PL0]
  1354.   : $X-Id: Jmake.tmpl,v 3.0 1993/08/18 12:04:16 ram Exp ram $
  1355.   
  1356.   case $CONFIG in
  1357. --- 1,4 ----
  1358. ! : Makefile.SH generated from Jmake.tmpl and Jmakefile [jmake 3.0 PL2]
  1359.   : $X-Id: Jmake.tmpl,v 3.0 1993/08/18 12:04:16 ram Exp ram $
  1360.   
  1361.   case $CONFIG in
  1362. ***************
  1363. *** 52,58 ****
  1364.   ########################################################################
  1365.   # Start of Jmakefile
  1366.   
  1367. ! # $X-Id: Jmakefile,v 3.0 1993/08/18 12:10:32 ram Exp ram $
  1368.   #
  1369.   #  Copyright (c) 1991-1993, Raphael Manfredi
  1370.   #  
  1371. --- 52,58 ----
  1372.   ########################################################################
  1373.   # Start of Jmakefile
  1374.   
  1375. ! # $X-Id: Jmakefile,v 3.0.1.1 1993/08/24 12:09:05 ram Exp ram $
  1376.   #
  1377.   #  Copyright (c) 1991-1993, Raphael Manfredi
  1378.   #  
  1379. ***************
  1380. *** 63,73 ****
  1381.   #  of the source tree for dist 3.0.
  1382.   #
  1383.   # $X-Log: Jmakefile,v $
  1384.   # Revision 3.0  1993/08/18  12:10:32  ram
  1385.   # Baseline for dist 3.0 netwide release.
  1386.   #
  1387.   
  1388. ! BASE = // cil base diff make clean col name ftp send index post
  1389.   
  1390.   PAT = \
  1391.       pat \
  1392. --- 63,76 ----
  1393.   #  of the source tree for dist 3.0.
  1394.   #
  1395.   # $X-Log: Jmakefile,v $
  1396. + # Revision 3.0.1.1  1993/08/24  12:09:05  ram
  1397. + # patch3: added patnotify and patsnap
  1398. + #
  1399.   # Revision 3.0  1993/08/18  12:10:32  ram
  1400.   # Baseline for dist 3.0 netwide release.
  1401.   #
  1402.   
  1403. ! BASE = // cil base diff make clean col name ftp send index post notify snap
  1404.   
  1405.   PAT = \
  1406.       pat \
  1407. ***************
  1408. *** 81,87 ****
  1409.       patftp \
  1410.       patsend \
  1411.       patindex \
  1412. !     patpost 
  1413.   
  1414.   all:: $(PAT)
  1415.   
  1416. --- 84,92 ----
  1417.       patftp \
  1418.       patsend \
  1419.       patindex \
  1420. !     patpost \
  1421. !     patnotify \
  1422. !     patsnap 
  1423.   
  1424.   all:: $(PAT)
  1425.   
  1426. ***************
  1427. *** 123,128 ****
  1428. --- 128,139 ----
  1429.   
  1430.   patpost: patpost.SH
  1431.       /bin/sh patpost.SH
  1432. + 
  1433. + patnotify: patnotify.SH
  1434. +     /bin/sh patnotify.SH
  1435. + 
  1436. + patsnap: patsnap.SH
  1437. +     /bin/sh patsnap.SH
  1438.   
  1439.   
  1440.   install:: $(PAT)
  1441.  
  1442. Index: dist.man
  1443. Prereq: 3.0
  1444. *** dist.man.old    Tue Aug 24 14:25:30 1993
  1445. --- dist.man    Tue Aug 24 14:25:30 1993
  1446. ***************
  1447. *** 1,4 ****
  1448. ! ''' $Id: dist.man,v 3.0 1993/08/18 12:04:07 ram Exp $
  1449.   '''
  1450.   '''  Copyright (c) 1991-1993, Raphael Manfredi
  1451.   '''  
  1452. --- 1,4 ----
  1453. ! ''' $Id: dist.man,v 3.0.1.1 1993/08/24 12:12:00 ram Exp $
  1454.   '''
  1455.   '''  Copyright (c) 1991-1993, Raphael Manfredi
  1456.   '''  
  1457. ***************
  1458. *** 9,14 ****
  1459. --- 9,17 ----
  1460.   '''  of the source tree for dist 3.0.
  1461.   '''
  1462.   ''' $Log: dist.man,v $
  1463. + ''' Revision 3.0.1.1  1993/08/24  12:12:00  ram
  1464. + ''' patch3: added entries for patnotify and patsnap
  1465. + '''
  1466.   ''' Revision 3.0  1993/08/18  12:04:07  ram
  1467.   ''' Baseline for dist 3.0 netwide release.
  1468.   '''
  1469. ***************
  1470. *** 22,28 ****
  1471.   and it is also meant to be used with two external products, which are
  1472.   publicly available: \fImailagent\fR and \fIpatch\fR.
  1473.   .PP
  1474. ! The fist component is the \fIConfigure\fR script generator, which is a
  1475.   portability tool. It is automatically build up by \fImetaconfig\fR from your
  1476.   sources and a set of units. Ideally, the end-user receiving your source code
  1477.   will simply have to read your README file, run the \fIConfigure\fR script
  1478. --- 25,31 ----
  1479.   and it is also meant to be used with two external products, which are
  1480.   publicly available: \fImailagent\fR and \fIpatch\fR.
  1481.   .PP
  1482. ! The first component is the \fIConfigure\fR script generator, which is a
  1483.   portability tool. It is automatically build up by \fImetaconfig\fR from your
  1484.   sources and a set of units. Ideally, the end-user receiving your source code
  1485.   will simply have to read your README file, run the \fIConfigure\fR script
  1486. ***************
  1487. *** 127,137 ****
  1488. --- 130,146 ----
  1489.   patmake
  1490.   puts diffs together into a patch.
  1491.   .TP
  1492. + patnotify
  1493. + notifies users that new patches have been released.
  1494. + .TP
  1495.   patpost
  1496.   posts patch to some newsgroup.
  1497.   .TP
  1498.   patsend
  1499.   mails patch to some people.
  1500. + .TP
  1501. + patsnap
  1502. + builds a release snapshot with files and RCS revisions.
  1503.   .PD
  1504.   .SH FILES
  1505.   .PD 0
  1506.  
  1507. Index: MANIFEST
  1508. *** MANIFEST.old    Tue Aug 24 14:25:52 1993
  1509. --- MANIFEST    Tue Aug 24 14:25:52 1993
  1510. ***************
  1511. *** 97,102 ****
  1512. --- 97,103 ----
  1513.   mcon/U/Whoa.U              Warning function
  1514.   mcon/U/abortsig.U          Which signal is sent by abort()?
  1515.   mcon/U/active.U            Find the news active file
  1516. + mcon/U/afs.U               Look whether AFS is running or not
  1517.   mcon/U/alignbytes.U        Check for alignment constraints
  1518.   mcon/U/baserev.U           Base revision of package
  1519.   mcon/U/basicshell.U        Which basic shell is available
  1520. ***************
  1521. *** 433,440 ****
  1522. --- 434,443 ----
  1523.   pat/patindex.SH            Create an index of patches sent out
  1524.   pat/patmake.SH             Put together a patch file
  1525.   pat/patname.SH             Assign symbolic name to a revision
  1526. + pat/patnotify.SH           Notifies that new patches have been released
  1527.   pat/patpost.SH             Send patches via news
  1528.   pat/patsend.SH             Sends patches via mail
  1529. + pat/patsnap.SH             Builds RCS snapshot file
  1530.   patchlevel.h               The current patchlevel for dist
  1531.   pl/                        Directory for public perl libraries
  1532.   pl/comment.pl              Perl library to find comment in front of $Log
  1533. ***************
  1534. *** 445,451 ****
  1535. --- 448,456 ----
  1536.   pl/manifake.pl             Perl library to build a MANIFEST.new if none found
  1537.   pl/newer.pl                Perl library to Find files newer than patchlevel.h
  1538.   pl/package.pl              Perl library to read .package
  1539. + pl/patseq.pl               Perl library to compute issued patch sequence
  1540.   pl/rangeargs.pl            Perl library to expand number lists
  1541.   pl/rcsargs.pl              Perl library to expand rcs filename lists
  1542. + pl/snapshot.pl             Perl library to parse RCS snapshot file
  1543.   pl/tilde.pl                Perl library to perform ~name expansion
  1544.   pl/users.pl                Perl library to parse users file
  1545.  
  1546. Index: jmake/files/Jmake.tmpl
  1547. Prereq: 3.0
  1548. *** jmake/files/Jmake.tmpl.old    Tue Aug 24 14:25:31 1993
  1549. --- jmake/files/Jmake.tmpl    Tue Aug 24 14:25:31 1993
  1550. ***************
  1551. *** 1,7 ****
  1552.   /*
  1553.    * Generic jmake template
  1554.    *
  1555. !  * $Id: Jmake.tmpl,v 3.0 1993/08/18 12:04:16 ram Exp $
  1556.    *
  1557.    *  Copyright (c) 1991-1993, Raphael Manfredi
  1558.    *  
  1559. --- 1,7 ----
  1560.   /*
  1561.    * Generic jmake template
  1562.    *
  1563. !  * $Id: Jmake.tmpl,v 3.0.1.1 1993/08/20 07:36:36 ram Exp $
  1564.    *
  1565.    *  Copyright (c) 1991-1993, Raphael Manfredi
  1566.    *  
  1567. ***************
  1568. *** 12,17 ****
  1569. --- 12,20 ----
  1570.    *  of the source tree for dist 3.0.
  1571.    *
  1572.    * $Log: Jmake.tmpl,v $
  1573. +  * Revision 3.0.1.1  1993/08/20  07:36:36  ram
  1574. +  * patch3: config.sh searching was not aborting properly
  1575. +  *
  1576.    * Revision 3.0  1993/08/18  12:04:16  ram
  1577.    * Baseline for dist 3.0 netwide release.
  1578.    *
  1579. ***************
  1580. *** 18,24 ****
  1581.    */
  1582.   
  1583.   : Makefile.SH generated from Jmake.tmpl and Jmakefile <TAG>
  1584. ! : $Id: Jmake.tmpl,v 3.0 1993/08/18 12:04:16 ram Exp $
  1585.   
  1586.   /*************************************************************************
  1587.    *                                                                       *
  1588. --- 21,27 ----
  1589.    */
  1590.   
  1591.   : Makefile.SH generated from Jmake.tmpl and Jmakefile <TAG>
  1592. ! : $Id: Jmake.tmpl,v 3.0.1.1 1993/08/20 07:36:36 ram Exp $
  1593.   
  1594.   /*************************************************************************
  1595.    *                                                                       *
  1596. ***************
  1597. *** 34,40 ****
  1598.       elif test -f ../../../config.sh; then TOP=../../..;
  1599.       elif test -f ../../../../config.sh; then TOP=../../../..;
  1600.       else
  1601. !         (echo "Can't find config.sh."; exit 1)
  1602.       fi
  1603.       . $TOP/config.sh
  1604.       ;;
  1605. --- 37,43 ----
  1606.       elif test -f ../../../config.sh; then TOP=../../..;
  1607.       elif test -f ../../../../config.sh; then TOP=../../../..;
  1608.       else
  1609. !         echo "Can't find config.sh."; exit 1
  1610.       fi
  1611.       . $TOP/config.sh
  1612.       ;;
  1613.  
  1614. Index: pat/Jmakefile
  1615. Prereq: 3.0
  1616. *** pat/Jmakefile.old    Tue Aug 24 14:25:36 1993
  1617. --- pat/Jmakefile    Tue Aug 24 14:25:36 1993
  1618. ***************
  1619. *** 2,8 ****
  1620.    * Jmakefile for patching tools.
  1621.    */
  1622.   
  1623. ! ;# $Id: Jmakefile,v 3.0 1993/08/18 12:10:32 ram Exp $
  1624.   ;#
  1625.   ;#  Copyright (c) 1991-1993, Raphael Manfredi
  1626.   ;#  
  1627. --- 2,8 ----
  1628.    * Jmakefile for patching tools.
  1629.    */
  1630.   
  1631. ! ;# $Id: Jmakefile,v 3.0.1.1 1993/08/24 12:09:05 ram Exp $
  1632.   ;#
  1633.   ;#  Copyright (c) 1991-1993, Raphael Manfredi
  1634.   ;#  
  1635. ***************
  1636. *** 13,18 ****
  1637. --- 13,21 ----
  1638.   ;#  of the source tree for dist 3.0.
  1639.   ;#
  1640.   ;# $Log: Jmakefile,v $
  1641. + ;# Revision 3.0.1.1  1993/08/24  12:09:05  ram
  1642. + ;# patch3: added patnotify and patsnap
  1643. + ;#
  1644.   ;# Revision 3.0  1993/08/18  12:10:32  ram
  1645.   ;# Baseline for dist 3.0 netwide release.
  1646.   ;#
  1647. ***************
  1648. *** 21,27 ****
  1649.    * used to specify a null expansion pattern, but some of those new smart cpp
  1650.    * now think it's a up-to-end-of-line comment--why do they do that to us?
  1651.    */
  1652. ! BASE = /^^/ cil base diff make clean col name ftp send index post
  1653.   
  1654.   /* PAT is derived from BASE and is the list of all the files to produce */
  1655.   PAT = \
  1656. --- 24,30 ----
  1657.    * used to specify a null expansion pattern, but some of those new smart cpp
  1658.    * now think it's a up-to-end-of-line comment--why do they do that to us?
  1659.    */
  1660. ! BASE = /^^/ cil base diff make clean col name ftp send index post notify snap
  1661.   
  1662.   /* PAT is derived from BASE and is the list of all the files to produce */
  1663.   PAT = \
  1664.  
  1665. *** End of Patch 3 ***
  1666.  
  1667. exit 0 # Just in case...
  1668.