summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--contrib/cvs-update.pl (renamed from contrib/cvs-update.sh)21
1 files changed, 13 insertions, 8 deletions
diff --git a/contrib/cvs-update.sh b/contrib/cvs-update.pl
index d189d16e0..32cb5861b 100644
--- a/contrib/cvs-update.sh
+++ b/contrib/cvs-update.pl
@@ -1,4 +1,5 @@
-#!/bin/sh
+#!/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
@@ -19,7 +20,7 @@
#
# 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.
#
@@ -28,16 +29,20 @@
# out to. (Probably the second to last entry).
# Because this script lives in contrib, you may want to
-# ln -s contrib/cvs-update.sh cvs-update
+# 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)
+# the script easily from there (./cvs-update.pl)
#DATE=`date +%e/%m/%Y\ %k:%M:%S\ %Z`
-DATE=`date`
-COMMAND="cvs -q update -dP"
-echo $COMMAND -D \"$DATE\" >> cvs-update.log
-$COMMAND -A
+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"