| line |
true |
false |
branch |
|
59
|
0 |
0 |
unless length $match |
|
61
|
0 |
0 |
ref $match eq 'ARRAY' ? : |
|
62
|
0 |
0 |
if ref $m eq 'Regexp' and $file =~ /$m/ |
|
63
|
0 |
0 |
if not ref $m and $file eq $m |
|
69
|
0 |
0 |
ref $_[0] ? : |
|
70
|
0 |
0 |
if $_[0] eq 'Net::DirectConnect::filelist' |
|
76
|
0 |
0 |
ref $_[0] ? : |
|
94
|
0 |
0 |
!$$self{'skip_hidden'} ? : |
|
95
|
0 |
0 |
!$$self{'skip_hidden'} ? : |
|
108
|
0 |
0 |
unless ref $$self{'share'} |
|
109
|
0 |
0 |
unless $$self{'share'} |
|
114
|
0 |
0 |
unless ($$self{'no_sql'}) |
|
129
|
0 |
0 |
if ref $_[0] |
|
137
|
0 |
0 |
$short ? : |
|
|
0 |
0 |
$short ? : |
|
164
|
0 |
0 |
if ($$self{'db'}) |
|
172
|
0 |
0 |
unless $$self{'sql'} |
|
178
|
0 |
0 |
if ref $_[0] |
|
180
|
0 |
0 |
unless &psmisc::lock('sharescan', 'timeout', 0, 'old', 86400) |
|
184
|
0 |
0 |
if $$self{'upgrade_force'} |
|
196
|
0 |
0 |
!$$self{'INF'}{'ID'} ? : |
|
215
|
0 |
0 |
unless length $$f{'file'} and length $$f{'tth'} |
|
218
|
0 |
0 |
if $$f{'size'} |
|
224
|
0 |
0 |
if $table2filelist{$_} |
|
246
|
0 |
0 |
if $stopscan |
|
249
|
0 |
0 |
unless opendir my $dh, $dir |
|
253
|
0 |
0 |
if $$self{'charset_fs'} |
|
257
|
0 |
0 |
if skip $dirname, $$self{'skip_dir'} or $$self{'skip_symlink'} and -l $dirname |
|
258
|
0 |
0 |
if (not $level) { } |
|
260
|
0 |
0 |
if length $_ |
|
267
|
0 |
0 |
if length $dirname |
|
277
|
0 |
0 |
if $stopscan |
|
278
|
0 |
0 |
if $file =~ /^\.\.?$/ |
|
285
|
0 |
0 |
if ($$f{'dir'}) |
|
290
|
0 |
0 |
if -f $$f{'full_local'} |
|
291
|
0 |
0 |
if $$f{'size'} < $$self{'file_min'} |
|
292
|
0 |
0 |
if $$self{'charset_fs'} |
|
294
|
0 |
0 |
if $$self{'charset_fs'} |
|
296
|
0 |
0 |
if skip $$f{'file'}, $$self{'skip_file'} or $$self{'skip_symlink'} and -l $$f{'file'} |
|
307
|
0 |
0 |
unless ($$self{'no_sql'}) |
|
322
|
0 |
0 |
if $$indb{'size'} ~~ $$f{'size'} |
|
327
|
0 |
0 |
if ($$f{'size'} > $$self{'tth_cheat'}) |
|
328
|
0 |
0 |
$$self{'tth_cheat_no_date'} ? : |
|
337
|
0 |
0 |
if ($$indb{'tth'}) |
|
345
|
0 |
0 |
unless ($notth or $$f{'tth'}) |
|
350
|
0 |
0 |
if $per > 1 |
|
369
|
0 |
0 |
if not $$self{'no_sql'} and $$f{'tth'} |
|
376
|
0 |
0 |
if ($levelreal < 0) |
|
384
|
0 |
0 |
unless $$self{'share'} |
|
388
|
0 |
0 |
unless $$self{'share'} |
|
392
|
0 |
0 |
unless $$self{'no_sql'} |
|
394
|
0 |
0 |
if not $_{$_}++ |
|
|
0 |
0 |
unless $$self{'share'} |
|
399
|
0 |
0 |
unless $$self{'no_sql'} |
|
401
|
0 |
0 |
if (&psmisc::use_try('IO::Compress::Bzip2') and ($_ = !IO::Compress::Bzip2::bzip2($$self{'files'}, $$self{'files'} . '.bz2')) || $self->log('bzip2 failed: ', $IO::Compress::Bzip2::Bzip2Error) && 0) { } |
|
421
|
0 |
0 |
if ref $_[0] |
|
423
|
0 |
0 |
unless $file |
|
426
|
0 |
0 |
if $tth |
|
427
|
0 |
0 |
if $file |
|
431
|
0 |
0 |
if ref $_[0] |
|
433
|
0 |
0 |
if ($$self{'status'} eq 'connected') |
|
434
|
0 |
0 |
if ($$self{'adc'}) { } |
|
439
|
0 |
0 |
if ref $_[0] |
|
440
|
0 |
0 |
if $$self{'upgrade_force'} |
|
462
|
0 |
0 |
if not $$self{'files'} or $Net::DirectConnect::global{'shareloaded'} == -s $$self{'files'} or $Net::DirectConnect::global{'shareloaded'} and not &psmisc::lock('sharescan', 'readonly', 1, 'timeout', 0, 'old', 86400) or not open(my $f, '<:encoding(utf8)', $$self{'files'}) |
|
476
|
0 |
0 |
if (my($file, $size, $tth, $ts) = /^File Name="([^"]+)" Size="(\d+)" TTH="([^"]+)"/i) { } |
|
|
0 |
0 |
elsif (my($curdir) = /^Directory Name="([^"]+)">/i) { } |
|
|
0 |
0 |
elsif (m[^/Directory>]i) { } |
|
489
|
0 |
0 |
!length($dir) && $^O ~~ ['MSWin32', 'cygwin'] ? : |
|
513
|
0 |
0 |
if $$self{'sharefiles_mul'} |
|
515
|
0 |
0 |
if $$self{'sharesize_mul'} |
|
517
|
0 |
0 |
if $sharesize |
|
522
|
0 |
0 |
if ref $_[0] |
|
523
|
0 |
0 |
unless my $tth = shift() |
|
525
|
0 |
0 |
$$self{'db'}{'no_update_limit'} ? : |
|
533
|
0 |
0 |
if $updated |
|
536
|
0 |
0 |
if ref $_[0] |
|
542
|
0 |
0 |
if ref $_[0] |
|
547
|
0 |
0 |
if ref $_[0] |
|
561
|
0 |
0 |
if -e $$self{'files'} and -s $$self{'files'} > 200 and $$self{'filelist_scan'} > time - $^T + 86400 * (-M $$self{'files'}) |
|
569
|
0 |
0 |
$$self{'filelist_builder'} ? : |
|
|
0 |
0 |
!$$self{'filelist_fork'} ? : |
|
572
|
0 |
0 |
if $$self{'filelist_scan'} |
|
591
|
0 |
0 |
if $$self{'filelist_scan'} |
|
596
|
0 |
0 |
if ref $_[0] |
|
612
|
0 |
0 |
if not $$self{'file_recv_filelist'} || $$self{'no_auto_share_downloaded'} |
|
618
|
0 |
0 |
unless $standalone |