【index.cgiの編集】

設定改名履歴 ※このキーワードは元キーワードの作成者のみ作成・編集が可能です。

■キーワード内容

#!/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/$Program.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/_BANNER_/){
	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;

■G-ID

KeyWiki Ver 0.6.9
(c) 2004 Ryota