Author: jrthomerson
Date: Wed May 19 04:33:24 2010
New Revision: 946020
URL: http://svn.apache.org/viewvc?rev=946020&view=rev
Log:
adding a script that I use to get all SVN log statements since last release
so that I can find things that may not have been logged in JIRA and add them
to the changelog
Added:
wicket/branches/wicket-1.4.x/log-since-tag.pl (with props)
Added: wicket/branches/wicket-1.4.x/log-since-tag.pl
URL:
http://svn.apache.org/viewvc/wicket/branches/wicket-1.4.x/log-since-tag.pl?rev=946020&view=auto
==============================================================================
--- wicket/branches/wicket-1.4.x/log-since-tag.pl (added)
+++ wicket/branches/wicket-1.4.x/log-since-tag.pl Wed May 19 04:33:24 2010
@@ -0,0 +1,58 @@
+#!/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;
+
+my $baseurl = "http://svn.apache.org/repos/asf/wicket/";;
+my $url = $baseurl . "releases/";
+my $tag = $ARGV[0];
+
+if ($#ARGV == -1) {
+ print "Usage: ./logsincetag.pl DESIRED_RELEASE_TAG\n";
+ print "Example: ./logsincetag.pl wicket-1.4.8\n\n";
+ print "This will print all log messages since ${url}wicket-1.4.8 was
tagged\n";
+ print "I recommend piping this through your favorite pager.\n\n";
+ exit 0;
+}
+
+print "Getting revision number for tag '$tag'" . "\n";
+
+my $cmd = "svn log --stop-on-copy " . $url . $tag;
+print "Using command: $cmd\n";
+
+
+open DATA, "$cmd |" or die "Error running cmd: $!";
+
+my $last = '';
+while ( defined( $_ = <DATA> ) ) {
+ chomp();
+ #print "line: $_\n";
+ if ( /^r([0-9]+) \|.*/ ) {
+ $last = $1;
+ }
+}
+close DATA;
+
+print "Last revision: " . $last . "\n\n";
+
+
+$cmd = "svn log " . $baseurl . " -r " . $last . ":HEAD";
+open DATA, "$cmd |" or die "Error running cmd: $!";
+
+while ( defined( $_ = <DATA> ) ) {
+ print $_;
+}
+close DATA;
Propchange: wicket/branches/wicket-1.4.x/log-since-tag.pl
------------------------------------------------------------------------------
svn:executable = *
