encr

   1 #!/bin/sh
   2
   3 # File ID: 40788fae-5ef6-11df-a9dd-90e6ba3022ac
   4
   5 if test "$1" = "-d"; then
   6     grep '<l>' | perl -pe 's/^.*?<l>(.*?)<\/l>.*$/$1/g' | base64 -d | gpg 2>/dev/null
   7     exit
   8 fi
   9
  10 guid=$1
  11 [ -z "$guid" ] && guid="-r sunny@sunbase.org"
  12 echo '<encr>'
  13 gpg $guid -z9 -e 2>/dev/null | base64 - | commout l
  14 echo '</encr>'