From b16c251e023e0cdfa0c7a1b1c290ece0408b99e0 Mon Sep 17 00:00:00 2001
From: "jouni%heikniemi.net" <>
Date: Tue, 11 Nov 2003 13:58:52 +0000
Subject: contrib/cvs-update.sh should be in Perl. r=zach, a=justdave

---
 contrib/cvs-update.pl | 51 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 contrib/cvs-update.pl

(limited to 'contrib/cvs-update.pl')

diff --git a/contrib/cvs-update.pl b/contrib/cvs-update.pl
new file mode 100644
index 000000000..32cb5861b
--- /dev/null
+++ b/contrib/cvs-update.pl
@@ -0,0 +1,51 @@
+#!/usr/bin/perl -w
+# -*- Mode: perl; indent-tabs-mode: nil -*-
+#
+# The contents of this file are subject to the Mozilla Public
+# License Version 1.1 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy of
+# the License at http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS
+# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
+# implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code is the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are
+# Copyright (C) 1998 Netscape Communications Corporation. All
+# Rights Reserved.
+#
+# Contributor(s): Dawn Endico <endico@mozilla.org>
+#                 Jacob Steenhagen <jake@bugzilla.org>
+#                 Jouni Heikniemi <jouni@heikniemi.net>
+
+# Keep a record of all cvs updates made from a given directory.
+#
+# Later, if changes need to be backed out, look at the log file
+# and run the cvs command with the date that you want to back
+# out to. (Probably the second to last entry).
+
+# Because this script lives in contrib, you may want to
+#   ln -s contrib/cvs-update.pl cvs-update.pl
+# from your bugzilla install directory so you can run
+# the script easily from there (./cvs-update.pl)
+
+#DATE=`date +%e/%m/%Y\ %k:%M:%S\ %Z`
+
+my ($second, $minute, $hour, $day, $month, $year) = gmtime;
+my $date = sprintf("%04d-%02d-%02d %d:%02d:%02dZ",
+                   $year+1900, $month+1, $day, $hour, $minute, $second);
+my $cmd = "cvs -q update -dP";
+open LOG, ">>cvs-update.log" or die("Couldn't open cvs update log!");
+print LOG "$cmd -D \"$date\"\n";
+close LOG;
+system("$cmd -A");
+
+# sample log file
+#cvs update -P -D "11/04/2000 20:22:08 PDT"
+#cvs update -P -D "11/05/2000 20:22:22 PDT"
+#cvs update -P -D "11/07/2000 20:26:29 PDT"
+#cvs update -P -D "11/08/2000 20:27:10 PDT"
-- 
cgit v1.2.3-24-g4f1b