fill_sigs () {
  recv-keys --keyring trust.gpg --no-default-keyring \
    `gpg --keyring trust.gpg --no-default-keyring --list-sigs |
     grep "User id not found" |
     perl -nle '/^sig\s.......\s(\S+)/; print "$2 $1"' |
     sort -u`
}

fill_sigs_all () {
  recv-keys \
    `gpg --list-sigs |
     grep "User id not found" |
     perl -nle '/^sig\s.......\s(\S+)/; print "$2 $1"' |
     sort -u`
}

fill_keys () {
  recv-keys --keyring trust.gpg --no-default-keyring \
    `gpg --keyring trust.gpg --no-default-keyring --list-keys |
     perl -anle '/^pub/ && print((split(m{/}, $F[1]))[1])' |
     sort`
}

fill_keys_all () {
  recv-keys \
    `gpg --list-keys |
     perl -anle '/^pub/ && print((split(m{/}, $F[1]))[1])' |
     sort`
}

push_keys () {
  send-keys --keyring trust.gpg --no-default-keyring \
    `gpg --keyring trust.gpg --no-default-keyring --list-keys |
     perl -anle '/^pub/ && print((split(m{/}, $F[1]))[1])' |
     sort`
}

push_keys_all () {
  send-keys \
    `gpg --list-keys |
     perl -anle '/^pub/ && print((split(m{/}, $F[1]))[1])' |
     sort`
}

make_graphs () {
  gpg --keyring trust.gpg --no-default-keyring --list-sigs |
  ~/bin/sig2dot.pl > mike.dot
  neato -Tps mike.dot > mike.dot.ps
  dot -Tps mike.dot > mike.dot.dot.ps
}

make_graphs_all () {
  gpg --list-sigs |
  ~/bin/sig2dot.pl > mike_all.dot
  neato -Tps mike_all.dot > mike_all.dot.ps
  dot -Tps mike_all.dot > mike_all.dot.dot.ps
}