aboutsummaryrefslogtreecommitdiff
path: root/IkiWiki/Rcs/monotone.pm
diff options
context:
space:
mode:
authorJoey Hess <joey@kodama.kitenet.net>2008-01-29 00:36:58 -0500
committerJoey Hess <joey@kodama.kitenet.net>2008-01-29 00:36:58 -0500
commitd7fdd04b5a113b6dded40cb79b670b16570c11b3 (patch)
tree9f77296c32cbc9d02bf2007fe7a233e9093f80b3 /IkiWiki/Rcs/monotone.pm
parent2ff726e87595d7496245f7c01e2bb217004979c0 (diff)
downloadikiwiki-d7fdd04b5a113b6dded40cb79b670b16570c11b3.tar
ikiwiki-d7fdd04b5a113b6dded40cb79b670b16570c11b3.tar.gz
* Removed support for sending commit notification mails. Along with it went
the svnrepo and notify settings, though both will be ignored if left in setup files.
Diffstat (limited to 'IkiWiki/Rcs/monotone.pm')
-rw-r--r--IkiWiki/Rcs/monotone.pm48
1 files changed, 0 insertions, 48 deletions
diff --git a/IkiWiki/Rcs/monotone.pm b/IkiWiki/Rcs/monotone.pm
index b48ac92db..0ae2c1a32 100644
--- a/IkiWiki/Rcs/monotone.pm
+++ b/IkiWiki/Rcs/monotone.pm
@@ -452,54 +452,6 @@ sub rcs_recentchanges ($) { #{{{
return @ret;
} #}}}
-sub rcs_notify () { #{{{
- debug("The monotone rcs_notify function is currently untested. Use at own risk!");
-
- if (! exists $ENV{REV}) {
- error(gettext("REV is not set, not running from mtn post-commit hook, cannot send notifications"));
- }
- if ($ENV{REV} !~ m/($sha1_pattern)/) { # sha1 is untainted now
- error(gettext("REV is not a valid revision identifier, cannot send notifications"));
- }
- my $rev = $1;
-
- check_config();
-
- my $automator = Monotone->new();
- $automator->open(undef, $config{mtnrootdir});
-
- my $certs = [read_certs($automator, $rev)];
- my $user;
- my $message;
- my $when;
-
- foreach my $cert (@$certs) {
- if ($cert->{signature} eq "ok" && $cert->{trust} eq "trusted") {
- if ($cert->{name} eq "author") {
- $user = $cert->{value};
- } elsif ($cert->{name} eq "date") {
- $when = $cert->{value};
- } elsif ($cert->{name} eq "changelog") {
- $message = $cert->{value};
- }
- }
- }
-
- my @changed_pages = get_changed_files($automator, $rev);
-
- $automator->close();
-
- require IkiWiki::UserInfo;
- send_commit_mails(
- sub {
- return $message;
- },
- sub {
- `mtn --root=$config{mtnrootdir} au content_diff -r $rev`;
- },
- $user, @changed_pages);
-} #}}}
-
sub rcs_getctime ($) { #{{{
my $file=shift;