На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Внимательно изучите правила раздела перед созданием темы
0. ПРИЛАГАЙТЕ СВОИ СКРИПТЫ.
1. Прежде чем создать топик, используйте поиск. Возможно это уже обсуждалось.
2. В топике указывайте ОС, режим работы скрипта (CLI|CGI). Очень желателен вывод лог-файлов и того места, куда у вас назначен вывод данных (STDOUT|STDERR)
3. Помните: вы знаете что вы хотите, а форумчане - нет. Поэтому следуйте простому правилу: грамотный развернутый вопрос - грамотный развернутый ответ.
Модераторы: ANDLL
  
    > OAuth Net::Twitter, профиль текущего пользователя , perl v5.10
      Нужно получить информацию о текущем пользователе.
      Подключаюсь:
      ExpandedWrap disabled
        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]

      Что нужно сделать-то?
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0150 ]   [ 16 queries used ]   [ Generated: 28.03.24, 14:34 GMT ]