Embed Notice

@KarafutoAdmin 今手持ちの鯖ではモジュールが対応していないからできません・・・
ただhCaptchaのサポートとのメールを掘り出して、原型となった実装コードを発掘したので、0.75時代の0ch+と過去に私が作ったプラグインに加えて、それも参考になったらと思います。

#!/usr/bin/perl
use strict;
use CGI;
use LWP::UserAgent;
use JSON::Parse;
my $secret_key = '[シークレットキー]';
my $url = 'https://api.hcaptcha.com/siteverify';
my $cgi = CGI->new();
my $ua = LWP::UserAgent->new();
my $recaptcha_response = $cgi->param('g-recaptcha-response');
my $remote_ip = $ENV{REMOTE_ADDR};
my $response = $ua->post(
$url,
{
remoteip => $remote_ip,
response => $recaptcha_response,
secret => $secret_key,
},
);
if ( $response->is_success() ) {
my $json = $response->decoded_content();
my $out = parse_json($json);
if ( $out->{success} ) {
# 正常処理
}
}