package nzbget::read;
use strict;
use Apache2::Const -compile => qw(OK REDIRECT);
use CGI qw(:standard);
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;