mark_completed.pl


1
2
3
4
5
6
7
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;