fill_sigs () {
  recv-keys --keyring WoT.gpg --no-default-keyring \
    `gpg --keyring WoT.gpg --no-default-keyring --fast-list-mode \
         --with-colons --list-sigs |
     perl -anl -F: -e '
       $F[0] eq "pub" and $keys{$F[4]} = 1;
       $F[0] eq "sig" and $sigs{$F[4]} = 1;

       END {
	 for $key (sort keys %sigs) {
	   $keys{$key} or print $key;
	 }
       }
     '`
}

fill_keys () {
  recv-keys --keyring WoT.gpg --no-default-keyring \
    `gpg --keyring WoT.gpg --no-default-keyring --fast-list-mode \
         --with-colons --list-keys |
     perl -anl -F: -e '$F[0] eq pub and print $F[4]'`
}

make_graphs () {
  gpg --keyring WoT.gpg --no-default-keyring --list-sigs |
  sig2dot.pl > phil_g.dot
  neato -Tps phil_g.dot > trust.neato.ps
  dot -Tps phil_g.dot > trust.dot.ps
}