diff options
Diffstat (limited to 'lib/Net/MulkyID/Setup.pm')
| -rwxr-xr-x | lib/Net/MulkyID/Setup.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/Net/MulkyID/Setup.pm b/lib/Net/MulkyID/Setup.pm index 2393023..59ad0d6 100755 --- a/lib/Net/MulkyID/Setup.pm +++ b/lib/Net/MulkyID/Setup.pm @@ -58,6 +58,8 @@ sub setup() { my $basepath = $::MULKONF->{basepath} // "/browserid"; my $fake_domain = $::MULKONF->{fake_domain} // ""; my $real_domain = $::MULKONF->{real_domain} // ""; + my $google_oauth2_client_secret = $::MULKONF->{google_oauth2_client_secret} // ""; + my $google_oauth2_client_id = $::MULKONF->{google_oauth2_client_id} // ""; $configpath = prompt("Where shall I put configuration files?", $configpath); $pemfile = prompt("Where shall I put the private key?", $pemfile); $auth_type = prompt("How will users authenticate? (imap, google)", $auth_type); @@ -76,6 +78,8 @@ sub setup() { $real_domain = prompt("Real domain name?", $real_domain); $real_domain = '' if ($real_domain eq '.'); } + $google_oauth2_client_id = prompt("Google OAuth2 client ID?", $google_oauth2_client_id); + $google_oauth2_client_secret = prompt("Google OAuth2 client secret?", $google_oauth2_client_secret); } default { die "Invalid authentication type"; @@ -126,6 +130,8 @@ sub setup() { auth_type => $auth_type, fake_domain => $fake_domain, real_domain => $real_domain, + google_oauth2_client_secret => $google_oauth2_client_secret, + google_oauth2_client_id => $google_oauth2_client_id }; write_file($conffile, <<EOF #! /usr/bin/env perl |