diff options
Diffstat (limited to 'read.pl')
-rwxr-xr-x | read.pl | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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); |