usage() unless scalar @ARGV >= 3;
shift @ARGV;
$USER = shift @ARGV;
usage() unless scalar @ARGV >= 3;
shift @ARGV;
$USER = shift @ARGV;
unless ($USER =~ /^[A-Za-z0-9]{8,8}([A-Za-z0-9]{8})?$/) {
print STDERR "-u $USER is not a keyid.\n";
usage();
unless ($USER =~ /^[A-Za-z0-9]{8,8}([A-Za-z0-9]{8})?$/) {
print STDERR "-u $USER is not a keyid.\n";
usage();
$USER = uc($USER);
};
for my $keyid (@ARGV) {
$USER = uc($USER);
};
for my $keyid (@ARGV) {
unless ($keyid =~ /^[A-Za-z0-9]{8}([A-Za-z0-9]{8})?$/) {
print STDERR "$keyid is not a keyid.\n";
usage();
unless ($keyid =~ /^[A-Za-z0-9]{8}([A-Za-z0-9]{8})?$/) {
print STDERR "$keyid is not a keyid.\n";
usage();
warn ("No data from gpg for list-key\n");
next;
};
warn ("No data from gpg for list-key\n");
next;
};
foreach my $keyid (@{$CONFIG{'keyid'}}) {
unless ($stdout =~ /^pub:(?:[^:]*:){3,3}$keyid:/m) {
info("Importing $keyid");
foreach my $keyid (@{$CONFIG{'keyid'}}) {
unless ($stdout =~ /^pub:(?:[^:]*:){3,3}$keyid:/m) {
info("Importing $keyid");