#!/bin/sh


gpg --list-secret-keys --with-keygrip |
awk '
/^ssb/ {
    ssb=1
}
/Keygrip/{
    if (ssb) print $3
}' > ~/.pam-gnupg