@@ -2,9 +2,12 @@ use strict; use warnings; use lib '..'; +use List::MoreUtils qw(any); use Bibliotech::Fake; use Bibliotech::Component::Wiki; my $bibliotech = Bibliotech::Fake->new; -my $wiki = Bibliotech::Component::Wiki->new({bibliotech => $bibliotech}); -print map { "$_\n" } $wiki->list_spam_nodes; +my $wiki_component = Bibliotech::Component::Wiki->new({bibliotech => $bibliotech}); +my @whitelist = @ARGV ? (map { chomp; $_; } (<>)) : (); +my $whitelisted = sub { my $node = shift; return any { lc($node) eq lc($_) } @whitelist; }; +print map { "$_\n" } grep { !$whitelisted->($_) } $wiki_component->list_spam_nodes; admin_util/wiki_find_spam 87bf71319d110412a5e2bffefc7081f184b26cd8 Martin Flack martin@neoreality.com http://github.com/IanMulvany/connotea-public/commit/2c14ecea447f0b76355f120bbda4717ae81d7130 2c14ecea447f0b76355f120bbda4717ae81d7130 2008-11-11T20:42:55-08:00 2008-11-11T20:42:55-08:00 add whitelist support to wiki_find_spam darcs-hash:20081112044255-41d90-124d0a9d22abcc7ed70b0fcd2b8b69a12390fdeb.gz 65e9e83d4e7c841e7fdc6b259386bdced49f0bdc Martin Flack martin@neoreality.com