sub print_kt{ #$FORM{xx}→$LC_xxに変換 local( $LC_kt=$_[0], #$FORM{kt} $LC_mode=$_[1], #$FORM{mode} $LC_page=$_[2], #$FORM{page} $LC_sort=$_[3], #$FORM{sort} $Stitle, #タイトル ); if($LC_mode eq "kt"){$Stitle=$ganes{$LC_kt};} else{$Stitle=$EST{"name_$LC_mode"};} print<<""; $EST{search_name} - $Stitle ホーム > #ナビゲーションバーを表示 {local(@kt,$kt,$temp_kt); @kt=split(/_/,$LC_kt); pop(@kt); foreach $kt(@kt){ $temp_kt .= $kt; print "$ganes{$temp_kt} > "; $temp_kt .="_"; } } if($FORM{mode} eq "new"){ open(IN,"$EST{log_path}total_url.log"); local $total_url=; print " - 登録数:$total_url サイト"; } print<<""; $Stitle
##ページ説明を表示 &gane_guide; if($LC_mode eq "kt"){print $KTEX{$LC_kt};} else{print $KTEX{$Spre_kt_file};} undef(%KTEX); print "
"; #ヘッダスペース &head_sp_i; { #ファイルの読み込み&下層カテゴリ表示 ##ファイルの読み込み if($LC_mode eq "kt"){ #各カテゴリの場合 if(!$LC_sort){&open_log;} #デフォルトの読み込み方法 elsif($LC_sort eq "id_new"){&open_id_new;} elsif($LC_sort eq "id_old"){&open_id_old;} elsif($LC_sort eq "time_new"){&open_time_new;} elsif($LC_sort eq "time_old"){&open_time_old;} elsif($LC_sort eq "ac_new"){&open_ac_new;} elsif($LC_sort eq "ac_old"){&open_ac_old;} elsif($LC_sort eq "mark"){&open_mark;} else{&open_log;} $Ssearch_kt=$LC_kt; #検索対象のカテゴリ番号 } else{&open_other;} #その他の特殊カテゴリ &gane_st; #カテゴリ属性をロード ##下層カテゴリ if($LC_mode eq "kt"){&PRbelow_kt_i($LC_kt);} } print<<"";
if($Clog{$Ssearch_kt}){ print<<"";
$PRmokuji=&mokuji_i($LC_page,$Clog{$Ssearch_kt},$EST{hyouji},"&mode=$LC_mode&kt=$LC_kt&sort=$LC_sort",$EST{script}); print<<""; $PRmokuji &EST_reg; foreach $line(@log_lines){ @Slog=split(/<>/,$line); &PRlog; } print<<"";
$PRmokuji } print<<"";
# このカテゴリに新規登録する際のリンク。 if(!$gane_UR{$LC_kt} && $LC_mode eq "kt"){ print<<""; [ココに新規登録]
} print<<""; [ページTOPへ]

#&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];} # 紹介文を40バイトに制限する。 if (40 < length($Slog[6])) { $Slog[6] = substr($Slog[6], 0, 40) . '...'; } print<<"";
} 1;