的Facebook Messenger平台发送URL按钮赋予“错误的请求”错误

Question

这是我在收件人的ID，并试图发送回一个网址按钮，但我得到一个“错误的请求”的错误。

我认为这个问题是JSON，但我无法弄清楚。

sub post_url_button_to_facebook { 
    my $reply_recipient = shift; 

    my %hash = ('recipient'=>{'id'=>$reply_recipient},'message'=>{'attachment'=>{'type'=>'template','payload'=>{'template_type'=>'button','text'=>"This my link",'buttons'=>{'type'=>'web_url','url'=>'https://www.arx.gr/','title'=>"Dev's Website"} }}}); 

    my $post_json_data = JSON::encode_json(\%hash); 

    my $ua = LWP::UserAgent->new; 

    my $url = "https://graph.facebook.com/v2.9/me/messages?access_token=" . $permanent_token; 

    my $req = HTTP::Request->new(POST => $url); 
    $req->header('Content-type' => 'application/json'); 
    $req->content($post_json_data); 

    my $resp = $ua->request($req); 

    if ($resp->is_success) { 

     my $message = $resp->decoded_content; 
     send_status_ok(); 

     warn "Received reply: $message\n"; 
    } 
    else { 
     warn "HTTP POST error code: ", $resp->code, "\n"; 
     warn "HTTP POST error message: ", $resp->message, "\n"; 
    } 
} 

Answer 1

问题是我忘了把[]放在按钮区域。

sub post_url_button_to_facebook { 
     my $reply_recipient = shift; 



     my %hash = ('recipient'=>{'id'=>$reply_recipient},'message'=>{'attachment'=>{'type'=>'template','payload'=>{'template_type'=>'button','text'=>"This my link",'buttons'=>[{'type'=>'web_url','url'=>'https://www.arx.gr/','title'=>"Dev's Website"}] }}}); 

    my $post_json_data = JSON::encode_json(\%hash); 

    my $ua = LWP::UserAgent->new; 

    my $url = "https://graph.facebook.com/v2.9/me/messages?access_token=" . $permanent_token; 

    my $req = HTTP::Request->new(POST => $url); 
    $req->header('Content-type' => 'application/json'); 
    $req->content($post_json_data); 

    my $resp = $ua->request($req); 

    if ($resp->is_success) { 

     my $message = $resp->decoded_content; 
     send_status_ok(); 

     warn "Received reply: $message\n"; 
    } 
    else { 
     warn "HTTP POST error code: ", $resp->code, "\n"; 
     warn "HTTP POST error message: ", $resp->message, "\n"; 
    } 
}