sub print_search{ #$FORM{xx}→$LC_xxに変換 local( $LC_word=$_[0], #$FORM{word}/検索ワード又は検索式 $LC_engine=$_[1], #$FORM{engine}/使用する検索エンジン(デフォルト=pre) $LC_mode=$_[2], #$FORM{mode}/モード $LC_page=$_[3], #$FORM{page}/ページ $LC_sort=$_[4], #$FORM{sort}/ソート方法 $LC_search_kt=$_[5], #$FORM{search_kt}/カテゴリ指定 $LC_search_day=$_[6], #$FORM{search_day}/日付指定 $LC_use_str=$_[7], #$FORM{use_str}/検索式使用の有無( | on) $LC_method=$_[8], #$FORM{method}/簡易検索条件(and | or) $Stitle, #タイトル ); my $search_day; if($LC_search_day){ if($LC_search_day=~/^today-?(\d*)$/){ #today-x if($1>100000){$1=0;} if($1>0){$search_day="★$1日以内に更新されたサイト
";} else{$search_day="★本日に更新されたサイト
";} } elsif($LC_search_day=~/^(\d+)\-(\d+)$/){ #[str_day]-[end_day] if($2>0){$search_day="★$1日前〜$2日前に更新されたサイト
";} else{$search_day="★$1日以内に更新されたサイト
";} } elsif($LC_search_day=~/^(\d+)\/(\d+)\/(\d+)$/){ #year/mon/day $search_day="★$LC_search_day に更新されたサイト
"; } } if($LC_use_str eq "on"){ $Stitle="検索結果 - $LC_word"; } else{ if(!$LC_method){$LC_method="and";} $Stitle="検索結果 - $LC_word"; } print<<""; $EST{search_name} - $Stitle ホーム > $Stitle $search_day
#ヘッダスペース &head_sp_i; { #ファイルの読み込み&下層カテゴリ表示 ##ファイルの読み込み&該当データ総数を得る $Clog=&open_for_search($LC_search_kt,$LC_search_day,$LC_sort); &gane_st; #カテゴリ属性をロード } print<<"";
##カテゴリ検索結果を表示 if($#kt_search_list>=0 && $LC_page==1){ print "
▼カテゴリ名と一致(" . ($#kt_search_list+1) . ")
"; print ""; } ##ワード検索結果を表示 if($Clog){ print<<"";
{ local($LC_word_en=$LC_word); $LC_word_en=~s/(\W)/'%' . unpack('H2',$1)/eg; $PRmokuji=&mokuji_i($LC_page,$Clog,$EST{hyouji},"&mode=$LC_mode&sort=$LC_sort&word=$LC_word_en&engine=$LC_engine&search_kt=$LC_search_kt&search_day=$LC_search_day&use_str=$LC_use_str&method=$LC_method","$EST{cgi_path_url}$EST{search}"); } print<<""; $PRmokuji
&EST_reg; ##&open_for_searchで得たハッシュ/@writeを元にデータを表示@log_linesに入れる #$arg1=>ページ番号(1〜) if(!$LC_sort){&open_mark_search($LC_page);} #デフォルトの読み込み方法 elsif($LC_sort eq "id_new"){&open_id_new_search($LC_page);} elsif($LC_sort eq "id_old"){&open_id_old_search($LC_page);} elsif($LC_sort eq "time_new"){&open_time_new_search($LC_page);} elsif($LC_sort eq "time_old"){&open_time_old_search($LC_page);} elsif($LC_sort eq "ac_new"){&open_ac_new_search($LC_page);} elsif($LC_sort eq "ac_old"){&open_ac_old_search($LC_page);} else{&open_mark_search($LC_page);} ##↑で@writeを破棄 foreach $line(@log_lines){ #検索データを表示 @Slog=split(/<>/,$line); &PRlog; } print<<"";
$PRmokuji } else{ #外部検索エンジンへのリンクを表示 print ""; } print<<"";
[ページTOPへ]
print "検索時間:" . sprintf("%.3f",times()-$Ebf_times+0.01) . "秒

"; #&PR_other_kt(); #フッタスペース &foot_sp_i; &cr; print<<""; } # ログ表示関数。 sub PRlog{ local($jump_url); if($EST{rank_fl}){ $jump_url=$Slog[2]; $jump_url=~s/(\W)/'%' . unpack('H2',$1)/eg; $jump_url="$EST{cgi_path_url}$EST{rank}?mode=link&id=$Slog[0]&url=$jump_url"; } if ($Slog[16] =~ /[^\s]/s) { $jump_url=$Slog[16]; } else{$jump_url=$Slog[2];} print<<""; } 1;