basic version compleated

2 files changed, 20 insertions, 3 deletions

diff --git a/mydl.pl b/mydl.pl
index f012743..db51573 100755
--- a/mydl.pl
+++ b/mydl.pl
@@ -16,7 +16,7 @@ print $menu->start_html('my downloads');
 print table({class=>'nohigh'},Tr(td({align=>'right'},['benutzter Speicherplatz   '. $user->obj->quota_used().' / '.$user->obj->quoata().' MB']))) if (param('only_me'));
 
 print CGI::start_table();
-print Tr(th([qw/Kategorie Name Größe Löschen /]));
+print Tr(th([qw/Neu Kategorie Name Größe Löschen /]));
 my @downloads;
 if (param('only_me'))
 {
@@ -28,8 +28,8 @@ foreach my $dl ( @downloads)
 {
   my $dl_remove;
   $dl_remove = a({href=>'/cgi-bin/nzbget/remove.pl?id='.$dl->download_id},"löschen") if $dl->owner->owner_id == $user->get_id;
-	print Tr(td([
-	  $dl->category->name,a({title=>$dl->description,href=>'/'.$dl->category->name.'/'.$dl->download_id},$dl->name),$dl->size.'MB',$dl_remove
+	print Tr(td([ (local::db::seen->search(user=>$user->get_id(),download=>$dl->download_id))?'':'x',
+	  $dl->category->name,a({title=>$dl->description,href=>'/cgi-bin/nzbget/read.pl?id='.$dl->download_id},$dl->name),$dl->size.'MB',$dl_remove
 			
 	]));
 }
diff --git a/read.pl b/read.pl
new file mode 100755
index 0000000..882c9bc
--- /dev/null
+++ b/read.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+use strict;
+use CGI qw(:standard);
+use CGI::Carp 'fatalsToBrowser';
+use utf8;
+use local::db;
+use local::user;
+my $user = new local::user($ENV{REMOTE_USER});
+
+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('/'.$dl->category->name.'/'.$dl->download_id);