1 
            #!/usr/bin/perl -w

            use WWW::Facebook::API;
            use WWW::Facebook::API::Auth;
            use WWW::Facebook::API::Canvas;
            use HTTP::Request;
            use LWP;

            use CGI;                                    # load CGI routines
            $q = CGI->new;                              # create new CGI object
            print $q->header,                           # create the HTTP header
            $q->start_html('Facebook App'),          # start the HTML
            $q->h1('Facebook Authentication'),          # level 1 header
            $q->end_html;                               # end the HTML

            my $facebook_api      = '-------------';
            my $facebook_secret   = '----------------';
            my $facebook_clientid = '---------------------';

            my $client = WWW::Facebook::API->new(
            desktop         => 0,
            api_version     => '1.0',
            api_key         => $facebook_api,
            secret          => $facebook_secret,   
            callback        => 'http://localhost/perl/facebook.pl',

            );

            $client->app_id($facebook_clientid);
            $q->redirect($client->get_login_url());

Facebook へのログイン後、コールバック URL が機能せず、Facebook アプリケーションが作成中です。Facebook自体にコールバックURLを指定したくありません。ソースコードでコールバックを指定したい。

4

1 に答える 1

5

callback => 'http://localhost/perl/facebook.pl',

Facebook はコールバック要求を行うことができませんhttp://localhost- あなたのローカルホストは彼らのローカルホストではありません!

公開 URL を使用する必要があります。

于 2013-08-30T13:55:09.913 に答える