追加されるテンプレートタグ

MTCommentFileUpload

アップロードされたファイルにアクセスする MTUpfile* タグを使うためのコンテナタグ。

MTUpfileLink

アップロードされたファイルの絶対 URL を返します。MTCommentFileUpload タグの内部で使えます。

MTUpfileSize

アップロードされたファイルのファイルサイズをバイト単位で返します。MTCommentFileUpload タグの内部で使えます。

導入方法

Step 1. プラグインのインストール

　ダウンロードしたアーカイブに含まれる MTCommentFileUpload.pl を適当なエディタで開き、 以下の行をあなたの環境に合わせて修正します。 アップロードされたファイルはここで指定されたパスに保存されます。 最終的なパスはローカルサイトパス＋szUpfilePath で指定されたパスとなります。

;### アップファイルのパス (ローカルサイトパス基準)
our $szUpfilePath = '/archive/src';

　次に、MTCommentFileUpload.pl をMovableType のプラグインフォルダにコピーします。 MovableType のメインメニューに追加したプラグイン名が表示されていることを確認します。

Step 2. コメント投稿フォームの修正

　コメント投稿フォームにアップロードファイル用フィールドを追加します。

<form method="post" action="<$MTCGIPath$><$MTCommentScript$>"
		enctype="multipart/form-data"> ← enctype を忘れずに追加します
：
添付ファイル：<input type="file" name="file"> ← アップロードファイル用フィールドを追加します

Step 3. /MT/lib/MT/App/Comments.pm の修正

　/MT/lib/MT/App/Comments.pm にアップロードされたファイルを保存する処理を追加します。 以下を参考にして Comments.pm で定義されている post 関数を修正します。

表示しているコードは MoavableType 3.151-ja のものです。

	：
    return $app->handle_error($app->errstr()) unless $comment;

;### ファイルアップロード準備 2005/09/03
my $szUpFileName;
{
	;# アップファイル上限サイズ
	my $nMaxUploadSize = 1024 * 1024;# Bytes
	;# アップできるファイル拡張子
	my @arAllowFileExt = ('jpg', 'jpeg', 'gif', 'png', 'bmp');
	;# アップファイルの格納パス(ローカル・サイト・パス基準)
	my $szUploadFilePath = $blog->site_path. '/archive/src';

	my $fh = $q->upload('file');
	if ($fh) {
		;# ファイルタイプのチェック
		my $filename = $q->param('file');
		my ($file_ext) = $filename =~ /.([^/:.]+)$/;
		my @ret = grep { /$file_ext/ } @arAllowFileExt;
		scalar (@ret)
				or return $app->handle_error ("指定されたファイルはアップロードできません");
		;# サイズチェック
		seek ($fh, 0, 2);
		if ($nMaxUploadSize < tell ($fh)) {
				return $app->handle_error ("アップロード制限サイズ($nMaxUploadSize バイト)を超えました");
		}
		$szUpFileName = $szUploadFilePath. '/%d.'. $file_ext;
	}
};### ここまで

	## Here comes the fancy logic for deciding whether or not the
	## comment appears.
	：

　同時にアップファイルに関する制限を設定することができます。

nMaxUploadSize

アップファイルの上限サイズをバイト数単位で指定します。 ここで指定されたサイズを超えてアップロードを行おうとするとエラーとなります。

arAllowFileExt

アップファイルの拡張子を網羅します。 ここで指定された以外のファイルをアップロードしようとするとエラーとなります。

szUploadFilePath

アップファイルの保存先パスを指定します。 ファイルはローカルサイトパス＋szUploadFilePath で指定されたパスに保存されます。

		if (MT->run_callbacks('CommentFilter', $app, $comment))
		{
            $comment->save;
			;### ファイルアップロード 2005/09/03
			if ($szUpFileName) {
				$szUpFileName = sprintf ($szUpFileName, $comment->id);
				unlink $szUpFileName;
				my $fh = $q->upload('file');
				seek ($fh, 0, 0);
				open (OUT, ">$szUpFileName")
						or return $app->handle_error ("$szUpFileName を開けませんでした");
				binmode OUT;
				my $buffer;
				while (read ($fh, $buffer, 1024)) {
					print OUT $buffer;
				}
				close OUT;
			};### ここまで
			$blog->touch;
			$blog->save;
    ：

Step 4. 個別アーカイブテンプレートの修正

　個別アーカイブのテンプレートを修正し、コメント欄に添付されたファイルを表示できるようタグを追加します。

<MTComments>
<$MTCommentAuthor$> at <$MTCommentDate><br />

<MTCommentFileUpload>
<img src="<$MTUpfileLink$>" align="left" alt="<$MTUpfileSize$> Bytes">
</MTCommentFileUpload>

<$MTCommentBody$>

</MTComments>

ダウンロード

ダウンロード / MD5	バージョン	日付	サイズ(Bytes)	動作環境	備考
MTCommentFileUpload GetMD5Hash('MTCommentFileUpload010.zip');	0.10	'05/09/03	GetFileSize('MTCommentFileUpload010.zip');	MovableType	3.151-ja で動作確認

楽屋裏

　アイディアは以前からあったのですが、なかなか実装に着手できませんでした。 とりあえず、最低限の機能は実現できましたが、まだまだ改善の余地はありそうです。 画像ファイルがアップされた場合にのみ、画像の縦横サイズを取得できるタグや、 縮小画像(サムネール)を自動生成してくれる機能なんかあれば便利かもしれません。