[linux系列]为cvs建立用户脚本

 

#!/usr/bin/perl

# Simple script to take a username and password and
# return a line suitable for pasting into the CVS
# password file
#
($u,$p,$g)=@ARGV;
@d=(A..Z,a..z);
$s=$d[rand(52)].$d[rand52];
print $u.":".crypt($p,$s).":".$g."\n";

./add_user username password cvsroot >> /home/cvs_root/cvs_docs/CVSROOT/passwd
cvsroot    cvs的用户名