#!/usr/bin/perl
$HTML = "Content-type: text/html\n\n";
###################################################################
#■
ゲーム音楽館トップ表示
###################################################################
require "cgi-bin/lib/util.pl";
require "cgi-bin/lib/common.pl";
require "cgi-bin/lib/default.pl";
require "cgi-bin/lib/pichar.pl";
&parseInput();
&default();
###################################################################
#◆初期設定
$PageTitle = 'ゲーム音楽館☆';
$SaveDir = 'cgi-files/html';
$CountFile = 'index.dat';
if($in{'Browser'}){
$Browser = $in{'Browser'};
}else{
$Browser = &getBrowser();
}
###################################################################
#◆引数代入
$G_ID = $in{'G_ID'};
$frame = $in{'frame'};
###################################################################
#◆外部プログラムショートカット
$query = $ENV{'QUERY_STRING'};
if($query && $query !~ m/=/){
if($query =~ m/^[0-9]{5,6}$/ || $query =~ m/^z[0-9]{4}$/){
$in{'n'} = $&;
}elsif($query =~ m/^gm[0-9]{1,4}$/ || $query =~ m/^N[0-9]{5}$/){
$in{'b'} = $&;
}elsif($query =~ m/^[bcolw]{1}[0-9]{2}$/){
$in{'l'} = $&;
}elsif($query =~ m/^[ns]{1}[-]{1}[0-9]{3}$/){
$in{'k'} = $&;
}
}
foreach $Program ('b','c','d','f','k','l','m','n','o','p','r','s','t','bbs','log','search'){
if($in{$Program}){
$URL = "$BaseURL/$Progra
m.cgi?n=$in{$Program}";
if($in{'w'} ){ $URL .= "&w=$in{'w'}"; }
if($in{'Case'} ){ $URL .= "&Case=$in{'Case'}"; }
if($in{'Time'} ){ $URL .= "&Time=$in{'Time'}"; }
if($in{'MType'} ){ $URL .= "&Time=$in{'MType'}"; }
if($in{'Keyword'}){ $URL .= "&Keyword=$in{'Keyword'}"; }
print "Location: $URL\n\n";
exit;
}
}
###################################################################
#◆ブラウザ別処理
if($Browser eq 'j2'){
print "Location: $BaseURL/$SaveDir/index_20.html\n\n";
exit;
}
if($Browser eq 'pc'){
if($frame eq ''){
$HTML .= "<html><head>";
$HTML .= "<title>$PageTitle</title>";
$HTML .= "<frameset cols='180px,*' framespacing='0' border='0' frameborder='0'>";
$HTML .= "<frame src='?frame=left' name='left'>";
$HTML .= "<NOFRAMES>";
$HTML .= " このページにはフレームを利用しております。<br>";
$HTML .= " ブラウザが対応していない場合は<a href='
index.cgi?frame=noframes'>こちら</a>からお入り下さいm(_ _)m<br>";
$HTML .= "</NOFRAMES>";
$HTML .= "<frame src='$SaveDir/index_right.html' name='right'>";
$HTML .= "</frameset>";
$HTML .= "</head></html>";
print $HTML;
exit;
}
}
###################################################################
#◆カウントアップと読み込み
&CounterPlus($CountFile,1);
$Record = &fread($CountFile);
($Total,$Today,$Yesterday,$ThisMonth,$LastMonth) = split(/\t/,$Record);
###################################################################
#◆
index.html読み込み
$HTML .= &fread("index.html","html");
###################################################################
#◆置き換えとhtml出力
$HTML =~ s/_TOTAL_/$Total/; # 合計ｶｳﾝﾄ
$HTML =~ s/_TODAY_/$Today/; # 今日ｶｳﾝﾄ
$HTML =~ s/_YESTERDAY_/$Yesterday/; # 昨日ｶｳﾝﾄ
$HTML =~ s|_FrameTarget_|<base target="right">|; # ﾌﾚｰﾑﾀｰｹﾞｯﾄ
#□バナー置換え
if($HTML =~ m/_BA
NNER_/){
if($Browser eq 'i'){
$HTML =~ s/_BANNER_/image\/index.gif/g;
}else{
$HTML =~ s/_BANNER_/image\/index.png/g;
}
}
#□おすすめ着メロ置き換え
if($HTML =~ m/_COOL_/){
if($Browser eq 'j3'){
$HTML = &replace($HTML,$1,&fread("$SaveDir/cool_allmodel.html","html"));
}else{
$HTML = &replace($HTML,$1,&fread("$SaveDir/cool_full.html","html"));
}
}
#□色々置換え
if($Browser eq 'pc'){
if($frame eq 'left'){
$HTML =~ s/_SELF_/ target="_self"/g;
$HTML =~ s/_TOP_/ target="_top"/g;
}
if($HTML =~ m/_GAMEBBS_/){
$HTML = &replace($HTML,$1,&fread("$SaveDir/index_gamebbs.html","html"));
}
}
#□置き換え文除去
$HTML =~ s/_TOP_//g;
$HTML =~ s/_SELF_//g;
$HTML =~ s/_COOL_//g;
$HTML =~ s/_GAMEBBS_//g;
$HTML = &pichar($HTML);
print $HTML;
更新者：
りょうた 2004-07-31 (土) 14:53:12
作成者：
りょうた 2004-07-31 (土) 14:15:44