Return to mailpgp CVS log

Up to [PGP] / pgp / contrib / mail_tin

PGP 2.2

#!/usr/local/perl

# written by jason steiner, [email protected], 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";
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.