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 if (! $form->submitted) {
33 $form->field(name => "subscriptions", force => 1,
34 value => getsubscriptions($session->param("name")));
40 my $form=$params{form};
41 return unless $form->title eq "preferences" &&
42 $form->submitted eq "Save Preferences" && $form->validate &&
43 defined $form->field("subscriptions");
44 setsubscriptions($form->field('name'), $form->field('subscriptions'));
47 sub getsubscriptions ($) {
49 eval q{use IkiWiki::UserInfo};
51 IkiWiki::userinfo_get($user, "subscriptions");
54 sub setsubscriptions ($$) {
56 my $subscriptions=shift;
57 eval q{use IkiWiki::UserInfo};
59 IkiWiki::userinfo_set($user, "subscriptions", $subscriptions);
62 # Called by other plugins to subscribe the user to a pagespec.
65 my $addpagespec=shift;
66 my $pagespec=getsubscriptions($user);
67 setsubscriptions($user,
68 length $pagespec ? $pagespec." or ".$addpagespec : $addpagespec);
75 eval q{use Mail::Sendmail};
77 eval q{use IkiWiki::UserInfo};
82 # Daemonize, in case the mail sending takes a while.
83 defined(my $pid = fork) or error("Can't fork: $!");
84 return if $pid; # parent
86 open STDIN, '/dev/null';
87 open STDOUT, '>/dev/null';
88 POSIX::setsid() or error("Can't start a new session: $!");
89 open STDERR, '>&STDOUT' or error("Can't dup stdout: $!");
91 # Don't need to keep a lock on the wiki as a daemon.
92 IkiWiki::unlockwiki();
94 my $userinfo=IkiWiki::userinfo_retrieve();
95 exit 0 unless defined $userinfo;
97 foreach my $user (keys %$userinfo) {
98 my $pagespec=$userinfo->{$user}->{"subscriptions"};
99 next unless defined $pagespec && length $pagespec;
100 my $email=$userinfo->{$user}->{email};
101 next unless defined $email && length $email;
103 foreach my $file (@files) {
104 my $page=pagename($file);
105 next unless pagespec_match($page, $pagespec);
107 my $showcontent=defined pagetype($file);
109 $content=eval { readfile(srcfile($file)) };
110 $showcontent=0 if $@;
113 if (! IkiWiki::isinternal($page)) {
114 $url=urlto($page, undef, 1);
116 elsif (defined $pagestate{$page}{meta}{permalink}) {
117 # need to use permalink for an internal page
118 $url=URI->new_abs($pagestate{$page}{meta}{permalink}, $config{url});
121 $url=$config{url}; # crummy fallback url
124 if (defined $pagestate{$page}{meta}{title} &&
125 length $pagestate{$page}{meta}{title}) {
126 $pagedesc=qq{"$pagestate{$page}{meta}{title}"};
128 my $subject=gettext("change notification:")." ".$pagedesc;
129 if (pagetype($file) eq '_comment') {
130 $subject=gettext("comment notification:")." ".$pagedesc;
132 my $template=template("notifyemail.tmpl");
134 wikiname => $config{wikiname},
136 prefsurl => $config{cgiurl}."?do=prefs",
137 showcontent => $showcontent,
142 From => "$config{wikiname} <$config{adminemail}>",
144 Message => $template->output,
149 exit 0; # daemon child