FormMail(pgp5formmail.pl)でも、
$pgpprog = '/bin/pgpe';
~
open (PGP, "|$pgpprog -r \"$Config{'pgpuserid'}\" -af -o /pgptmp.asc > /dev/null")
~メール本文 出力~
close(PGP);
という具合にベタなメール本文をパイプで PGP プログラムに渡して暗号化。
その後、この PGP 暗号化ファイル(ASCファイル)を読み込んで、メールにセットしてるだけだなあ。
open(PGPFILE, "/pgptmp.asc")
~
while(<PGPFILE>) {
print MAIL $_;
}
close (PGPFILE);
で、不要になった ASC ファイルは、
unlink("/pgptmp.asc");
すると。
モジュール使うよりはこっちのほうが簡単だねえ。
電気ウナギ的○○
About Backコメント(0)
電気ウナギ的○○