#!/usr/bin/perl

open(NAMES, "gpg --keyring WoT.gpg --no-default-keyring --list-keys --with-colons |");

while (<NAMES>) {
    @fields = split /:/;

    if ($fields[0] eq "pub") {
	$names{$fields[4]} = $fields[9];
    }
}

close(NAMES);

while (<>) {
    @fields = split /:/;

    if ($fields[9] eq "") {
	if (exists $names{$fields[4]}) {
	    $fields[9] = $names{$fields[4]};
	} else {
	    $fields[9] = "[User id not found]";
	}
    }
    print join ":", @fields;
}