Return to postpgp CVS log

Up to [PGP] / pgp / contrib / elm_nn

Annotation of pgp/contrib/elm_nn/postpgp, revision 1.1

1.1     ! root        1: #!/usr/bin/perl
        !             2: 
        !             3: # written by jason steiner, [email protected], Jan 1993
        !             4: #
        !             5: # if you use or make improvements to this program i would appreciate
        !             6: # copies of your modifications & your PGP public key.
        !             7: 
        !             8: ($visual = $ENV{'VISUAL'}) || ($visual = '/usr/ucb/vi');
        !             9: system($visual,@ARGV);
        !            10: while (!$q) {
        !            11:         print "Sign this message? [Y]: ";
        !            12:         $q = <STDIN>;
        !            13:        $q =~ s/[ \t\n]//g;
        !            14:        $q = substr ($q, 0, 1);
        !            15:         if (($q eq 'Y') || ($q eq 'y') || ($q eq '')) {
        !            16:                 push(@opts,'-st','+clearsig=on');
        !            17:                 $q = "y";
        !            18:         } elsif (($q ne 'N') && ($q ne 'n')) {
        !            19:                 $q = '';
        !            20:         }
        !            21: }
        !            22: if (@opts) {
        !            23:         $name = $ARGV[$#ARGV];
        !            24:        umask(077);
        !            25:         open(INPUT,$name);
        !            26:         open(HEAD,">${name}.head");
        !            27:         open(BODY,">${name}.body");
        !            28:         while (<INPUT>) {
        !            29:                 if (1 .. /^$/) {
        !            30:                         print HEAD;
        !            31:                        if (m/^From: / || m/^To: / || m/^Date: /) {
        !            32:                                print BODY;
        !            33:                        }
        !            34:                 } else {
        !            35:                         print BODY;
        !            36:                 }
        !            37:         }
        !            38:         close(HEAD);
        !            39:         close(BODY);
        !            40:         system('pgp','-a',@opts,"${name}.body");
        !            41:        if ($? == 0) {
        !            42:                unlink($name);
        !            43:                system "cat ${name}.head ${name}.body.asc > $name";
        !            44:        }
        !            45:         unlink("${name}.head");
        !            46:         unlink("${name}.body");
        !            47:         unlink("${name}.body.asc");
        !            48: }
        !            49: 

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