#!/usr/bin/perl
print "Content-Type: text/html\n\n";
use CGI;

my $query = new CGI;
my $pass = $query->param('pass');

if ($pass ne 'Tn9SG0s') { exit; }

$path = "/home/httpd/$site/html/"; 

use File::Find;

my @sites = ("xyz-site/xyz-site-directory",
			"xyz-site2/xyz-site-directory2"
			);			
push(@sites, 	'/home/tomato/',
				#put any other directories in here
				);

foreach my $site (@sites) {
	$sizeb = 0;
	$path = "/home/httpd/$site" 	if $site !~ m!^/!; 
	$path = "$site" 		if $site =~ m!^/!; 
	#$path = "/home/stanley/"; 
	$file = 0;
	&find ( sub { $sizeb += -s }, "$path");
	&find ( sub { $file += 1 }, "$path");
	my $sizekb = int ($sizeb / 1024);
	my $sizemb = int ($sizekb / 1024);
	print qq(<h4> $site </h4>);
	print " Files $file <br>";
	print " bytes $sizeb <br>";
	print "Kbytes $sizekb <br>";
	print " mbytes $sizemb <br>";
}