diff --git a/gitstuff/hooks/CIAbot/README b/gitstuff/hooks/CIAbot/README new file mode 100644 index 0000000..f93c272 --- /dev/null +++ b/gitstuff/hooks/CIAbot/README @@ -0,0 +1,7 @@ +Place both files in the .git/hooks directory. +Ensure you have Python and Perl installed. +Don't forget to chmod +x both scripts! + +After each commit, the Python wrapper will fish the last commit out of +your repository, and run the Perl script with the branch and commit as +arguments. diff --git a/gitstuff/hooks/CIAbot/post-commit b/gitstuff/hooks/CIAbot/post-commit new file mode 100644 index 0000000..4f75f12 --- /dev/null +++ b/gitstuff/hooks/CIAbot/post-commit @@ -0,0 +1,19 @@ +#!/usr/bin/python + +import re, os, subprocess + +cwd = os.getcwd() + +f = open("%s/.git/HEAD" % cwd, "r") +head = f.read() +branch = re.search("([^/]+)$", head).group(1).strip() + +f = open("%s/.git/refs/heads/%s" % (cwd, branch), "r") +commit = f.read().strip() + +result = subprocess.call(["%s/.git/hooks/post-commit-script" % cwd, commit, branch]) + +if result == 0: + print "Successfully reported commit to CIA.vc" +else: + print "Reporting commit to CIA.vc failed" diff --git a/gitstuff/hooks/CIAbot/post-commit-script b/gitstuff/hooks/CIAbot/post-commit-script new file mode 100644 index 0000000..2e1c4d9 --- /dev/null +++ b/gitstuff/hooks/CIAbot/post-commit-script @@ -0,0 +1,288 @@ +#!/usr/bin/perl -w +# +# ciabot -- Mail a git log message to a given address, for the purposes of CIA +# +# Loosely based on cvslog by Russ Allbery +# Copyright 1998 Board of Trustees, Leland Stanford Jr. University +# +# Copyright 2001, 2003, 2004, 2005 Petr Baudis +# +# This program is free software; you can redistribute it and/or modify it under +# the terms of the GNU General Public License version 2, as published by the +# Free Software Foundation. +# +# The master location of this file is in the Cogito repository +# (see http://www.kernel.org/git/). +# +# This program is designed to run as the .git/hooks/post-commit hook. It takes +# the commit information, massages it and mails it to the address given below. +# +# The calling convention of the post-commit hook is: +# +# .git/hooks/post-commit $commit_sha1 $branch_name +# +# If it does not work, try to disable $xml_rpc in the configuration section +# below. Also, remember to make the hook file executable. +# +# +# Note that you can (and it might be actually more desirable) also use this +# script as the GIT update hook: +# +# refname=${1#refs/heads/} +# [ "$refname" = "master" ] && refname= +# oldhead=$2 +# newhead=$3 +# for merged in $(git-rev-list $newhead ^$oldhead | tac); do +# /path/to/ciabot.pl $merged $refname +# done +# +# This is useful when you use a remote repository that you only push to. The +# update hook will be triggered each time you push into that repository, and +# the pushed commits will be reported through CIA. + +use strict; +use vars qw ($project $from_email $dest_email $noisy $rpc_uri $sendmail + $xml_rpc $ignore_regexp $alt_local_message_target); + + + + +### Configuration + +# Project name (as known to CIA). +$project = 'Project Name'; + +# The from address in generated mails. +$from_email = 'git@cryto.net'; + +# Mail all reports to this address. +$dest_email = 'cia@cia.vc'; + +# If using XML-RPC, connect to this URI. +$rpc_uri = 'http://cia.vc/RPC2'; + +# Path to your USCD sendmail compatible binary (your mailer daemon created this +# program somewhere). +$sendmail = '/usr/sbin/sendmail'; + +# If set, the script will send CIA the full commit message. If unset, only the +# first line of the commit message will be sent. +$noisy = 0; + +# This script can communicate with CIA either by mail or by an XML-RPC +# interface. The XML-RPC interface is faster and more efficient, however you +# need to have RPC::XML perl module installed, and some large CVS hosting sites +# (like Savannah or Sourceforge) might not allow outgoing HTTP connections +# while they allow outgoing mail. Also, this script will hang and eventually +# not deliver the event at all if CIA server happens to be down, which is +# unfortunately not an uncommon condition. +$xml_rpc = 1; + +# This variable should contain a regexp, against which each file will be +# checked, and if the regexp is matched, the file is ignored. This can be +# useful if you do not want auto-updated files, such as e.g. ChangeLog, to +# appear via CIA. +# +# The following example will make the script ignore all changes in two specific +# files in two different modules, and everything concerning module 'admin': +# +# $ignore_regexp = "^(gentoo/Manifest|elinks/src/bfu/inphist.c|admin/)"; +$ignore_regexp = ""; + +# It can be useful to also grab the generated XML message by some other +# programs and e.g. autogenerate some content based on it. Here you can specify +# a file to which it will be appended. +$alt_local_message_target = ""; + + + + +### The code itself + +use vars qw ($commit $tree @parent $author $committer); +use vars qw ($user $branch $rev @files $logmsg $message); +my $line; + + + +### Input data loading + + +# The commit stuff +$commit = $ARGV[0]; +$branch = $ARGV[1]; + +open COMMIT, "git cat-file commit $commit|" or die "git cat-file commit $commit: $!"; +my $state = 0; +$logmsg = ''; +while (defined ($line = )) { + if ($state == 1) { + $logmsg .= $line; + $noisy or $state++; + next; + } elsif ($state > 1) { + next; + } + + chomp $line; + unless ($line) { + $state = 1; + next; + } + + my ($key, $value) = split(/ /, $line, 2); + if ($key eq 'tree') { + $tree = $value; + } elsif ($key eq 'parent') { + push(@parent, $value); + } elsif ($key eq 'author') { + $author = $value; + } elsif ($key eq 'committer') { + $committer = $value; + } +} +close COMMIT; + + +open DIFF, "git diff-tree -r $parent[0] $tree|" or die "git diff-tree $parent[0] $tree: $!"; +while (defined ($line = )) { + chomp $line; + my @f; + (undef, @f) = split(/\t/, $line, 2); + push (@files, @f); +} +close DIFF; + + +# Figure out who is doing the update. +# XXX: Too trivial this way? +($user) = $author =~ /<(.*?)@/; + + +$rev = substr($commit, 0, 12); + + + + +### Remove to-be-ignored files + +@files = grep { $_ !~ m/$ignore_regexp/; } @files + if ($ignore_regexp); +exit unless @files; + + + +### Compose the mail message + + +my ($VERSION) = '1.0'; +my $ts = time; + +$message = < + + CIA Perl client for Git + $VERSION + + + $project +EM +; +$message .= " $branch" if ($branch); +$message .= < + + $ts + + + + $user + $rev + +EM +; + +foreach (@files) { + s/&/&/g; + s//>/g; + $message .= " $_\n"; +} + +$logmsg =~ s/&/&/g; +$logmsg =~ s//>/g; + +$message .= < + +$logmsg + + + + +EM +; + + + +### Write the message to an alt-target + +if ($alt_local_message_target and open (ALT, ">>$alt_local_message_target")) { + print ALT $message; + close ALT; +} + + + +### Send out the XML-RPC message + + +if ($xml_rpc) { + # We gotta be careful from now on. We silence all the warnings because + # RPC::XML code is crappy and works with undefs etc. + $^W = 0; + $RPC::XML::ERROR if (0); # silence perl's compile-time warning + + require RPC::XML; + require RPC::XML::Client; + + my $rpc_client = new RPC::XML::Client $rpc_uri; + my $rpc_request = RPC::XML::request->new('hub.deliver', $message); + my $rpc_response = $rpc_client->send_request($rpc_request); + + unless (ref $rpc_response) { + die "XML-RPC Error: $RPC::XML::ERROR\n"; + } + exit; +} + + + +### Send out the mail + + +# Open our mail program + +open (MAIL, "| $sendmail -t -oi -oem") or die "Cannot execute $sendmail : " . ($?>>8); + + +# The mail header + +print MAIL <> 8) . "\n" unless ($? == 0); + +# vi: set sw=2: