#!/bin/sh
if [ -e "$HOME/public_cvs" ]; then
	echo "$HOME/public_cvs already exists"
	exit 1
fi
rm -rf $HOME/public_cvs
mkdir -p $HOME/public_cvs/CVSROOT
cvs -d $HOME/public_cvs init
echo "anon:" > $HOME/public_cvs/CVSROOT/passwd
echo -n "$USER:" >> $HOME/public_cvs/CVSROOT/passwd
echo -n "Password for CVS: "
%%PREFIX%%/bin/perl -MTerm::ReadKey -le 'Term::ReadKey::ReadMode("noecho");my $password = Term::ReadKey::ReadLine(0);Term::ReadKey::ReadMode("restore");$password =~ s/\R\z//;print $password;' | pwhash >> $HOME/public_cvs/CVSROOT/passwd
echo
echo "anon" > $HOME/public_cvs/CVSROOT/readers
echo "$USER" > $HOME/public_cvs/CVSROOT/writers
doas %%PREFIX%%/bin/modify-cvsroot-permission
echo "Set CVSROOT to $HOME/public_cvs"