1 files changed, 26 insertions, 0 deletions
diff --git a/nzbget/read.pm b/nzbget/read.pm
new file mode 100644
index 0000000..3cc30ec
--- /dev/null
+++ b/nzbget/read.pm
@@ -0,0 +1,26 @@
+package nzbget::read;
+use strict;
+use Apache2::Const -compile => qw(OK REDIRECT);
+use CGI qw(:standard);
+use CGI::Carp 'fatalsToBrowser';
+use utf8;
+use local::db;
+use local::user;
+use config;
+
+
+sub handler
+{
+	my $user = new local::user(%ENV);
+
+	my $dl = local::db::download->retrieve(param('id')) or die "Ungültige download id";
+
+	if (not local::db::seen->search(user=>$user->get_id,download=>$dl->download_id))
+	{
+		local::db::seen->insert({user=>$user->get_id,download=>$dl->download_id});
+	}
+
+	print CGI::redirect($config::config{web_dir}.'/'.$dl->category->name.'/'.$dl->download_id);
+	return Apache2::Const::REDIRECT;
+}
+1;