mirror of
https://github.com/mozilla/gecko-dev.git
synced 2024-11-05 16:46:26 +00:00
52 lines
1.9 KiB
Raku
Executable File
52 lines
1.9 KiB
Raku
Executable File
#!/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"
|