1 files changed, 8 insertions, 0 deletions
diff --git a/mark_completed.pl b/mark_completed.pl
new file mode 100755
index 0000000..f456011
--- /dev/null
+++ b/mark_completed.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+use strict;
+use local::db;
+my $dl_id = $ARGV[0] or die "missing argument download id";
+my $dl = local::db::download->retrieve($dl_id) or die 'cannont find download';
+$dl->completed(1);
+$dl->update;
+exit 0;