fielding 97/06/26 07:39:14
Modified: . avail checkoutlist commit_prep.pl commitcheck commitinfo cvs_acls.pl cvsedit cvswrappers edithook editinfo log_accum.pl loginfo rcsinfo taginfo unwrap updateCVSROOT wrap Log: General cleanup. Removed Id lines and other garbage comments. Replaced hardcoded paths with CVSROOT variable. Removed double execs of the perl interpreter. Revision Changes Path 1.31 +0 -1 CVSROOT/avail Index: avail =================================================================== RCS file: /export/home/cvs/CVSROOT/avail,v retrieving revision 1.30 retrieving revision 1.31 diff -C3 -r1.30 -r1.31 *** avail 1997/04/08 04:44:18 1.30 --- avail 1997/06/26 14:39:05 1.31 *************** *** 1,3 **** unavail avail|cvs,paul,ben,akosut,mjc,chuck,jim,brian,randy,fielding,pcs,sameer,laurel,marc,dgaudet,coar - --- 1,2 ---- 1.3 +0 -1 CVSROOT/checkoutlist Index: checkoutlist =================================================================== RCS file: /export/home/cvs/CVSROOT/checkoutlist,v retrieving revision 1.2 retrieving revision 1.3 diff -C3 -r1.2 -r1.3 *** checkoutlist 1997/06/26 14:19:08 1.2 --- checkoutlist 1997/06/26 14:39:05 1.3 *************** *** 1,4 **** - # # The "checkoutlist" file is used to support additional version controlled # administrative files in $CVSROOT/CVSROOT, such as template files. # --- 1,3 ---- 1.3 +1 -4 CVSROOT/commit_prep.pl Index: commit_prep.pl =================================================================== RCS file: /export/home/cvs/CVSROOT/commit_prep.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C3 -r1.2 -r1.3 *** commit_prep.pl 1997/06/15 19:18:24 1.2 --- commit_prep.pl 1997/06/26 14:39:06 1.3 *************** *** 1,7 **** ! #!/usr/bin/perl -w ! # ! # $FreeBSD$ ! # # # Perl filter to handle pre-commit checking of files. This program # records the last directory where commits will be taking place for --- 1,4 ---- ! #!/usr/bin/perl # # Perl filter to handle pre-commit checking of files. This program # records the last directory where commits will be taking place for 1.3 +3 -5 CVSROOT/commitcheck Index: commitcheck =================================================================== RCS file: /export/home/cvs/CVSROOT/commitcheck,v retrieving revision 1.2 retrieving revision 1.3 diff -C3 -r1.2 -r1.3 *** commitcheck 1996/01/14 16:23:20 1.2 --- commitcheck 1997/06/26 14:39:06 1.3 *************** *** 1,9 **** ! #! /bin/sh ! # ! # $Id: commitcheck,v 1.2 1996/01/14 16:23:20 paul Exp $ ! if /usr/bin/perl $CVSROOT/CVSROOT/cvs_acls.pl ${1+"$@"}; then ! if /usr/bin/perl $CVSROOT/CVSROOT/commit_prep.pl ${1+"$@"}; then exit 0 fi fi --- 1,7 ---- ! #!/bin/sh ! if $CVSROOT/CVSROOT/cvs_acls.pl ${1+"$@"}; then ! if $CVSROOT/CVSROOT/commit_prep.pl ${1+"$@"}; then exit 0 fi fi 1.3 +1 -3 CVSROOT/commitinfo Index: commitinfo =================================================================== RCS file: /export/home/cvs/CVSROOT/commitinfo,v retrieving revision 1.2 retrieving revision 1.3 diff -C3 -r1.2 -r1.3 *** commitinfo 1996/01/14 16:14:53 1.2 --- commitinfo 1997/06/26 14:39:06 1.3 *************** *** 14,19 **** # If the name ALL appears as a regular expression it is always used # in addition to the first matching regex or DEFAULT. # ! #^cvs checkforcvsid ! #DEFAULT checkforid ! ALL /export/home/cvs/CVSROOT/commitcheck --- 14,17 ---- # If the name ALL appears as a regular expression it is always used # in addition to the first matching regex or DEFAULT. # ! ALL $CVSROOT/CVSROOT/commitcheck 1.2 +1 -4 CVSROOT/cvs_acls.pl Index: cvs_acls.pl =================================================================== RCS file: /export/home/cvs/CVSROOT/cvs_acls.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C3 -r1.1 -r1.2 *** cvs_acls.pl 1996/01/14 16:08:16 1.1 --- cvs_acls.pl 1997/06/26 14:39:06 1.2 *************** *** 1,7 **** ! #!/usr/bin/perl -- # -*-Perl-*- ! # ! # cvs_acls.pl,v 1.2 1992/04/11 16:01:24 berliner Exp ! # $FreeBSD: cvs_acls.pl,v 1.1.1.1 1994/05/24 08:59:43 rgrimes Exp $ # # Access control lists for CVS. [EMAIL PROTECTED] (David G. Grubbs) # --- 1,4 ---- ! #!/usr/bin/perl # # Access control lists for CVS. [EMAIL PROTECTED] (David G. Grubbs) # 1.11 +1 -3 CVSROOT/cvsedit Index: cvsedit =================================================================== RCS file: /export/home/cvs/CVSROOT/cvsedit,v retrieving revision 1.10 retrieving revision 1.11 diff -C3 -r1.10 -r1.11 *** cvsedit 1996/02/22 23:00:56 1.10 --- cvsedit 1997/06/26 14:39:07 1.11 *************** *** 1,12 **** ! #! /usr/bin/perl # # This crude hack is to sanitise the results of what the user may have # "done" while editing the commit log message.. :-) Peter Wemm. # # To use this, make it executable, and set your editinfo DEFAULT line: # DEFAULT /path/to/this/program - # - # $Id: cvsedit,v 1.10 1996/02/22 23:00:56 paul Exp $ # # same rules as CVS --- 1,10 ---- ! #!/usr/bin/perl # # This crude hack is to sanitise the results of what the user may have # "done" while editing the commit log message.. :-) Peter Wemm. # # To use this, make it executable, and set your editinfo DEFAULT line: # DEFAULT /path/to/this/program # # same rules as CVS 1.2 +0 -3 CVSROOT/cvswrappers Index: cvswrappers =================================================================== RCS file: /export/home/cvs/CVSROOT/cvswrappers,v retrieving revision 1.1 retrieving revision 1.2 diff -C3 -r1.1 -r1.2 *** cvswrappers 1996/02/15 14:07:51 1.1 --- cvswrappers 1997/06/26 14:39:07 1.2 *************** *** 1,6 **** - # - #ident "@(#)cvs/examples:$Name: $:$Id: cvswrappers,v 1.1 1996/02/15 14:07:51 paul Exp $" - # # This file describes wrappers and other binary files to CVS. # # Wrappers are the concept where directories of files are to be --- 1,3 ---- 1.2 +1 -4 CVSROOT/edithook Index: edithook =================================================================== RCS file: /export/home/cvs/CVSROOT/edithook,v retrieving revision 1.1 retrieving revision 1.2 diff -C3 -r1.1 -r1.2 *** edithook 1996/01/14 16:08:18 1.1 --- edithook 1997/06/26 14:39:07 1.2 *************** *** 1,10 **** #!/usr/bin/perl # - # $Id: edithook,v 1.1 1996/01/14 16:08:18 paul Exp $ - # - # Perl filter to handle cvs editinfo preparation of log messge ! # This filter should be named in the $CVSROOT/CVSROOT/editinfo file # for any modules you wish to add the gnats bug system bugid and # header. --- 1,7 ---- #!/usr/bin/perl # # Perl filter to handle cvs editinfo preparation of log messge ! # # This filter should be named in the $CVSROOT/CVSROOT/editinfo file # for any modules you wish to add the gnats bug system bugid and # header. 1.4 +1 -11 CVSROOT/editinfo Index: editinfo =================================================================== RCS file: /export/home/cvs/CVSROOT/editinfo,v retrieving revision 1.3 retrieving revision 1.4 diff -C3 -r1.3 -r1.4 *** editinfo 1996/01/14 17:04:27 1.3 --- editinfo 1997/06/26 14:39:07 1.4 *************** *** 1,7 **** - # - # editinfo,v 1.1 1992/03/21 06:49:39 berliner Exp - # $FreeBSD$ - # # The "editinfo" file is used to allow verification of logging # information. It works best when a template (as specified in the # rcsinfo file) is provided for the logging procedure. Given a --- 1,3 ---- *************** *** 28,37 **** # supported. There can be only one entry that matches a given # repository. # ! #DEFAULT $CVSROOT/CVSROOT/edit ! # ! # uncomment this to deal with the new edit hook ! #DEFAULT /export/home/cvs/CVSROOT/new_edithook ! # peter's edit post-processor.. ! DEFAULT /export/home/cvs/CVSROOT/cvsedit ! --- 24,27 ---- # supported. There can be only one entry that matches a given # repository. # ! DEFAULT $CVSROOT/CVSROOT/cvsedit 1.26 +0 -2 CVSROOT/log_accum.pl Index: log_accum.pl =================================================================== RCS file: /export/home/cvs/CVSROOT/log_accum.pl,v retrieving revision 1.25 retrieving revision 1.26 diff -C3 -r1.25 -r1.26 *** log_accum.pl 1997/06/15 19:18:25 1.25 --- log_accum.pl 1997/06/26 14:39:08 1.26 *************** *** 1,7 **** #!/usr/bin/perl # - # $Id: log_accum.pl,v 1.25 1997/06/15 19:18:25 ben Exp $ - # # Perl filter to handle the log messages from the checkin of files in # a directory. This script will group the lists of files by log # message, and mail a single consolidated log message at the end of --- 1,5 ---- 1.3 +1 -4 CVSROOT/loginfo Index: loginfo =================================================================== RCS file: /export/home/cvs/CVSROOT/loginfo,v retrieving revision 1.2 retrieving revision 1.3 diff -C3 -r1.2 -r1.3 *** loginfo 1996/01/14 18:16:06 1.2 --- loginfo 1997/06/26 14:39:08 1.3 *************** *** 1,6 **** - # - # $CVSid: @(#)loginfo 1.4 92/03/16 $ - # # The "loginfo" file is used to control where "cvs commit" log information # is sent. The first entry on a line is a regular expression which is tested # against the directory that the change is being made to, relative to the --- 1,3 ---- *************** *** 17,20 **** # If the name ALL appears as a regular expression it is always used # in addition to the first matching regex or DEFAULT. # ! DEFAULT /usr/bin/perl $CVSROOT/CVSROOT/log_accum.pl %s --- 14,17 ---- # If the name ALL appears as a regular expression it is always used # in addition to the first matching regex or DEFAULT. # ! DEFAULT $CVSROOT/CVSROOT/log_accum.pl %s 1.3 +1 -5 CVSROOT/rcsinfo Index: rcsinfo =================================================================== RCS file: /export/home/cvs/CVSROOT/rcsinfo,v retrieving revision 1.2 retrieving revision 1.3 diff -C3 -r1.2 -r1.3 *** rcsinfo 1996/01/14 16:47:30 1.2 --- rcsinfo 1997/06/26 14:39:08 1.3 *************** *** 1,7 **** - # - # rcsinfo,v 1.3 1992/04/10 18:59:14 berliner Exp - # $FreeBSD$ - # # The "rcsinfo" file is used to control templates with which the editor # is invoked on commit and import. # --- 1,3 ---- *************** *** 16,19 **** # If the name ALL appears as a regular expression it is always used # in addition to the first matching regex or DEFAULT. # ! ALL /export/home/cvs/CVSROOT/rcstemplate --- 12,15 ---- # If the name ALL appears as a regular expression it is always used # in addition to the first matching regex or DEFAULT. # ! ALL $CVSROOT/CVSROOT/rcstemplate 1.2 +0 -3 CVSROOT/taginfo Index: taginfo =================================================================== RCS file: /export/home/cvs/CVSROOT/taginfo,v retrieving revision 1.1 retrieving revision 1.2 diff -C3 -r1.1 -r1.2 *** taginfo 1996/02/15 14:07:51 1.1 --- taginfo 1997/06/26 14:39:08 1.2 *************** *** 1,6 **** - # - #ident "@(#)cvs/examples:$Name: $:$Id: taginfo,v 1.1 1996/02/15 14:07:51 paul Exp $" - # # The "taginfo" file is used to control pre-tag checks. # The filter on the right is invoked with the following arguments: # --- 1,3 ---- 1.2 +2 -3 CVSROOT/unwrap Index: unwrap =================================================================== RCS file: /export/home/cvs/CVSROOT/unwrap,v retrieving revision 1.1 retrieving revision 1.2 diff -C3 -r1.1 -r1.2 *** unwrap 1996/02/15 14:07:53 1.1 --- unwrap 1997/06/26 14:39:08 1.2 *************** *** 1,10 **** ! #! /bin/sh # # unwrap - extract the combined package (created with wrap) # - #ident "@(#)cvs/examples:$Name: $:$Id: unwrap,v 1.1 1996/02/15 14:07:53 paul Exp $" - # move the file to a new name with an extension rm -rf $1.cvswrap mv $1 $1.cvswrap --- 1,9 ---- ! #!/bin/sh # # unwrap - extract the combined package (created with wrap) # # move the file to a new name with an extension + rm -rf $1.cvswrap mv $1 $1.cvswrap 1.6 +1 -2 CVSROOT/updateCVSROOT Index: updateCVSROOT =================================================================== RCS file: /export/home/cvs/CVSROOT/updateCVSROOT,v retrieving revision 1.5 retrieving revision 1.6 diff -C3 -r1.5 -r1.6 *** updateCVSROOT 1996/01/14 18:43:03 1.5 --- updateCVSROOT 1997/06/26 14:39:09 1.6 *************** *** 1,8 **** ! #! /bin/sh # # Called in place of mkmodules to take care of files mkmodules doesn't know. # - # $Id: updateCVSROOT,v 1.5 1996/01/14 18:43:03 paul Exp $ PATH=$PATH:/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin export PATH --- 1,7 ---- ! #!/bin/sh # # Called in place of mkmodules to take care of files mkmodules doesn't know. # PATH=$PATH:/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin export PATH 1.2 +2 -3 CVSROOT/wrap Index: wrap =================================================================== RCS file: /export/home/cvs/CVSROOT/wrap,v retrieving revision 1.1 retrieving revision 1.2 diff -C3 -r1.1 -r1.2 *** wrap 1996/02/15 14:07:52 1.1 --- wrap 1997/06/26 14:39:09 1.2 *************** *** 1,15 **** ! #! /bin/sh # # wrap - Combine a directory into a single tar package. # - #ident "@(#)cvs/examples:$Name: $:$Id: wrap,v 1.1 1996/02/15 14:07:52 paul Exp $" - # This script is always called with the current directory set to # where the file to be combined exists. but i may get called with a # path to where cvs first started executing. (this probably should be # fixed in cvs) so strip out all of the directory information. The # first sed expression will only work if the path has a leading / # if it doesn't the one in the if statement will work. DIRNAME=`echo $1 | sed -e "s|/.*/||g"` if [ ! -d $DIRNAME ] ; then DIRNAME=`echo $1 | sed -e "s|.*/||g"` --- 1,14 ---- ! #!/bin/sh # # wrap - Combine a directory into a single tar package. # # This script is always called with the current directory set to # where the file to be combined exists. but i may get called with a # path to where cvs first started executing. (this probably should be # fixed in cvs) so strip out all of the directory information. The # first sed expression will only work if the path has a leading / # if it doesn't the one in the if statement will work. + DIRNAME=`echo $1 | sed -e "s|/.*/||g"` if [ ! -d $DIRNAME ] ; then DIRNAME=`echo $1 | sed -e "s|.*/||g"`