【k.cgiの編集】

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

■キーワード内容

#!/usr/bin/perl
###################################################################
#■概要：新作htmlリスト作成
###################################################################
require 'cgi-bin/lib/util.pl';
require 'cgi-bin/lib/jcode.pl';
require 'cgi-bin/lib/common.pl';
require 'cgi-bin/lib/default.pl';
&parseInput();
&default();

###################################################################
#◆初期設定
$SaveDir = 'cgi-files/csystem';
$n = $in{'n'};
$SinNumber = substr($n,2,3);
$SinNumber =~ s/1/１/g;	$SinNumber =~ s/2/２/g;	$SinNumber =~ s/3/３/g;	$SinNumber =~ s/4/４/g;	$SinNumber =~ s/5/５/g;
$SinNumber =~ s/6/６/g;	$SinNumber =~ s/7/７/g;	$SinNumber =~ s/8/８/g;	$SinNumber =~ s/9/９/g;	$SinNumber =~ s/0/０/g;
$SinName = "新作$SinNumber！";

##################################################################
#◆着メロデータファイル存在チェック
if(-e "$SaveDir/dat_k_smd/$n.dat"){
	$w = 'smd';
}elsif(-e "$SaveDir/dat_k_mmf/$n.dat"){
	$w = 'mmf';
}elsif(-e "$SaveDir/dat_k_ma3/$n.dat"){
	$w = 'ma3';
}elsif(-e "$SaveDir/dat_k_ma5/$n.dat"){
	$w = 'ma5';
}else{
	&Error("新作着メロデータファイルが存在しません<br>");
}

##################################################################
#◆htmlファイル更新チェック
$FilePass = "$SaveDir/html_k_$w/$n.html";
if( !(-e "$FilePass")){
	&makehtml();
}else{
	if(substr(&getLocalTime(),0,10) != substr(&getFileLastUpdate($FilePass),0,10)){
		&makehtml();
	}
}

##################################################################
#◆着メロリストアクセスカウント
&CounterPlus("$SaveDir/listlog_$w.dat",1);

###################################################################
#◆ジャンプ
print "Location: $BaseURL/$SaveDir/html_k_$w/$n.html\n\n";

###################################################################
#▼html作成
#（引数：なし）
#（返却値：ブラウザ名）
###################################################################
sub makehtml{

open(IN, "$SaveDir/dat_k_$w/$n.dat");
	@Record = <IN>;
	close(IN);
	#@Record = sort { (split(/\t/,$a))[8] cmp (split(/\t/,$b))[8] } @Record;

$Total = $#Record + 1;
	&splitRecord($Record[0]);
	if($MWaon eq 'ma5'){ $Waon = '64和音'; }elsif($MWaon eq 'ma3'){ $Waon = '40和音'; }elsif($MWaon eq 'mmf'){ $Waon = '16和音'; }elsif($MWaon eq 'smd'){ $Waon = '3,4和音';}

open(HTML, "> $SaveDir/html_k_$w/$n.html");
	print HTML &htmlHeader('o2', "$SinName【$Waon全$Total曲】");
	print HTML "<table><tr><td bgcolor='#3300CC'><font color='#FFFFFF'>$SinName<br>【$Waon全$Total曲】</font></td></tr></table>\n";

for($i = 0; $i <= $#Record; $i++){
		&splitRecord($Record[$i]);
		$TLevel = &RankMark($TLevel);
		$MSize = &htmlMSize($MSize,$MTitle);

if($MWaon eq 'ma5'){ $Waon = '64和音'; }elsif($MWaon eq 'ma3'){ $Waon = '40和音'; }elsif($MWaon eq 'mmf'){ $Waon = '16和音'; }elsif($MWaon eq 'smd'){ $Waon = '3,4和音';}
		$TName =~ s/"//g;	$GName =~ s/"//g;	$MName =~ s/"//g;

print HTML "<hr><a href=../../../?$MCode>$MName$MSize</a><br>";
		print HTML "$GName<br>";
		print HTML "by $TName$TLevel<br>";
		print HTML "<br>";
	}
	print HTML &htmlFooter();
	close(HTML);
}

■G-ID

KeyWiki Ver 0.6.9
(c) 2004 Ryota