ＰＥＴＲＯＯＭ大改造
【萌え萌えキャラクターズと遊ぼー。】

お名前の長さを制限しよう

おかげさまで、「遊ぼー。」「一緒ｩ」など、ウチの娘さんたちのところには、
あまり悪質なアクセスはありませんで、無事に稼働しておりますが、
ＰＥＴＲＯＯＭを設置されている人の中には、悪質なアクセスで困っている方が大勢いらっしゃるようです。

一番多いのが、いわゆる「変な名前」や「めちゃくちゃ長い名前」を登録されてしまうものです。
変な名前は、「禁止ワード」の改造を施せば、多少防ぐことは出来ますが、
今まで、名前の長さには制限がありませんでした。

そんな折り、本家のサポート掲示板にて、名前の長さ制限の改造が掲載されましたので、
こちらで、ご紹介いたします。
「禁止ワード」と組み合わせれば、だいぶ防げると思います。

ユーザー情報をチェック（sub checkname）に下記のように追記してください。

# ------------------------- #
# Sub Check Name
# ユーザー情報をチェック
# ------------------------- #
sub checkname {
    local($flag) = 0;

    # 未入力をチェック
    if (!$FORM{'name'}) { &error("名前がありません");       }
    if (!$FORM{'pass'}) { &error("パスワードがありません"); }
    if (length $FORM{'name'} > 20) { &error("名前が長すぎます（20バイトまで）") }

    &openinuserdata('checkname');

    # 新規ユーザーを登録
    if ($flag == 0) {
        $gdate = time - $dayhour[$playtime + 1];
        @new = @lines;
        push(@new,"$FORM{'name'}<>$FORM{'pass'}<>$gdate<>0<>\n");
        &openoutuserdata;
    }

「禁止ワード」の改造がしてある場合でも、同じ位置に追加してください。