diff options
author | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2006-04-25 20:24:44 +0000 |
---|---|---|
committer | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2006-04-25 20:24:44 +0000 |
commit | 5cd32c2eeeafc5e9f3feae7983fc48a9711462a3 (patch) | |
tree | a01a3e8d55ed3979ebcff0a00b63e00bd2fa21d3 /IkiWiki/UserInfo.pm | |
parent | 5ae9c4f5d57d15343fb59f21e16317c712d80a44 (diff) | |
download | ikiwiki-5cd32c2eeeafc5e9f3feae7983fc48a9711462a3.tar ikiwiki-5cd32c2eeeafc5e9f3feae7983fc48a9711462a3.tar.gz |
- fix typo
- avoid sending commit mails to the user who made the commit
Diffstat (limited to 'IkiWiki/UserInfo.pm')
-rw-r--r-- | IkiWiki/UserInfo.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/IkiWiki/UserInfo.pm b/IkiWiki/UserInfo.pm index b322b607e..bbcddb616 100644 --- a/IkiWiki/UserInfo.pm +++ b/IkiWiki/UserInfo.pm @@ -66,15 +66,19 @@ sub is_admin ($) { #{{{ return grep { $_ eq $user_name } @{$config{adminuser}}; } #}}} -sub page_subscribers (@) { #{{{ +sub commit_notify_list ($@) { #{{{ + my $committer=shift; + my @pages=@_; + my @ret; my $userinfo=userinfo_retrieve(); foreach my $user (keys %{$userinfo}) { + next if $user eq $committer; if (exists $userinfo->{$user}->{subscriptions} && length $userinfo->{$user}->{subscriptions} && exists $userinfo->{$user}->{email} && length $userinfo->{$user}->{email} && - grep { globlist_match($_, $userinfo->{$user}->{subscriptions}) } @_) { + grep { globlist_match($_, $userinfo->{$user}->{subscriptions}) } @pages) { push @ret, $userinfo->{$user}->{email}; } } |