end_msg
print"$msg";
if (!open(IN,"$file")) { &error('データベースをメンテナンス中です。しばらくお待ちください。'); }
@BASE =
;
close(IN);
if ($FORM{'FF'} eq '') { $FF = 0; } else { $FF = $FORM{'FF'}; }
$TO = $FF + $page - 1;
if ($TO > $#BASE) { $TO = $#BASE; }
$hit = 0;
$next_num = '';
foreach $num ($FF .. $#BASE) {
$data = $data2 = $BASE[$num];
&jcode'convert(*data,'euc');
$data =~ s/"//g;
$data =~ s/\n//g;
$data =~ s/\t//g;
$data =~ s/\r//g;
($id,$namae,$title,$mail,$body,$jikan) = split(/\,/,$data);
if($action eq "abroad"){
if($id ne ""){;}else{next;}
}else{
if($namae ne ""){;}else{next;}
}
# 検索終了処理
if ($hit == $page) { $next_num = $num; last; }
else { push(@NEW,$data2); $hit++; }
}
############################結果が見つからないとき############################
if (!@NEW) {
$msg_e = <<"end_msg";
＿検索結果＿
end_msg
print"$msg_e";
exit;
}
############################結果があった場合############################
else {
foreach $data (@NEW) {
($id,$namae,$title,$mail,$body,$jikan) = split(/\,/,$data);
&jcode'convert(*id,'sjis');
&jcode'convert(*namae,'sjis');
&jcode'convert(*title,'sjis');
&jcode'convert(*mail,'sjis');
&jcode'convert(*body,'sjis');
&jcode'convert(*jikan,'sjis');
$jikan =~ s/\n\n//g;
$jikan =~ s/\n//g;
$jikan =~ s/\t//g;
$jikan =~ s/\r//g;
if($mail ne ''){
$namae2="$namae";
}else{
$namae2="$namae";
}
$msg_e = <<"end_msg";
end_msg
print"$msg_e";
}
}
$msg_f = <<"end_msg";
end_msg
print"$msg_f";
if ($next_num ne '') {
while (($key,$val) = each %FORM2) {
if ($key ne 'FF') { $buf = "$buf&$key=$val"; }
}
if($next_num > 5){
print "
