line |
true |
false |
branch |
14
|
0 |
1 |
if (index($MHFS::EventLoop::Poll::Linux::Timer::Config{'archname'}, "x86_64-linux") == -1) |
35
|
0 |
0 |
unless $timerfd != -1 |
37
|
0 |
0 |
unless $timerhandle |
59
|
0 |
0 |
$start > 1e-09 ? : |
62
|
0 |
0 |
unless $settime_success == 0 |
70
|
0 |
0 |
if ($nread < 8) |
77
|
0 |
0 |
unless (defined $nread) |
78
|
0 |
0 |
unless ($!{'EAGAIN'}) |
115
|
0 |
0 |
if (defined $self{'children'}{$child}) { } |
176
|
0 |
0 |
if defined $id |
184
|
0 |
0 |
unless defined $self->{'timers'}[$i]{'id'} |
185
|
0 |
0 |
if ($self->{'timers'}[$i]{'id'} == $id) |
208
|
0 |
0 |
if ($current_time >= $timer->{'desired'}) { } |
210
|
0 |
0 |
if (defined $timer->{'callback'}->($timer, $current_time, $self)) |
225
|
0 |
0 |
if ($pollret > 0) { } |
|
0 |
0 |
elsif ($pollret == 0) { } |
|
0 |
0 |
elsif (not $!{'EINTR'}) { } |
229
|
0 |
0 |
if ($revents & 1) |
231
|
0 |
0 |
unless (defined $obj->onReadReady) |
238
|
0 |
0 |
if ($revents & 4) |
240
|
0 |
0 |
unless (defined $obj->onWriteReady) |
247
|
0 |
0 |
if ($revents & 16) |
275
|
0 |
0 |
if ($self->{'timers'}) { } |
282
|
0 |
0 |
if (@{$self->{'timers'};}) { } |
309
|
0 |
0 |
if ($self->SUPER::add_timer(@_) == 0) |
319
|
0 |
0 |
if (@{$self->{'timers'};}) |
333
|
0 |
0 |
if ($self->{'timers'}) { } |
353
|
0 |
1 |
if (&main::HAS_EventLoop_Poll_Linux_Timer()) |
359
|
1 |
0 |
if (eval "use parent $backend; 1;") |
364
|
0 |
1 |
unless $selbackend |
399
|
0 |
0 |
if (exists $settings->{'flush'} and $settings->{'flush'}) |
411
|
0 |
0 |
unless ($sock) |
416
|
0 |
0 |
unless ($sock->setsockopt(1, 9, 1)) |
434
|
0 |
0 |
if (index($MHFS::HTTP::Server::Config{'osname'}, "linux") != -1) |
436
|
0 |
0 |
unless $sock->setsockopt(6, 12, 1) |
446
|
0 |
0 |
unless ($fs) |
455
|
0 |
0 |
if defined $settings->{$pluginname}{'enabled'} and not $settings->{$pluginname}{'enabled'} |
457
|
0 |
0 |
unless $plugin |
463
|
0 |
0 |
if (my $func = $plugin->{'uploader'}) |
490
|
0 |
0 |
unless ($csock) |
497
|
0 |
0 |
unless ($peerhost) |
502
|
0 |
0 |
unless (defined $peerip) |
508
|
0 |
0 |
if (($peerip & $allowedHost->{'subnetmask'}) == $allowedHost->{'ip'}) |
513
|
0 |
0 |
unless ($ah) |
518
|
0 |
0 |
unless ($peerport) |
549
|
0 |
0 |
unless (defined $bytes) |
566
|
0 |
0 |
if (-e $lockname) |
582
|
0 |
0 |
unless open my $fh, ">", $filename |
592
|
0 |
0 |
if (not open(my $fh, '<', $filename)) { } |
610
|
0 |
0 |
unless $dir_matches |
611
|
0 |
0 |
if (/$name_req/i) |
612
|
0 |
0 |
if -d $_ |
618
|
0 |
0 |
if (defined $path_req) |
641
|
0 |
0 |
if ($pid == 0) { } |
682
|
0 |
0 |
if defined &{$funcname;} |
706
|
0 |
0 |
unless (opendir $dir, $path) |
714
|
0 |
0 |
if $file =~ /^..?$/ |
717
|
0 |
0 |
@files ? : |
721
|
0 |
0 |
unless (defined $path) |
722
|
0 |
0 |
if $options->{'on_dir_end'} |
726
|
0 |
0 |
if (-d $path) |
727
|
0 |
0 |
if $options->{'on_dir_start'} |
732
|
0 |
0 |
if ($root) |
736
|
0 |
0 |
unless (defined $size) |
740
|
0 |
0 |
if $size < $options->{'min_file_size'} |
741
|
0 |
0 |
if $options->{'on_file'} |
757
|
0 |
0 |
unless (defined $data{$multiple}) |
763
|
0 |
0 |
unless defined $data{$m2} |
821
|
0 |
0 |
if (scalar @values != 4) |
825
|
0 |
0 |
unless $values[$i] <= 255 |
851
|
0 |
0 |
unless length $$octets >= 1 |
856
|
0 |
0 |
if (($byteval & $rule->[0]) == $rule->[1]) |
861
|
0 |
0 |
unless length $octets >= $charlen |
863
|
0 |
0 |
if (length $char > 1) |
902
|
0 |
0 |
unless length $octets |
910
|
0 |
0 |
if ($chardata->{'bytelength'} == 3 and $chardata->{'codepoint'} >= 55296 and $chardata->{'codepoint'} <= 56319) |
912
|
0 |
0 |
if ($secondchar and $secondchar->{'bytelength'} == 3 and $secondchar->{'codepoint'} >= 56320 and $secondchar->{'codepoint'} <= 57343) |
934
|
0 |
0 |
unless length $escapedoctets |
960
|
0 |
0 |
if ($mebibytes >= 1024) { } |
993
|
1 |
0 |
if (not eval "use JSON; 1") |
994
|
0 |
1 |
unless eval "use JSON::PP; 1" |
1026
|
0 |
0 |
if ($ipos != -1) { } |
|
0 |
0 |
elsif (length $self->{'client'}{'inbuf'} > 8192) { } |
1027
|
0 |
0 |
if (substr($self->{'client'}{'inbuf'}, 0, $ipos + 2, '') =~ m[^(([^\s]+)\s+([^\s]+)\s+(?:HTTP/1\.([0-1])))\r\n]) { } |
1036
|
0 |
0 |
if ($self->{'method'} ne "GET" and $self->{'method'} ne "HEAD" and $self->{'method'} ne "PUT") |
1054
|
0 |
0 |
if (index($pathStruct{'unsafecollapse'}, "/", length($pathStruct{'unsafecollapse'}) - 1) != -1) |
1067
|
0 |
0 |
if (defined $value) |
1068
|
0 |
0 |
if (not defined $qsStruct{$key}) { } |
1072
|
0 |
0 |
if (ref $qsStruct{$key} ne "ARRAY") |
1102
|
0 |
0 |
if ($ipos == -1) { } |
|
0 |
0 |
elsif (substr($self->{'client'}{'inbuf'}, 0, $ipos + 2, '') =~ /^(([^:]+):\s*(.*))\r\n/) { } |
1103
|
0 |
0 |
if (length $self->{'client'}{'inbuf'} > 8192) |
1121
|
0 |
0 |
if ($self->{'client'}{'serverhostname'}) |
1122
|
0 |
0 |
if (not $self->{'header'}{'Host'} or $self->{'header'}{'Host'} ne $self->{'client'}{'serverhostname'}) |
1134
|
0 |
0 |
if ($self->{'client'}{'X-MHFS-PROXY-KEY'} and $self->{'header'}{'X-MHFS-PROXY-KEY'}) |
1138
|
0 |
0 |
if (not $trusted) { } |
1141
|
0 |
0 |
if (exists $self->{'header'}{$forbidden}) |
1150
|
0 |
0 |
if $self->{'header'}{'X-Forwarded-For'} |
1153
|
0 |
0 |
if ($netmap and $self->{'ip'} >> 24 == $netmap->[0]) |
1160
|
0 |
0 |
if (defined $self->{'header'}{'Range'} and $self->{'header'}{'Range'} =~ /^bytes=([0-9]+)\-([0-9]*)$/) |
1162
|
0 |
0 |
$2 ne '' ? : |
1171
|
0 |
0 |
if ($self->{'path'}{'unsafecollapse'} eq $route->[0]) { } |
1177
|
0 |
0 |
if index($route->[0], "*", length($route->[0]) - 1) == -1 |
1178
|
0 |
0 |
if rindex($self->{'path'}{'unsafecollapse'}, substr($route->[0], 0, -1), 0) != 0 |
1190
|
0 |
0 |
defined $self->{'header'}{'Host'} ? : |
1204
|
0 |
0 |
if (&Encode::is_utf8($fileitem->{'buf'})) |
1208
|
0 |
0 |
if ($self->{'outheaders'}{'Transfer-Encoding'} and $self->{'outheaders'}{'Transfer-Encoding'} eq "chunked") |
1222
|
0 |
0 |
unless ($code) |
1224
|
0 |
0 |
if (defined $self->{'header'}{'_RangeStart'}) { } |
1234
|
0 |
0 |
if ($code == 206) { } |
1237
|
0 |
0 |
if (defined $end) { } |
|
0 |
0 |
elsif (defined $size) { } |
1257
|
0 |
0 |
if ($end < $start) |
1270
|
0 |
0 |
if (not defined $contentlength) { } |
1291
|
0 |
0 |
unless ($headtext) |
1301
|
0 |
0 |
if ($opt->{'attachment'}) { } |
|
0 |
0 |
elsif ($opt->{'inline'}) { } |
1308
|
0 |
0 |
if ($filename) |
1318
|
0 |
0 |
if ($opt->{'allowSAB'}) |
1332
|
0 |
0 |
if ($dataitem->{'fh'}) |
1371
|
0 |
0 |
if ($code == 301) { } |
|
0 |
0 |
elsif ($code == 307) { } |
1389
|
0 |
0 |
$slash != -1 ? : |
1392
|
0 |
0 |
if ($slash != -1) |
1398
|
0 |
0 |
if ($qs) |
1402
|
0 |
0 |
if (ref $qs->{$key} ne 'ARRAY') { } |
1427
|
0 |
0 |
if ($self->{'method'} ne 'HEAD') { } |
1429
|
0 |
0 |
unless (open $FH, "<", $requestfile) |
1436
|
0 |
0 |
unless ($st) |
1448
|
0 |
0 |
if (defined $start) |
1449
|
0 |
0 |
if ($start >= $currentsize) { } |
|
0 |
0 |
elsif ($fileitem{'fh'}) { } |
1466
|
0 |
0 |
if ($done) |
1469
|
0 |
0 |
if (defined $locksz) { } |
1480
|
0 |
0 |
if (defined $self->{'header'}{'_RangeEnd'}) |
1485
|
0 |
0 |
if ($fileitem{'fh'}) |
1486
|
0 |
0 |
unless ($done) |
1494
|
0 |
0 |
if (defined $self->{'header'}{'_RangeEnd'}) |
1496
|
0 |
0 |
if $rangesize <= $maxsize |
1507
|
0 |
0 |
if (index($requestfile, $allowed, length($requestfile) - length($allowed)) != -1) |
1514
|
0 |
0 |
if ($filelength == '99999999999') |
1524
|
0 |
0 |
if ($self->{'responseopt'}{'cd_file'}) |
1534
|
0 |
0 |
unless (defined $filelength) |
1543
|
0 |
0 |
defined $self->{'header'}{'_RangeEnd'} ? : |
1562
|
0 |
0 |
if (defined $self->{'header'}{'_RangeStart'}) { } |
1573
|
0 |
0 |
unless open my $cmdh, "-|", @cmd |
1591
|
0 |
0 |
if (&Encode::is_utf8($buf)) |
1599
|
0 |
0 |
if (not $options->{'code'} or $options->{'code'} == 206) |
1607
|
0 |
0 |
unless (open $fh, "<", \$buf) |
1665
|
0 |
0 |
unless ($libtarsize) |
1708
|
0 |
0 |
if defined $requestfile |
1711
|
0 |
0 |
if (not defined $requestfile or rindex($requestfile, $droot, 0) != 0) { } |
|
0 |
0 |
elsif (-f $requestfile) { } |
|
0 |
0 |
elsif (-d _) { } |
1717
|
0 |
0 |
if (index($request->{'path'}{'unsafecollapse'}, '/', length($request->{'path'}{'unsafecollapse'}) - 1) == -1) { } |
1727
|
0 |
0 |
if (index($request->{'path'}{'unescapepath'}, '/', length($request->{'path'}{'unescapepath'}) - 1) != -1) { } |
1729
|
0 |
0 |
if (-f $index) |
1751
|
0 |
0 |
if defined $requestfile |
1752
|
0 |
0 |
if (not defined $requestfile or rindex($requestfile, $ml, 0) != 0) |
1757
|
0 |
0 |
if (-f $requestfile) { } |
|
0 |
0 |
elsif (-d _) { } |
1758
|
0 |
0 |
if (index($self->{'path'}{'unsafecollapse'}, '/', length($self->{'path'}{'unsafecollapse'}) - 1) == -1) { } |
1768
|
0 |
0 |
if (substr($self->{'path'}{'unescapepath'}, -1) eq '/') { } |
1769
|
0 |
0 |
unless opendir my $dh, $requestfile |
1773
|
0 |
0 |
if $filename eq "." or $filename eq ".." |
1774
|
0 |
0 |
unless -s "$requestfile/$filename" |
1776
|
0 |
0 |
if -d _ |
1794
|
0 |
0 |
if (length $self->{'client'}{'inbuf'} < $self->{'header'}{'Content-Length'}) |
1802
|
0 |
0 |
if ($dlength >= $contentlength) { } |
1805
|
0 |
0 |
if ($dlength > $contentlength) { } |
1828
|
0 |
0 |
if ($self->{'header'}{'Content-Length'} > 20000000) |
1834
|
0 |
0 |
if (length $self->{'client'}{'inbuf'} < $self->{'header'}{'Content-Length'}) |
1840
|
0 |
0 |
if ($dlength >= $contentlength) |
1843
|
0 |
0 |
if ($dlength > $contentlength) { } |
1861
|
0 |
0 |
if &$uploader($self, $requestfile) |
1902
|
0 |
0 |
unless (defined $self) |
1960
|
0 |
0 |
unless (defined $self->{'sock'}->recv($tempdata, 65536)) |
1961
|
0 |
0 |
unless ($!{'EAGAIN'} or $!{'EWOULDBLOCK'}) |
1968
|
0 |
0 |
if (length $tempdata == 0) |
1979
|
0 |
0 |
unless (defined $self->{'request'}{'on_read_ready'}) |
1984
|
0 |
0 |
unless ($res) |
1987
|
0 |
0 |
if (defined $self->{'request'}{'response'}) { } |
|
0 |
0 |
elsif (defined $self->{'request'}{'on_read_ready'}) { } |
1998
|
0 |
0 |
unless (defined $self->{'request'}{'response'}) |
2004
|
0 |
0 |
if (not defined $tsrRet) { } |
|
0 |
0 |
elsif ($tsrRet ne '') { } |
2009
|
0 |
0 |
if ($self->{'request'}{'outheaders'}{'Connection'} and $self->{'request'}{'outheaders'}{'Connection'} eq "close") |
2023
|
0 |
0 |
if ($res) |
2024
|
0 |
0 |
if (defined $self->{'request'}{'response'}) { } |
|
0 |
0 |
elsif (defined $self->{'request'}{'on_read_ready'}) { } |
2047
|
0 |
0 |
if (defined $self->{'sock'}->recv($tempdata, 65536)) |
2048
|
0 |
0 |
if (length $tempdata == 0) |
2055
|
0 |
0 |
unless ($!{'EAGAIN'}) |
2066
|
0 |
0 |
if (defined $client->{'request'}{'response'}) { } |
2069
|
0 |
0 |
if (not defined $tsrRet) { } |
|
0 |
0 |
elsif ($tsrRet ne '') { } |
2074
|
0 |
0 |
if ($client->{'request'}{'outheaders'}{'Connection'} and $client->{'request'}{'outheaders'}{'Connection'} eq "close") |
2092
|
0 |
0 |
if ($sentthiscall > 0) |
2101
|
0 |
0 |
unless defined $dataitem->{'buf'} |
2105
|
0 |
0 |
if (length $dataitem->{'buf'}) |
2108
|
0 |
0 |
unless (defined $sret) |
2112
|
0 |
0 |
if ($sret) |
2115
|
0 |
0 |
if (defined $client->{'sendresponsetimerid'}) |
2121
|
0 |
0 |
if (length $dataitem->{'buf'} > 0) |
2132
|
0 |
0 |
if (defined $dataitem->{'fh'}) { } |
|
0 |
0 |
elsif (defined $dataitem->{'cb'}) { } |
2137
|
0 |
0 |
if ($filepos != tell $FH) |
2140
|
0 |
0 |
if ($req_length and $filepos >= $req_length) { } |
2141
|
0 |
0 |
if ($filepos > $req_length) |
2149
|
0 |
0 |
if ($req_length) |
2151
|
0 |
0 |
if $tmpsend < $readamt |
2155
|
0 |
0 |
if (not defined $bytesRead) { } |
|
0 |
0 |
elsif ($bytesRead == 0) { } |
2161
|
0 |
0 |
if (not $req_length) { } |
2183
|
0 |
0 |
unless ($newdata) |
2191
|
0 |
0 |
if ($encode_chunked) |
2210
|
0 |
0 |
if (not defined $sret) { } |
|
0 |
0 |
elsif ($sret) { } |
2211
|
0 |
0 |
if ($!{'EAGAIN'}) { } |
|
0 |
0 |
elsif ($!{'ECONNRESET'}) { } |
|
0 |
0 |
elsif ($!{'EPIPE'}) { } |
2241
|
0 |
0 |
if ($self->{'sock'}) |
2267
|
0 |
0 |
if ($ret == 0) |
2271
|
0 |
0 |
if ($ret == -1) |
2274
|
0 |
0 |
if ($ret == 1) |
2285
|
0 |
0 |
if $self->{'process'} |
2310
|
0 |
0 |
if ($ret == 0) |
2314
|
0 |
0 |
if ($ret == -1) |
2317
|
0 |
0 |
if ($ret == 1) |
2374
|
0 |
0 |
if ($fddispatch->{'SIGCHLD'}) |
2379
|
0 |
0 |
if ($fddispatch->{'STDIN'}) { } |
2386
|
0 |
0 |
if ($fddispatch->{'STDOUT'}) { } |
2393
|
0 |
0 |
if ($fddispatch->{'STDERR'}) { } |
2401
|
0 |
0 |
if ($handlesettings->{'O_NONBLOCK'}) |
2404
|
0 |
0 |
unless 0 == fcntl($err, 3, $flags) |
2406
|
0 |
0 |
unless 0 == fcntl($err, 4, $flags) |
2408
|
0 |
0 |
unless 0 == fcntl($out, 3, $flags) |
2410
|
0 |
0 |
unless 0 == fcntl($out, 4, $flags) |
2412
|
0 |
0 |
unless defined $in->blocking(0) |
2422
|
0 |
0 |
if ($cb) |
2444
|
0 |
0 |
if ($env) |
2458
|
0 |
0 |
if ($@) |
2464
|
0 |
0 |
if ($env) |
2489
|
0 |
0 |
if ($context->{'on_stdout_data'}) |
2515
|
0 |
0 |
if ($context->{'on_stdout_data'}) |
2522
|
0 |
0 |
if ($context->{'input'}) |
2527
|
0 |
0 |
if ($curbuf) |
2529
|
0 |
0 |
if (not defined $rv) { } |
|
0 |
0 |
elsif ($rv != length $curbuf) { } |
2530
|
0 |
0 |
unless ($!{'EAGAIN'}) |
2545
|
0 |
0 |
unless (defined $context->{'curbuf'}) |
2591
|
0 |
0 |
if (defined $inputdata) |
2609
|
0 |
0 |
unless pipe my $inreader, my $inwriter |
2610
|
0 |
0 |
unless pipe my $outreader, my $outwriter |
2611
|
0 |
0 |
unless pipe my $errreader, my $errwriter |
2615
|
0 |
0 |
if ($pid == 0) |
2619
|
0 |
0 |
unless open STDIN, "<&", $inreader |
2620
|
0 |
0 |
unless open STDOUT, ">&", $errwriter |
2621
|
0 |
0 |
unless open STDERR, ">&", $errwriter |
2636
|
0 |
0 |
if (fork == 0) |
2637
|
0 |
0 |
unless open STDOUT, ">&", $sockfh |
2661
|
0 |
0 |
if (defined $self->{'fd'}{$key}{'fd'} and $fd == $self->{'fd'}{$key}{'fd'}) |
2673
|
0 |
0 |
if (defined $self->{'fd'}{$key}{'fd'}) |
2712
|
0 |
0 |
unless (defined $type) |
2713
|
0 |
0 |
if (defined $value) |
2717
|
0 |
0 |
if ($raw or $noindent) |
2722
|
0 |
0 |
if (not defined $value) { } |
|
0 |
0 |
elsif ($value eq '__indent-') { } |
2739
|
0 |
0 |
if ($type eq "NOP") |
2743
|
0 |
0 |
unless $noindent |
2744
|
0 |
0 |
if ($type eq 'SCALAR') { } |
|
0 |
0 |
elsif ($type eq 'HASH') { } |
|
0 |
0 |
elsif ($type eq 'ARRAY') { } |
2746
|
0 |
0 |
unless ($raw) |
2753
|
0 |
0 |
unless $raw |
2786
|
0 |
0 |
if ($source->{'type'} ne "local") |
2804
|
0 |
0 |
if (exists $launchsettings->{'CFGDIR'}) |
2808
|
0 |
0 |
if (exists $launchsettings->{'APPDIR'}) |
2809
|
0 |
0 |
unless -d $launchsettings->{'APPDIR'} |
2812
|
0 |
0 |
if (exists $launchsettings->{'FALLBACK_DATA_ROOT'}) |
2818
|
0 |
0 |
unless ($CFGDIR) |
2820
|
0 |
0 |
if $ENV{'APPDATA'} |
2824
|
0 |
0 |
if $cfg_fallback |
2826
|
0 |
0 |
if $XDG_CONFIG_HOME |
2830
|
0 |
0 |
if (-d "$cfgdir/mhfs") |
2835
|
0 |
0 |
if $XDG_CONFIG_HOME |
2836
|
0 |
0 |
unless defined $CFGDIR |
2843
|
0 |
0 |
unless ($SETTINGS) |
2844
|
0 |
0 |
if $@ |
2845
|
0 |
0 |
if -e $SETTINGS_FILE |
2859
|
0 |
0 |
unless (-f $SETTINGS_FILE) |
2863
|
0 |
0 |
if exists $launchsettings->{'flush'} |
2873
|
0 |
0 |
if $ENV{'APPDATA'} |
2874
|
0 |
0 |
if ($FALLBACK_DATA_ROOT) |
2881
|
0 |
0 |
unless $rule->[0] =~ m[^([^/]+)(?:/(\d{1,2}))?$] |
2884
|
0 |
0 |
unless defined $ip |
2885
|
0 |
0 |
unless $cidr >= 0 and $cidr <= 32 |
2892
|
0 |
0 |
if $rule->[1] |
2894
|
0 |
0 |
if ($rule->[2]) |
2896
|
0 |
0 |
if index($absurl, "/", length($absurl) - 1) != -1 |
2900
|
0 |
0 |
if ($rule->[3]) |
2906
|
0 |
0 |
unless ($SETTINGS->{'DOCUMENTROOT'}) |
2911
|
0 |
0 |
if $ENV{'XDG_CACHE_HOME'} |
2912
|
0 |
0 |
if $FALLBACK_DATA_ROOT |
2913
|
0 |
0 |
unless defined $tmpdir |
2915
|
0 |
0 |
unless ($SETTINGS->{'RUNTIME_DIR'}) |
2917
|
0 |
0 |
unless ($RUNTIMEDIR) |
2924
|
0 |
0 |
if $ENV{'XDG_DATA_HOME'} |
2925
|
0 |
0 |
if $FALLBACK_DATA_ROOT |
2926
|
0 |
0 |
unless defined $datadir |
2940
|
0 |
0 |
if (ref $srcs ne "ARRAY") |
2947
|
0 |
0 |
if ($stype ne "HASH") |
2948
|
0 |
0 |
if ($stype ne "") |
2978
|
0 |
0 |
if $FALLBACK_DATA_ROOT |
3007
|
0 |
0 |
if ($type eq 'd' or $type eq 'l') { } |
|
0 |
0 |
elsif ($type eq 'bstr') { } |
|
0 |
0 |
elsif ($type eq 'int') { } |
|
0 |
0 |
elsif ($type eq 'e') { } |
3039
|
0 |
0 |
if (substr($$contents, $foffset) =~ /^(0|[1-9][0-9]*):/) { } |
|
0 |
0 |
elsif (substr($$contents, $foffset, 1) eq 'e' and $nodestack[-1][0] eq 'l' || $nodestack[-1][0] eq 'd' && scalar(@{$nodestack[-1];}) % 2 == 1) { } |
|
0 |
0 |
elsif ($nodestack[-1][0] ne 'd' or scalar(@{$nodestack[-1];}) % 2 == 0) { } |
3055
|
0 |
0 |
if ($firstchar eq 'd' or $firstchar eq 'l') { } |
|
0 |
0 |
elsif (substr($$contents, $foffset - 1) =~ /^i(0|\-?[1-9][0-9]*)e/) { } |
3075
|
0 |
0 |
if (scalar @nodestack == 1) |
3095
|
0 |
0 |
unless $tree |
3115
|
0 |
0 |
unless (exists $opt->{'src'} and exists $opt->{'dest_metafile'} and exists $opt->{'tracker'}) |
3122
|
0 |
0 |
if $opt->{'private'} |
3140
|
0 |
0 |
if ($node->[0] ne "d") |
3145
|
0 |
0 |
if ($node->[$i][1] eq $key) |
3153
|
0 |
0 |
if ($valuetype and $node->[0] ne $valuetype) |
3162
|
0 |
0 |
if ($node->[0] ne "d") |
3176
|
0 |
0 |
unless $infodata |
3194
|
0 |
0 |
unless (exists $self->{'sources'}{$sid}) |
3199
|
0 |
0 |
if ($src->{'type'} ne "local") |
3205
|
0 |
0 |
unless $absolute |
3206
|
0 |
0 |
unless $absolute =~ /^$location/ |
3244
|
0 |
0 |
unless ($process) |
3255
|
0 |
0 |
if ($output =~ /ERROR/) |
3266
|
0 |
0 |
if ($output =~ /ERROR/) |
3277
|
0 |
0 |
if ($output =~ /ERROR/) |
3288
|
0 |
0 |
if ($output =~ /ERROR/) |
3299
|
0 |
0 |
if ($output =~ /ERROR/) |
3310
|
0 |
0 |
if ($output =~ /ERROR/) |
3321
|
0 |
0 |
if ($output =~ /ERROR/) |
3333
|
0 |
0 |
if ($output =~ /ERROR/) |
3344
|
0 |
0 |
if ($output =~ /ERROR/) |
3356
|
0 |
0 |
if ($output =~ /ERROR/) |
3361
|
0 |
0 |
if ($output =~ /ERROR/) |
3375
|
0 |
0 |
if ($output =~ /ERROR/) |
3391
|
0 |
0 |
if ($output =~ /ERROR/) |
3402
|
0 |
0 |
if ($output =~ /ERROR/) |
3411
|
0 |
0 |
unless defined $line |
3412
|
0 |
0 |
if (substr($line, 0, 1) ne "[") |
3419
|
0 |
0 |
unless (defined $newline) |
3427
|
0 |
0 |
unless (defined $file and defined $size) |
3436
|
0 |
0 |
if (@fkeys == 1) |
3440
|
0 |
0 |
unless (defined $res) |
3443
|
0 |
0 |
if ($res == 1) |
3461
|
0 |
0 |
unless ($torrent) |
3470
|
0 |
0 |
if (not defined $bytes_done) { } |
3474
|
0 |
0 |
unless (defined $_[0]) |
3477
|
0 |
0 |
unless (defined $_[0]) |
3480
|
0 |
0 |
unless (defined $_[0]) |
3489
|
0 |
0 |
unless (defined $_[0]) |
3492
|
0 |
0 |
unless (defined $_[0]) |
3518
|
1 |
0 |
if (not eval "use JSON; 1") |
3519
|
0 |
1 |
unless eval "use JSON::PP; 1" |
3540
|
1 |
0 |
if (not &HAS_MHFS_XS()) |
3550
|
0 |
0 |
unless $statinfo |
3554
|
0 |
0 |
if (not S_ISDIR($statinfo->mode)) { } |
3555
|
0 |
0 |
unless $path =~ /\.(flac|mp3|m4a|wav|ogg|webm)$/ |
3560
|
0 |
0 |
unless (opendir $dir, $path) |
3569
|
0 |
0 |
if $file eq "." or $file eq ".." |
3570
|
0 |
0 |
if (my $file = BuildLibrary("$path/$file")) |
3575
|
0 |
0 |
if $size eq 0 |
3587
|
0 |
0 |
if ($files->[2]) { } |
3606
|
0 |
0 |
if ($where eq "") |
3613
|
0 |
0 |
if ($where eq "") |
3630
|
0 |
0 |
unless ($file) |
3637
|
0 |
0 |
if ($file->[2]) |
3669
|
0 |
0 |
if ($request->{'qs'}{'forcerefresh'}) { } |
|
0 |
0 |
elsif ($request->{'qs'}{'refresh'}) { } |
3685
|
0 |
0 |
unless ($fmt) |
3688
|
0 |
0 |
if ($request->{'header'}{'User-Agent'} =~ m[Chrome/([^\.]+)]) { } |
|
0 |
0 |
elsif ($request->{'header'}{'User-Agent'} =~ m[Firefox/([^\.]+)]) { } |
3692
|
0 |
0 |
if ($ver < 93) |
3693
|
0 |
0 |
if ($ver < 68 or $request->{'header'}{'User-Agent'} =~ /Linux/) |
3701
|
0 |
0 |
if ($ver < 79) |
3710
|
0 |
0 |
if ($request->{'qs'}{'segments'}) |
3716
|
0 |
0 |
defined $request->{'qs'}{'ptrack'} ? : |
3717
|
0 |
0 |
if ($fmt eq 'worklet') { } |
|
0 |
0 |
elsif ($fmt eq 'musicdbjson') { } |
|
0 |
0 |
elsif ($fmt eq 'musicdbhtml') { } |
|
0 |
0 |
elsif ($fmt eq 'gapless') { } |
|
0 |
0 |
elsif ($fmt eq 'musicinc') { } |
|
0 |
0 |
elsif ($fmt eq 'legacy') { } |
3747
|
0 |
0 |
if (defined $request->{'qs'}{'part'}) { } |
|
0 |
0 |
elsif (defined $request->{'qs'}{'fmt'} and $request->{'qs'}{'fmt'} eq 'wav') { } |
3748
|
0 |
0 |
unless (&HAS_MHFS_XS()) |
3754
|
0 |
0 |
unless ($TRACKDURATION{$tosend}) |
3768
|
0 |
0 |
$samples_per_seg < $samples_left ? : |
3772
|
0 |
0 |
unless (&HAS_MHFS_XS()) |
3792
|
0 |
0 |
if ($actual_endbyte >= $endbyte) |
3808
|
0 |
0 |
if ($request->{'qs'}{'action'} and $request->{'qs'}{'action'} eq 'dl') { } |
|
0 |
0 |
elsif (lc substr($tosend, -4) eq '.mp3') { } |
3813
|
0 |
0 |
if (&HAS_MHFS_XS()) |
3814
|
0 |
0 |
unless ($TRACKINFO{$tosend}) |
3854
|
0 |
0 |
unless open my $fh, "<", $file |
3856
|
0 |
0 |
unless seek $fh, 8, 0 |
3857
|
0 |
0 |
unless read($fh, $buf, 34) == 34 |
3869
|
0 |
0 |
if ($justsendfile) |
3877
|
0 |
0 |
if $nameloc |
3882
|
0 |
0 |
unless ($is_flac) |
3886
|
0 |
0 |
if (-e $tlossy) { } |
3890
|
0 |
0 |
if (defined LOCK_GET_LOCKDATA($tlossy)) |
3901
|
0 |
0 |
if (LOCK_WRITE($tlossy)) { } |
3923
|
0 |
0 |
unless (defined $TRACKINFO{$file}) |
3930
|
0 |
0 |
$max_sample_rate > 48000 ? : |
3937
|
0 |
0 |
if ($samplerate <= $max_sample_rate and $inbitdepth <= $bitdepth) |
3951
|
0 |
0 |
if ($setting->[0] <= $bitdepth and $setting->[1] <= $max_sample_rate) |
3959
|
0 |
0 |
if (-e $tmpfile) |
3970
|
0 |
0 |
if ($samplerate % $key == 0) |
3972
|
0 |
0 |
if ($rate <= $samplerate and $rate <= $max_sample_rate) |
3986
|
0 |
0 |
if (LOCK_WRITE($outfile)) { } |
4017
|
0 |
0 |
if ($source->{'type'} eq 'local') { } |
|
0 |
0 |
elsif ($source->{'type'} eq 'ssh') { } |
|
0 |
0 |
elsif ($source->{'type'} eq 'mhfs') { } |
4027
|
0 |
0 |
unless ($lib) |
4029
|
0 |
0 |
if $source->{'type'} eq "local" |
4035
|
0 |
0 |
if $already->[0] eq $item->[0] |
4052
|
0 |
0 |
if ($libcomponent->[3] eq $component) |
4095
|
0 |
0 |
unless $node |
4098
|
0 |
0 |
if ($utf8name =~ m[(.+/).+$]) |
4102
|
0 |
0 |
if ($sendFiles{$source->{'type'}}($request, $node->{'path'}, $node->{'node'}, $source, $nameloc)) |
4114
|
0 |
0 |
unless (&HAS_MHFS_XS()) |
4123
|
0 |
0 |
unless $node |
4145
|
0 |
0 |
unless $node |
4149
|
0 |
0 |
unless (opendir $dh, $dname) |
4151
|
0 |
0 |
unless (opendir $dh, $dname) |
4161
|
0 |
0 |
if $last eq ".png" or $last eq ".jpg" or $last eq "jpeg" |
4164
|
0 |
0 |
unless (@files) |
4171
|
0 |
0 |
if (substr($file, 0, length $expname) eq $expname) |
4202
|
0 |
0 |
if ($before{$pupdate} ne $self->{$pupdate}) |
4219
|
0 |
0 |
unless (eval {
do {
$unthawed = thaw($out);
return 1
}
}) |
4226
|
0 |
0 |
if ($unthawed) { } |
4305
|
1 |
0 |
if (not eval "use JSON; 1") |
4306
|
0 |
1 |
unless eval "use JSON::PP; 1" |
4317
|
0 |
0 |
if ($query) |
4323
|
0 |
0 |
if ($request->{'qs'}{'media'}) |
4335
|
0 |
0 |
if $request->{'qs'}{'media'} |
4336
|
0 |
0 |
if ($request->{'qs'}{'media'} and $request->{'qs'}{'media'} eq 'music') { } |
4350
|
0 |
0 |
unless ($json) |
4358
|
0 |
0 |
unless defined $id |
4362
|
0 |
0 |
if defined $media |
4421
|
0 |
0 |
if ($request->{'qs'}{'fmt'} eq 'json') { } |
4441
|
0 |
0 |
unless ($request) |
4457
|
0 |
0 |
unless $cl |
4459
|
0 |
0 |
if ($cr) |
4461
|
0 |
0 |
if $cr > $cl |
4469
|
0 |
0 |
unless $st |
4471
|
0 |
0 |
if $cl < $minsize |
4472
|
0 |
0 |
if $st->size < $minsize |
4492
|
0 |
0 |
unless $qs->{'id'} |
4495
|
0 |
0 |
if (defined $qs->{'media'} and defined $self->{'fmts'}{$qs->{'media'}}) { } |
4553
|
0 |
0 |
if (not $youtubedl) { } |
|
0 |
0 |
elsif (not -e $youtubedl) { } |
4555
|
0 |
0 |
unless (-e $mhfsytdl) |
4557
|
0 |
0 |
if (system("curl", "-L", "https://yt-dl.org/downloads/latest/youtube-dl", "-o", $mhfsytdl) != 0) |
4561
|
0 |
0 |
if (system("chmod", "a+rx", $mhfsytdl) != 0) |
4577
|
0 |
0 |
unless ($installed) |
4579
|
0 |
0 |
if (fork == 0) |
4602
|
0 |
0 |
unless ($fileitem) |
4607
|
0 |
0 |
unless ($absurl) |
4622
|
0 |
0 |
unless ($torrentData) |
4626
|
0 |
0 |
unless ($torrent) |
4666
|
0 |
0 |
unless (exists $request->{'qs'}{$key}) |
4676
|
0 |
0 |
if ($port ne unpack("S", pack("S", $port))) |
4681
|
0 |
0 |
if ($left ne unpack("Q", pack("Q", $left))) |
4685
|
0 |
0 |
if (exists $request->{'qs'}{'compact'} and $request->{'qs'}{'compact'} eq 0) |
4691
|
0 |
0 |
unless (exists $self->{'torrents'}{$rih}) |
4708
|
0 |
0 |
if ($left == 0) |
4714
|
0 |
0 |
if (defined $event) |
4716
|
0 |
0 |
if ($event eq 'started') { } |
|
0 |
0 |
elsif ($event eq 'stopped') { } |
|
0 |
0 |
elsif ($event eq 'completed') { } |
4728
|
0 |
0 |
if (not defined $numwant or $numwant ne unpack("C", pack("C", $numwant)) or $numwant > 55) |
4739
|
0 |
0 |
if ($self->{'torrents'}{$rih}{$peer}{'completed'}) { } |
4745
|
0 |
0 |
if ($i++ < $numwant) |
4746
|
0 |
0 |
if ($peer ne $ipport) |
4750
|
0 |
0 |
if ($netmap and ($values[0] == $netmap->[1] and unpack("C", $ipport) != $netmap->[1]) and $pubip) |
4769
|
0 |
0 |
if ($bdata) { } |
4780
|
0 |
0 |
$settings->{'BitTorrent::Tracker'} && $settings->{'BitTorrent::Tracker'}{'announce_interval'} ? : |
4789
|
0 |
0 |
unless ($odres) |
4794
|
0 |
0 |
if substr($file, 0, 1) eq "." |
4797
|
0 |
0 |
unless ($torrentcontents) |
4802
|
0 |
0 |
unless ($torrent) |
4829
|
0 |
0 |
if ($current_time - $peerdata->{'last_announce'} > $self->{'announce_interval'} + 60) |
4863
|
0 |
0 |
if is_video($file) |
4864
|
0 |
0 |
if is_mhfs_music_playable($file) |
4874
|
0 |
0 |
if (defined $qs->{'infohash'}) { } |
4881
|
0 |
0 |
unless (defined $_[0]) |
4899
|
0 |
0 |
if ($bytes_done < $size_bytes) { } |
4906
|
0 |
0 |
unless (defined $_[0]) |
4919
|
0 |
0 |
if not defined $qs->{'playinbrowser'} or $qs->{'playinbrowser'} == 1 |
4933
|
0 |
0 |
unless (defined $_[0]) |
4943
|
0 |
0 |
if ($curtor =~ /^\[(u?)['"](.+)['"],\s'(.+)',\s([0-9]+),\s([0-9]+),\s([0-9]+)\]$/) { } |
4951
|
0 |
0 |
if ($is_unicode) |
4957
|
0 |
0 |
if ($qs->{'logunicode'}) |
4968
|
0 |
0 |
unless ($line) |
4985
|
0 |
0 |
if (exists $request->{'qs'}{'dlsubsystem'} and exists $request->{'qs'}{'privdata'}) |
4987
|
0 |
0 |
if (exists $self->{'dlsubsystems'}{$subsystem}) |
4991
|
0 |
0 |
unless ($result) |
5050
|
0 |
0 |
if (rindex($request->{'path'}{'unsafepath'}, "/od/" . $key, 0) == 0) |
5082
|
0 |
0 |
if (not -d $video->{'src_file'}{'filepath'}) { } |
5116
|
0 |
0 |
if (scalar @pathcomponents >= 3) |
5117
|
0 |
0 |
if ($pathcomponents[2] eq "video") |
5118
|
0 |
0 |
if (scalar @pathcomponents >= 5) |
5124
|
0 |
0 |
unless ($video{'src_file'}) |
5130
|
0 |
0 |
if ($fmt eq "m3u8") |
5132
|
0 |
0 |
unless ($absurl) |
5138
|
0 |
0 |
$video{'src_file'}{'ext'} ? : |
5170
|
0 |
0 |
unless (defined $tvdir) |
5175
|
0 |
0 |
unless (opendir $dh, $tvdir) |
5183
|
0 |
0 |
if $filename eq "." or $filename eq ".." |
5184
|
0 |
0 |
unless -s "$tvdir/$filename" |
5186
|
0 |
0 |
unless $filename =~ /^(.+)[\.\s]+S\d+/ |
5188
|
0 |
0 |
if ($showname) |
5190
|
0 |
0 |
unless ($shows{$showname}) |
5200
|
0 |
0 |
if ($request->{'path'}{'unsafepath'} ne $kodidir) |
5204
|
0 |
0 |
$slash != -1 ? : |
5205
|
0 |
0 |
$slash != -1 ? : |
5208
|
0 |
0 |
unless ($showitems) |
5218
|
0 |
0 |
if (not $item) { } |
|
0 |
0 |
elsif (rindex($item, $tvdir, 0) != 0) { } |
|
0 |
0 |
elsif (-f $item) { } |
|
0 |
0 |
elsif (-d _) { } |
5226
|
0 |
0 |
if (not $showfilename) { } |
|
0 |
0 |
elsif ($showfilename eq $filebasename) { } |
5230
|
0 |
0 |
if (index($request->{'path'}{'unsafecollapse'}, '/', length($request->{'path'}{'unsafecollapse'}) - 1) == -1) { } |
5241
|
0 |
0 |
unless opendir my $dh, $item |
5244
|
0 |
0 |
if $newitem eq "." or $newitem eq ".." |
5257
|
0 |
0 |
if (index($request->{'path'}{'unescapepath'}, "/", length($request->{'path'}{'unescapepath'}) - 1) == -1) |
5267
|
0 |
0 |
if $show->{'isdir'} |
5278
|
0 |
0 |
unless (defined $moviedir) |
5283
|
0 |
0 |
unless (opendir $dh, $moviedir) |
5291
|
0 |
0 |
if $filename eq "." or $filename eq ".." |
5292
|
0 |
0 |
unless -s "$moviedir/$filename" |
5295
|
0 |
0 |
if ($filename =~ /^(.+)[\.\s]+\(?(\d{4})([^p]|$)/) { } |
|
0 |
0 |
elsif ($filename =~ /^(.+)(\.DVDRip)\.[a-zA-Z]{3,4}$/) { } |
|
0 |
0 |
elsif ($filename =~ /^(.+)\.VHS/) { } |
|
0 |
0 |
elsif ($filename =~ /^(.+)[\.\s]+\d{3,4}p\.[a-zA-Z]{3,4}$/) { } |
|
0 |
0 |
elsif ($filename =~ /^(.+)\.[a-zA-Z]{3,4}$/) { } |
5314
|
0 |
0 |
if ($showname) |
5316
|
0 |
0 |
unless ($shows{$showname}) |
5326
|
0 |
0 |
if ($request->{'path'}{'unsafepath'} ne $kodidir) |
5331
|
0 |
0 |
$slash != -1 ? : |
5332
|
0 |
0 |
$slash != -1 ? : |
5336
|
0 |
0 |
unless ($showitems) |
5346
|
0 |
0 |
if (not $item) { } |
|
0 |
0 |
elsif (rindex($item, $moviedir, 0) != 0) { } |
|
0 |
0 |
elsif (-f $item) { } |
|
0 |
0 |
elsif (-d _) { } |
5354
|
0 |
0 |
if (not $showfilename) { } |
|
0 |
0 |
elsif ($showfilename eq $filebasename) { } |
5358
|
0 |
0 |
if (index($request->{'path'}{'unsafecollapse'}, '/', length($request->{'path'}{'unsafecollapse'}) - 1) == -1) { } |
5369
|
0 |
0 |
unless opendir my $dh, $item |
5372
|
0 |
0 |
if $newitem eq "." or $newitem eq ".." |
5385
|
0 |
0 |
if (index($request->{'path'}{'unescapepath'}, "/", length($request->{'path'}{'unescapepath'}) - 1) == -1) |
5395
|
0 |
0 |
if $show->{'isdir'} |
5413
|
0 |
0 |
if (scalar @pathcomponents >= 3) |
5414
|
0 |
0 |
if ($pathcomponents[2] eq 'movies') { } |
|
0 |
0 |
elsif ($pathcomponents[2] eq 'tv') { } |
5451
|
0 |
0 |
if ($MHFS::Plugin::GetVideo::Config{'ivsize'} < 8) |
5503
|
0 |
0 |
if (defined $qs->{'name'}) { } |
|
0 |
0 |
elsif ($$videoformats{$video{'out_fmt'}}{'plugin'}) { } |
5504
|
0 |
0 |
if (defined $qs->{'sid'}) { } |
5506
|
0 |
0 |
unless ($video{'src_file'}) |
5517
|
0 |
0 |
if ($video{'out_fmt'} eq 'noconv') { } |
|
0 |
0 |
elsif ($video{'out_fmt'} eq 'mkvinfo') { } |
|
0 |
0 |
elsif ($video{'out_fmt'} eq 'fmp4') { } |
5531
|
0 |
0 |
unless (-e $video{'src_file'}{'filepath'}) |
5539
|
0 |
0 |
if $video{'out_fmt'} eq "hls" |
5543
|
0 |
0 |
unless ($video{'out_base'} = $video{'plugin'}->getOutBase($qs)) |
5560
|
0 |
0 |
if (-e $video{'out_filepath'}) |
5567
|
0 |
0 |
if ($videoformats->{$fmt}{'lock'} == 1 and LOCK_WRITE($video{'out_filepath'}) != 1) |
5571
|
0 |
0 |
if ($video{'plugin'}) { } |
|
0 |
0 |
elsif (defined $videoformats->{$fmt}{'create_cmd'}) { } |
5585
|
0 |
0 |
if ($fmt eq "hls") |
5595
|
0 |
0 |
unless (defined $request) |
5602
|
0 |
0 |
unless (-e $filename) |
5606
|
0 |
0 |
if (defined $minsize and -s $filename < $minsize) |
5609
|
0 |
0 |
if (defined $video{'on_exists'}) |
5610
|
0 |
0 |
unless $video{'on_exists'}->($settings, \%video) |
5617
|
0 |
0 |
if (pid_running($video{'pid'})) |
5638
|
0 |
0 |
if (defined $fmt) |
5641
|
0 |
0 |
if (defined $self->{'VIDEOFORMATS'}{$fmt}) |
5659
|
0 |
0 |
if ($line =~ /^(.+)\.m3u8_v$/) |
5672
|
0 |
0 |
if ($subm3u and -e $reqsub) |
5678
|
0 |
0 |
if $sub->{'is_default'} |
5679
|
0 |
0 |
if $sub->{'is_forced'} |
5691
|
0 |
0 |
unless ($matroska) |
5697
|
0 |
0 |
if (defined $request->{'qs'}{'mkvinfo_time'}) { } |
5699
|
0 |
0 |
unless ($track) |
5704
|
0 |
0 |
unless ($gopinfo) |
5720
|
0 |
0 |
if ($request->{'qs'}{'fmp4_time'}) |
5764
|
0 |
0 |
unless (defined $sync) |
5768
|
0 |
0 |
if ($sync != 65521) |
5781
|
0 |
0 |
$ebml->{'elements'} > 0 ? : |
5782
|
0 |
0 |
if $lastelm and defined $lastelm->{'size'} and $amount > $lastelm->{'size'} |
5785
|
0 |
0 |
unless ($amtread) |
5790
|
0 |
0 |
if ($elem->{'size'}) |
5799
|
0 |
0 |
unless $whence == 1 |
5800
|
0 |
0 |
if $ebml->{'elements'} > 0 and $ebml->{'elements'}[-1]{'size'} and $position > $ebml->{'elements'}[-1]{'size'} |
5801
|
0 |
0 |
unless seek $ebml->{'fh'}, $position, $whence |
5803
|
0 |
0 |
if ($elem->{'size'}) |
5817
|
0 |
0 |
if $value << $width - 1 & 128 |
5818
|
0 |
0 |
unless $width < 9 |
5821
|
0 |
0 |
unless length $$bufref >= $width - 1 |
5838
|
0 |
0 |
unless defined $value |
5846
|
0 |
0 |
if (defined $savewidth) |
5855
|
0 |
0 |
unless ebml_read($ebml, $value, 1) |
5859
|
0 |
0 |
if $value << $width - 1 & 128 |
5860
|
0 |
0 |
unless $width < 9 |
5866
|
0 |
0 |
unless ebml_read($ebml, $byte, 1) |
5877
|
0 |
0 |
unless read_vint($ebml, \$value, \$width) |
5890
|
0 |
0 |
unless open my $fh, "<", $filename |
5892
|
0 |
0 |
unless read $fh, $magic, 4 |
5893
|
0 |
0 |
unless $magic eq "\32E\337\243" |
5896
|
0 |
0 |
unless read_and_parse_vint($ebml, \$ebmlheadsize) |
5897
|
0 |
0 |
unless seek $fh, $ebmlheadsize, 1 |
5904
|
0 |
0 |
unless read_vint($ebml, \$id) |
5906
|
0 |
0 |
unless read_and_parse_vint($ebml, \$size) |
5915
|
0 |
0 |
unless ebml_seek($ebml, $elm->{'size'}, 1) |
5924
|
0 |
0 |
unless $elm |
5925
|
0 |
0 |
if ($elm->{'id'} == $id) |
5929
|
0 |
0 |
unless ebml_skip($ebml) |
5938
|
0 |
0 |
if (not $elm) { } |
|
0 |
0 |
elsif (not $elm->{'data'}) { } |
5950
|
0 |
0 |
unless ($elementid) |
5954
|
0 |
0 |
unless $elementid < 4294967295 |
5958
|
0 |
0 |
unless $size < '72057594037927935' |
5961
|
0 |
0 |
if ($elementid > 16777215) { } |
|
0 |
0 |
elsif ($elementid > 65535) { } |
|
0 |
0 |
elsif ($elementid > 255) { } |
5981
|
0 |
0 |
if ($elm->{'infsize'}) { } |
6048
|
0 |
0 |
if ($elm->{'id'} == 160) { } |
|
0 |
0 |
elsif ($elm->{'id'} == 163) { } |
6053
|
0 |
0 |
unless defined $id |
6055
|
0 |
0 |
unless defined $size |
6057
|
0 |
0 |
if $id == 161 |
6069
|
0 |
0 |
if (not defined $trackno or length $data < 3) |
6079
|
0 |
0 |
if ($lacing == 2) { } |
|
0 |
0 |
elsif ($lacing == 6) { } |
|
0 |
0 |
elsif ($lacing == 4) { } |
6087
|
0 |
0 |
if $val < 255 |
6150
|
0 |
0 |
if (telmval($track, "TrackNumber") == $trackno) |
6163
|
0 |
0 |
unless $headread and $headread == 4 |
6169
|
0 |
0 |
unless $$type != 127 |
6172
|
0 |
0 |
unless $dataread and $dataread == $size |
6208
|
0 |
0 |
unless $magic and $magic == 4 |
6214
|
0 |
0 |
unless $bref |
6216
|
0 |
0 |
if ($type == 0) |
6219
|
0 |
0 |
if $done |
6238
|
0 |
0 |
if length $str == 0 |
6240
|
0 |
0 |
if length $str == 4 |
6242
|
0 |
0 |
if length $str == 8 |
6258
|
0 |
0 |
unless ($ebml) |
6264
|
0 |
0 |
unless ($foundsegment) |
6272
|
0 |
0 |
unless ($foundsegmentinfo) |
6280
|
0 |
0 |
unless ($tselm) |
6285
|
0 |
0 |
unless (ebml_read($ebml, $tsbinary, $tselm->{'size'})) |
6291
|
0 |
0 |
unless defined $tsval |
6294
|
0 |
0 |
unless (ebml_skip($ebml)) |
6301
|
0 |
0 |
unless ($durationelm) |
6306
|
0 |
0 |
unless (ebml_read($ebml, $durbin, $durationelm->{'size'})) |
6318
|
0 |
0 |
unless (ebml_skip($ebml)) |
6323
|
0 |
0 |
unless (ebml_skip($ebml)) |
6329
|
0 |
0 |
unless ($in_tracks) |
6341
|
0 |
0 |
unless $packetsize |
6345
|
0 |
0 |
if ($packetsread == $targetpackets) |
6353
|
0 |
0 |
if (length $$dataref >= $targetsize) |
6361
|
0 |
0 |
unless ($in_track) |
6368
|
0 |
0 |
unless ($telm) |
6376
|
0 |
0 |
if ($elm{'id'} == 215) { } |
|
0 |
0 |
elsif ($elm{'id'} == 134) { } |
|
0 |
0 |
elsif ($elm{'id'} == 131) { } |
|
0 |
0 |
elsif ($elm{'id'} == 29637) { } |
|
0 |
0 |
elsif ($elm{'id'} == 2352003) { } |
|
0 |
0 |
elsif ($elm{'id'} == 225) { } |
6383
|
0 |
0 |
if ($elm{'data'} =~ m[^([A-Z]+_)([A-Z0-9]+)(?:/([A-Z0-9_/]+))?$]) |
6386
|
0 |
0 |
if ($3) |
6389
|
0 |
0 |
if $track{'CodecID_Prefix'} eq "A_" |
6415
|
0 |
0 |
unless ($id) |
6421
|
0 |
0 |
unless ($size) |
6428
|
0 |
0 |
if ($id == 181) { } |
|
0 |
0 |
elsif ($id == 159) { } |
6442
|
0 |
0 |
if ($track{'CodecID_Major'} eq "EAC3" or $track{'CodecID_Major'} eq "AC3") |
6459
|
0 |
0 |
if (scalar @tracks == 0) |
6472
|
0 |
0 |
if (defined $tt and $tt->{'value'} == 2) |
6483
|
0 |
0 |
if (defined $tt and $tt->{'value'} == 1) |
6496
|
0 |
0 |
unless $custer |
6502
|
0 |
0 |
unless ($belm) |
6509
|
0 |
0 |
if ($elm{'id'} == 231) |
6544
|
0 |
0 |
unless ($belm) |
6547
|
0 |
0 |
if ($cluster) |
6559
|
0 |
0 |
if ($elm{'id'} == 163 or $elm{'id'} == 160) |
6561
|
0 |
0 |
if ($block and $block->{'trackno'} == $tid) |
6585
|
0 |
0 |
unless $cluster |
6590
|
0 |
0 |
if ($ctime <= $timeinseconds) |
6593
|
0 |
0 |
if ($prevcluster) |
6599
|
0 |
0 |
if ($ctime >= $timeinseconds) |
6604
|
0 |
0 |
unless $desiredcluster |
6607
|
0 |
0 |
if $desiredcluster->{'prevcluster'} |
6619
|
0 |
0 |
if ($block) |
6621
|
0 |
0 |
if ($blocktime > $timeinseconds) |
6624
|
0 |
0 |
unless ($matroska->{'dc'}{'firstblk'}) |
6628
|
0 |
0 |
unless ($block) |
6629
|
0 |
0 |
unless ($prevcluster) |
6641
|
0 |
0 |
if ($timeinseconds < $blocktime + $blockduration) |
6657
|
0 |
0 |
unless ($pcmFrameLen) |
6665
|
0 |
0 |
unless $cluster |
6671
|
0 |
0 |
if ($curframe <= $pcmFrameIndex) |
6675
|
0 |
0 |
if ($prevcluster) |
6681
|
0 |
0 |
if ($curframe >= $pcmFrameIndex) |
6686
|
0 |
0 |
unless $desiredcluster |
6689
|
0 |
0 |
if $desiredcluster->{'prevcluster'} |
6701
|
0 |
0 |
if ($block) |
6703
|
0 |
0 |
if ($blockframe > $pcmFrameIndex) |
6707
|
0 |
0 |
unless ($block) |
6708
|
0 |
0 |
unless ($prevcluster) |
6720
|
0 |
0 |
if ($pcmFrameIndex < $blockframe + $pcmSampleCount) |
6721
|
0 |
0 |
if (($pcmFrameIndex - $blockframe) % $pcmFrameLen != 0) |
6767
|
0 |
0 |
unless ($pcmFrameLen) |
6773
|
0 |
0 |
if ($matroska->{'curframe'} != $pcmFrameIndex) |
6775
|
0 |
0 |
unless (matroska_seek_track($matroska, $track, $pcmFrameIndex)) |
6789
|
0 |
0 |
if ($matroska->{'curframe'} == $destframe) |
6797
|
0 |
0 |
unless ($block) |
6798
|
0 |
0 |
if ($matroska->{'ebml'}{'elements'}[0]{'id'} == 408125543 and $matroska->{'ebml'}{'elements'}[0]{'size'} == 0) { } |
6830
|
0 |
0 |
if ($eline =~ /^\s*Stream\s#0:(\d+)(?:\((.+)\)){0,1}:\s(.+):\s(.+)(.*)$/) { } |
|
0 |
0 |
elsif ($eline =~ /^\s+Duration:\s+(\d\d):(\d\d):(\d\d)\.(\d\d)/) { } |
|
0 |
0 |
elsif (defined $current_stream) { } |
6834
|
0 |
0 |
if $current_element->{'fmt'} =~ /\(default\)$/i |
6835
|
0 |
0 |
if $current_element->{'fmt'} =~ /FORCED/i |
6836
|
0 |
0 |
if ($type =~ /audio/i) { } |
|
0 |
0 |
elsif ($type =~ /video/i) { } |
|
0 |
0 |
elsif ($type =~ /subtitle/i) { } |
6853
|
0 |
0 |
unless ($eline =~ /^\s\s+/) |
6859
|
0 |
0 |
if ($eline =~ /\s+title\s*:\s*(.+)$/) |
6904
|
0 |
0 |
if ($qs->{'library'} ne "all") |
6911
|
0 |
0 |
unless exists $settings->{'MEDIASOURCES'}{$library} |
6916
|
0 |
0 |
unless -d $sublib->{'folder'} |
6919
|
0 |
0 |
unless $libhtmlcontent |
7024
|
0 |
0 |
unless (&GetOptions("flush", \$flush, "cfgdir=s", \$cfgdir, "fallback_data_root=s", \$fallback_data_root, "appdir=s", \$appdir, "--help|h", \$help, "--version|v", \$versionflag)) |
7037
|
0 |
0 |
if ($help) { } |
|
0 |
0 |
elsif ($versionflag) { } |
7047
|
0 |
0 |
if $flush |
7048
|
0 |
0 |
if $cfgdir |
7049
|
0 |
0 |
if $fallback_data_root |
7050
|
0 |
0 |
if $appdir |