【粛々と】シークレット★忍法帖巻物 8【情報収集、集約スレ】

処理はこう続くんだけど・・・

&foxSuiton($GB) ; # 忍法帖 焼き　すいとん
&foxDoton($GB) ; # 忍法帖 スレスト　どとん

#==================================================
#　トラックバック
#==================================================

#トラックバック処理
&foxTrackBack($GB) ;

#==================================================
#　VIPクオリティ
#==================================================

#株価の表示
&ReplKabuka($GB) ;

#忍法帖
&ReplNinja($GB) ;

#VIPクオリティ(おみくじとかお年玉とかIQとか船とか)
&ReplOmikuji($GB) ;
&ReplOtoshidama($GB) ;
&ReplIQ($GB) ;
&ReplShip($GB) ;

#VIPクオリティ2.0
&VipQ2($GB) ; #!vip2:command:

#==================================================
#　レスポンスアンカー（本文）
#==================================================

# レスアンカーの処理 (>>レス番号 >>レス番号-レス番号)
&ResAnchor($GB);

#==================================================
#　ファイル操作（ＤＡＴファイル更新）
#==================================================

# BEかどうか
if($GB->{isBE})
{
# ポイントに応じた、BE用の文字列を作成する
# $GB->{xBE} に格納される
&MakeBEString($GB);
}
else
{
# BEじゃない場合
$GB->{xBE} = "";
}

# トラックバックの場合、名前欄は固定
if($GB->{TBACK}) {$GB->{FORM}->{'FROM'} = "トラックバック ★";}

# IDのところに表示する文字列と、芋掘りの芋を作る
# $GB->{xID} と $GB->{LOGDAT} に格納される
&MakeIdStringAndLogdat($GB);

# 1ユニット分のdatを作る
# $GB->{OUTDAT} に格納される
&MakeOutdat($GB);

# 芋のファイル名(フルパス)
my $DATALOG = $GB->{LOGPATH} . $GB->{FORM}->{'key'} . ".cgi";

# datのファイル名(フルパス)
my $DATAFILE = $GB->{DATPATH} . $GB->{FORM}->{'key'} . ".dat";