#!/usr/local/bin/perl
use Cwd;
$dir = getcwd;
if($^O eq "MSWin32"){
$sep = "\\";
} else {
$sep = "/";
}
print "Content-type: text/html\n\n";
#Get current user dir. Stored in $dir
$index = index($dir, user) + 5;
$rel_path = substr($dir, $index);
$dir =~ s/cgi-bin/htdocs/;
$dir = $dir.$sep."awstats";
#Open $dir and read subdirectories, stored in @dirs
opendir(DIR, $dir) || die "can't opendir $dir: $!";
@dirs = grep { !/^\./ && -d "$dir/$_" } readdir(DIR);
closedir DIR;
if($rel_path =~ m/(\d+)/){
$rel_path = $1;
}
($Second, $Minute, $Hour, $Day, $Month, $Year, $WeekDay, $DayOfYear, $IsDST) = localtime(time);
$Year -= 100;
$Month += 1;
if (length($Month) < 2){
$Month = "0".$Month;
}
if (length($Year) < 2){
$Year = "0".$Year;
}
$cur_date = $Year.$Month;
foreach (@dirs){
if ( ($_ =~m/[0-9]/) && length($_) == 4)
{
my $label_year = convertYear($_);
my $label_month = convertName($_);
$url = $_.$sep."awstats.".$rel_path.".".$_.".html";
$url =~ s/\\/\//g;
if($_ eq $cur_date){
print "