From d26fa8c1e0886c813de5364ee6570c860c6ce12c Mon Sep 17 00:00:00 2001
From: Othmar Gsenger <otti@wirdorange.org>
Date: Thu, 31 Mar 2011 19:05:23 +0000
Subject: hopfully repaired this after backup loss

---
 cron/regen_quota.pl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100755 cron/regen_quota.pl

(limited to 'cron/regen_quota.pl')

diff --git a/cron/regen_quota.pl b/cron/regen_quota.pl
new file mode 100755
index 0000000..e582b30
--- /dev/null
+++ b/cron/regen_quota.pl
@@ -0,0 +1,17 @@
+#!/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
+}
-- 
cgit v1.2.3