bgsound.cgi

#!/usr/bin/perl -T

#for sysopen()
use Fcntl;

# 設定ファイル読み込み
if ( -f "./moe_bbs_cnf.pl" ){
	require './moe_bbs_cnf.pl';
}else{
	require './moe_bbs_cnf.pl.md';
}


if($ENV{'QUERY_STRING'}){
	($name, $value) = split(/=/,$ENV{'QUERY_STRING'});
	$bgm = $value;
}else{
if($bgm_play){
	#open(IN,"$logfile");
	sysopen(IN,"$logfile",O_RDONLY);
	@lines = <IN>;
	close(IN);
	shift(@lines);
	
	foreach $line (@lines) {
		local($num,$k,$dt,$na,$em,$sub,$com,
		$url,$host,$pw,$color,$icon,$b,$up_on,$img) = split(/<>/, $line);

		if($img =~ /bgm$/){
			$img =~ s/bgm$//;
			if($img =~ /\.$/){
				$img="$img"."bgm";
			}
			$bgm=$img;
		}elsif($img =~ /cgm$/){
			$img =~ s/\.([^.]+)\.([^.]*)cgm$//;
			$bgm = "$img.$2";
			if($bgm =~ /\.$/){$bgm="$bgm"."bgm";}
		}

		if($bgm){last;}
	}
}
}


if($ENV{'HTTP_USER_AGENT'} =~ /MSIE/){
	$bgm_ex="<bgsound src=\"$bgm\" loop=infinite>";
}else{
	$bgm_ex="<EMBED SRC=\"$bgm\" WIDTH=150 HEIGHT=40 AUTOSTART=true REPEAT=true LOOP=true PANEL=0>";
}


print "Content-type: text/html\n\n";
print <<EOM;
<!doctype html>
<html>
<head>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=utf-8">
</head>
<body>
$bgm_ex
</body></html>
EOM