kill -9 `ps aux|grep commitlog|awk ‘{print $2}’`

______________________________________

建立帐号

#groupadd cvs

#useradd  cvsroot -g cvs

______________________________________

检查是否存在cvs端口服务，防火墙需要打开2401的权限。

#more /etc/services | grep cvspserver

看看是否有:

cvspserver  2401/tcp #CVS client/server operations

cvspserver  2401/udp #CVS client/server operations

______________________________________

#vi /etc/xinetd.d/cvspserver

service cvspserver

{

disable = no

flags           = REUSE

socket_type     = stream

wait            = no

user            = root

server          = /usr/bin/cvs

server_args     = -f –allow-root=/fse/CVS_REP/cvs_docs   –allow-root=/fse/CVS_REP/cvs_classes pserver

log_on_failure  += USERID

}

______________________________________

初始化CVS

#su cvsroot

#cvs -d /fse/CVS_REP/cvs_docs init

#cvs -d /fse/CVS_REP/cvs_classes init

______________________________________

重启服务

#/etc/init.d/xinetd restart

如果没有 xinetd 可以执行

#yum install xinetd

______________________________________

检查CVS服务

#netstat -l | grep cvspserver

此处需打开防火墙的 2401 端口    (如果没有开启防火墙，不用做这一步)

vi  /etc/sysconfig/iptables

在后面加

-A RH-Firewall-1-INPUT -m state –state NEW -m tcp -p tcp –dport 2401 -j ACCEPT

可在windows cmd: telnet 192.168.1.199 2401 检查是否打开

______________________________________

导入程序

-先进入到网站的根目录下 cd /ROOT/www/docs

cvsroot$ cvs -d /fse/CVS_REP/cvs_docs import -m “new www” docs vendor_tag release_tag

______________________________________

分配cvs帐号的脚本 adduse

vi /ROOT/CVS_REP/adduser.sh
给予执行权限
chmod +x

/ROOT/CVS_REP/adduser.sh

以下是文件内容 (”exp,“后面是执行范例，需要在 /ROOT/CVS_REP/文件夹下执行)

#!/usr/bin/perl

# Simple script to take a username and password and

# return a line suitable for pasting into the CVS

# password file

// 添加用户

# exp: ./adduser.sh wangcy 123456 cvsroot >> cvs_other/CVSROOT/passwd

($u,$p,$g)=@ARGV;

@d=(A..Z,a..z);

$s=$d[rand(52)].$d[rand52];

print $u.”:”.crypt($p,$s).”:”.$g.”\n”;

______________________________________

提交cvs的同时发布新的代码到docs目录中

#vi cvs_other/CVSROOT/loginfo 最后一行增加

docs /fse/CVS_REP/cvs_docs/CVSROOT/log.in %s -f /fse/CVS_REP/cvs_docs/CVSROOT/commitlog  -a /fse/docs

log.in文件内容及说明详见
http://www.wangchao123.com/2011/12/05/747

http://www.cnblogs.com/oxo/articles/472518.html

文件下载

/home/cvsroot/test/CVSROOT/loginfo 文件用于控制仓库中版本变更和目录添加之后，log 信息发送到哪里的控制。 loginfo相当于是一个事件驱动器，只要提交了新的版本到cvs中就会触发里面的程序。 loginfo 文件有一个标准的脚本 hook 形式(参阅 Trigger Scripts)，每一行是一个正则表达式和所执行的命令。它支持 ALL 和 DEFAULT 关键字。 调用任何指定的脚本: commit 每个目录一次，在此目录中的所有文件成功提交之后立即执行。 import 每个 import 一次，完成所有写操作之后立即执行。 add 成功 add 到目录之后立即执行。 通过 loginfo 调用的任何脚本会从标准输入获得 log 信息。注意过滤程序 必须 从标准输入读 所有 的 log 信息，否则 cvs 将因管道信号打断而失败。 除了通用格式化字符串以外(参阅 syntax)，loginfo 还支持: {stVv} 文件属性，其中: s    文件名 T    目标的标签名，或者在没有相关标签的时候为空字串(通常是主干) V    旧版本号(提交前) v    新版本号(提交后) 例如，有效的格式化字符串是 `%%’, `%s’, `%{s}’ 和 `%{stVv}’。 我们了解了loginfo的功能以后就知道我要做什么，我们将提交到cvs里面的版本能不能直接发行，这样岂不是很方便。下面这个程序就解决了这样的问题。原来程序只是作为版本修改通知，现在我改进以后同时支持发布了。 #! /usr/bin/perl # -*-Perl-*- # # Usage: log.pl [-u user] [[-m mailto] ] [-s] [-V] -a ‘execution dir’ -f logfile ’dirname file ’ # # -u user - $USER passed from loginfo # -m mailto - for each user to receive cvs log reports #                       (multiple -m‘s permitted) # -s - to prevent “cvs status -v“ messages # -V - without ‘-s’, don’t pass ’-v’ to cvs status # -a dirname - to specify actual execution directory # -f logfile - for the logfile to append to (mandatory, #                       but only one logfile can be specified). use strict; use IO::File; my $cvsroot = $ENV{‘CVSROOT’}; # turn off setgid # $) = $(; my $dostatus = 1; my $verbosestatus = 1; my $users; my $login; my $donefiles; my $logfile; my $activedir; my @files; # parse command line arguments # while (@ARGV) { my $arg = shift @ARGV; if ($arg eq ‘-m’) { $users = “$users “ . shift @ARGV; } elsif ($arg eq ‘-u’) { $login = shift @ARGV; } elsif ($arg eq ‘-f’) { ($logfile) && die “Too many ’-f’ args“; $logfile = shift @ARGV; } elsif ($arg eq ‘-a’) { $activedir = shift @ARGV; } elsif ($arg eq ‘-s’) { $dostatus = 0; } elsif ($arg eq ‘-V’) { $verbosestatus = 0; } else { ($donefiles) && die “Too many arguments!\n“; $donefiles = 1; @files = split(/ /, $arg); } } # the first argument is the module location relative to $CVSROOT # my $modulepath = shift @files; my $mailcmd = “| Mail -s ’CVS update: $modulepath’“; # Initialise some date and time arrays # my @mos = (‘January’,'February’,'March’,'April’,'May’,'June’,'July’, ‘August’,'September’,'October’,'November’,'December’); my @days = (‘Sunday’,'Monday’,'Tuesday’,'Wednesday’,'Thursday’,'Friday’,'Saturday’); my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime; $year += 1900; # get a login name for the guy doing the commit. # if ($login eq ‘‘) { $login = getlogin || (getpwuid($<))[0] || “nobody“; } # open log file for appending # my $logfh = new IO::File “>>“ . $logfile or die “Could not open(“ . $logfile . “): $!\n“; # send mail, if there‘s anyone to send to! # my $mailfh; if ($users) { $mailcmd = “$mailcmd $users“; $mailfh = new IO::File $mailcmd or die “Could not Exec($mailcmd): $!\n“; } # print out the log Header # $logfh->print (“\n“); $logfh->print (“****************************************\n“); $logfh->print (“Date:\t$days[$wday] $mos[$mon] $mday, $year @ $hour:“ . sprintf(“%02d“, $min) . “\n“); $logfh->print (“Author:\t$login\n\n“); if ($mailfh) { $mailfh->print (“\n“); $mailfh->print (“Date:\t$days[$wday] $mos[$mon] $mday, $year @ $hour:“ . sprintf(“%02d“, $min) . “\n“); $mailfh->print (“Author:\t$login\n\n“); } # print the stuff from logmsg that comes in on stdin to the logfile # my $infh = new IO::File “< -“; my $cno = 0; my $cdir; foreach ($infh->getlines) { $logfh->print; #print(“cc-> $_“); if($cno == 1){ my $ff = $_; my @nw = split (/:/, $ff) ; $cdir = @nw[1]; } if ($mailfh) { $mailfh->print (“$_“); } $cno++; } undef $infh; $logfh->print (“\n“); #print(“cdir=$cdir“); my $adir = substr $cdir, 0, length($cdir) - 1; #my $asubdir = substr $cdir, 18 ; my $asubdir = substr ($cdir, index($cdir,“/“,5) + 1) ; chomp $asubdir; my $ain = index($modulepath,“/“); my $mopath_sub = substr ($modulepath, $ain+1); # after log information, do an ‘cvs -Qq status -v’ on each file in the arguments. # if ($dostatus != 0) { while (@files) { my $file = shift @files; if ($file eq “-“) { $logfh->print (“[input file was '-']\n“); if ($mailfh) { $mailfh->print (“[input file was '-']\n“); } exec “mkdir -m 755 $activedir/$mopath_sub“; #die “file transfer for latest version failed: $!“; last; } my $rcsfh = new IO::File; my $pid = $rcsfh->open (“-|“); if ( !defined $pid ) { die “fork failed: $!“; } if ($pid == 0) { my @command = (‘cvs’, ’-nQq’, ’status’); if ($verbosestatus) { push @command, ‘-v’; } push @command, $file; exec @command; die “cvs exec failed: $!“; } my $line; while ($line = $rcsfh->getline) { $logfh->print ($line); if ($mailfh) { $mailfh->print ($line); } } #print(“cp $adir/$file $activedir/$mopath_sub,$asubdir \n“); print (“\n  Active Dir : $activedir/$asubdir  \n“); if(index($asubdir,“src/“)==0){ my $tmp_2=substr $asubdir,4; $asubdir = “WebRoot/WEB-INF/classes/$tmp_2“; if(-d “$activedir/$asubdir“){ print(“Dir exists:$activedir/$asubdir \n“); }else{ exec “mkdir -p $activedir/$asubdir“; } } print(“cp $adir/$file $activedir/$asubdir \n“); if(index($asubdir,“/tmp/cvs-“)==0){ exec “cp $adir/$file $activedir“; }else{ exec “cp $adir/$file $activedir/$asubdir“; } #die “file transfer for latest version failed: $!“; undef $rcsfh; } } $logfh->close() or die “Write to $logfile failed: $!“; if ($mailfh) { $mailfh->close; die “Pipe to $mailcmd failed“ if $?; } ## must exit cleanly ## exit 0;

P [path]  像“U”一样，只是在update时你的网络带宽少的情况下CVS服务器所出现的提示。

M [path] 这意味着您已经修改过该文件了；而且，有可能资源库中新的更改已成功地合并到该文件。

C [path] 错误警报，”C” 字符表明该文件存在冲突，需要在使用 “commit” 提交前解决这冲突。

A [path] 该文件是计划要添加的，即添加了但尚未提交，这时你还使用update命令，CVS就会有这个提示，当你 “commit” 时，它被正式添加到服务器库中，问题解决。

R [path] 象 “A” 一样，”R” 让您知道该文件计划要删除的，即删除了但尚未提交，这时你还使用update命令， CVS就会有这个提示，当你 ” commit” 后，该文件就会从服务器库中删除，问题解决。