Movable Typeコミュのmt-comments.cgiください！！

全角文字がないコメントお断りにしようとuse strict;の後にコピペをしたら書き込み全部エラーが出てしまうようになりました。復元しようと追加分を消したのですがちゃんと動きません。むむー。
バックアップを取るべきでしたが簡単な作業だと油断してやってしました。どなたかmt-comments.cgiを貼付けていただけませんか？
または下のcgiどこがまずいのか指摘していただけませんか？

初歩的な質問が少ないなか本当に恐縮です。これお詫びになるかどうか。電車のなかで独り言を言ってたおばさんの声を録音してたMP3ファイルです。貼っておきます(約10M)

http://www5f.biglobe.ne.jp/~mozz/sister.mp3

mt-comments.cgi
-----------------------------
#!/usr/bin/perl -w

# Copyright 2001-2003 Six Apart. This code cannot be redistributed without
# permission from www.movabletype.org.
#
# $Id: mt-comments.cgi,v 1.34 2003/02/12 01:05:31 btrott Exp $
use strict;

my($MT_DIR);
BEGIN {
if ($0 =~ m!(.*[/\\])!) {
$MT_DIR = $1;
} else {
$MT_DIR = './';
}
unshift @INC, $MT_DIR . 'lib';
unshift @INC, $MT_DIR . 'extlib';
}

eval {
require MT::App::Comments;
my $app = MT::App::Comments->new( Config => $MT_DIR . 'mt.cfg',
Directory => $MT_DIR )
or die MT::App::Comments->errstr;
local $SIG{__WARN__} = sub { $app->trace($_[0]) };
$app->run;
};
if ($@) {
print "Content-Type: text/html\n\n";
print "An error occurred: $@";
}
---------------------------------

コメント(3)

最初
全て
最新の40件

[2] mixiユーザー 11月02日 09:33

これやったら、TypeKey認証ができなくなってしまって、現在元に戻しています。

[3] mixiユーザー 11月11日 22:00

> 追記部分
> use CGI qw(:standard);
> my $sc_tx = param('text');
> my @sc_s;
> my $sc_n= 1;
> my $sc_m= 1;
> use Jcode;
> Jcode::convert(?$sc_tx,'sjis');
> @sc_s = $sc_tx =~ /(?x82[?xa0-?xf2]|?x81?x5b){$sc_n,}/g;
> die if($sc_tx ne "" && scalar(@sc_s)<$sc_m);

ウチではこれだとエラーがでてしまいました。
で、その初期型の「半角英数記号しか～」に変更し、テストということでまず自分で投稿してみたところ、半角英数のみで投稿できてしまうようです。
む、無念！

http://saluki.moo.jp/mt/archives/200411/11/2123.php

ログインすると、みんなのコメントがもっと見れるよ