2 package IkiWiki::Plugin::notifyemail;
9 hook(type => "formbuilder_setup", id => "notifyemail", call => \&formbuilder_setup);
10 hook(type => "formbuilder", id => "notifyemail", call => \&formbuilder);
11 hook(type => "getsetup", id => "notifyemail", call => \&getsetup);
12 hook(type => "changes", id => "notifyemail", call => \¬ify);
23 sub formbuilder_setup (@) {
26 my $form=$params{form};
27 return unless $form->title eq "preferences";
28 my $session=$params{session};
29 $form->field(name => "subscriptions", size => 50,
30 fieldset => "preferences",
31 comment => "(".htmllink("", "", "ikiwiki/PageSpec", noimageinline => 1).")",
32 value => getsubscriptions($session->param("name")));
37 my $form=$params{form};
38 return unless $form->title eq "preferences" &&
39 $form->submitted eq "Save Preferences" && $form->validate &&
40 defined $form->field("subscriptions");
41 setsubscriptions($form->field('name'), $form->field('subscriptions'));
44 sub getsubscriptions ($) {
46 eval q{use IkiWiki::UserInfo};
48 IkiWiki::userinfo_get($user, "subscriptions");
51 sub setsubscriptions ($$) {
53 my $subscriptions=shift;
54 eval q{use IkiWiki::UserInfo};
56 IkiWiki::userinfo_set($user, "subscriptions", $subscriptions);
59 # Called by other plugins to subscribe the user to a pagespec.
62 my $addpagespec=shift;
63 my $pagespec=getsubscriptions($user);
64 setsubscriptions($user,
65 length $pagespec ? $pagespec." or ".$addpagespec : $addpagespec);
72 eval q{use Mail::Sendmail};
74 eval q{use IkiWiki::UserInfo};
79 # Daemonize, in case the mail sending takes a while.
80 defined(my $pid = fork) or error("Can't fork: $!");
81 return if $pid; # parent
83 open STDIN, '/dev/null';
84 open STDOUT, '>/dev/null';
85 POSIX::setsid() or error("Can't start a new session: $!");
86 open STDERR, '>&STDOUT' or error("Can't dup stdout: $!");
88 # Don't need to keep a lock on the wiki as a daemon.
89 IkiWiki::unlockwiki();
91 my $userinfo=IkiWiki::userinfo_retrieve();
92 exit 0 unless defined $userinfo;
94 foreach my $user (keys %$userinfo) {
95 my $pagespec=$userinfo->{$user}->{"subscriptions"};
96 next unless defined $pagespec && length $pagespec;
97 my $email=$userinfo->{$user}->{email};
98 next unless defined $email && length $email;
100 foreach my $file (@files) {
101 my $page=pagename($file);
102 next unless pagespec_match($page, $pagespec);
104 my $showcontent=defined pagetype($file);
106 $content=eval { readfile(srcfile($file)) };
107 $showcontent=0 if $@;
110 if (! IkiWiki::isinternal($page)) {
111 $url=urlto($page, undef, 1);
113 elsif (defined $pagestate{$page}{meta}{permalink}) {
114 # need to use permalink for an internal page
115 $url=URI->new_abs($pagestate{$page}{meta}{permalink}, $config{url});
118 $url=$config{url}; # crummy fallback url
121 if (defined $pagestate{$page}{meta}{title} &&
122 length $pagestate{$page}{meta}{title}) {
123 $pagedesc=qq{"$pagestate{$page}{meta}{title}"};
125 my $subject=gettext("change notification:")." ".$pagedesc;
126 if (pagetype($file) eq '_comment') {
127 $subject=gettext("comment notification:")." ".$pagedesc;
129 my $template=template("notifyemail.tmpl");
131 wikiname => $config{wikiname},
133 prefsurl => $config{cgiurl}."?do=prefs",
134 showcontent => $showcontent,
139 From => "$config{wikiname} <$config{adminemail}>",
141 Message => $template->output,
146 exit 0; # daemon child