#!/usr/local/bin/perl
#¡“ú–{ŒêƒR[ƒh•ÏŠ·ƒ‰ƒCƒuƒ‰ƒŠ
require '../cgi/jcode.pl';
#¡‰ŠúÝ’è¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
#ƒx[ƒX‚t‚q‚k‚ÌŽw’è
$url = "http://www.sandou.org/shootodenshou";
#‰æ‘œƒtƒHƒ‹ƒ_‚ÌŽw’è
#$img_url = "./img";
$com_kazu = "9";
#---------------------------------------------------------------------------------------
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//>/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—Í¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
#foreach $data_line(@all_data){
$pcnt=0;
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);
$pcnt++;
print <<_;
[$pcnt] $data_sep[5]
_
}
#¡ƒy[ƒWƒiƒrƒQ[ƒVƒ‡ƒ“‚Ìo—Í¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
&pagenavi;
#¡HTMLƒtƒbƒ^[‚Ìo—Í¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
&HTML_FOOT_print;
exit;
#¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
#¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
sub pagenavi{
if ($page eq ""){$page=0;}
$next_page=$page+1;
$prev_page=$page-1;
print <<_;
_
if ($c_end < $p){
print <<_;
[-] ŽŸ‚̃y[ƒW‚Ö
_
}
if ($page > "0"){
print <<_;
[-] ‘O‚̃y[ƒW‚Ö
_
}
}
sub HTML_HEAD_print {
print <<_;
C“l“`³ƒ‚ƒoƒCƒ‹
_
}
sub HTML_FOOT_print {
print <<_;
[0] ƒgƒbƒv‚É–ß‚é
(C)SHOOTO
_
}
#¡ƒf[ƒ^‚Ì“Ç‚Ýž‚Ý¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
sub DATA_read{
$com_data = "../ns/mobile_news/rec.dat";
$com_data = "../cgi/news/shooto/rec.dat";
$p = "0";
if (!open(READ, "< $com_data")) { $mess="ƒf[ƒ^“Ç‚Ýž‚݃Gƒ‰[
$reserve_data";&error($mess); };
while(){
chop;
$all_data[$p] = $_;
$p++;
}
close(READ);
}
sub error {
print <<_;
_
print $_[0];
print <<_;
_
&HTML_FOOT_print;
exit;
}