Photos
Blog
Projects
vanrenterghem.biz
projects
/
git.ikiwiki.info.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
response
[git.ikiwiki.info.git]
/
IkiWiki
/
Plugin
/
blogspam.pm
diff --git
a/IkiWiki/Plugin/blogspam.pm
b/IkiWiki/Plugin/blogspam.pm
index 58303418f7b4a137d43264879d20b209a13c4e93..c4e5cf390cb397a994414bf718c135b4bf498c22 100644
(file)
--- a/
IkiWiki/Plugin/blogspam.pm
+++ b/
IkiWiki/Plugin/blogspam.pm
@@
-9,6
+9,7
@@
my $defaulturl='http://test.blogspam.net:8888/';
sub import {
hook(type => "getsetup", id => "blogspam", call => \&getsetup);
sub import {
hook(type => "getsetup", id => "blogspam", call => \&getsetup);
+ hook(type => "checkconfig", id => "blogspam", call => \&checkconfig);
hook(type => "checkcontent", id => "blogspam", call => \&checkcontent);
}
hook(type => "checkcontent", id => "blogspam", call => \&checkcontent);
}
@@
-17,6
+18,7
@@
sub getsetup () {
plugin => {
safe => 1,
rebuild => 0,
plugin => {
safe => 1,
rebuild => 0,
+ section => "auth",
},
blogspam_pagespec => {
type => 'pagespec',
},
blogspam_pagespec => {
type => 'pagespec',
@@
-43,17
+45,19
@@
sub getsetup () {
},
}
},
}
-sub checkcontent (@) {
- my %params=@_;
-
+sub checkconfig () {
+ # This is done at checkconfig time because printing an error
+ # if the module is missing when a spam is posted would not
+ # let the admin know about the problem.
eval q{
use RPC::XML;
use RPC::XML::Client;
};
eval q{
use RPC::XML;
use RPC::XML::Client;
};
- if ($@) {
- warn($@);
- return undef;
- }
+ error $@ if $@;
+}
+
+sub checkcontent (@) {
+ my %params=@_;
if (exists $config{blogspam_pagespec}) {
return undef
if (exists $config{blogspam_pagespec}) {
return undef