#!/usr/bin/perl
# pgpdriver -- part of PinePGP distribution
# copyright (c) 1996 Jan M. Kujawa
# kujawa@montana.com

#call with : pgpdriver <switches> <file>

$HOME=$ENV{'HOME'};
$return_value=fork;
if( $return_value == 0 ) { #child
   exec "pgp $ARGV[0] $ARGV[1] -o $HOME/.mailpgp/mailpgp.out" ||die "unable to spawn edit process.\n"; }
elsif ( $return_value != 0 ) { #parent
   wait; 
   open(DUMMYHANDLE,"$HOME/.mailpgp/mailpgp.out.asc"); #see if pgp outputed
   if($!==""){ #pgp did output
	print "Finishing...\n";
	close(DUMMYHANDLE);
	exec "mv $HOME/.mailpgp/mailpgp.out.asc $ARGV[1]" # overwrite input file with output file
	}
    else {
	#GNDN  no mailpgp file
	}
}
else { #error
   die "fork-ing errors.  scheiBe.\n";
}

