added webdir config option

2 files changed, 3 insertions, 2 deletions

diff --git a/config.pm.example b/config.pm.example
index b4655df..e8abd09 100644
--- a/config.pm.example
+++ b/config.pm.example
@@ -4,5 +4,5 @@ our %config = (
 	db => ['dbi:SQLite:/home/nzbget/datenbank.sqlite', '', ''],
 	page_name => 'anymur binary usenet',
   files_dir => '/media/wechsel/otti/done/usenet',
-
+  web_dir => '/done/usenet',
 );
diff --git a/read.pl b/read.pl
index 882c9bc..fd4ad50 100755
--- a/read.pl
+++ b/read.pl
@@ -5,6 +5,7 @@ use CGI::Carp 'fatalsToBrowser';
 use utf8;
 use local::db;
 use local::user;
+use config;
 my $user = new local::user($ENV{REMOTE_USER});
 
 my $dl = local::db::download->retrieve(param('id')) or die "Ungültige download id";
@@ -14,4 +15,4 @@ 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('/'.$dl->category->name.'/'.$dl->download_id);
+print CGI::redirect($config::config{web_dir}.'/'.$dl->category->name.'/'.$dl->download_id);