perlのメールフォームでS/MIME送信
お世話になります。
perlをつかってメールフォームを作っています。
メールフォームから受け取った情報を(受け取るまでは暗号化してます。)
S/MIMEで暗号化しメール送信したいと考えております。(linux sendmeil)
調べてみたところopensslを使いあらかじめ用意したテキストファイルを
S/MIMEで送る事ができました。
↓こんな感じです。---------------------------------------------------------------
$SMIME = 'openssl smime -sign -signer my-cesr.pem -inkey key.pem -in mail.txt -text |
openssl smime -encrypt -from masa@****.co.jp -to yosi@****.co.jp -subject "signtest"
-des3 my-cesr.pem | /usr/sbin/sendmail masa@****.co.jp';
open (MAIL, "| $SMIME");
close(MAIL);
--------------------------------------------------------------------------------
↑この方法ですとメールフォームから受け取った情報を一度ファイルに
保存(mail.txt)しなければならないので、実用的ではありません。
何とかファイルからではなく変数で送信したいのですがうまく行きません。
っというか方法がさっぱり分かりません。
どうぞ宜しくお願いします。m(__)m
お礼
わかりやすい説明ありがとうございました。