hopfully repaired this after backup loss

3 files changed, 44 insertions, 0 deletions

diff --git a/cron/clean_database.pl b/cron/clean_database.pl
new file mode 100755
index 0000000..f553515
--- /dev/null
+++ b/cron/clean_database.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+use strict;
+use Cwd 'abs_path';
+use File::Basename;
+use local::db;
+use config;
+
+for my $dl (local::db::download->retrieve_all)
+{
+	$dl->delete if not -d $config::config{files_dir}.'/'.$dl->category->name.'/'.$dl->download_id;
+}
diff --git a/cron/read_filesize_from_filesystem.pl b/cron/read_filesize_from_filesystem.pl
new file mode 100755
index 0000000..702ddb4
--- /dev/null
+++ b/cron/read_filesize_from_filesystem.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+use strict;
+use Cwd 'abs_path';
+use File::Basename;
+use local::db;
+use config;
+
+for my $dl (local::db::download->retrieve_all)
+{
+	my $du = "du -sm ".$config::config{files_dir}.'/'.$dl->category->name.'/'.$dl->download_id;
+	my $du_resp = `$du`;
+	my ($size) = $du_resp =~ /^(\d+)/;
+	# warn $size;
+	$dl->size($size);
+	$dl->update;
+}
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
+}