#!/usr/local/perl



# written by jason steiner, jsteiner@anwsun.phya.utoledo.edu, Jan 1993

#

# if you use or make improvements to this program i would appreciate

# copies of your modifications & your PGP public key.



($visual = $ENV{'VISUAL'}) || ($visual = '/usr/ucb/vi');

system($visual,@ARGV);

while (!$q) {

        print "Sign this message? [Y]: ";

        $q=<STDIN>;

        chop $q;

        if (($q eq 'Y') || ($q eq 'y') || ($q eq '')) {

                push(@opts,'-st','+clearsig=on');

                $q="y";

                }

        elsif (($q ne 'N') && ($q ne 'n')) {

                $q='';

        }

}

$q='';

while (!$q) {

        print "Encrypt this message? [Y]: ";

        $q=<STDIN>;

        chop $q;

        if (($q eq 'Y') || ($q eq 'y') || ($q eq '')) {

                push(@opts,'-e');

                $q="y";

                }

        elsif (($q ne 'N') && ($q ne 'n')) {

                $q='';

        }

}

if (@opts) {

        $name=$ARGV[$#ARGV];

        system('pgp','-a',@opts,$name);

        system "mv ${name}.asc $name";

}

