> [-
> use GnuPG::Tie::Encrypt;
>
> tie *GNUPG, 'GnuPG::Tie::Encrypt', gnupg_path => '/usr/bin/gpg',
> armor => 1, recipient => 'Francis'
> or die "Error tying variable\n";
> print GNUPG "Hello world\n";
> local $/ = undef;
> $text = <GNUPG>;
> close GNUPG;
> untie *GNUPG;
> -]
>
You need to set optRawInput (either in a block before this one, or in your
httpd.conf) or you must escape <GNUPG> like <GNUPG>, otherwise Embperl
removes the filehandle, because it "thinks" it's an unwanted html tag
inserted by an high level html editor.
Gerald