diff options
Diffstat (limited to 'z-distfiles/scripts-gw/gpg-update')
| -rwxr-xr-x | z-distfiles/scripts-gw/gpg-update | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/z-distfiles/scripts-gw/gpg-update b/z-distfiles/scripts-gw/gpg-update index 23e73af..335d455 100755 --- a/z-distfiles/scripts-gw/gpg-update +++ b/z-distfiles/scripts-gw/gpg-update @@ -94,12 +94,12 @@ foreach my $keypair (keys %expired) print "Expired keypair (" . $keypair . ") will be regenerated!\n"; print "--------------------------------------------------------\n"; $info = $expired{$keypair}->[0]->{UIDs}->[0]->{UID}; - ($name = $info) =~ s/\s*\(.*//; + ($name = $info) =~ s/\s*<.*//; ($mail = $info) =~ s/.*<(.+@.+)>/$1/; print "User: " . $name . "\n"; print "Mail: <" . $mail . ">\n"; $pass = promptUser("New passphrase for this key"); - $status = $gpg->keygen($name, $mail, 'ELG-E', 1024, '90', $pass); + $status = $gpg->keygen($name, $mail, 'ELG-E', 2048, '90', $pass); while (<$status>) { $pass = $_; |