当然、 入力データ(特にコマンドなど)に対する正当性の検査( input validation ) が行なわれています。 全プログラムで統一された検査を行なうため、 FML::Restriction クラスに基づいて検査が行なわれます。 そもそも記事に対する入力制限(入力データの表現範囲の制限)というものは考 えにくい概念です。 実際 FML::Restriction クラスによる入力データチェックは行なわれていません。 (SPAM であろうと思われる)一行メールなどをはじくために FML::Filter クラスによるフィルタチェックが行なわれ得ます。 ただし、これは記事の内容に対するチェックではないので、 FML::Restriction の対象としている操作とは意味合いが異なります。 コマンドメールは FML::Process::Command の中で一行ずつ FML::Restriction::Command で定義されている正規表現にしたがって 入力されたコマンド列が検査されます。検査に合格すれば、 FML::Command::{User,Admin}::コマンド の実行に進むことができます。 CGI の各プログラムでは、safe_param_XXX() という関数経由でのみ HTTP セッションからのデータを受けとることができます。 safe_param_*() および try_cgi_*() は安全な値を返すことになっています。 これらの safe_param_XXX() は FML::Restriction::CGI ( FML::Restriction::Base を継承している)経由でパターンの検査をし、 検査に合格した場合にのみ値が返されています。 コマンドラインで実行する(シェルの上での操作が可能である)ので 「入力チェックをしない」のがデフォルトです。 つまり、そのシェルが取れる時点で正規のユーザであると認証されているはず なので「正しいユーザ/そのユーザのすることはすべて正しい」と信じています。 もちろん、各モジュールごとの制限は受けます。 たとえば、adduser でアドレスを追加しようとしても、 正しいアドレスに見えないような文字列を入れれば拒否されます。 このあたりの制限は各モジュール依存です。 入力データや、 コマンドの ACL は FML::Restriction クラス以下にモジュールを配置することにしています。 たとえば、CGI では FML::Restriction::CGI クラスのモジュールを用いて 入力データがある正規表現の中に収まるかどうか？の検査をしています。 FML::Restriction 以下では Base を継承していますが、他のモジュールでは、 FML::Restriction クラスを object composition して使って下さい。 たとえば、 use FML::Restriction::CGI; $safe = new FML::Restriction::CGI; my $allowed_regexp = $safe->param_regexp(); if ($value =~ /^$allowed_regexp{$key}$) { ... ok, do something ... ;} のように使います。 CGI では FML::Restriction::CGI クラスのモジュールを用いて 入力データがある正規表現の中に収まるかどうか？の検査をします。 入力値は、前述のクラスの入力制限をうけるべきです。 そのため、直接 param() を使ってはいけません。 必ず safe_param_xxx() メソッドを通じて、 param() ( CGI モジュール )からのデータ入力をして下さい。 なお、入力されたキーワード一覧を調べるために、 for my $dirty_buf (param()) { ... check ... } のような構文を許す必要があるでしょうが、 param($dirtty_buf) などとはしてはいけません。必ず for my $key (param()) { ... check ... if (key eq $key) { value = safe_param_key() } } のように書いて下さい。 FML::Restriction のクラスでは RFC などで許されている表現のごく一部だけを許しています。 そもそも RFC の定義が広すぎるので、 手抜きといえば手抜きになりますが、 コードは安全側にたおしています。 ただし FML::Restriction::Command はコマンドのシンタックスチェックは、 もうちょっと粒度を上げるべきなのかもしれません。 現状では未実装。