#!/usr/bin/perl require "./cgi-lib.pl"; require "/web/sites/stats/global/datelib.pl"; $date =`date +%m/%d/%y`; &ReadParse(*input); print &PrintHeader; $totalstats="/web/sites/stats/global/savedtotalstats"; $login = "$input{'login'}"; open(TOTSTATS, "<$totalstats") || die "Could not open $totalstats\n"; while () { if (/^$login:/) { @line = split (/\,/, $_); $totalused = ($line[1]); } } if ( $day eq "02") { $average = ($totalused / $yesterday); $projected = ($average * $monthnumber); $projected = sprintf("%.4f", $projected); } elsif ( $day eq "01") { $projected = $totalused; $projected = sprintf("%.4f", $projected); } else { $average = ($totalused / $yesterday); $projected = ($average * $monthnumber); $projected = sprintf("%.4f", $projected); } print < Total bandwidth

Total bandwidth for all domains owned by $login as of $date

$totalused GB's used so far this month

Projected month end usage - $projected GB's

EOF