#!/usr/local/bin/perl
#設定
$body = '';
#画像バーのＵＲＬ(このCGIから見たパス位置、またはhttp://から書く)
$gif = './bar.gif';
#ランキング表に掲載される紹介バナーのサイズ指定(width*height)
$width = 224;
$height = 33;
#リンク枠のサイズ(0にすると枠は消えます)
$border = 1;
#-----------------------------------------------------------------------------------------
# 参加登録設定 banners.cgiと同じ設定をする (これらはサンプルでの設定のままです)
#-----------------------------------------------------------------------------------------
$NAME[1] = 'バナーを置いてくれたどこかのページ名1';
$URL[1] = 'http://www.rescue.ne.jp/cgi/banners/sample/test1.html';
$IMG[1] = 'http://www.rescue.ne.jp/images/resweb.gif';
$REF[1] = 'http://www.rescue.ne.jp/cgi/banners/sample/test1.html';
$NAME[2] = 'バナーを置いてくれたどこかのページ名2';
$URL[2] = 'http://www.rescue.ne.jp/cgi/banners/sample/test2.html';
$IMG[2] = 'http://www.rescue.ne.jp/images/rescue_top.gif';
$REF[2] = '';
$NAME[3] = 'バナーを置いてくれたどこかのページ名3';
$URL[3] = 'http://www.rescue.ne.jp/cgi/banners/sample/test3.html';
$IMG[3] = 'http://www.rescue.ne.jp/images/rsa16.gif';
$REF[3] = 'http://www.rescue.ne.jp/cgi/banners/sample/test3.html';
$NAME[4] = 'バナーを置いてくれたどこかのページ名4';
$URL[4] = 'http://www.rescue.ne.jp/cgi/banners/sample/test4.html';
$IMG[4] = 'http://www.rescue.ne.jp/images/nsr.gif';
$REF[4] = 'http://www.rescue.ne.jp/cgi/banners/sample/test4.html';
$NAME[5] = 'バナーを置いてくれたどこかのページ名5';
$URL[5] = 'http://www.rescue.ne.jp/cgi/banners/sample/test5.html';
$IMG[5] = '';
$REF[5] = 'http://www.rescue.ne.jp/cgi/banners/sample/test5.html';
#-----------------------------------------------------------------------------------
#時刻調整
#$ENV{'TZ'} = "GMT-9";
#表示バナー
$BANNERS = './banners.gif';
#エラー画像ディレクトリ
$image_dir = './';
#データディレクトリ
$data_day = './data/';
#-----------------------------------------------------------------------------------
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time - 24*60*60);
$kinou = sprintf("%02d%02d",$mon +1,$mday);
foreach $num (1 .. $#URL) {
# if ($URL[$num] eq '') { last; }
$file = $data_day . $kinou . "\.$num";
if (!-e $file) { push(@ERR,$num); next; }
$COUNT{$num} = -s $file;
}
print "Content-type: text/html\n\n";
print "バナーランキング\n";
print "$body\n";
print "\n";
print "昨日のバナーランキング
\n";
print "\n";
print "| 順位 | バナー掲載先名 | クリック件数 |
|---|
\n";
$i = 1;
foreach (sort { $COUNT{$b} <=> $COUNT{$a} } keys %COUNT) {
print "| $i | ";
if ($IMG[$_] ne '') { print "![\"$NAME[$_]\"](\"$IMG[$_]\") "; }
else { print "$NAME[$_]"; }
if ($COUNT{$_} > 400) { $WIDTH = 400; } else { $WIDTH = $COUNT{$_}; }
print " | ![](\"$gif\") $COUNT{$_} |
|---|
\n";
$i++;
}
print "
\n";
print "
\n";
print "アクセスが１回もないページの登録番号：@ERR
\n";
print "
\n";
print "\n";
exit;