blob: 702ddb4019c0cdc31303741480c6f7b1e14a5ebb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#!/usr/bin/perl
use strict;
use Cwd 'abs_path';
use File::Basename;
use local::db;
use config;
for my $dl (local::db::download->retrieve_all)
{
my $du = "du -sm ".$config::config{files_dir}.'/'.$dl->category->name.'/'.$dl->download_id;
my $du_resp = `$du`;
my ($size) = $du_resp =~ /^(\d+)/;
# warn $size;
$dl->size($size);
$dl->update;
}
|