Return to postpgp 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{'VISUALBAK'}) || ($visual = '/usr/ucb/vi');
print "starting $visual.\n";
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='';
        }
}
if (@opts) {
        $name=$ARGV[$#ARGV];
        open(INPUT,$name);
        open(HEAD,">${name}.head");
        open(BODY,">${name}.body");
        while (<INPUT>) {
                if (1 .. /^$/) { print HEAD; }
                else { print BODY; }
        }
        close(HEAD);
        close(BODY);
        system('pgp','-a',@opts,"${name}.body");
        unlink($name);
        system "cat ${name}.head ${name}.body.asc > $name";
        unlink("${name}.head");
        unlink("${name}.body");
        unlink("${name}.body.asc");
}

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