perform a initial cvs update

This commit is contained in:
Mark Andrews 2005-05-16 04:27:57 +00:00
parent d9b4174233
commit 648ba62b1f

View file

@ -14,12 +14,14 @@
# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
# PERFORMANCE OF THIS SOFTWARE.
# $Id: update_branches,v 1.1 2005/05/16 04:21:29 marka Exp $
# $Id: update_branches,v 1.2 2005/05/16 04:27:57 marka Exp $
%branches = ();
%whom = ();
%comments = ();
!system("cvs", "-d", "/proj/cvs/prod", "update", "doc/private/branches") || die "cannot update doc/private/branches: $!";
#
# load existing content
#
@ -131,5 +133,5 @@ close(BRANCHES);
#
if (system("cmp", "-s", "doc/private/newbranches", "doc/private/branches")) {
rename("doc/private/newbranches", "doc/private/branches") || die "Cannot rename: doc/private/newbranches -> doc/private/branches: $!";
system("cvs", "-d", "/proj/cvs/prod", "commit", "-m", "auto update", "doc/private/branches") || die "cvs commit failed: $!";
!system("cvs", "-d", "/proj/cvs/prod", "commit", "-m", "auto update", "doc/private/branches") || die "cvs commit failed: $!";
}