• VKontakte.pm

    556 557  
    56 56 my ($class, %config) = @_;
    57 57 my $self = bless {}, $class;
    58 58
    59 $self->{vk_authorize_url} = 'http://oauth.vk.com/authorize';
    59 $self->{vk_authorize_url} = 'https://oauth.vk.com/authorize';
    60 60 $self->{vk_access_token_url} = 'https://oauth.vk.com/access_token';
    61 61 $self->{vk_user_info_url} = 'https://api.vk.com/method/getProfiles';
    62 62
    … …  
    76 76 my $go = URI->new( $self->{vk_authorize_url} );
    77 77 $go->query_param( client_id => $self->{vk_app_id} );
    78 78 $go->query_param( scope => $self->{vk_scope} || '' );
    79 $go->query_param( display => 'page' );
    79 80 $go->query_param( response_type => 'code' );
    81 $go->query_param( v => '5.44' );
    80 82 $args{redirect_uri} ||= $self->{vk_redirect_uri};
    81 83 for ( keys %args ) {
    82 84 $go->query_param( $_ => $args{$_} );
    83 85 }
    86 warn "VK AUTH URL: $go\n" if $DEBUG;
    84 87 my $local_session = $session || $keeper->{session}->get_session;
    85 88 $local_session->set( vk_redirect_url => $self->{vk_redirect_uri} );
    86 89 return $go;