15 |
use Cwd qw/abs_path/; |
use Cwd qw/abs_path/; |
16 |
|
|
17 |
use constant BPC_FTYPE_DIR => 5; |
use constant BPC_FTYPE_DIR => 5; |
18 |
use constant EST_CHUNK => 100000; |
use constant EST_CHUNK => 4096; |
19 |
|
|
20 |
# daylight saving time change offset for 1h |
# daylight saving time change offset for 1h |
21 |
my $dst_offset = 60 * 60; |
my $dst_offset = 60 * 60; |
198 |
|
|
199 |
while (my $row = $sth->fetchrow_hashref()) { |
while (my $row = $sth->fetchrow_hashref()) { |
200 |
|
|
201 |
my $fid = $row->{'fid'} || die "no fid?"; |
my $uri = $row->{hname} . ':' . $row->{sname} . '#' . $row->{backupnum} . ' ' . $row->{filepath}; |
|
my $uri = 'file:///' . $fid; |
|
|
|
|
202 |
unless ($skip_check) { |
unless ($skip_check) { |
203 |
my $id = $hest_node->uri_to_id($uri); |
my $id = $hest_node->uri_to_id($uri); |
204 |
next if ($id && $id == -1); |
next if ($id && $id == -1); |