- $uid,
- $keyfpr->{fpr}->as_hex_string,
- $keyfpr->{val},
- );
- # FIXME: what about revoked certifications?
- # FIXME: what about expired certifications?
- # FIXME: what about certifications ostensibly made in the future?
-
- my @clienttext;
- foreach my $clientpid (@{$clientpids}) {
- my $cmd = '<unknown>';
- # FIXME: not very portable
- my $procfh;
- $procfh = IO::File::->new(sprintf('/proc/%d/cmdline', $clientpid));
- if (defined $procfh) {
- $cmd = <$procfh>;
- $procfh->close;
- # FIXME: maybe there's a better way to display this textually
- # that doesn't conflate spaces with argument delimiters?
- $cmd = join(' ', split(/\0/, $cmd));
- }
- push @clienttext, sprintf("Process %d (%s)", $clientpid, $cmd);
- }
- if ($#clienttext >= 0) {
- $tip = sprintf("%s\n\nRequested by:\n%s\n", $tip, join("\n", @clienttext));
- }
- $logger->log('info', "%s\n", $msg);
- $logger->log('verbose', "%s\n", $tip);
+ $uid,
+ $keyfpr->{fpr}->as_hex_string,
+ $keyfpr->{val},
+ );
+ # FIXME: what about revoked certifications?
+ # FIXME: what about expired certifications?
+ # FIXME: what about certifications ostensibly made in the future?