的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"; 
    } 
}