#!/usr/local/bin/perl

# 排他制御開始
open(SEMAPHO, "> semapho");
flock(SEMAPHO, 2);

# トータルアクセス数の取得と加算
open(FILE, "<data/total_count");
my @line = <FILE>;
close(FILE);
my $total_count = $line[0];

# 加算対象のアドレスの場合の処理
my $addr = $ENV{'REMOTE_ADDR'};
if ($addr ne "119.105.243.81") {
    open(FILE, ">data/total_count");
    print FILE $total_count + 1;
    close(FILE);
}

print << "EOF0";
Content-Type: application/x-javascript

<!--
EOF0

print "document.write('<div align=\"right\">');";
for ($i = 6; $i >= 0; $i--) {
    my $x = ($total_count / (10 ** $i)) % 10;
    print "document.write('<img src=\"http://www.woodnote.org/cgi-bin/popular/images/$x.gif\">');";
}
print "document.write('<br/><big>Since Jan. 1st, 2007.</big></div>');";

my ($sec, $min, $hour, $mday, $mon, $year) = localtime(time);
$mon += 1;
if ($min < 10) {
    $min = "0" . $min;
}
print "document.write('<br>人気記事Top10（最新24時間）<div align=\"right\">$mon月$mday日 $hour:$min</div>');";

open(FILE, "<data/record");
my @record = <FILE>;
close(FILE);

print << "EOF1";
document.write('<table border="1"><tr><th>#</th><th>記事タイトル</th></tr>');
EOF1

for ($i = 0; $i < 10; $i++) {
    my @items = split(/\t/, $record[$i]);
    my $entry_count = $items[0] + 0;
    my $entry_url = $items[1];
    my $entry_title = $items[2];

    print "document.write('<tr><td align=\"right\">$entry_count</td><td align=\"left\"><a href=\"$entry_url\">$entry_title</a></td></tr>');";
}
print << "EOF2";
document.write('</table>');
EOF2

my $count = 0;
foreach (@record) {
    my @items = split(/\t/, $_);
    $count += ($items[0] + 0);
}
print "document.write('最新24時間アクセス数: $count<br>');";

print << "EOF3";

-->
EOF3

# 排他制御終了
close(SEMAPHO);