#!/usr/bin/perl

print "Content-Type: Text/HTML\n\n";

$mainuser = $ENV{'REMOTE_USER'};

# get domain name
require "getdomain.pm";
getdomain($mainuser);

print "<br><span class=homeprice>Space usage - $domainname</span><font color=#0000DD size=-1> *</font><br><p class=text>";

system "./space.sh $domainname";

print q!<br><br><font color="#0000DD" size=-2>* Kb = KiloBytes; Mb = MegaBytes [ = 1024 Kb ]</font></span><br>!;