#!/usr/bin/perl
use strict;
use Cwd 'abs_path';
use File::Basename;
use local::db;
use config;

for my $owner (local::db::owner->retrieve_all)
{
  my $sum =0;
	for my $dl ($owner->download)
	{
    $sum+=$dl->size
	}
	$owner->quota_used($sum);
	$owner->update
}