sub build_quota_list
{
   my %users;

   open QUOTA, $quotareport;
   while (<QUOTA>) {
      if (m/ \+[ \-]/) {
         my ($username, $over, $used, $soft_block, $hard_block, $junk)=split " ", $_, 6;
         $users{$username}{uname}=$username;
         $users{$username}{used}=$used;
         $users{$username}{soft_block}=$soft_block;
         $users{$username}{hard_block}=$hard_block;
      }
   }
   close QUOTA;
   return %users;
}