CVS服务器安装配置

升级CVS

确认安装的CVS服务器版本，要高于 1.11.2 。因为我们要用到在版本 1.11.2 才出现的功能：能够在检查commit log 后重新读入 commit log，以实现对 commit log 的格式化。

定制 PERL 模块 cfg.pm

文件 CVSROOT/cfg.pm， 是 perl脚本的核心包，对其做了一些改动，主要是添加了禁止某些用户发送 Email功能；还增加了部分子过程，部分是从原 log_acum.pl 中移动过来，目的将这些函数设置为模块内部的函数便于其它需要发送邮件的脚本调用，如脚本 log_accum.pl 和 tagcheck 都需要使用这些新增子过程。

对脚本 CVSROOT/cfg.pm 的改动如下：

diff -u -r1.1 -r1.2
--- cfg.pm 14 Aug 2003 10:00:53 -0000 1.1
+++ cfg.pm 15 Aug 2003 01:44:20 -0000 1.2
@@ -17,9 +17,10 @@
 $ADD_TO_LINE $AVAIL_FILE $CHECK_HEADERS $COMMITCHECK_EXTRA
 @COMMIT_HOSTS $COMMITTER $DEBUG $DIFF_BLOCK_TOTAL_LINES $EXCLUDE_FILE
 $FILE_PREFIX $IDHEADER $LAST_FILE @LOG_FILE_MAP $MAILADDRS $MAILBANNER
- $MAILCMD $MAIL_BRANCH_HDR $MAIL_ON_DIR_CREATION $MAIL_TRANSFORM
+ $MAILCMD $MAIL_BRANCH_HDR @MAIL_MAP $MAIL_ON_DIR_CREATION $MAIL_TRANSFORM
 $MINCVSVERSION $MAX_DIFF_SIZE $NO_DOS_LINEBREAKS $PID $PROG_CVS
 $PROG_MV %TEMPLATE_HEADERS $TMPDIR $UNEXPAND_RCSID $WARN_HEADERS
+ $BADSENDER_FILE
 );

my $CVSROOT = $ENV{'CVSROOT'} || die "Can't determine \$CVSROOT!";
@@ -52,7 +53,7 @@
 $PROG_MV = '/bin/mv'; # mv(1)

# The username of the committer.
-$COMMITTER = $ENV{"LOGNAME"} || $ENV{'USER'} || getlogin
+$COMMITTER = $ENV{"CVS_USER"} || $ENV{"LOGNAME"} || $ENV{'USER'} || getlogin 
 || (getpwuid($<))[0] || sprintf("uid#%d",$<);

@@ -83,6 +84,7 @@
 # commit to what.
 $AVAIL_FILE = "$CVSROOT/CVSROOT/avail";

+$BADSENDER_FILE = "$CVSROOT/CVSROOT/blocksender"; 

################
 ### logcheck ###
@@ -208,6 +210,10 @@
 'other' => '.*'
 );

+@MAIL_MAP = (
+ 'nobody' => '.*'
+);
+
 # Include diffs of not greater than this size in kbytes in the
 # commit mail for each file modified. (0 = off).
 $MAX_DIFF_SIZE = 0;
@@ -270,6 +276,64 @@
 return @output;
 };

+
+############################################################
+#
+# Subroutines
+#
+############################################################
+
+# !!! Mailing-list and commitlog history file mappings here !!!
+# This needs pulling out as a configuration block somewhere so
+# that others can easily change it.
+
+sub get_log_name {
+ my $dir = shift; # Directory name
+
+
+ for my $i (0 .. ($#cfg::LOG_FILE_MAP - 1) / 2) {
+ my $log = $cfg::LOG_FILE_MAP[$i * 2];
+ my $pattern = $cfg::LOG_FILE_MAP[$i * 2 + 1];
+
+ return $log if $dir =~ /$pattern/;
+ }
+
+ return 'other';
+}
+
+sub get_mail_name {
+ my $dir = shift; # Directory name
+ my $CVSROOT = $ENV{'CVSROOT'};
+ $dir =~ s,^$CVSROOT[/]?,,g;
+ $dir .= "/" unless $dir =~ /\/$/;
+ 
+ for my $i (0 .. ($#cfg::MAIL_MAP - 1) / 2) {
+ my $email = $cfg::MAIL_MAP[$i * 2];
+ my $pattern = $cfg::MAIL_MAP[$i * 2 + 1];
+ return $email if $dir =~ /$pattern/;
+ }
+
+ return $cfg::MAILADDRS;
+}
+
+
+# do not send email, if committer is in badsender file...
+sub sendmail_acl_check {
+ my $sendmail = 1;
+ if (-e $cfg::BADSENDER_FILE)
+ {
+ open (BADSENDER, $cfg::BADSENDER_FILE) || die "open $cfg::BADSENDER_FILE: $!\n";
+ while (<BADSENDER>) {
+ if ($_ =~ /\b$cfg::COMMITTER\b/i)
+ {
+ $sendmail = 0;
+ last;
+ }
+ }
+ }
+ 
+ return $sendmail;
+}

######################################################################
 # Load the local configuration file, that allows the entries in this

hash$ diff -u -r1.1 cfg_local.pm
--- cfg_local.pm 14 Aug 2003 10:00:53 -0000 1.1
+++ cfg_local.pm 15 Aug 2003 03:09:39 -0000 1.3
@@ -13,7 +13,7 @@
 ####################################################################
 ####################################################################

-$CHECK_HEADERS = 1;
+$CHECK_HEADERS = 0; 
 $IDHEADER = 'FreeBSD';
 $UNEXPAND_RCSID = 1;

@@ -29,25 +29,30 @@
 $MAILCMD = "/usr/local/bin/mailsend -H";
 $MAIL_BRANCH_HDR = "X-FreeBSD-CVS-Branch";
 $ADD_TO_LINE = 0;
-$MAILBANNER = "FreeBSD src repository";
+$MAILBANNER = "My repository"; 
 if (defined $ENV{'CVS_COMMIT_ATTRIB'}) {
 my $attrib = $ENV{'CVS_COMMIT_ATTRIB'};
 $MAILBANNER .= " ($attrib committer)";
 }
+# The minimum version of cvs that we will work with.
+$MINCVSVERSION = "1110200"; # 1.11.2 
+
+$MAIL_ON_DIR_CREATION = 0; 

# Sanity check to make sure we've been run through the wrapper and are
 # now primary group 'ncvs'.
 #
-$COMMITCHECK_EXTRA = sub {
- my $GRP=`/usr/bin/id -gn`;
- chomp $GRP;
- unless ( $GRP =~ /^ncvs$/ ) {
- print "You do not have group ncvs (commitcheck)!\n";
- exit 1; # We could return false here. But there's
- # nothing to stop us taking action here instead.
- }
- return 1;
-};
+
+#$COMMITCHECK_EXTRA = sub { 
+# my $GRP=`/usr/bin/id -gn`;
+# chomp $GRP;
+# unless ( $GRP =~ /^ncvs$/ ) {
+# print "You do not have group ncvs (commitcheck)!\n";
+# exit 1; # We could return false here. But there's
+# # nothing to stop us taking action here instead.
+# }
+# return 1;
+#};

# Wrap this in a hostname check to prevent mail to the FreeBSD
 # list if someone borrows this file and forgets to change it.
@@ -91,6 +96,22 @@
@LOG_FILE_MAP = ( 
 'CVSROOT' => '^CVSROOT/',
 'distrib' => '^distrib/',
 'doc' => '^doc/',
 'ports' => '^ports/',
 'www' => '^www/',

'other' => '.*'
 );
+# CVSROOT is still shared between src, ports, doc at the moment. projects has
+# its own CVSROOT.
+@MAIL_MAP = ( 
+ 'maillist1' => '^CVSROOT/',
+ 'maillist2' => '^src/',
+ 'cvsnone' => '.*',
+); 
+
+@TAG_MAP = ( 
+ 'jiangxin' => '^(release|mailstome).*',
+); 
+
+# Email addresses of recipients of commit mail.
+$MAILADDRS = 'cvsnone'; 
+
+

1; # Perl requires all modules to return true. Don't delete!!!!
 #end

CVS 服务器配置文件：CVSROOT/config

#SystemAuth=no 
#LockDir=/var/lock/cvs 
#TopLevelAdmin=no
LogHistory=TOFEWGCMAR 
RereadLogAfterVerify=always 

文件 CVSROOT/cvsignore

设置版本控制过程中，需要忽略的文件。这些文件将不被显示为未知状态（"?"）。如：

*.db
*.info
*.[Sp]o
*.core
*.aps
*.clw
*.exe
*.ncb
*.obj
*.opt
*.plg
Debug
Release

文件 CVSROOT/cvswrappers

匹配文件名，并作相应处理。如： -kb 即以二进制方式处理文件。

*.gif -k 'b'
*.GIF -k 'b'
*.jpg -k 'b'
...

文件 CVSROOT/modules

设置数据仓库中的模块名，可以通过命令：“cvs co -c”察看当前数据仓库（repository）中包含的模块/工程名称。也可以在调整服务器端目录结构时，设置 modules 来保持和以前设置的兼容性。

CVSROOT CVSROOT
module1 module2 &module3

文件 CVSROOT/checkoutlist

列在 checkoutlist 中的文件，在 checkin 后，能够自动在服务器 CVSROOT 目录中重建。

#access 
avail
cfg.pm
cfg_local.pm
commit_prep.pl
commitcheck
cvs_acls.pl
exclude
log_accum.pl
logcheck
options
rcstemplate
tagcheck
unwrap
wrap

文件 CVSROOT/notify

当用户设置了 watch 一个文件，可以定制该文件进行控制。在此该文件未被用到。

文件 CVSROOT/commitinfo

Commit 事件要触发三个脚本文件，依次是 commitinfo, verifymsg, loginfo。其中先遍历整个目录树对所有需要 commit 的文件执行 commitinfo文件。再分别针对每一个目录执行 verifymsg, loginfo 脚本。

commitinfo 会调用 commitcheck 脚本，完成的功能：通过用户主机名、用户名来检查权限；确认CVS服务器的版本号不低于某个版本；将遍历目录树的结果（最后一个目录名）记录下来，以便接 下来运行 verifymsg, loginfo的脚本能够确认运行结束等。

相关文件：CVSROOT/commitcheck，CVSROOT/cvs_acls.pl，CVSROOT/avail，CVSROOT/commit_prep.pl，CVSROOT/exclude，CVSROOT/cfg.pm，CVSROOT/cfg_local.pm。

文件 CVSROOT/avail，被脚本 cvs_acls.pl 读取，再被脚本 commitcheck 调用，用以精细控制权限。例如：

group|meisters|peter,jdp,markm,joe
# Pick up the list of bad users from ncvs/CVSROOT/badcommitters See that
# file for details
group|penaltybox|!badcommitters

unavail
avail||CVSROOT
avail||distrib
avail||doc
avail||ports
avail||src
unavail||src/contrib/binutils,src/contrib/file
avail|obrien|src/contrib/binutils,src/contrib/file
unavail||src/contrib/tcpdump
avail|fenner,nectar|src/contrib/tcpdump
avail||www
avail|:meisters
unavail|:penaltybox

文件 CVSROOT/verifymsg

用于检查和格式化 commit log。禁止在版本控制提交时，使用空的 commit log。对于 wincvs 在用户不提交 commit log 时，会自动使用“no message”作为commit log。为了禁止该情况发生，需要定制该脚本：

相关文件：CVSROOT/logcheck。

bash$ diff -u -r1.1 logcheck
--- logcheck 14 Aug 2003 10:00:53 -0000 1.1
+++ logcheck 15 Aug 2003 02:01:37 -0000 1.2
@@ -47,8 +47,10 @@

# Remove leading and trailing blank lines. (There will be at most
 # one because of the duplicate removal above).
+local $^W = 0; 
 shift @log_in if $log_in[0] eq "";
 pop @log_in if $log_in[-1] eq "";
+local $^W = 1;

# Scan through the commit message looking for templated headers
 # as defined in the configuration file, and rcstemplate.
@@ -104,6 +106,9 @@
 # completely empty. This is a bug in cvs.
 my $log = "@log_in";
 die "Log message contains no content!\n" if $log =~ /^\s*$/;
+
+# commit without commit log using WINCVS , will automatically provide commit log as "no message".
+die "Log message contains no content using WINCVS!\n" if $log =~ /^no message$/ or $log =~ /^\.+$/; 

文件 CVSROOT/loginfo

将 commit log 分门别类存储在目录 CVSROOT/commitlogs 下，并同时通过邮件外发。为了防止一次事件触发多次的邮件外发，该脚本利用到 commitinfo 的运行结果，只有确认到了目录树的最后，才发送邮件。 模块和存储日志文件以及用户邮件列表在文件CVSROOT/cfg_local.pm中定义。

相关文件：CVSROOT/log_accum.pl，CVSROOT/cfg.pm ，CVSROOT/cfg_local.pm。

文件 CVSROOT/loginfo，调用脚本 log_accum.pl，并传递文件名等参数，用于组织日志和发送邮件。

原 FreeBSD 脚本存在一个 BUG，如果文件名或者目录名中存在空格，脚本运行不正常，出错，导致不能组织和发送邮件，这个 Bug 修正方法如下：

在文件 CVSROOT/loginfo中调用 log_accum.pl 时使用的参数由原来的 %s 修改为 %{,,,s}，即加入三个连续的逗号作为分隔符，否则使用空格作为分隔符，难以区分是文件的分隔符还是路径或文件名中的空格。

bash$ tail -1 loginfo
DEFAULT $CVSROOT/CVSROOT/log_accum.pl %{,,,s}

对文件 CVSROOT/log_accum.pl 的修正如下：

bash$ diff -u -r1.1 log_accum.pl

--- log_accum.pl 14 Aug 2003 10:00:53 -0000 1.1
+++ log_accum.pl 15 Aug 2003 02:00:35 -0000 1.2
@@ -47,6 +47,7 @@
 my $LOG_FILE = "$BASE_FN.log";
 my $SUMMARY_FILE = "$BASE_FN.summary";
 my $LOGNAMES_FILE = "$BASE_FN.lognames";
+my $MAILNAMES_FILE = "$BASE_FN.mailnames"; 
 my $SUBJ_FILE = "$BASE_FN.subj";
 my $TAGS_FILE = "$BASE_FN.tags";
 my $DIFF_FILE = "$BASE_FN.diff";
@@ -233,7 +234,8 @@
 while (<RCS>) {
 if (/^[ \t]*Repository revision/) {
 chomp;
- my @revline = split;
+ my @revline = split(/[ \t]+/, $_, 5); 
+ shift @revline while($revline[0] eq "");
 $revision = $revline[2];
 $revline[3] =~ m|^$CVSROOT/+(.*),v$|;
 $rcsfile = $1;
@@ -383,20 +385,6 @@
 # !!! Mailing-list and commitlog history file mappings here !!!
 # This needs pulling out as a configuration block somewhere so
 # that others can easily change it.
-sub get_log_name { 
- my $dir = shift; # Directory name
-
-
- for my $i (0 .. ($#cfg::LOG_FILE_MAP - 1) / 2) {
- my $log = $cfg::LOG_FILE_MAP[$i * 2];
- my $pattern = $cfg::LOG_FILE_MAP[$i * 2 + 1];
-
- return $log if $dir =~ /$pattern/;
- }
-
- return 'other';
-}
-

sub do_changes_file {
 my @text = @_;
@@ -408,11 +396,17 @@
 $unique{$category} = 1;

my $changes = "$CVSROOT/CVSROOT/commitlogs/$category";
- open CHANGES, ">>$changes"
- or die "Cannot open $changes.\n";
- print CHANGES map { "$_\n" } @text;
- print CHANGES "\n\n\n";
- close CHANGES;
+ if (open CHANGES, ">>$changes")
+ {
+ print CHANGES map { "$_\n" } @text;
+ print CHANGES "\n\n\n";
+ close CHANGES;
+ }
+ else 
+ {
+ print "Cannot open $changes.\n";
+ }
+
 }
 }

@@ -420,22 +414,29 @@
 sub mail_notification {
 my @text = @_;

-# This is turned off since the To: lines go overboard.
-# Also it has bit-rotted since, and can't just be switched on again.
-# - but keep it for the time being in case we do something like cvs-stable
-# my @mailaddrs = &read_logfile($LOGNAMES_FILE);
-# print(MAIL 'To: cvs-committers' . $dom . ", cvs-all" . $dom);
-# foreach $line (@mailaddrs) {
-# next if ($unique{$line});
-# $unique{$line} = 1;
-# next if /^cvs-/;
-# print(MAIL ", " . $line . $dom);
-# }
-# print(MAIL "\n");
+ if (! &cfg::sendmail_acl_check()) 
+ {
+ print "mail sent from $cfg::COMMITTER is blocked.\n";
+ return 0; 
+ }
+
+ my %unique = ();
+ my @mailaddrs = &read_logfile($MAILNAMES_FILE);
+ # ok, this is kinda hokey, but I need to break up lines with multiple addresses
+ my $fu = join(" ", @mailaddrs);
+ @mailaddrs = split " ", $fu;
+
+ my $to = "";
+ foreach my $category (@mailaddrs) {
+ next if ($unique{$category});
+ $unique{$category} = 1;
+
+ $to .= " " unless $to eq "";
+ $to .= $category;
+ }

my @email = ();

- my $to = $cfg::MAILADDRS;
 print "Mailing the commit message to '$to'.\n";

push @email, "To: $to" if $cfg::ADD_TO_LINE;
@@ -497,10 +498,14 @@
 }

# Send the email.
- open MAIL, "| $cfg::MAILCMD $to"
- or die "Please check $cfg::MAILCMD.";
- print MAIL map { "$_\n" } @email;
- close MAIL;
+ if(fork() == 0)
+ {
+ open MAIL, "| $cfg::MAILCMD -F $cfg::COMMITTER $to" 
+ or die "Please check $cfg::MAILCMD.";
+ print MAIL map { "$_\n" } @email;
+ close MAIL;
+ }
+ exit(0);
 }

@@ -634,8 +639,9 @@
 #
 # Initialize basic variables
 #
+my $separator=",,,"; 
 my $input_params = $ARGV[0];
-my ($directory, @filenames) = split " ", $input_params;
+my ($directory, @filenames) = split / ${separator}/, $input_params; 
 #@files = split(' ', $input_params);

my @path = split('/', $directory);
@@ -660,8 +666,9 @@
 }

# Was used for To: lines, still used for commitlogs naming.
-&append_line($LOGNAMES_FILE, &get_log_name("$directory/"));
-&append_line($SUBJ_FILE, "$directory " . join(" ", sort @filenames));
+&append_line($LOGNAMES_FILE, &cfg::get_log_name("$directory/")); 
+&append_line($MAILNAMES_FILE, &cfg::get_mail_name("$directory/")); 
+&append_line($SUBJ_FILE, "$directory/(" . join(",", sort @filenames) .") "); 

#
 # Check for a new directory first. This will always appear as a
@@ -697,7 +704,7 @@

&do_changes_file(@text);
 &mail_notification(@text);
- system("/usr/local/bin/awake", $directory);
+ # system("/usr/local/bin/awake", $directory);
 &cleanup_tmpfiles();
 exit 0;
 }
@@ -742,7 +749,28 @@
 }

# otherwise collect information about which files changed.
- my @files = split;
+ my @tmpfiles = split;
+ my $strname = "";
+ my @files;
+ while (my $item = shift(@tmpfiles))
+ {
+ if ($strname eq "") 
+ {
+ $strname = $item;
+ } 
+ else 
+ {
+ $strname .= " $item";
+ } 
+ for (my $i=0; $i<=$#filenames; $i++)
+ {
+ if ($strname eq $filenames[$i])
+ {
+ push (@files, $strname);
+ $strname = "";
+ }
+ }
+ }
 push @{ $changed_files{$tag} }, @files if $state == $STATE_CHANGED;
 push @{ $added_files{$tag} }, @files if $state == $STATE_ADDED;
 push @{ $removed_files{$tag} }, @files if $state == $STATE_REMOVED;
@@ -896,7 +924,7 @@
 &mail_notification(@log_msg);
 }

-system("/usr/local/bin/awake", $directory);
+# system("/usr/local/bin/awake", $directory);
 &cleanup_tmpfiles();
 exit 0;
 # EOF

文件 CVSROOT/taginfo

在执行 tag/rtag 命令前执行该脚本，如果脚本返回非零值，tag/rtag 动作取消。 相关脚本：CVSROOT/tagcheck。负责对添加/删除 TAG 事件进行控制——允许/禁止/发送邮件。

由于 tag/rtag 事件不象 commit 事件，不是通过多个脚本的配合完成，而是只通过一个脚本 taginfo 完成。这就出现一个问题：如果为一个目录树打上TAG，则可能多次执行脚本，可能要多次触发邮件发送。我的解决办法是，根据TAG进程的 PID 确定在整个过程唯一的文件名，将日志记录到该文件中，taginfo 脚本本身无法知道是否结束，而是系统通过 crontab 定期执行脚本 CVSROOT/checkmailspool.sh来检查是否有完成的 tag 邮件需要外发。

#!/usr/bin/perl -w
#
# Author: Jiang Xin
# Reference: http://www.worldhello.net/
#

use strict;
use lib $ENV{CVSROOT};
use CVSROOT::cfg;

#############################################################
#
# Main Body
#
# TAG add/mov/del repo files...
# $1 $2 $3 $4 ...
#
############################################################

my $tag = shift;
my $action = shift;
my $repos = shift;
my $fileitem = "";
my $filerev= "";
my $filelist = "";

my $uid = $cfg::COMMITTER;
my $userlist = "";
my $pattern = "";
my $permission = 1;
my $to = "";

my $tmpstr = &cfg::get_mail_name($repos);
$tmpstr =~ s/\@/\./g ;
$tmpstr="nobody" unless $tmpstr;
my $MAILFILE = "/var/spool/cvsmail/cvs.tag.$tmpstr.$cfg::PID"; 

die "Usage: tagcheck tag action repos files...\n" unless $repos;

for my $i (0 .. ($#cfg::TAG_MAP - 1) / 2) { 
 $userlist = $cfg::TAG_MAP[$i * 2];
 $pattern = $cfg::TAG_MAP[$i * 2 + 1];

if ($tag =~ /$pattern/i)
 {
 if ($userlist =~ /\b$uid\b/i)
 {
 $permission=1;
 last;
 }
 else
 {
 $permission=0;
 last;
 }
 }
}

if ($permission == 0)
{
 # normal users can not do this.
 print STDERR "User \"$cfg::COMMITTER\" canot perform this operation!\n";
 print STDERR "Only users: $userlist, can handle tag patterm: \"$pattern\"!\n";
}

while ($fileitem = shift)
{
 $filerev = shift;
 $filelist = sprintf("%s\t%-24s:\t%s\n", $filelist, $fileitem, $filerev);
}

print "save message in spool `dirname $MAILFILE`...\n";

my @email = ();

if (! -e $MAILFILE )
{
 $to = &cfg::get_mail_name($repos); 
 push @email, "From: $uid<$uid>";
 push @email, "To: $to";
 $tmpstr = sprintf("Date: %s", `date -R`);
 chomp $tmpstr;
 push @email, $tmpstr;

if ($permission == 0)
 {
 push @email, "Subject: cvs tag FAILED! ($action $tag on $repos)";
 }
 else
 {
 push @email, "Subject: cvs tag success: $action $tag on $repos";
 }

push @email, "";

delete $ENV{'TZ'};
 $tmpstr = sprintf("%-11s: %-8s", "Author", $cfg::COMMITTER);
 push @email, $tmpstr;
 $tmpstr = sprintf("%-11s: %-8s", "Date", `/bin/date +"%Y/%m/%d %H:%M:%S %Z"`);
 chomp $tmpstr;
 push @email, $tmpstr;
 $tmpstr = sprintf("%-11s: %-8s", "Tag", $tag);
 push @email, $tmpstr;
 $tmpstr = sprintf("%-11s: %-8s", "Operation", $action);
 push @email, $tmpstr;

push @email, "";
 push @email, " $cfg::MAILBANNER", "" if $cfg::MAILBANNER;
}

if ($permission == 0)
{
 push @email, "Permission denied: $action $tag on $repos !";
 push @email, "--------------------------------------------------";
}
else
{
 $tmpstr = sprintf("%-11s: %-8s", "Repository", $repos);
 push @email, $tmpstr;
 push @email, $filelist if $filelist;
}

#save mail to spool
open MAIL, ">> $MAILFILE "
 or die "Cannot open file $MAILFILE for append.";
print MAIL map { "$_\n" } @email;
close MAIL;

if ($permission == 0)
{
 exit 1
}
else
{
 exit 0
}

文件 CVSROOT/checkmailspool.sh，加入到 crontab 中定期执行，检查 tagcheck 生成的邮件。

#!/bin/sh
# checkmailspool.sh
# Auther: Jiang Xin
#
# $CVSMAILPATH (cvs mail spool) is a spool directory created by user, 
# and cvs tag message will store in it.
# run this script timely to check cvsmail spool and send messages...
# please put this script in crontab. 

CVSMAILPATH=/var/spool/cvsmail
if [ ! -d $CVSMAILPATH ]; then
 mkdir -p $CVSMAILPATH
 chmod 777 $CVSMAILPATH
fi

cd $CVSMAILPATH
for i in `ls `; do
 pid=`echo $i| sed -e "s/.*\.\([0-9]*\)$/\1/"`

xxx=0

while ps -p $pid>/dev/null; do
 xxx=`expr $xxx + 1`
 if [ $xxx -gt 10 ]; then
 break
 fi
 sleep 3
 echo waiting $pid, $xxx times ...
 done
 echo -e "\n\n========================================" >> $i
 echo -e "End\n" >> $i
 cat $i | sendmail -oi -oem -odb -t
 rm -f $i
done

清除CVSROOT产生的临时文件

以上 CVSROOT 脚步在执行过程中将会在临时目录中产生很多临时文件，如果不加以清理，不但会浪费磁盘空间，更有可能导致发送张冠李戴的错误邮件。在 crontab 中配置每隔一个小时执行一遍以下脚本：

#/bin/sh

cd /tmp
ls \#cvs.files.* | sed -e 's/\#cvs.files.\([0-9]*\)\..*$/\1/g' | sort -u | \
while read xxx; do if ps --pid $xxx>/dev/null 2>&1; then continue; fi ; \
 rm -f /tmp/\#cvs.files.$xxx.* ; done