#!/usr/bin/perl

use strict;
use File::Find;

print "Content-type: text/html\n\n";

my $site = $ENV{'HTTP_HOST'};
$site = $1 if ($site =~ /^www.(.*)/);
# change to the user's document root
chdir("d:\\web\\$site") or die "Can't change to $site directory";
my $sum = 0;
my $ssum = 0;
my (%dirs);

print "<h1>Disk usage for $site</h1>\n";
print "<table border=1><tr><th>Directory</th><th>Usage (MegaBytes)</th></tr>\n";
find sub { 
	next if $File::Find::name =~ /logs/;
	if(-f){
		$sum += -s;$ssum += -s;
		$dirs{$File::Find::dir} += -s;
	}
}, '.';

foreach my $d(sort keys %dirs){
	next if $dirs{$d} < 1024;
	printf "<tr><td>%s</td><td>%0.3f</td></tr>\n",$d,$dirs{$d}/1024000;
}

printf "<tr><td>Total</td><td>%0.3f</td></tr></table>\n", $sum/1024000;