Option to show the users full gpg key

This commit is contained in:
Bob Mottram 2016-11-13 13:17:22 +00:00
parent 4c3fb79caf
commit a86eda5d52
1 changed files with 28 additions and 19 deletions

View File

@ -403,6 +403,13 @@ function show_gpg_key {
--msgbox $"Email Address: $MY_EMAIL_ADDRESS\n\nKey ID: $GPG_ID\n\nFingerprint: $GPG_FINGERPRINT\n\nCreated: $GPG_DATE" 12 70 --msgbox $"Email Address: $MY_EMAIL_ADDRESS\n\nKey ID: $GPG_ID\n\nFingerprint: $GPG_FINGERPRINT\n\nCreated: $GPG_DATE" 12 70
} }
function show_full_gpg_key {
clear
gpg --armor --export $GPG_ID
gpg --armor --export-secret-key $GPG_ID
any_key
}
function publish_gpg_key { function publish_gpg_key {
gpg --send-key $GPG_ID gpg --send-key $GPG_ID
if [ $GPG_BACKUP_ID ]; then if [ $GPG_BACKUP_ID ]; then
@ -663,17 +670,18 @@ function menu_encryption_keys {
trap "rm -f $data" 0 1 2 5 15 trap "rm -f $data" 0 1 2 5 15
dialog --backtitle $"Freedombone User Control Panel" \ dialog --backtitle $"Freedombone User Control Panel" \
--title $"My Encryption Keys" \ --title $"My Encryption Keys" \
--radiolist $"Choose an operation:" 18 70 10 \ --radiolist $"Choose an operation:" 19 70 11 \
1 $"Show your PGP/GPG key" off \ 1 $"Show your PGP/GPG key" off \
2 $"Publish your PGP/GPG key so that others can find it" off \ 2 $"Show your full PGP/GPG key, including private key" off \
3 $"Add someone's PGP/GPG key" off \ 3 $"Publish your PGP/GPG key so that others can find it" off \
4 $"Remove someone's PGP/GPG key" off \ 4 $"Add someone's PGP/GPG key" off \
5 $"Sign a PGP/GPG key or website domain" off \ 5 $"Remove someone's PGP/GPG key" off \
6 $"Refresh your PGP/GPG keys" off \ 6 $"Sign a PGP/GPG key or website domain" off \
7 $"Add an ssh key for logging in" off \ 7 $"Refresh your PGP/GPG keys" off \
8 $"Remove an ssh key for logging in" off \ 8 $"Add an ssh key for logging in" off \
9 $"Set the trust level for a PGP/GPG key" off \ 9 $"Remove an ssh key for logging in" off \
10 $"Back to main menu" on 2> $data 10 $"Set the trust level for a PGP/GPG key" off \
11 $"Back to main menu" on 2> $data
sel=$? sel=$?
case $sel in case $sel in
1) break;; 1) break;;
@ -681,15 +689,16 @@ function menu_encryption_keys {
esac esac
case $(cat $data) in case $(cat $data) in
1) show_gpg_key;; 1) show_gpg_key;;
2) publish_gpg_key;; 2) show_full_gpg_key;;
3) add_gpg_key;; 3) publish_gpg_key;;
4) remove_gpg_key;; 4) add_gpg_key;;
5) sign_gpg_key;; 5) remove_gpg_key;;
6) refresh_gpg_keys;; 6) sign_gpg_key;;
7) add_ssh_key;; 7) refresh_gpg_keys;;
8) remove_ssh_key;; 8) add_ssh_key;;
9) gpg_key_trust;; 9) remove_ssh_key;;
10) break;; 10) gpg_key_trust;;
11) break;;
esac esac
done done
} }