From 389a32204546ce812f04cf990725c18ee5514ecc Mon Sep 17 00:00:00 2001
From: Othmar Gsenger <otti@wirdorange.org>
Date: Fri, 14 Jan 2011 03:50:24 +0000
Subject: added database support

---
 local/db.pm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 local/db.pm

(limited to 'local/db.pm')

diff --git a/local/db.pm b/local/db.pm
new file mode 100644
index 0000000..344b5a8
--- /dev/null
+++ b/local/db.pm
@@ -0,0 +1,22 @@
+package local::db::dbi;
+use base 'Class::DBI';
+local::db::dbi->connection('dbi:SQLite:/srv/nzbget/datenbank.sqlite', '', '');
+
+package local::db::download;
+use base 'local::db::dbi';
+local::db::download->table('download');
+local::db::download->columns(All => qw/download_id owner size time category name description/);
+local::db::download->has_a(owner => 'local::db::owner');
+local::db::download->has_a(category => 'local::db::category');
+
+package local::db::category;
+use base 'local::db::dbi';
+local::db::category->table('category');
+local::db::category->columns(All => qw/category_id name/);
+local::db::category->has_many(download => 'local::db::download');
+
+package local::db::owner;
+use base 'local::db::dbi';
+local::db::owner->table('owner');
+local::db::owner->columns(All => qw/owner_id name quoata quota_used/);
+local::db::owner->has_many(download => 'local::db::download');
-- 
cgit v1.2.3