diff options
| author |   Gunnar Wrobel <wrobel@gentoo.org> | 2006-01-06 13:53:47 +0000 |
|---|---|---|
| committer | Gunnar Wrobel <wrobel@gentoo.org> | 2006-01-06 13:53:47 +0000 |
| commit | 4fe0d4ff51fd4d9dd63c6a273be61d315b90a039 (patch) | |
| tree | e867e02f96bd12679341c87ac00f9221573b7dbc /z-distfiles/scripts-gw | |
| parent | Tried to add the url library (diff) | |
| download | misc-4fe0d4ff51fd4d9dd63c6a273be61d315b90a039.tar.gz misc-4fe0d4ff51fd4d9dd63c6a273be61d315b90a039.tar.bz2 misc-4fe0d4ff51fd4d9dd63c6a273be61d315b90a039.zip | |
Minor update to the gpg-update script
svn path=/local/; revision=614
Diffstat (limited to 'z-distfiles/scripts-gw')
| -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 = $_; |