Index: VKontakte.pm =================================================================== --- VKontakte.pm (revision 241) +++ VKontakte.pm (revision 242) @@ -16,8 +16,8 @@ =for rem vkontakte: auto_create_user: 1 - app_id: 122117614500563 - app_secret: 656bd1369486b902e9bf831a9a08132b + app_id: decimal digits + app_secret: 32 hex digits authorize_url: http://api.vkontakte.ru/oauth/authorize access_token_url: https://api.vkontakte.ru/oauth/access_token user_info_url: https://api.vkontakte.ru/method/getProfiles @@ -28,7 +28,7 @@ =for rem SCHEMA -$m->redirect ( $fb_connect->fb_authorize_url( redirect_uri => ... ) ); +$m->redirect ( $vk_connect->authorize_url( vk_redirect_uri => ... )->as_string ); =cut @@ -95,7 +95,7 @@ $req->query_param( client_secret => $self->{vk_app_secret} ); $req->query_param( code => $code ); $req->query_param( redirect_uri => $redirect_uri ); - warn "Token request: [$req]\n"; + warn "Token request: [$req]\n" if $DEBUG; my $res = $ua->get($req); unless ($res->code == 200) { warn "VK: Access_token request failed: ".$res->status_line."\n";