【m.cgi】

#!/usr/bin/perl
###################################################################
#■概要：メーカーリストhtml作成
###################################################################
require 'cgi-bin/lib/util.pl';
require 'cgi-bin/lib/common.pl';
require 'cgi-bin/lib/default.pl';
&parseInput();
&default();
###################################################################
#◆初期設定
$SaveDir = 'cgi-files/csystem';
$PageCount = 1;
$PageCount2 = 0;
$n = $in{'n'};
$w = $in{'w'};
$OnePage = 30;
#□メーカーコード変換
if($n eq 'a-'){ $n = square; }
if($n eq 'b-'){ $n = enix; }
if($n eq 'd-'){ $n = nintendo; }
if($n eq 'e-'){ $n = sega; }
if($n eq 'f-'){ $n = namco; }
if($n eq 'g-'){ $n = capcom; }
if($n eq 'h-'){ $n = snk; }
if($n eq 'j-'){ $n = bandai; }
if($n eq 'k-'){ $n = banpresto; }
if($n eq 'l-'){ $n = falcom; }
if($n eq 'n-'){ $n = leaf; }
if($n eq 'q-'){ $n = hudson; }
if($n eq 'r-'){ $n = alicesoft; }
if($n eq 's-'){ $n = sunsoft; }
if($n eq 't-'){ $n = tackey; }
if($n eq 'u-'){ $n = taito; }
if($n eq 'v-'){ $n = technos; }
if($n eq 'w-'){ $n = tecmo; }
if($n eq 'x-'){ $n = ascii; }
if($n eq 'y-'){ $n = atlus; }
if($n eq 'z-'){ $n = irem; }
##################################################################
#◆着メロデータファイル存在チェック
if( !(-e "$SaveDir/dat_m_$w/$n.dat") ){
&Error("メーカー別着メロデータファイルが存在しません<br><br>");
}
##################################################################
#◆htmlファイル更新チェック
$FilePass = "$SaveDir/html_m_$w/$n.html";
if( !(-e "$FilePass")){
&makehtml();
}else{
if(substr(&getLocalTime(),0,8) != substr(&getFileLastUpdate($FilePass),0,8)){
&makehtml();
}
}
##################################################################
#◆着メロリストアクセスカウント
&CounterPlus("$SaveDir/listlog_$w.dat",1);
###################################################################
#◆ジャンプ
print "Location: $BaseURL/$SaveDir/html_m_$w/$n.html\n\n";
###################################################################
#▼html作成
#（引数：なし）
#（返却値：ブラウザ名）
###################################################################
sub makehtml{
open(IN, "$SaveDir/dat_m_$w/$n.dat");
@Record = <IN>;
close(IN);
$Total = $#Record + 1;
chomp($Record[0]);
($GCode,$GName,$GKana,$G50,$GMaker,$GJasrac,$G50S,$GMakerS,$MTotal) = split(/\t/,$Record[0]);
if($w eq 'ma3'){ $Waon = '40和音'; }elsif($w eq 'mmf'){ $Waon = '16和音'; }elsif($w eq 'smd'){ $Waon = '3,4和音';}
if($n =~ m/[0-9]-/){ $Title = $G50; }else{ $Title = $GMaker; }
open(HTML, "> $SaveDir/html_m_$w/$n.html");
print HTML &htmlHeader('o2', "$Title【$Waon】");
print HTML "<table><tr><td bgcolor='#3300CC'><font color='#FFFFFF'>$Title<br>【$Waon】</font></td></tr></table>\n";
&html_Page();
for($i = 0; $i <= $#Record; $i++){
chomp($Record[$i]);
($GCode,$GName,$GKana,$G50,$GMaker,$GJasrac,$G50S,$GMakerS,$MTotal) = split(/\t/,$Record[$i]);
if($w eq 'ma3'){ $Waon = '40和音'; }elsif($w eq 'mmf'){ $Waon = '16和音'; }elsif($w eq 'smd'){ $Waon = '3,4和音';}
if($Count >= $OnePage){
$PageCount = $PageCount + 1;
$PageCount2 = $PageCount2 + 1;
print HTML "<hr><a href=$n-$PageCount2.html>次へ＞</a><br>";
print HTML &htmlFooter();
close(HTML);
open(HTML, "> $SaveDir/html_m_$w/$n-$PageCount2.html");
print HTML &htmlHeader('o2', "$Title【$Waon】");
print HTML "<table><tr><td bgcolor='#3300CC'><font color='#FFFFFF'>$Title<br>【$Waon】</font></td></tr></table>\n";
&html_Page();
$Count = 0;
}
print HTML "<hr><a href=../../../s.cgi?n=$GCode&w=$w>$GName\[$MTotal曲\]</a><br>";
print HTML "メーカー：$GMaker<br>";
$Count = $Count + 1;
}
print HTML &htmlFooter();
close(HTML);
}
###################################################################
#▼ページ出力
#（引数：）
#（返却値：なし）
###################################################################
sub html_Page{
if($Total > $OnePage){
if($Count >= $OnePage){
print HTML "<a href='$n.html'>[1]</a>";
}else{
print HTML "[$PageCount]";
}
for($k = $OnePage; $k < $Total; $k = $k + $OnePage){
$Page = ($k / $OnePage);
$PagePlus = $Page + 1;
if($PageCount == $Page + 1){
print HTML "[$PagePlus]";
}else{
print HTML "<a href='$n-$Page.html'>[$PagePlus]</a>";
}
}
print HTML "<br>\n";
}
print HTML "<br>\n";
}

---