<!--
   $FML: internal.sgml,v 1.13 2008/08/17 18:28:36 fukachan Exp $
-->


<sect1 id="fml.command.internal.change">
	<title>
	補足:
	『&fml4;と &fml8; のコードの書き方はどのくらい違うか？』
	</title>

<para>
コマンドの典型である『ファイルを送り返す』だけの 
help コマンドを例にとり、
相違点を説明しましょう。
</para>

<para>
&fml4; では、適当な関数、たとえば myProcHelpFileSendBack を作り、
%LocalProcedure に書いておきます。
<screen>
%LocalProcedure = (
                    'help',     'myProcHelpFileSendBack',
                );
</screen>
myProcHelpFileSendBack をあえて書き下すと、つぎのようなものでしょう。
<screen>
sub myProcHelpFileSendBack
{
    local($proc, *Fld, *e, *misc) = @_;
    my $UJA_FILE = "/some/where/help";
    &amp;SendFile($Envelope{'Addr2Reply:'}, "UJA $ML_FN", $UJA_FILE);
}
</screen>
</para>

<para>
一方、&fml8; では help ファイルを送り返すコードの実体は
FML::Command::User::help にあり、
FML::Process::Command クラスから
(FML::Command の AUTOLOAD を経由して)呼び出されます。
</para>

<warning>
<para>
全てのコマンドは「FML::Command::User::コマンド」クラスもしくは
「FML::Command::Admin::コマンド」クラスとして実装されています。なお 
makefml は「FML::Command::Admin::コマンド」を使います。
コマンドメールや CGI は User や Admin を権限に応じて適宜使い分けます。
</para>
</warning>

<para>
help コマンドの実体は FML::Command::User::help の process() 関数です。
<screen>
sub process
{
    my ($self, $curproc, $optargs) = @_;
    my $config    = $curproc->config();
    my $charset   = $config->{ report_mail_charset_ja };
    my $help_file = $config->{ help_file };

    # template substitution: kanji code, $varname expansion et. al.
    my $params = {
        src         => $help_file,
        charset_out => $charset,
    };
    my $help_template = $curproc->reply_message_prepare_template( $params );

    if (-f $help_template) {
        $curproc->reply_message( {
            type        => "text/plain; charset=$charset",
            path        => $help_template,
            filename    => "help",
            disposition => "help",
        });
    }
    else {
        croak("no help file ($help_template)\n");
    }
}
</screen>
ここで $curproc はハッシュリファレンスで、&fml4; の %Envelope におおむ
ね相当します。名前の通り、Unix カーネルでおなじみの current process 構
造体へのポインタのようなもので、プロセスに関連するいろいろなデータ構造
やオブジェクトへのリファレンスを含んでいます。
</para>

<para>
&fml4; の変数は、すべてグローバル変数です。一方 &fml8; では $config オ
ブジェクトを通じてアクセスできる設定変数空間の中にあります。常に
$config オブジェクトを通じて読み書きをしてください。
</para>

<para>
reply_message_prepare_template() メソッドは送り返すメッセージのテンプ
レート中にある変数の展開や文字コード変換を行ない、生成されたテンプレー
トへのファイルパスを返します(テンプレートファイルは $tmp_dir ディレク
トリに作られます)。
</para>

<para>
首尾良くテンプレートファイルを用意できたら、
$curproc->reply_message() というプロセス全体のメッセージ処理を行なう関
数群のトップレベルメソッドを呼び出し、メッセージの返送処理を依頼します。
</para>

<para>
$curproc->reply_message() は引数によって振舞いがことなりますが、
いずれにせよ、メッセージをメッセージキューに入れるメソッドです。
</para>

<para>
コマンドモジュールでの処理は、キューに入れたところで終りとなります。
以下の返送処理は、どんな時でも行なわれる通常のフローの一部です。
</para>

<para>
メッセージキューに入れられたメッセージ群は、プロセスの終了直前に受信者
ごとにメッセージがまとめられ一通のメールとして組み立てなおされます。
メッセージキューの種類がファイルとメッセージが混在している場合は適宜 
MIME マルチパートのメッセージが生成されます。
</para>

<para>
メッセージの準備が整うと、送信処理を担当するメソッドが呼ばれます。
Mail::Delivery クラスが送信処理を担当するモジュールです。
生成されたメールは、
最終的に Mail::Delivery クラスへ渡され送信処理が行なわれます。
</para>

<para>
この返送の大筋は &fml4; の Notify() と同様ですが、あらゆるメッセージが
一度キューに入れられ、最後に一気に処理されるという点で大きく異なります。
</para>

<para>
なお get コマンドなども同じキューイングの仕組みを使っています。つまり 
&fml4; の Notify() 相当部分が(通常の記事配送以外の)あらゆる送信機能を
担当し、かつキューイングのみをします。そしてキューイングされたメッセー
ジは最後に一気に処理されます。この点において、送信のキューイングのメカ
ニズムが &fml4; と大きく異なっているわけです。
</para>

</sect1>
