1 files changed, 66 insertions, 0 deletions
diff --git a/tools/client-side/showchange.pl b/tools/client-side/showchange.pl
new file mode 100755
index 0000000..e4cf7eb
--- /dev/null
+++ b/tools/client-side/showchange.pl
@@ -0,0 +1,66 @@
+#!/usr/bin/perl -w
+# ====================================================================
+#    Licensed to the Apache Software Foundation (ASF) under one
+#    or more contributor license agreements.  See the NOTICE file
+#    distributed with this work for additional information
+#    regarding copyright ownership.  The ASF licenses this file
+#    to you under the Apache License, Version 2.0 (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.apache.org/licenses/LICENSE-2.0
+#
+#    Unless required by applicable law or agreed to in writing,
+#    software distributed under the License is distributed on an
+#    "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+#    KIND, either express or implied.  See the License for the
+#    specific language governing permissions and limitations
+#    under the License.
+# ====================================================================
+
+use strict;
+
+# ====================================================================
+# Show the log message and diff for a revision.
+#
+#    $ showchange.pl REVISION [WC_PATH|URL]
+
+
+if ((scalar(@ARGV) == 0)
+    or ($ARGV[0] eq '-?')
+    or ($ARGV[0] eq '-h')
+    or ($ARGV[0] eq '--help')) {
+    print <<EOF;
+Show the log message and diff for a revision.
+usage: $0 REVISION [WC_PATH|URL]
+EOF
+    exit 0;
+}
+
+my $revision = shift || die ("Revision argument required.\n");
+if ($revision =~ /r([0-9]+)/) {
+  $revision = $1;
+}
+
+my $url = shift || "";
+
+my $svn = "svn";
+
+my $prev_revision = $revision - 1;
+
+if (not $url) {
+  # If no URL was provided, use the repository root from the current
+  # directory's working copy.  We want the root, rather than the URL
+  # of the current dir, because when someone's asking for a change
+  # by name (that is, by revision number), they generally don't want
+  # to have to cd to a particular working copy directory to get it.
+  my @info_lines = `${svn} info`;
+  foreach my $info_line (@info_lines) {
+    if ($info_line =~ s/^Repository Root: (.*)$/$1/e) {
+      $url = $info_line;
+    }
+  }
+}
+
+system ("${svn} log -v --incremental -r${revision} $url");
+system ("${svn} diff -r${prev_revision}:${revision} $url");