xref: /src/distrib/sets/metalog.subr

# $NetBSD: metalog.subr,v 1.1 2011/02/16 05:18:35 uebayasi Exp $

#
# xrcs add
# xrcs update
# xrcs remove
#
#	RCS wrapper for non-interactive scripts.
#	Excerpted from /etc/security.
#

xrcs_descr=
xrcs_msg=
xrcs_cur=
xrcs_new=

xrcs_unlock()
{
	rcs -q -u -U -M ${xrcs_cur}
}

xrcs_ci()
{
	ci -q -f -u -t-"$xrcs_descr" -m"$xrcs_msg" ${xrcs_cur}
	rcs -q -kb -U ${xrcs_cur}
}

xrcs_co()
{
	co -q -f -u ${xrcs_cur}
}

xrcs_init()
{
	if [ -f ${xrcs_cur},v ]; then
		xrcs_unlock
	fi

	if [ -f ${xrcs_cur} ]; then
		if [ ! -f ${xrcs_cur},v ]; then
			xrcs_ci
			xrcs_co
		fi
	fi
}

xrcs_add()
{
	xrcs_init
	cp -p $1 ${xrcs_cur}
	xrcs_ci
	xrcs_co
}

xrcs_update()
{
	xrcs_init
	xrcs_ci
	xrcs_co
}

xrcs_remove()
{
	xrcs_init
	cp /dev/null ${xrcs_cur}
	xrcs_ci
	rm ${xrcs_cur}
}

xrcs()
{
	eval xrcs_$1
}