1 files changed, 0 insertions, 18 deletions
diff --git a/read.pl b/read.pl
deleted file mode 100755
index 45a428c..0000000
--- a/read.pl
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/usr/bin/perl
-use strict;
-use CGI qw(:standard);
-use CGI::Carp 'fatalsToBrowser';
-use utf8;
-use local::db;
-use local::user;
-use config;
-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);