diff options
| -rwxr-xr-x | parse-bzr | 139 |
1 files changed, 139 insertions, 0 deletions
diff --git a/parse-bzr b/parse-bzr new file mode 100755 index 0000000..932692f --- /dev/null +++ b/parse-bzr @@ -0,0 +1,139 @@ +#!/usr/bin/perl -wT + +# Copyright (c) 2007, 2008 Joerg Jaspert <joerg@debian.org> +# +# Permission is hereby granted, free of charge, to any person obtaining +# a copy of this software and associated documentation files (the +# "Software"), to deal in the Software without restriction, including +# without limitation the rights to use, copy, modify, merge, publish, +# distribute, sublicense, and/or sell copies of the Software, and to +# permit persons to whom the Software is furnished to do so, subject to +# the following conditions: +# +# The above copyright notice and this permission notice shall be +# included in all copies or substantial portions of the Software. +# +# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + + + +use strict; +use English; +use MIME::Base64; +use File::Basename; + +my $HOME = '/home/commit/'; +my $MAX_LINES = 4; +my $ENVELOPE_FROM = 'nobody@ganneff.de'; +my $HEADER_FROM = 'nobody@ganneff.de'; +my $BOT_ADDRESS = 'commit@commit.ganneff.de'; +my $SENDMAIL = '/usr/sbin/sendmail'; + +$ENV{'PATH'} = '/bin:/usr/bin'; +delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'}; + +die ("Usage: $PROGRAM_NAME <project> <mailfile>\n") unless (scalar @ARGV == 2); +my $project = $ARGV[0]; + +umask 077; + +my $TMPDIR = "$HOME/cvs-tmp/"; +-d $TMPDIR or + mkdir $TMPDIR or + die ("Cannot mkdir $TMPDIR: $0\n"); + +$project =~ m/^([a-zA-Z-]+(\.[a-zA-Z-]+)*)+$/; +$project = $1; +die ("Project is not a nice name.\n") unless defined $project; + +my $from; +my $rev; +my $who; +my $branch; +my $subdir; +my $timestamp; +my @message; +my $in_message = 0; +my $line_count = 0; + +open (MAIL, $ARGV[1]) || die ("Cannot open $ARGV[1]: $!\n"); +my @mail = <MAIL>; +close(MAIL); +my $line; + + +while (defined($line = shift @mail)) { + my $chomped = $line; +# print "Looking at $chomped\n"; + chomp $chomped; + next if length($chomped) <= 2; + if ($chomped =~ m/^revno: (\d+)/) { + $rev=$1 unless defined($rev); + next; + } elsif ($chomped =~ m/Subject: \[.*\] (.*) (r[0-9]+):.*/) { + $subdir = $1; + $subdir =~ s#./##; + $rev=$1 unless defined($rev); + next; + } elsif ($chomped =~ m/^committer: (.*)/) { + $who = $1; + next; + } elsif ($chomped =~ m/^branch nick: (.*)/) { + $branch = $1; + next; + } elsif ($chomped =~ m/^timestamp: (.*)/) { + $timestamp = $1; + next; + } elsif ($chomped =~ m/message:/) { + $in_message = 1; + next; + } elsif ($chomped =~ m/^[modified|removed|added]/) { + $in_message = 0; + last; + } elsif ($in_message) { + $line_count++; + push @message, $chomped; + if ($line_count > 3) { + push @message, "..."; + last; + } + } +} + + +die ("$PROGRAM_NAME - $project: No author found.\n") unless defined $who; + +# print "From: $HEADER_FROM\n"; +# print "To: $BOT_ADDRESS\n"; +# print "Subject: Announce $project\n"; +# print "Precedence: junk\n"; +# print "\n"; +# print "[$subdir] (branch: $branch) $who committed revision $rev at $timestamp\n"; +# foreach (@message) { +# print "$_\n"; +# } + + +open(MAIL, "|$SENDMAIL -t -oi -f $ENVELOPE_FROM") or + die ("Cannot exec sendmail: $!\n"); +print MAIL "From: $HEADER_FROM\n"; +print MAIL "To: $BOT_ADDRESS\n"; +print MAIL "Subject: Announce $project\n"; +print MAIL "Precedence: junk\n"; +print MAIL "\n"; +if ($branch eq basename($subdir) ) { + print MAIL "[$subdir] $who committed revision $rev at $timestamp\n"; +} else { + print MAIL "[$subdir] (branch-nick: $branch) $who committed revision $rev at $timestamp\n"; +} +foreach (@message) { + print MAIL "$_\n"; +} +close(MAIL); + |