Download the appropriate binary from
http://www.nongnu.org/cvs
# create a "cvs" user. This user will be used to impersonate cvs' users
$ mkdir /export/home/cvsroot# create the CVS repository
$ useradd -d /home/cvs -c "CVS Owner" cvs
$ cvs -d /path_to_repository#Add the following to /etc/services
cvspserver 2401/tcp # CVS Client/server operations#Place this following line in a file called "cvs_inetd"
cvspserver 2401/udp # CVS Client/server operations
cvspserver stream tcp nowait root /path_to_cvs_executable -f \# import the service into smf
--allow-root=/path_to_cvs_repository pserver
$ inetconv -f -i ./cvs_inetd#Add the following lines to /var/svc/profile/inetd_services.xml
cvspserver -> /var/svc/manifest/network/cvspserver-tcp.xml
Importing cvspserver-tcp.xml …Done
<service name='network/cvspserver-tcp' version='1' type='service'>#Restart the network
<instance name='default' enabled='true'/>
</service>
$ svcadm restart svc:/network/inetd:defaultYou're done. Your pserver should be listening on port 2401
#Script to create cvs users
#!/usr/bin/perl
$cvsroot="/path_to_cvs_root";
$user = shift @ARGV || die "cvspasswd user\n";
print "Enter password for $user: ";
system "stty -echo";
chomp ($plain = <>);
system "stty echo";
print "\n";
@chars = ('A'..'Z', 'a'..'z', '0'..'9');
$salt = $chars[rand(@chars)] . $chars[rand(@chars)];
$passwd = crypt($plain, $salt);
open(PASSWD,">>$cvsroot/CVSROOT/passwd") || die("Cannot Open File");
print PASSWD "$user:$passwd:cvs\n";
close PASSWD;
#-End
$ perl createcvspasswd.pl your_cvs_user
0 komentar:
Posting Komentar