From df031c2d22b66145eea8f4b9e3f76ef99aa232e4 Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Sat, 26 Nov 2011 11:41:35 +0000
Subject: [PATCH] (post): Handle questionasker and honeypot modules.

---
 contrib/campaignwiki/add-link.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/contrib/campaignwiki/add-link.pl b/contrib/campaignwiki/add-link.pl
index ba10739e..c78b8194 100644
--- a/contrib/campaignwiki/add-link.pl
+++ b/contrib/campaignwiki/add-link.pl
@@ -128,12 +128,14 @@ sub post {
   my %params = (text => $data,
   		title => $id,
   		summary => $name,
-	        question => 1,
   		username => GetParam('username'),
   		pwd => GetParam('pwd'));
+  # spam fighting modules
+  $param{$QuestionaskerSecretKey} = 1 if $QuestionaskerSecretKey;
+  $param{$HoneyPotOk} = time if $HoneyPotOk;
   my $response = $ua->post($site, \%params);
   if ($response->is_error) {
-    print $q->p("The submission failed! ($QuestionaskerSecretKey)");
+    print $q->p("The submission failed!");
     print $q->pre($response->status_line . "\n"
   		  . $response->content);
   } else {