archive/oddmuse
2
0
Fork 0
forked from github/kensanata.oddmuse
Code Pull Requests Activity

(post): Handle questionasker

Browse Source 
and honeypot modules.
This commit is contained in:
Alex Schroeder
2011-11-26 11:41:35 +00:00
parent cc7063e1f9
commit df031c2d22
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
contrib/campaignwiki/add-link.pl
View File

@@ -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 {