read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
length($buffer) > 5000 && &error('投稿内容が大きすぎます');

カキコを読みこんで、長すぎたらサブルーチンに 「投稿内容が大きすぎます」って引数渡して、 errorサブルーチンよびだして、「投稿内容が大きすぎます」を表示させる。 「投稿内容が大きすぎます」は書き換えてもいい。 「もっと短く書いてね」とか、 ただし、''を間違って削除しちゃだめ

$referer = $ENV{'HTTP_REFERER'};
$referer =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$referer =~ /^$urlbase([\w\.\-]+)/ || &error('エラー');
$folder = $1;

２行目（通しで29行目）は、おまじないだから、気にしない ３行目（通しで30行目）で、動いているディレクトリを$1にとりこんで後の作業に使うためのフォルダ（ディレクトリ）を次の行で$folderに代 入してる ３行目（通しで30行目）の「エラー」は、書き換えてもいい。

@pairs = split(/&/,$buffer);
foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode'convert(*value,'sjis');
$value =~ s/&/&/g;
$value =~ s/\"/"/g;
$value =~ s/ $value =~ s/>/>/g;
$value =~ s/\r\n/\r/g;
$value =~ s/\n/\r/g;
$value =~ s/\r/ /g;
$form{$name} = $value;
}

26行目でスカラーとして読みこんどいたカキコを「&」つー文字で区切って@pairsつー配列を作る その配列を、「=」つー文字で区切って、後でカキコを処理するためのハッシュをつくってる ん？なんか説明が違うかも。

つーか、ここら辺はいろいろとHTMLの表現のあれでコレだから、本物を見たほうがいいです。
とくに、赤い部分は表示されている所と、本物のソースで違います。面倒臭い。

$name = $form{'name'};
$mail = $form{'mail'};
$comm = $form{'comm'};
$subj = $form{'subj'};
$folder = $form{'folder'} if $form{'folder'};
$res = $form{'res'};
$form{'sub'} && &res;

ここも「お決まりの処理」つーことですね。 5行目（通しで５３行目）は、ハッシュformのキーfolderに値が入っていれば、スカラーfolderを作るってことかな？ 最後の行（通しで55行目）は、ハッシュformのキーsubに値が入っていなければ、レスのサプルーチンresを呼び出すってことかな？ そのsubは、後に220行あたりで、出てくる。まだ、よく読んでないので、何に使われているかわからない。たぶん、ページ数と関係して いる。

$next = $form{'next'};
$next = 1 if !$next;
$next += 20;

ここは、あめざーには見なれた、〈「次のページへ」[21]〜〉ってところの数字を作ってる。 ２行目（通しで57行目）は、前の行で取得したスカラーnextが0のときだけ、スカラーnextに1を代入するってことなんだろうなぁ？ んで、この2行やってから、スカラーnextを20増やしているのが三行目。

$reload = 1 if $name eq $subj && $name eq $comm;
$reload = 1 unless $name || $subj || $comm;

これは、説明がないぞｺﾗ。とりあえず、投稿者と題名とコメントが同じだったら、または、それらすべてが空白だったら$reloadに１が代入されて、amezo.cgiがただのリロードと同じになるということです。なぜリロードと同じになるかはこのまま読めばわかるはず。もしくは飛んでみて

@a = ($comm =~ /<br> /g);
(@a + 0 > 20 || $comm =~ /￣￣/) && &error("コメントが長すぎます");
$name =~ s/ |　//g;

上の2行は、カキコが長すぎるときのカキコを防いでいる。 2行目（通しで62行目）の20を別の数字に変えると、カキコの上限を変更できるのだろう。 感心するのは、カキコの全体の長さではなく、行数で、長すぎるかを判断しようっていう発想。 ３行目（通しで63行目）は、投稿者欄の空白を削除してるんだろうけど、なぜここで？

$x = $subj.$name.$comm;
$x =~ /山/ && $x =~ /本/ && ($subj =~ s/山//g, $name =~ s/山//g, $comm =~ s/山//g);
$x =~ /隆/ && $x =~ /雄/ && ($subj =~ s/隆//g, $name =~ s/隆//g, $comm =~ s/隆//g);

これは、カリレン・オリジナル、つーか、わひょみさんオリジナルなのか？ サポートさんの時代からあったのか？それとも、まさか本家の時代から！！ まんなことはいいや 解釈しなくてもわかるでしょ。

何も知らない人のために：これは正義なんです。 山本、隆雄の２つをNGワードにするのは正義なんです。
もちろん、普通に使うときは削除してかまわない2行です。

if($next == 21 && !$reload){

このifは133行目まで。 途中69、73、79、94、106に空白行がある。 このifは、1ページ目をつくる処理。

はい、ここで$reloadに1が入っていると、以下の処理が行なわれないことになります。さっきの話ね。

$_ = $admin;
s/(\W)/\\$1/g;
$name =~ s/$_/＃$admin/g;

この３行で、偽管理人対策をしてるんだと思う。 ２行目（通しで、71行目）は、/とかのいたずら対策かな。 ３行目の＃（全角のシャープ）を変えると、いろんな偽表示になるんだろう。 この板でどうしてるかは、やったことないので、知らない。

crypt($name, 'am') eq 'amsqKfBaSfYYU' && &del;

管理者削除の処理。 cryptは暗号化処理。「投稿者」欄をamで暗号化して、それを「amsqKfBaSfYYU」と比較して、おなじだったらdelというサブルーチンを呼び出している。 たぶん、amとamsqKfBaSfYYUの両方を変える必要がある。 そのやり方は、メンドイから、考えたくない。 たぶん、パスワード・ファイルを別に作るやり方がいいんだろうけど、 考えたくないので、誰か教えてください。 むしろ、この板のどっかで誰かがが言っていたように次のように変えるのが簡単。

#crypt($name, 'am') eq 'amsqKfBaSfYYU' && &del;
$name eq '好きなパスワード' && &del;

別に上の行は、削除してもいいけどね。もとスクに敬意をはらってコメントアウト。 あと、この書き換えだと、たぶん、簡単にパスワードを知られちゃうよ。

さっきの、自分のソースを表示する公開用の行を消さないと、削除パスがバレバレうんこたれです。

$res && undef $subj;

レスなのかどうかを判断して、レスだったら、スカラーsubjを消す レスじゃなかったら、何にもしない

$name || &error('投稿者を記入してください.');
$comm || &error("コメントが入力されていません");
$res || $subj || &error("題名が入力されていません");

レスや新しいスレッドをたてるときの記入漏れチェック スカラーnameが空だったら、引数「投稿者を記入してください」を渡してサプルーチンerrorを実行 同じくスカラーcommについてやる どっちも空じゃなかったらなにもしない んでスカラーresが空だったらスカラーsubjが空か見て、空だったら、errorを実行。

$comm =~ s/(http\:[\w\.\~\-\/\?\+\=\:\@\%\;\#]+)/<a href=$1 target=_blank>$1<\/a>/g;
$mail && ($name = "<a href=\"mailto:$mail\">$name</a> ");

１行目（通しで80行目）は、カキコのなかのリンクを新しい画面できちんと開けるようにする処理 ２行目（通しで81行目）は、メアドを書いた人のメアドを投稿者名のところでリンクする処理

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$month = ($mon + 1); $year %= 100;
$year < 10 && ($year = "0$year");
$month < 10 && ($month = "0$month");
$mday < 10 && ($mday = "0$mday");
$sec < 10 && ($sec = "0$sec");
$min < 10 && ($min = "0$min");
$hour < 10 && ($hour = "0$hour");
$wday = ("日", "月", "火", "水", "木", "金", "土")[$wday];
$date = "$month月$mday日($wday)$hour時$min分$sec秒";
$res = "$year$month$mday$hour$min$sec" unless $res;

1行目時刻取得 3行目以降、時刻フォーマット設定。

１行目（通しで82行目）は、時間をリストとして取得。 ２行目（通しで83行目）は、リストとして取得したスカラーmonは、代入される戻り値が0から始まってるので1を足している。 ３行目（通しで84行目）は、$yearを100でわって、桁を少なくしている。 あとは、一桁か二桁かを判断して、二桁ならなにもしないで、人桁なら、01とかにして代入しなおしている。 10行目（通しで91行目）は、日本語の曜日のリストを作っておいて、そこから$wdayが0から6までの数字であることを利用して、$wdayに 日本語の曜日を代入している。 で最後の行で、これを一まとめにして、あめざー同じみの日付け表示を作ってる。

$res = "$year$month$mday$hour$min$sec" unless $res;

93行目は、時刻の設定ではなく、 「レス全部を見る」でいくファイル名とか、レスする時の「レス先」とかを指定するためのスカラーresを 作ってる

$file = "./$folder/$res.html";

31行目か53行目で作っておいた$folderと93行目で作っておいた$resを使って スレッドごとのファイルの位置を$fileに代入

open(W, "+< $file") || $subj && open(W, "> $file") || &error('スレッドがありません.'

$fileっていうファイルがあれば、 それを読み書きどっちもできるかたちで（「+<」がその指定）、 ファイルハンドル「W」として開く、 （ここでWを開いたら、次は実行しない） なければ、$subj（つまり、スレッドタイトル）があるかを調べて、 あれば　$fileを書きこみよう（出力用）としてファイルハンドルWで開く （ここでWを開いたら、次は実行しない） これまでの確認で、Wを開けなければ、「スレッドがありません」つー引数を渡して サプルーチンerrorを実行

flock(W, 2);

96行目で、Wが開けてたら、 それを、書きこみできないようにしちゃう。 この書きこみの禁止（排他的ロックとか言うらしい）は、 130行目で解除されている。 flockもcryptとおんなじunix的操作で、わたしにはよくわかんない。 おんなじスレッドに同時にカキコされないようにしているってことだろう。

while(<W>){
last unless /<dt> (\d+)/;
$cnt = $1;
$pos = tell(W);
$prev = $_;
}

開いたWから、古いカキコを取り出したりする作業 whileだから、各スレッドのhtmlファイルの最後の行まで繰り返し処理をするけど、 2行目（通しで99行目）で、最後のカキコの行で、このwhileからぬけだしている。 （これで、レスカキコ用のform部品は読みこまれない）。 で、２行目でついでに、最後のカキコの番号を取得しといて、 それを３行目（通しで100行目）で、$cntに代入している。 そして、４行目（通しで101行目）で、2行目でぬけだした位置を$posに代入し、次のseekで利用する。 んで、その抜け出すまでの行（つまり、古いカキコ全部）を５行目（通しで102行目）で、$prevに代入している。 この処理は、素人ながらにも、うまいなぁ、と思う。 それとも、ふつーなのか？

seek(W, $pos, 0);

新しいカキコやレス用formをどこに書き足すかを指定している。 スレッドのhtmlファイルの先頭から、 上の101行目で取得した$posのバイト分のところに 書き足すということだろう。 ま、つまり、スレッドのhtmlファイルの古いバージョンから、 カキコ用formを除いた最後の位置に、 新しいカキコと、カキコ用formを 付け足すように、設定している。

$cnt++;

新しいカキコの番号を指定。 上の100行目でとりこんだ、最後のカキコ番号の数字を１増やしている。 インクリメント。

$prev =~ /<b>(.+) <\/b>.+<dd>(.+) <\/dl>/;
$name eq $1 && $comm eq $2 && print W && &error('二重カキコです.');

2重カキコを防ぐ処理
$prev（102行目で取得したもの）のなかから、投稿者名と投稿内容をさがす それぞれは$1と$2となるので、それを次の行で$name、$commと順番に比較し、 両方と同じであれば、「二重カキコです.」っていう引数をわたしてサブルーチンerrorを実行

なんとなく次のページヘイコウ