如何在不要求用户插入信息的情况下向用户请求权限访问 Google Sign-Up

Question

我已经为我的网络应用程序实现了谷歌登录，我在其中使用了这个库：https : //metacpan.org/pod/Google :: RestApi :: Auth :: OAuth2Client来获取代码值，访问令牌然后是用户的信息（电子邮件、姓名、google-id）。

我在这个实现中的问题是，用户在需要插入他的信息（电子邮件和密码）的地方提示同意，我想重定向用户以获得同意，他可以选择帐户，而不是插入他的信息。我不知道我在何处发出 GET 请求的实现是不正确的，还是因为我使用的库。

在前端，我有一个表单调用重定向到我的后端函数“on_google_login”的路由：

sub on_google_login {
  my $self = shift;
  my $redirect_name = $self->get_redirect_name();
  $self->session(redirect => $redirect_name);
  my $google = Google::RestApi::Auth::OAuth2Client->new(
    client_id     => $ENV{GOOGLE_CLIENT_ID},
    client_secret => $ENV{GOOGLE_SECRET},
    redirect_uri  => $ENV{GOOGLE_BASE_URL} . '/google_callback'
  );

  my $url = $google->authorize_url(
    display => 'page'
  );

  $self->redirect_to($url);
}

这是我的回调函数，我在其中提取“代码”并使用访问令牌请求用户的信息。

sub on_google_callback {
  my $self = shift;

  my $code = $self->req->param('code');
  my $google = Google::RestApi::Auth::OAuth2Client->new(
    client_id     => $ENV{GOOGLE_CLIENT_ID},
    client_secret => $ENV{GOOGLE_SECRET},
    redirect_uri  => $ENV{GOOGLE_BASE_URL} . '/google_callback'
  );

  if (not (defined $code)) {
    return $self->render(text => 'Did not connect to Google');
  }

  my $redirect_name = $self->session('redirect') // 'home';
  delete $self->session->{'redirect'};  
  my $access_token = $google->access_token($code)->access_token;
  my $url = $ENV{GOOGLE_ENDPOINT} . $access_token;
  my $request = HTTP::Request->new(GET => $url);
  my $ua = LWP::UserAgent->new();
  my $info = decode_json($ua->request($request)->content);
  my ($google_id, $name, $mail) = ($info->{sub}, $info->{name}, $info->{email});

  if (!defined $google_id) {
    return $self->render(
    template => 'validation/custom_error',
    title => 'Error logging in with Google',
    message => 'Sorry, something went wrong when attempting to log you in ' .
      'with Google. Please try again and contact us in the chat if this ' .
      'persists.',
    status => 400);
  }
  my $found_user = $self->db->resultset('User')->by_mail($mail);

  if ($found_user) {
    return unless validate_user_can_login($self, $found_user);
    return unless set_user_data_on_login($self, $found_user);
    $self->redirect_to($redirect_name);
  } else {
    $self->session(name => $name);
    $self->session(mail => $mail);
    $self->redirect_to('/register');
  }

  return;
}