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);
24 sub formbuilder_setup (@) {
27 my $form=$params{form};
28 return unless $form->title eq "preferences";
29 my $session=$params{session};
30 $form->field(name => "subscriptions", size => 50,
31 fieldset => "preferences",
32 comment => "(".htmllink("", "", "ikiwiki/PageSpec", noimageinline => 1).")",
33 value => getsubscriptions($session->param("name")));
38 my $form=$params{form};
39 return unless $form->title eq "preferences" &&
40 $form->submitted eq "Save Preferences" && $form->validate &&
41 defined $form->field("subscriptions");
42 setsubscriptions($form->field('name'), $form->field('subscriptions'));
45 sub getsubscriptions ($) {
47 eval q{use IkiWiki::UserInfo};
49 IkiWiki::userinfo_get($user, "subscriptions");
52 sub setsubscriptions ($$) {
54 my $subscriptions=shift;
55 eval q{use IkiWiki::UserInfo};
57 IkiWiki::userinfo_set($user, "subscriptions", $subscriptions);
60 # Called by other plugins to subscribe the user to a pagespec.
63 my $addpagespec=shift;
64 my $pagespec=getsubscriptions($user);
65 setsubscriptions($user, $pagespec." or ".$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