![>](style_images/1/nav_m.gif)
![]() |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[54.144.219.156] |
![]() |
|
Сообщ.
#1
,
|
|
|
Нужно получить информацию о текущем пользователе.
Подключаюсь: ![]() ![]() use CGI ; use Net::Twitter ; my $cgi = CGI -> new ( ) ; my $nt = Net::Twitter -> new ( 'traits' => [ qw (OAuth API::REST WrapError Legacy) ] , 'consumer_key' => 'XXXXXXXXXXXXXXXXXXX' , 'consumer_secret' => 'XXXXXXXXXXXXXXXXXXX' , '-authenticate' => '1' , 'ssl' => '1' , # 'legacy' => 1 ) ; if ( $cgi -> param ( 'oauth_token' ) ) { my $token = $cgi -> param ( 'oauth_token' ) ; my $token_verifier = $cgi -> param ( 'oauth_verifier' ) ; $nt -> access_token ( $token ) ; $nt -> access_token_secret ( $token_verifier ) ; warn ( &Dumper ( [ $nt -> test ( ) , $nt -> account_settings ( ) ] ) ) ; } else { print ( $cgi -> redirect ( $nt -> get_authorization_url( 'callback' => $row -> { 'redirect_uri' } ) ) ) ; } =end Получаю [undef , undef] Что нужно сделать-то? |