ストブロ

Coffee's Blog.

fmlで自動応答を実現する その2

執筆者 | 2021年01月28日 | Coffee, さくらのレンタルサーバー, ストブロ

前回までは「Recieved」という固定したファイルの中身で自動応答する事が出来ました。
文中に件名にも付与した「受付番号」を挿入したい…
という事でまたしてもヤンマさんにヒントを貰いながら、トライ&エラー

無事に完成しました!

最終的に実現出来たプログラムは以下の通りです。

#件名に挿入する文章、文字コードを変換して$RECEIVED_STATEMENTに入れる。
$str = "メール受付のご案内";
use Encode 'from_to';
from_to($str, 'Shift_JIS', 'UTF-8');
$RECEIVED_STATEMENT = "$str";


$DISTRIBUTE_CLOSE_HOOK= q{

  #自動応答の文章(前半、後半)を一時ファイルに読みこむ
  local($part1st) = &GET_BUFFER_FROM_FILE("$DIR/part1st");
  local($part2nd) = &GET_BUFFER_FROM_FILE("$DIR/part2nd");

  #空っぽのReceivedファイルから作業用の一時ファイルを作成(必要?)
  $RECEIVED_FILE =  "$DIR/received";
  $MyReceivedFile = "$DIR/received$$";
  &Copy($RECEIVED_FILE, $MyReceivedFile);
  
  #自答応答文章の組み立てパート
      if ($Envelope{'Body'}) { 
        #受付番号表示の生成
        $MY_REC_ID      = sprintf("受付番号:[${BRACKET}:%05d]", $ID);
        #メール本文が文字化けするので文字コードを変換
        from_to($Envelope{'Body'}, 'UTF-8', 'Shift_JIS');

        #空のrecievedにAppend2で文章を追記していく
        #順に、前半パート、受付番号、後半パート、メール本文
        &Append2($part1st, $MyReceivedFile);
        &Append2($MY_REC_ID, $MyReceivedFile);
        &Append2($part2nd, $MyReceivedFile);
        &Append2($Envelope{'Body'}, $MyReceivedFile);
        #RECEIVED_FILEに出来上がった文章をセット
        $RECEIVED_FILE = $MyReceivedFile;
      }
      #;
  #送信元がadminとか付かないように変更
  $Envelope{'GH:From:'} = $MAIL_LIST;
  #自動応答の件名を作成
  $MY_RECEIVED_STATEMENT=
        sprintf("[${BRACKET}:%05d] ${RECEIVED_STATEMENT}", $ID);
  #自動応答の送信
  &SendFile($From_address, $MY_RECEIVED_STATEMENT, $RECEIVED_FILE);

};
 
  #一時ファイルの削除
  $FML_EXIT_HOOK = q# 
    unlink $MyReceivedFile;
  #;

結局私の思っていたよりも遙かに手の込んだプログラムになりました(笑)
無駄なことをして居るかもしれませんが、ノンプログラマーの私としてはきちんと動作してくれるので問題なしです。

part1st、part2ndのファイルを作る

受付番号を入れる部分を中心にして、文章を前半部と後半部に分けファイルを二分割します。

Received_Statementに件名に使う文字を入れる

何故このタイミングで?と思います。
もっと適切な場所があると思いますが、動いているので気にしません。
そのままだと文字化けするので文字コードを変換しておきます。

#件名に挿入する文章、文字コードを変換して$RECEIVED_STATEMENTに入れる。
$str = "メール受付のご案内";
use Encode 'from_to';
from_to($str, 'Shift_JIS', 'UTF-8');
$RECEIVED_STATEMENT = "$str";

一時的に文章を読み込んでおく

この方法、ヘッダーやフッターを組み込むための手法として紹介されていましたが、local($xxxx)のxxxxを変えればいくらでも一時的に文章を読み込めます。
これが理解出来たのが今回の一番の肝だったかも。

 #自動応答の文章(前半、後半)を一時ファイルに読みこむ
  local($part1st) = &GET_BUFFER_FROM_FILE("$DIR/part1st");
  local($part2nd) = &GET_BUFFER_FROM_FILE("$DIR/part2nd");

仮ファイルを作成する

実は「このパートは必要なのか?」と今でも悩んでいます。
localで一時的に文章を作れるなら、ワザワザ実体のあるファイルを作る必要があるのか?という悩みです。
ただ、ちゃんと動いているので気にしません(笑)
前回は中身のあったreceivedファイルは今回は空っぽにしてあります。
さらに空のファイルをreceived$$という一時ファイルにワザワザコピーしています。
このコピーの作業も今となっては不要?ただ、一時的なファイルを作ってそこで文章を組み立てていくのは好きです。

#空っぽのReceivedファイルから作業用の一時ファイルを作成(必要?)
  $RECEIVED_FILE =  "$DIR/received";
  $MyReceivedFile = "$DIR/received$$";
  &Copy($RECEIVED_FILE, $MyReceivedFile);

文章を組み立てる

件名にも入れる受付文ですが、本文中に挿入するので改めてMY_REC_IDという変数に入れておきます。
文字化けするのでエンコード。

 #自答応答文章の組み立てパート
      if ($Envelope{'Body'}) { 
        #受付番号表示の生成
        $MY_REC_ID      = sprintf("受付番号:[${BRACKET}:%05d]", $ID);
        #メール本文が文字化けするので文字コードを変換
        from_to($Envelope{'Body'}, 'UTF-8', 'Shift_JIS');

一時ファイルとして作成したrecieved$$は空っぽなので、そこに必要な順番で追記していきます。
part1stはファイルの中身、
MY_REC_IDは受付番号、
part2ndはファイルの中身です。
つまり、事前に用意しておいたpart1stとpart2ndの間にMY_REC_IDを挿入している感じです。
既存の文章の一部を置き換えるというのが物凄く難しそうだったので、ヤンマさんのアドバイスでこの手法にたどり着きました。

ついでに「$Envelope Body」(送られてきたメール本文)を追記します。

出来上がったらRECEIVED_FILEに割り当てます。

        #空のrecievedにAppend2で文章を追記していく
        #順に、前半パート、受付番号、後半パート、メール本文
        &Append2($part1st, $MyReceivedFile);
        &Append2($MY_REC_ID, $MyReceivedFile);
        &Append2($part2nd, $MyReceivedFile);
        &Append2($Envelope{'Body'}, $MyReceivedFile);
        #RECEIVED_FILEに出来上がった文章をセット
        $RECEIVED_FILE = $MyReceivedFile;
      }
      #;

メールの送信元、件名、本文をセットして送信

前回と同様です。

 #送信元がadminとか付かないように変更
  $Envelope{'GH:From:'} = $MAIL_LIST;
  #自動応答の件名を作成
  $MY_RECEIVED_STATEMENT=
        sprintf("[${BRACKET}:%05d] ${RECEIVED_STATEMENT}", $ID);
  #自動応答の送信
  &SendFile($From_address, $MY_RECEIVED_STATEMENT, $RECEIVED_FILE);

最後に一時ファイルを削除

received$$は使い終わったので削除しておきます。

  #一時ファイルの削除
  $FML_EXIT_HOOK = q# 
    unlink $MyReceivedFile;
  #;

これで、受付番号を文中に挿入した自動応答の完成です!
いやー、長かった(笑)

頑張った!やり遂げた!ので満足感が高いです。

「ここ直した方が良いよ?」というアドバイス等ありましたらお待ちしてます♪

ボイチャでマルチトラック収録する構成

ひまちゃんにZOOM H6を貸し出してますが、「ボイチャでゲストとお話しをしてマルチトラックで収録したい」というご相談。ミキサーがあればなんてこと無いのですが、レコーダー単体だと意外に難しい。 現在のひまちゃんの構成...

VPSを移転してん

ポッドキャスト番組電器屋Walkerの配信は2つのサーバーで構成されています。 まずウェブページ、つまりこのINST-webのブログや記事を使ってもらうために「さくらのレンタルサーバー」を契約しています。...

やまごや by ひまちゃん

小屋番のひまちゃんが登山のこと、アウトドアのこと、道具のことについて語るPodcast番組が!はじまりました! その名も「やまごや」 ひまちゃんの行動力♪...

OBSとDiscordを使ったライブ配信構成

YAMAHAのAG03はオーディオインターフェースとして使えるミキサーで、Youtube Liveを初め配信界隈では相当の普及をして居るデバイスです。...

AG03とOBSを使った実用的な1人配信構成

YAMAHAのAG03はオーディオインターフェースとして使えるミキサーで、Youtube Liveを初め配信界隈では相当の普及をして居るデバイスです。...

Youtube LiveをPodcastに再配信する

これまただうさん向けの内容です。一定の需要があると思うので記事化しました。是非参考にしてみてください。 https://youtu.be/GcgdUdE0ewo Youtube Liveで「COHIRAJI」というラジオ配信をしています。...

COHIRAJIのOBS設定のご紹介

基本的にはだうさん個人にお知らせする為だけに記事を書いてます(笑)もったいないので同じような事をしたいと思っている方のお役に立てればと思って記事にする事にしました。 ここで紹介するのはOBSの設定です。...

fmlで自動応答を実現する

さくらのレンタルサーバーでメーリングリストを使用していますが、fmlというものが使用されています。 今回は「メールを送ってくれたら、送信者に受付番号を自動応答したい」という希望で色々調べたり、教えて貰ったりしました。...

0コメント


電器屋Walkerの過去配信のBGMで利用させて頂いております。