--- /dev/null
+#!/bin/sh -e
+CVS=${CVS:-cvs}
+
+progname=${0##*/}
+
+if [ $# -lt 2 -o $# -gt 3 ]; then
+ echo "This creates a new branch in CVS. Usage: $progname parent child <dir>"
+ exit
+fi
+
+parent=$1
+child=$2
+CHILD=`echo $child | sed -e "s/^b_//" | tr "[a-z]" "[A-Z]"`
+dir=${3:-.}
+module=$(<$dir/CVS/Repository)
+
+if [ "$module" = "lustre" ] ; then
+ echo >&2 "${progname}: You probably want to branch lustre or portals."
+ echo >&2 "${progname}: Try using ${0} $parent $child lustre"
+ exit 1
+fi
+
+case $parent in
+ HEAD) : ;;
+ b_*|b1*) : ;;
+ *) parent="b_$parent" ;;
+esac
+case $child in
+ HEAD) : ;;
+ b_*|b1*) : ;;
+ *) child="b_$child"
+esac
+
+if [ "$parent" != "HEAD" -a "`cat $dir/CVS/Tag`" != "T$parent" ]; then
+ echo "This script must be run within the $parent branch"
+ exit 1
+fi
+
+echo parent: $parent CHILD: $CHILD child: $child date: $date
+
+echo -n "tagging $parent as '${CHILD}_BASE' ...."
+$CVS rtag -r $parent ${CHILD}_BASE $module
+echo "done"
+echo -n "branching $child at ${CHILD}_BASE' ...."
+$CVS rtag -b -r ${CHILD}_BASE $child $module
+echo -n "updating $dir to $child ...."
+$CVS update -r $child $dir
+echo "done"