#!/usr/local/bin/perl


#�¡“ú–{ŒêƒR�[ƒh•ÏŠ·ƒ‰ƒCƒuƒ‰ƒŠ
require '../jcode.pl';

#�¡�‰Šú�Ý’è�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡
#ƒx�[ƒX‚t‚q‚k‚ÌŽw’è
#$url = "http://www.inspirit.jp";
$url = "http://www.sandou.org/shootodenshou";

#‰æ‘œƒtƒHƒ‹ƒ_‚ÌŽw’è
#$img_url = "./img";
$img_url = "../../images/news/shooto/bin";
	$MaxW = "80";
	$MaxH = "80";
$com_kazu = "10";



#---------------------------------------------------------------------------------------
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }

	
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {

	($name, $value) = split(/=/, $pair);
	$name =~ tr/+/ /;
	$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

	# ‹L˜^‚·‚éƒf�[ƒ^‚Íeuc‚É“�ˆê‚·‚é
	&jcode'convert(*name,'sjis');
	&jcode'convert(*value,'sjis');

	$value =~ s/</&lt;/g;
	$value =~ s/>/&gt;/g;
	$value =~ s/://g;
	$value =~ s/,/�C/g;
	$value =~ s/\r\n/\n/g;
	$value =~ s/\r/\n/g;

	$in{$name} .= $value;
	
}

#---------------------------------------------------------------------------------------
$name  = $in{'name'};
$tel  = $in{'tel'};
$mail  = $in{'mail'};
$menu  = $in{'menu'};
$page  = $in{'page'};




#�¡HTMLƒwƒbƒ_�[‚Ì�o—Í�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡
print "Content-type:text/html\n\n";
#&HTML_HEAD_print;


&DATA_read;

$page_count = @all_data;
$c_start = $page * $com_kazu;
$c_end = $c_start +$com_kazu;



#�¡Še‹LŽ–‚Ì�o—Í�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡

$comment_lines ="";


#foreach $data_line(@all_data){
for( $i = $c_start ; $i < $c_end ; $i++ ){
		$data_line = $all_data[$i];
		if ($data_line eq ""){next;}
		&jcode'convert(*data_line,'sjis');
		@data_sep = split(/<>/,$data_line);
		
		
#print <<_;
$comment_lines .=<<_;
<br>
<a name="$data_sep[0]"></a>
<table width="600" border="0" cellpadding="2" cellspacing="0">
<tr bgcolor="#111111"><td align="left"><font color="#FFFFFF" size="3"><strong>$data_sep[5]</strong></font></td></tr>
<tr bgcolor="#000000"><td align="right"><font color="#FFFFFF" size="1">[$data_sep[2]]</font></td></tr>
<tr>
<td align="left"><font size="2">
_
if ($data_sep[7] ne ""){
	$binfilename = $img_url."/".$data_sep[7];
	($W, $H) = &JpegSize($binfilename);
	$comment_lines .= "<a href=\"$img_url/$data_sep[7]\" target=PIC>";
	$comment_lines .= "<img src=\"$img_url/$data_sep[7]\" align=\"right\" width=$W height=$H border=0 hspace=10>";
	$comment_lines .= "</a>";
	($W, $H) = (0,0);
}
#print <<_;
$comment_lines .=<<_;
$data_sep[6]
</font>
</td>
</tr>
</table>
_
	}
&pagenavi;


&HTML_read;

exit;


#�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡

sub pagenavi{
	$comment_lines .= "<BR><BR><table width=\"600\" border=\"0\" cellspacing=\"0\" cellpadding=\"5\"><tr><td><font size=1>";
	$page_prev = $page-1;
	$page_next = $page+1;
	if ($page > 0){
		$comment_lines .= "<a href=./news.cgi?page=$page_prev>‘O‚̃y�[ƒW</a>�@�@�@";
	}
	$comment_lines .=  "</font></td><td align=right><font size=1>";
	if ($page < 5 && $page_count > $c_end){
		$comment_lines .= "<a href=./news.cgi?page=$page_next>ŽŸ‚̃y�[ƒW</a><BR>";
	}
	$comment_lines .= "</font></td></tr></table>";
}





#�¡ƒf�[ƒ^‚Ì“Ç‚Ý�ž‚Ý�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡
sub DATA_read{
	#$com_data = "./calm/rec.dat";
	$com_data = "./shooto/rec.dat";
	$p = "0";
	if (!open(READ, "< $com_data")) { $mess="ƒf�[ƒ^“Ç‚Ý�ž‚݃Gƒ‰�[<BR>$reserve_data";&error($mess); };
	while(<READ>){
		chop;
		$all_data[$p] = $_;
		$p++;
	}
	close(READ);
}




#�¡HTMLƒeƒ“ƒvƒŒ�[ƒgƒtƒ@ƒCƒ‹‚Ì“Ç‚Ý�ž‚Ý�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡�¡
sub HTML_read{

	$html_lines = "";
	
	$replace_line ='<!--DO NOT REPRACE THIS LINE-->';
	
	$html_data = "./TMP.html";

	$p = "0";
	if (!open(READ, "< $html_data")) { $mess="ƒf�[ƒ^“Ç‚Ý�ž‚݃Gƒ‰�[<BR>$reserve_data";&error($mess); };

	while (my $line = <READ>) {
		if ($line =~/$replace_line/){
			#$html_lines.= $comment_lines;
			print $comment_lines;
		}else{
			#$html_lines.= $_;
			print $line;
		}
	}
	close(READ);
}


sub error {
$comment_lines .= <<_;
<hr width="90%">
<font size=5 color="#FFFFFF">
_
	$comment_lines .= $_[0];
$comment_lines .= <<_;
</FONT>
<hr width="90%">
_
	&HTML_FOOT_print;
	exit;
}

;#***************************************************************************#
;#  �m–¼�Ì�n    JpegSize             :   ‚i‚o‚d‚f‰æ‘œƒTƒCƒY                  #
;#  �mˆø�”�n    $jpeg(i)             :   ‘Î�Ûƒtƒ@ƒCƒ‹–¼                      #
;#  �m•Ô’l�n    $W                   :   ‰¡ƒTƒCƒY                            #
;#              $H                   :   �cƒTƒCƒY                            #
;#***************************************************************************#
sub JpegSize {
	local($jpeg) = @_;
	local($t, $m, $c, $l, $W, $H);

	open(JPEG,"$jpeg") || return (0,0);
	binmode JPEG;
	read(JPEG, $t, 2);
	while (1) {
		read(JPEG, $t, 4);
		($m, $c, $l) = unpack("a a n", $t);

		if ($m ne "\xFF") { $W = $H = 0; last; }
		elsif ((ord($c) >= 0xC0) && (ord($c) <= 0xC3)) {
			read(JPEG, $t, 5);
			($H, $W) = unpack("xnn", $t);
			last;
		}
		else {
			read(JPEG, $t, ($l - 2));
		}
	}
	close(JPEG);
	
			if ($W > $MaxW || $H > $MaxH) {
				$W2 = $MaxW / $W;
				$H2 = $MaxH / $H;
				if ($W2 < $H2) { $key = $W2; }
				else { $key = $H2; }
				$W = int ($W * $key) || 1;
				$H = int ($H * $key) || 1;
			}
	return ($W, $H);
}