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 / 検索条件:$LC_method)"; } # (↑修正不可↑)--> print<<""; $Stitle

ホーム >
$Stitle
$search_day # # print<<"";
  [More] [New Window]
[他のカテゴリ] [サイトマップ] [ヘルプ] [修正・削除]
# print<<"";
[現在の表\示: # print<<""; ]
# print<<""; は$EST{name_m1}、 は$EST{name_m2}です。 この色の文は管理人のコメントです。
※リンク先が無くなっている等の問題がある場合にはタイトル横の [管理者に通知] リンクを押してください
# print<<""; $PRmokuji $PRmokuji # print<<"";
# # print<<"";
#