delroth/hydra
0
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Set noecho when reading passwords

Browse source
This commit is contained in:
Graham Christensen 2022-01-21 11:11:09 -05:00
parent bb893d0bd5
commit 76fbde6d6b
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
flake.nix
View file

@ -495,6 +495,7 @@
StringCompareConstantTime StringCompareConstantTime
SysHostnameLong SysHostnameLong
TermSizeAny TermSizeAny
TermReadKey
Test2Harness Test2Harness
TestMore TestMore
TestPostgreSQL TestPostgreSQL

7
src/script/hydra-create-user
View file

@ -5,6 +5,7 @@ use warnings;
use Hydra::Schema; use Hydra::Schema;
use Hydra::Helper::Nix; use Hydra::Helper::Nix;
use Hydra::Model::DB; use Hydra::Model::DB;
use Term::ReadKey;
use Getopt::Long qw(:config gnu_getopt); use Getopt::Long qw(:config gnu_getopt);
sub showHelp { sub showHelp {
@ -143,13 +144,17 @@ $db->txn_do(sub {
} }
if (defined $passwordPrompt) { if (defined $passwordPrompt) {
ReadMode 2;
print STDERR "Password: "; print STDERR "Password: ";
my $password = <STDIN> // ""; my $password = <STDIN> // "";
chomp $password; chomp $password;
print STDERR "Password Confirmation: "; print STDERR "\nPassword Confirmation: ";
my $passwordConfirm = <STDIN> // ""; my $passwordConfirm = <STDIN> // "";
chomp $passwordConfirm; chomp $passwordConfirm;
ReadMode 0;
print STDERR "\n";
if ($password ne $passwordConfirm) { if ($password ne $passwordConfirm) {
die "Passwords don't match." die "Passwords don't match."