#! /usr/bin/perl -w
use strict;
use CGI;
my $cgi = new CGI;
my (@di, @bl, $i, $hnum, $num, $t, $h, $n);
print $cgi->header();
print "\n\n";
print "\n";
print "\n";
print "Blog-Zugriffe\n\n";
print "\n\n";
opendir (DIR, "/var/www/html/lenz/blog");
@di = readdir(DIR);
closedir(DIR);
@di = sort(@di);
$hnum = "000";
foreach(@di) {
$num = substr($_, 0, 3);
if ($num =~ /\d\d\d/) {
$n = 1.0 * $num;
$h = 1.0 * $hnum;
$bl[$n] = $_;
if ($n > $h) {
$hnum = $num;
}
}
}
print "\n";
print "| Inhalt | \n";
for($i = 1; $i < 4; $i++) {
$t = $bl[$i];
print "$t | \n";
}
if ($cgi->param('num')) {
$num = $cgi->param('num');
} else {
$num = "$hnum";
}
open(FIL, ";
close(FIL);
@di = reverse(@di);
$t = 0;
foreach(@di) {
$_ =~ /(.*?) (\d\d\d) /;
if (1.0 * $num == 1.0 * $2) {$t++}
}
$t = $bl[$num] . " $t Aufrufe";
print "
\n$t
\n";
print "\n\n";
print "| Zeit | IP | Host | Referenz |
\n";
foreach(@di) {
$_ =~ /(.*?) (\d\d\d) (\d+\.\d+\.\d+\.\d+) +(.*?) +Ref=(.*)/;
if (1.0 * $num == 1.0 * $2) {
print "
| $1 | $3 | $4 | $5 |
\n";
}
}
print "
\n";