Return to morepgp CVS log

Up to [PGP] / pgp / contrib / elm_nn

Annotation of pgp/contrib/elm_nn/morepgp, revision 1.1.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: $|=1;
                      9: $topgp=0;
                     10: $logname = $ENV{'LOGNAME'};
                     11: $pager='/usr/local/bin/less -i -n -s -S -c -M';
                     12: $pager = $ENV{'PAGER'} if ($ENV{'PAGER'});
                     13: umask 077;
                     14: open (PAGER, "|$pager") || die "Cannot open pipe to $pager.\n";
                     15: print PAGER "\n";
                     16: while (<>) {
                     17:        if (!$topgp && m/^-----BEGIN PGP .*-----/) {
                     18:                $topgp = 1;
                     19:                $tmpfile = "/tmp/.pgp.$logname.$$";
                     20:                unlink($tmpfile);
                     21:                open (TMPFILE, ">$tmpfile") || die "Cannot open $tmpfile for output.\n";
                     22:        }
                     23:        if (!$topgp) {
                     24:                print PAGER;
                     25:        } else {
                     26:                print TMPFILE $_;
                     27:                if (m/^-----END PGP .*-----/) {
                     28:                        $topgp = 0;
                     29:                        close TMPFILE;
                     30:                        open (CLEAR, "pgp -f < $tmpfile |") || die "Cannot open pipe to PGP.\n";
                     31:                        print PAGER "-----BEGIN PGP DECRYPTED BLOCK-----\n";
                     32:                        while (<CLEAR>) {
                     33:                                print PAGER;
                     34:                        }
                     35:                        close CLEAR;
                     36:                        unlink($tmpfile);
                     37:                        print PAGER "-----END PGP DECRYPTED BLOCK-----\n";
                     38:                }
                     39:        }
                     40: }
                     41: close PAGER;

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