Return to morepgp CVS log

Up to [PGP] / pgp / contrib / mail_tin

Annotation of pgp/contrib/mail_tin/morepgp, revision 1.1.1.1

1.1       root        1: #!/usr/local/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/ucb/more';
                     12: $pager = $ENV{'PAGER'} if ($ENV{'PAGER'});
                     13: open (PAGER, "|$pager") || die "cannot open pipe to $pager\n";
                     14: while (<STDIN>) {
                     15:     if (!$topgp) {print PAGER;}
                     16:     if (!$topgp && m/^-----BEGIN PGP .*-----/) {
                     17:         $topgp = 1;
                     18:         close PAGER;
                     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 TMPFILE $_;
                     25:         if (m/^-----END PGP .*-----/) {
                     26:             $topgp = 0;
                     27:             close TMPFILE;
                     28:             $clrfile = "/tmp/.clr.$$.$logname";
                     29:             `pgp $tmpfile -o $clrfile`;
                     30:             open (PAGER, "|$pager") || die "cannot open pipe to $pager\n";
                     31:             open (CLEAR, "<$clrfile");
                     32:                         print PAGER "-----BEGIN PGP TEXT-----\n";
                     33:             while (<CLEAR>) { print PAGER; }
                     34:             close CLEAR;
                     35:             unlink($clrfile);
                     36:             unlink($tmpfile);
                     37:             print PAGER "-----END PGP TEXT-----\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.