前回はMobaSiFでのWebアプリケーション実装例を示し，実行時の内部処理を説明しました。今回はMobaSiFに含まれる個々のPerlモジュールを解説していきます。

MobileEnvモジュール

MobileEnvモジュール（pm/MobileEnv.pmファイル）は，

• 接続元IPアドレスでのケータイキャリア判別
• ケータイ機種情報，端末IDの取得

を行います。リスト6のようにして使用します。

use MobileEnv;
MobileEnv::set();

MobileEnv::set( )を行うと，以後は表2に示した値を「MB_」から始まる名前の環境変数より取得できるようになります（MobaSiFのディスパッチャを利用してWebアプリケーションを記述する場合，pm/Page/Main.pm内で実行されるため，常にこれらの環境変数を利用できます⁠）⁠。

IPアドレスとMB_CARRIER_IPの関係は，D，A，Vについてはconf/ipident.confファイルで，I，Xについてはconf/ipident_local.confの各ファイルで指定します。したがって，キャリア側でIPアドレスの変更があるたびにconf/ipident.confの更新が必要になります。

Requestモジュール

Requestモジュール（pm/Request.pmファイル）は，ユーザがFORMに入力した値，あるいはURLのquery stringに設定した値をハッシュリファレンスの形で利用できるようにします。リスト7のようにして使用します。

MobaSiFのディスパッチャを利用したWebアプリケーションでは，pm/Page/Main.pm内で自動的に実行されるため，$_::FでReqeustインスタンスを利用できます。

use Request;
$_::F = new Request();
my $value = $_::F->{key};

UserDataモジュール

ユーザ情報は，MobileEnvモジュールで提供される環境変数MB_UID（端末ID）に基づいてuser_dataテーブルから取得します。リスト8のようにして使用します。配布されるUserDataモジュールでは，表3にまとめたキーを利用して，対応する値を取得できます。なお，環境変数MB_UIDに対応する行がuser_dataテーブルにない場合は，これらの値は未定義になります。

このほかの値の登録／取得が必要な場合は，user_dataテーブルへのカラム追加とUserData.pm中のSQL文の変更が必要になります。

use UserData;
$_::U = new UserData();
my $user_id = $_::U->{USER_ID};

MobaSiFのディスパッチャを利用してWebアプリケーションを記述する場合，pm/Page/Main.pm内で自動実行されるため，$_::UでUserDataインスタンスを利用できます。また，この値はディパッチャ自身でもconf/pages.confで要求する各種ステータスのチェックに利用されます。