1. Verify CVS Installation
# Rpm-Q CVS
2. Create a CVS user group and user
# Groupadd CVS
# Adduser cvsroot
# Passwd cvsroot
3. Create cvsroot
# Mkdir/home/cvsroot
# Chown cvsroot. CVS/home/cvsroot
4. initialize CVS
# Su-cvsroot
# CVS-D/home/cvsroot init
5. Add Environment Variables
# Vi/etc/profile
Add two sentences at the end:
Cvsroot =/home/cvsroot
Export cvsroot
#/Etc/profile
6. Start the CVS server
# Vi/etc/xinetd. d/cvspserver
Service cvspserver
{
Socket_type = stream
Wait = No
User = root
Server =/usr/bin/CVS
Server_args =-f -- allow-root =/home/cvsroot pserver
Log_on_failure + = userid
Only_from = 192.168.0.0/24
}
# Chmod 664 cvspserver
#/Etc/rc. d/init. d/xinetd restart
# Netstat-LNP | grep 2401
# Netstat-L | grep cvspserver
7. Create 3 files
# Vi/home/cvsroot/passwd
Test: test_passwd: cvsroot
# Touch/home/cvsroot/readers
# Vi/home/cvsroot/writers
Test
8. pl
# Vi/home/cvsroot/passwdgen. pl
#! /Usr/bin/perl
Srand (Time ());
My $ randletter = "(INT (RAND (26) + (INT (RAND (1) +. 5) % 2? 65: 97 ))";
My $ salt = sprintf ("% C", Eval $ randletter, Eval $ randletter );
My $ plaintext = shift;
My $ crypttext = crypt ($ plaintext, $ salt );
Print "$ {crypttext} \ n ";
# Chmod 111 passwdgen. pl
#./Passwdgen. pl "test_passwd"