sub print_rank{ #$FORM{xx}→$LC_xxに変換 local( $LC_kt=$_[0], #$FORM{kt} $LC_mode=$_[1], #$FORM{mode} $LC_page=$_[2], #$FORM{page} $Stitle, #タイトル ); if($LC_mode eq "rev"){$Stitle="アクセスランキング";} elsif($LC_mode eq "rev_bf"){$Stitle="前回のアクセスランキング";} else{$Stitle="アクセスランキング(累計)";} if($LC_kt){$Stitle.=" - " . $ganes{$LC_kt};} local($Eref=$ENV{HTTP_REFERER}); $Eref=&url_en($Eref); # (↑修正不可↑)--> print<<""; $Stitle - Maruru Search
# print<<"";
# print<<""; print<<""; # print<<""; # print<<"";
# print<<""; ##一括削除用のフォーム出力(上) &get_cookie; if($CK_data[3] && !($EST{html} && $ganes{$LC_kt})){ print<<"EOM";
EOM } {local($sec,$min,$hour,$mday,$mon,$year,$wday); if($LC_mode eq "rev"){ ($sec,$min,$hour,$mday,$mon,$year,$wday)=localtime((stat("$EST{log_path}rev_ys.cgi"))[9]); } elsif($LC_mode eq "rev_bf"){ ($sec,$min,$hour,$mday,$mon,$year,$wday)=localtime((stat("$EST{log_path}rev_bf.cgi"))[9]); } else{ ($sec,$min,$hour,$mday,$mon,$year,$wday)=localtime((stat("$EST{log_path}rev_rui.cgi"))[9]); } $mon++; $year+=1900; $youbi=('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$wday]; $last_mod=sprintf("%04d/%02d/%02d($youbi) %02d:%02d", $year,$mon,$mday,$hour,$min,); } # (↑修正不可↑)--> print<<"";
$Stitle 最終更新:$last_mod
# print<<""; $PRmokuji # print<<""; # print<<""; if($Slog[7]){ $Slog[7] =~ s/>/>/g; $Slog[7] =~ s/</"; } print<<"";
アクセスランキング / IN $rank位 -> ${pt}pt
$Stitle $Slog[0] $Slog[1] &put_icon; # print<<"";
Date:$Slog[4] / Edit / 登録ID:$Slog[0]
# print<<"";
from. $Slog[1] $Stitle $Slog[0]:$Slog[1] $Stitle
$Slog[6]
$Stitle 推薦 $Slog[7]
# # ここに右側パネルの内容を書く print<<"";

print<<""; $PRmokuji # print<<"";

$Stitle

# # print<<"";
#