Ghazascanner_2019runbot

/homepage/v-mt/extras/examples/plugins/reCaptcha/lib/reCaptcha.pm

# Movable Type (r) (C) 2001-2008 Six Apart, Ltd. All Rights Reserved.
# This code cannot be redistributed without permission from www.sixapart.com.
# For more information, consult your Movable Type license.
#
# $Id: reCaptcha.pm 1174 2008-01-08 21:02:50Z bchoate $

# reCaptcha plugin for Movable Type
# Author: Six Apart (http://www.sixapart.com)
# Released under the Artistic and GPLv2 License

package reCaptcha;

use strict;
use warnings;
use base qw(MT::ErrorHandler);

sub form_fields {
    my $self = shift;
    my ($blog_id) = @_;
	
	my $plugin = MT::Plugin::reCaptcha->instance;
    my $config = $plugin->get_config_hash("blog:$blog_id");
    my $publickey = $config->{recaptcha_publickey};
    my $privatekey = $config->{recaptcha_privatekey};
	return q() unless $publickey && $privatekey;

return <<FORM_FIELD;
<div id="recaptcha_script" style="display:none">
<script type="text/javascript"
   src="http://api.recaptcha.net/challenge?k=$publickey">
</script>

sub validate_captcha {
    my $self = shift;
    my ($app) = @_;
    my $entry_id = $app->param('entry_id')
      or return 0;

my $entry = $app->model('entry')->load($entry_id)
      or return 0;

my $blog_id = $entry->blog_id;

my $config = MT::Plugin::reCaptcha->instance->get_config_hash("blog:$blog_id");
    my $privatekey = $config->{recaptcha_privatekey};
 
    my $challenge = $app->param('recaptcha_challenge_field');
    my $response = $app->param('recaptcha_response_field');
    my $ua = $app->new_ua({ timeout => 15, max_size => undef });
    return 0 unless $ua;

require HTTP::Request;
    my $req = HTTP::Request->new(POST => 'http://api-verify.recaptcha.net/verify');
    $req->content_type("application/x-www-form-urlencoded");
	require MT::Util;
	my $content = 'privatekey=' . MT::Util::encode_url($privatekey);
	$content .= '&remoteip=' . MT::Util::encode_url($app->remote_ip);
	$content .= '&challenge=' . MT::Util::encode_url($challenge);
	$content .= '&response=' . MT::Util::encode_url($response);
    $req->content($content);
    my $res = $ua->request($req);
    my $c = $res->content;
    if (substr($res->code, 0, 1) eq '2') {
		return 1 if $c =~ /^true\n/;
	}
	0;
}
    
sub generate_captcha {
    #This won't be called since there is no link which requests to "generate_captcha" mode.
    my $self = shift;
    1;
}

@Ghazascanner_2019runbot

Ghazascanner File Manager