#!/usr/bin/perl require "./cgi-lib.pl"; $userinfo="/web/sites/stats/global/domaininfo"; $bodyfile="/web/sites/stats/global/bodyfile"; $cgiurl = $ENV{'SCRIPT_NAME'}; $pwd=`/bin/pwd`; @path=split(/\//, $pwd); $username=($path[3]); &ReadParse(*input); print &PrintHeader; $cgiurl = $ENV{'SCRIPT_NAME'}; $du=`/usr/bin/du -s /web/sites/$username`; ($used,$junk)=split(/\s+/,$du); $mbused = ($used / 1000); $mbused = sprintf("%.1f", $mbused); print < Disk space used
Your account of $username is using a total of $mbused MBs of disk space.

To see what your allowable disk space is, please check the pricing page at
http://national-net.com/pricing.html EOF