line |
true |
false |
branch |
743
|
0 |
0 |
unless $dirLen > 8 |
748
|
0 |
0 |
unless $ee |
750
|
0 |
0 |
if $verbose |
757
|
0 |
0 |
if $end > $dirLen |
760
|
0 |
0 |
if ($verbose) |
768
|
0 |
0 |
if $len < 8 or $pos + $len > $end |
774
|
0 |
0 |
if ($tag eq 'keyd') { } |
|
0 |
0 |
elsif ($tag eq 'dtyp') { } |
776
|
0 |
0 |
unless $tagID |
777
|
0 |
0 |
if $verbose |
779
|
0 |
0 |
if length $val < 4 |
780
|
0 |
0 |
if (length $val >= 4) |
782
|
0 |
0 |
if ($ns == 0) { } |
|
0 |
0 |
elsif ($ns == 1) { } |
783
|
0 |
0 |
unless length $val >= 8 |
792
|
0 |
0 |
if $verbose and defined $str |
795
|
0 |
0 |
if ($verbose > 1) |
796
|
0 |
0 |
if (defined $str) { } |
806
|
0 |
0 |
if (defined $tagID and defined $format) |
807
|
0 |
0 |
if ($verbose) |
825
|
8 |
0 |
if defined $time |
826
|
8 |
0 |
if defined $dur |
838
|
0 |
0 |
if (defined $sampleTime and $value->{'CreateDate'}) |
840
|
0 |
0 |
if ($et->{'CreateDateAtEnd'}) { } |
841
|
0 |
0 |
unless $value->{'TimeScale'} and $value->{'Duration'} |
847
|
0 |
0 |
unless ($et->Options("QuickTimeUTC")) |
849
|
0 |
0 |
unless (defined $tzOff) |
869
|
0 |
0 |
if $tags->{'GPSDateTime'} |
885
|
0 |
0 |
if $et->{'NoMoreTextDecoding'} |
887
|
0 |
0 |
if (ref $dataPt eq "HASH") |
895
|
0 |
0 |
if ($tag =~ /^[A-Z]{2}RMC$/ and $dat =~ /^,(\d{2})(\d{2})(\d+(?:\.\d*)),A?,(\d*?)(\d{1,2}\.\d+),([NS]),(\d*?)(\d{1,2}\.\d+),([EW]),(\d*\.?\d*),(\d*\.?\d*),(\d{2})(\d{2})(\d+)/) { } |
|
0 |
0 |
elsif ($tag =~ /^[A-Z]{2}GGA$/ and $dat =~ /^,(\d{2})(\d{2})(\d+(?:\.\d*)?),(\d*?)(\d{1,2}\.\d+),([NS]),(\d*?)(\d{1,2}\.\d+),([EW]),[1-6]?,(\d+)?,(\.\d+|\d+\.?\d*)?,(-?\d+\.?\d*)?,M?/s) { } |
|
0 |
0 |
elsif ($tag eq 'BEGINGSENSOR' and $dat =~ /^:([-+]\d+\.\d+):([-+]\d+\.\d+):([-+]\d+\.\d+)/) { } |
|
0 |
0 |
elsif ($tag eq 'TIME' and $dat =~ /^:(\d+)/) { } |
|
0 |
0 |
elsif ($tag eq 'BEGIN') { } |
|
0 |
0 |
elsif ($tag ne 'END') { } |
897
|
0 |
0 |
if ($et->{'LastTime'}) |
898
|
0 |
0 |
if ($et->{'LastTime'} eq $time) { } |
|
0 |
0 |
elsif (%tags) { } |
907
|
0 |
0 |
$14 >= 70 ? : |
910
|
0 |
0 |
$6 eq 'N' ? : |
911
|
0 |
0 |
$9 eq 'E' ? : |
912
|
0 |
0 |
if length $10 |
913
|
0 |
0 |
if length $11 |
916
|
0 |
0 |
if ($et->{'LastTime'}) |
917
|
0 |
0 |
if ($et->{'LastTime'} eq $time) { } |
|
0 |
0 |
elsif (%tags) { } |
927
|
0 |
0 |
$6 eq 'N' ? : |
928
|
0 |
0 |
$9 eq 'E' ? : |
929
|
0 |
0 |
if defined $10 |
930
|
0 |
0 |
if defined $11 |
931
|
0 |
0 |
if defined $12 |
937
|
0 |
0 |
if length $dat |
943
|
0 |
0 |
if %tags |
978
|
0 |
0 |
if ($$dataPt =~ /^\0\0(..\xaa\xaa|\xf2\xe1\xf0\xee)/s and length $$dataPt >= 282) |
980
|
0 |
0 |
if ($val =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/) |
983
|
0 |
0 |
if ($val =~ /^([NS])(\d{2})(\d+$)$/) |
984
|
0 |
0 |
$1 eq 'S' ? : |
987
|
0 |
0 |
if ($val =~ /^([EW])(\d{3})(\d+$)$/) |
988
|
0 |
0 |
$1 eq 'W' ? : |
991
|
0 |
0 |
if $val =~ /^[-+]\d+$/ |
993
|
0 |
0 |
if $val =~ /^\d+$/ |
994
|
0 |
0 |
if ($$dataPt =~ /^\0\0..\xaa\xaa/s) { } |
997
|
0 |
0 |
if ($val =~ /^([-+]\d{3})([-+]\d{3})([-+]\d{3})$/) |
1010
|
0 |
0 |
if @acc |
1013
|
0 |
0 |
if %tags |
1019
|
0 |
0 |
if ($$dataPt =~ /GPS \(([-+]?\d*\.\d+),\s*([-+]?\d*\.\d+)/) |
1023
|
0 |
0 |
if $$dataPt =~ /,\s*H\s+([-+]?\d+\.?\d*)m/ |
1024
|
0 |
0 |
if $$dataPt =~ /,\s*H.S\s+([-+]?\d+\.?\d*)/ |
1025
|
0 |
0 |
if $$dataPt =~ /,\s*D\s+(\d+\.?\d*)m/ |
1026
|
0 |
0 |
if $$dataPt =~ /,\s*V.S\s+([-+]?\d+\.?\d*)/ |
1027
|
0 |
0 |
if $$dataPt =~ m[\bF/(\d+\.?\d*)] |
1028
|
0 |
0 |
if $$dataPt =~ /\bSS\s+(\d+\.?\d*)/ |
1029
|
0 |
0 |
if $$dataPt =~ m[\bEV\s+([-+]?\d+\.?\d*)(/\d+)?] |
1030
|
0 |
0 |
if $$dataPt =~ /\bISO\s+(\d+\.?\d*)/ |
1037
|
0 |
0 |
if ($$dataPt =~ /^A,(\d{2})(\d{2})(\d{2}),(\d{2})(\d{2})(\d{2}(\.\d+)?)/) |
1039
|
0 |
0 |
if ($$dataPt =~ /^A,.*?,.*?,(\d{2})(\d+\.\d+),([NS])/) |
1040
|
0 |
0 |
$3 eq 'S' ? : |
1042
|
0 |
0 |
if ($$dataPt =~ /^A,.*?,.*?,.*?,.*?,(\d{3})(\d+\.\d+),([EW])/) |
1043
|
0 |
0 |
$3 eq 'W' ? : |
1046
|
0 |
0 |
if $a[8] and $a[8] =~ s/M$// |
1047
|
0 |
0 |
if $a[7] and $a[7] =~ /^\d+\.\d+$/ |
1048
|
0 |
0 |
if $a[11] and $a[11] =~ s/;\s*$// |
1058
|
0 |
0 |
if ($$dataPt =~ /\*[0-9A-F]{2}~$/) |
1064
|
0 |
0 |
if $n >= 0 and defined $decode[$n] |
1067
|
0 |
0 |
if ($buff =~ /X(.*?)Y(.*?)Z(.*?)G(.*?)\$/) |
1077
|
0 |
0 |
if ($$dataPt =~ /[A-Z]{2}RMC,(\d{2})(\d{2})(\d+(\.\d*)?),A?,(\d*?)(\d{1,2}\.\d+),([NS]),(\d*?)(\d{1,2}\.\d+),([EW]),(\d*\.?\d*),(\d*\.?\d*),(\d{2})(\d{2})(\d+)/ and $13 <= 31 and $14 <= 12 and $15 <= 99) |
1081
|
0 |
0 |
$15 >= 70 ? : |
1083
|
0 |
0 |
$7 eq 'N' ? : |
1084
|
0 |
0 |
$10 eq 'E' ? : |
1085
|
0 |
0 |
if length $11 |
1086
|
0 |
0 |
if length $12 |
1088
|
0 |
0 |
if $$dataPt =~ /\bgsensori,(.*?)(;|$)/ |
1089
|
0 |
0 |
if $$dataPt =~ /\bCAR,(.*?)(;|$)/ |
1091
|
0 |
0 |
if (%tags) { } |
1096
|
0 |
0 |
if $et->{'UnknownTextCount'} > 100 |
1111
|
0 |
16 |
unless $ee |
1116
|
12 |
4 |
if ($type eq "vide") |
1117
|
0 |
12 |
if ($ee->{'avcC'}) { } |
|
4 |
8 |
elsif ($ee->{'JPEG'}) { } |
1127
|
8 |
0 |
unless ($start and $size) |
1128
|
0 |
8 |
unless $size |
1130
|
0 |
8 |
unless $stco and $stsc and @$stsc |
1134
|
8 |
0 |
if ($stts and @$stts > 1) |
1141
|
8 |
0 |
if ($iChunk >= $nextChunk and @$stsc) |
1143
|
0 |
8 |
if @$stsc |
1145
|
0 |
8 |
if @$size < @$start + $samplesPerChunk |
1149
|
8 |
0 |
if (defined $time) |
1151
|
0 |
0 |
if (@$stts < 2) |
1164
|
8 |
0 |
if ++$i >= $samplesPerChunk |
1169
|
0 |
8 |
unless @$start == @$size |
1179
|
0 |
8 |
if ($verbose) |
1185
|
0 |
8 |
if ($type eq "avcC") |
1187
|
0 |
0 |
$hdrLen == 2 ? : |
|
0 |
0 |
$hdrLen == 4 ? : |
1199
|
0 |
8 |
unless $raf->Seek($start->[$i], 0) and $raf->Read($buff, $size) == $size |
1201
|
0 |
8 |
if ($type eq "avcC") |
1202
|
0 |
0 |
if length $buff <= $hdrLen |
1206
|
0 |
0 |
if $pos + $hdrLen + $len > length $buff |
1210
|
0 |
0 |
if $pos + $hdrLen >= length $buff |
1212
|
0 |
0 |
if ($et->{'GotNAL06'}) |
1214
|
0 |
0 |
unless $eeOpt and $eeOpt > 2 |
1218
|
0 |
8 |
if ($verbose > 1) |
1219
|
0 |
0 |
$et->{'SET_GROUP1'} ? : |
1223
|
0 |
8 |
if ($type eq 'text' or $type eq 'sbtl' and $metaFormat eq 'tx3g' and $buff =~ /^..PNDM/s) { } |
|
4 |
4 |
elsif ($processByMetaFormat{$type}) { } |
|
0 |
4 |
elsif ($type eq 'gps ') { } |
|
4 |
0 |
elsif ($tagTbl->{$type}) { } |
1229
|
0 |
0 |
unless ($buff =~ /^\$BEGIN/) |
1231
|
0 |
0 |
if $buff =~ s/\0\0\0\x0cencd\0\0\x01\0$// |
1235
|
0 |
0 |
if ($size >= 2 and unpack("n", $buff) == $size - 2) |
1236
|
0 |
0 |
if $size == 2 |
1241
|
0 |
0 |
if ($buff =~ /^\0/ and $buff =~ /\x0a$/ and length $buff > 5) { } |
|
0 |
0 |
elsif ($buff =~ /^(\0.{3})?PNDM/s) { } |
1246
|
0 |
0 |
if ($verbose > 2) |
1250
|
0 |
0 |
if ($tmp =~ /^(.*?)(\$[A-Z]{2}RMC.*)/s) |
1253
|
0 |
0 |
if length $val |
1257
|
0 |
0 |
$1 ? : |
1258
|
0 |
0 |
if length $buff < 20 + $n |
1265
|
0 |
0 |
unless (defined $val) |
1273
|
4 |
0 |
if ($tagTbl->{$metaFormat}) { } |
|
0 |
0 |
elsif ($verbose) { } |
1275
|
4 |
0 |
if ($tagInfo) { } |
|
0 |
0 |
elsif ($metaFormat eq 'camm' and $buff =~ /^X/) { } |
1289
|
0 |
0 |
if $buff =~ /X(.*?)Y(.*?)Z(.*?)G(.*?)\$/ |
1298
|
0 |
0 |
if ($buff =~ /^....freeGPS /s) |
1311
|
4 |
0 |
if ($tagInfo) |
1322
|
0 |
8 |
if $et->{'FoundGPSLatitude'} and not $et->{'FoundGPSDateTime'} |
1324
|
0 |
8 |
if ($verbose) |
1361
|
0 |
0 |
if $dirLen < 92 |
1363
|
0 |
0 |
if (substr($$dataPt, 18, 8) eq "\252\252\362\341\360\356TT") { } |
|
0 |
0 |
elsif ($$dataPt =~ /^.{52}(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/s) { } |
|
0 |
0 |
elsif ($$dataPt =~ /^.{37}\0\0\0A([NS])([EW])/s) { } |
|
0 |
0 |
elsif ($$dataPt =~ /^.{21}\0\0\0A([NS])([EW])/s) { } |
|
0 |
0 |
elsif ($$dataPt =~ /^.{60}A\0{3}.{4}([NS])\0{3}.{4}([EW])\0{3}/s) { } |
|
0 |
0 |
elsif ($$dataPt =~ /^.{60}4W`b]S= 140) { } |
|
0 |
0 |
elsif ($$dataPt =~ /^.{64}[\x01-\x0c]\0{3}[\x01-\x1f]\0{3}A[NS][EW]\0/s) { } |
|
0 |
0 |
elsif ($$dataPt =~ /^.{12}\xac\0\0\0.{44}(.{72})/s) { } |
|
0 |
0 |
elsif ($$dataPt =~ /^.{64}A([NS])([EW])\0/s) { } |
1393
|
0 |
0 |
if $n > 257 |
1395
|
0 |
0 |
if ($et->Options("Verbose") > 1) |
1400
|
0 |
0 |
unless $buf2 =~ /^.{8}(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2}).(.{15})([NS])(\d{8})([EW])(\d{9})(\d{8})?/s |
1402
|
0 |
0 |
if (defined $spd) { } |
|
0 |
0 |
elsif ($buf2 =~ /^.{57}([-+]\d{4})(\d{3})/s) { } |
1409
|
0 |
0 |
if length $lbl |
1411
|
0 |
0 |
if ($buf2 =~ /^.{65}(([-+]\d{3})([-+]\d{3})([-+]\d{3})([-+]\d{3})*)/s) { } |
|
0 |
0 |
elsif ($buf2 =~ /^.{173}([-+]\d{3})([-+]\d{3})([-+]\d{3})/s) { } |
1428
|
0 |
0 |
if ($$dataPt =~ /\$[A-Z]{2}RMC,(\d{2})(\d{2})(\d+(\.\d*)?),A?,(\d+\.\d+),([NS]),(\d+\.\d+),([EW]),(\d*\.?\d*),(\d*\.?\d*),(\d{2})(\d{2})(\d+)/s) |
1430
|
0 |
0 |
$13 >= 70 ? : |
1432
|
0 |
0 |
if length $9 |
1433
|
0 |
0 |
if length $10 |
1435
|
0 |
0 |
if ($$dataPt =~ /\$[A-Z]{2}GGA,(\d{2})(\d{2})(\d+(\.\d*)?),(\d+\.\d+),([NS]),(\d+\.\d+),([EW]),[1-6]?,(\d+)?,(\.\d+|\d+\.?\d*)?,(-?\d+\.?\d*)?,M?/s) |
1436
|
0 |
0 |
unless defined $yr |
1441
|
0 |
0 |
if (defined $lat) |
1445
|
0 |
0 |
if $_ >= 2147483648 |
1510
|
0 |
0 |
if $trk >= 360 |
1523
|
0 |
0 |
if $_ >= 16 |
1524
|
0 |
0 |
unless /[A-Z]{2}RMC,(\d{2})(\d{2})(\d+(\.\d*)?),A?,(\d*?\d{1,2}\.\d+),([NS]),(\d*?\d{1,2}\.\d+),([EW]),(\d*\.?\d*),(\d*\.?\d*),(\d{2})(\d{2})(\d+)/ |
1526
|
0 |
0 |
$yr >= 70 ? : |
1527
|
0 |
0 |
if length $9 |
1528
|
0 |
0 |
if length $10 |
1556
|
0 |
0 |
unless $stat eq "A" and $latRef eq 'N' || $latRef eq 'S' and $lonRef eq 'E' || $lonRef eq 'W' |
1608
|
0 |
0 |
unless $mon >= 1 and $mon <= 12 and $day >= 1 and $day <= 31 |
1609
|
0 |
0 |
if $yr < 2000 |
1611
|
0 |
0 |
if $_ >= 2147483648 |
1631
|
0 |
0 |
unless $stat eq "A" and $latRef eq 'N' || $latRef eq 'S' and $lonRef eq 'E' || $lonRef eq 'W' |
1643
|
0 |
0 |
if (abs $lat2 - $lat < "0.001" and abs $lon2 - $lon < "0.001") |
1649
|
0 |
0 |
if $yr < 2000 |
1658
|
0 |
0 |
unless $ddd |
1659
|
0 |
0 |
unless $sec =~ /^\d{2}/ |
1660
|
0 |
0 |
if (defined $yr) { } |
|
0 |
0 |
elsif (defined $hr) { } |
1667
|
0 |
0 |
$latRef eq 'S' ? : |
1668
|
0 |
0 |
$lonRef eq 'W' ? : |
1669
|
0 |
0 |
if defined $alt |
1670
|
0 |
0 |
if defined $spd |
1671
|
0 |
0 |
if defined $trk |
1676
|
0 |
0 |
if @acc |
1694
|
0 |
0 |
if $dirLen < 82 |
1696
|
0 |
0 |
if (substr($$dataPt, 69, 3) eq 'ATC') { } |
|
0 |
0 |
elsif ($$dataPt =~ /^.{60}A\0.{10}([NS])\0.{14}([EW])\0/s) { } |
|
0 |
0 |
elsif ($$dataPt =~ /^.{72}A([NS])([EW])/s) { } |
|
0 |
0 |
elsif ($$dataPt =~ /^.{60}A\0.{6}([NS])\0.{6}([EW])\0/s and $dirLen >= 112) { } |
|
0 |
0 |
elsif ($$dataPt =~ /^.{16}A([NS])([EW])\0/s) { } |
1711
|
0 |
0 |
unless $then |
1737
|
0 |
0 |
if $now[$i] <= $dateMax[$i] |
1743
|
0 |
0 |
if ($now[$i] < $then->[$i]) |
1744
|
0 |
0 |
if $foundNew |
1747
|
0 |
0 |
if $now[$i] == $then->[$i] |
1749
|
0 |
0 |
if ($verbose) |
1784
|
0 |
0 |
if $trk < 0 |
1801
|
0 |
0 |
if $recentRecPos and $recPos < $recentRecPos |
1831
|
0 |
0 |
if $_ >= 2147483648 |
1861
|
0 |
0 |
if (substr($$dataPt, 16, 3) eq 'IQS') { } |
1894
|
0 |
0 |
if $_ >= 2147483648 |
1910
|
0 |
0 |
if $_ >= 2147483648 |
1913
|
0 |
0 |
substr($dat, 1, 1) eq 'S' ? : |
1914
|
0 |
0 |
substr($dat, 2, 1) eq 'W' ? : |
1947
|
0 |
0 |
if $yr < 2000 or $yr > 2200 or $mon < 1 or $mon > 12 or $day < 1 or $day > 31 or $hr > 59 or $min > 59 or $sec > 600 |
1952
|
0 |
0 |
if $_ >= 2147483648 |
1953
|
0 |
0 |
if $trk >= 32768 |
1955
|
0 |
0 |
if $trk < 0 |
1963
|
0 |
0 |
if $pos += 32 > length($$dataPt) - 30 |
1965
|
0 |
0 |
$et->{'DOC_NUM'} ? : |
1970
|
0 |
0 |
if $mon < 1 or $mon > 12 |
1972
|
0 |
0 |
if $yr < 2000 |
1975
|
0 |
0 |
unless $ddd |
1977
|
0 |
0 |
$latRef eq 'S' ? : |
1978
|
0 |
0 |
$lonRef eq 'W' ? : |
1979
|
0 |
0 |
if defined $spd |
1980
|
0 |
0 |
if defined $trk |
1981
|
0 |
0 |
if (defined $alt) |
1984
|
0 |
0 |
if @acc |
1998
|
16 |
52 |
if ($tag eq 'stsz' or $tag eq 'stz2' and $dataLen > 12) { } |
|
16 |
36 |
elsif ($tag eq 'stco' or $tag eq 'co64' and $dataLen > 8) { } |
|
16 |
20 |
elsif ($tag eq 'stsc' and $dataLen > 8) { } |
|
16 |
4 |
elsif ($tag eq 'stts' and $dataLen > 8) { } |
|
0 |
4 |
elsif ($tag eq 'avcC') { } |
|
4 |
0 |
elsif ($tag eq 'JPEG') { } |
|
0 |
0 |
elsif ($tag eq 'gps ' and $dataLen > 8) { } |
|
0 |
0 |
elsif ($tag eq 'GPS ') { } |
2002
|
16 |
0 |
if ($tag eq 'stsz') { } |
2003
|
0 |
16 |
if ($sz == 0) { } |
2010
|
0 |
0 |
if ($sz == 4) { } |
|
0 |
0 |
elsif ($sz == 8 or $sz == 16) { } |
2024
|
0 |
16 |
$tag eq 'stco' ? : |
2028
|
16 |
0 |
if ($dataLen >= 8 + $num * 12) |
2039
|
16 |
0 |
if ($dataLen >= 8 + $num * 8) |
2044
|
0 |
0 |
if $dataLen >= 7 |
2050
|
0 |
0 |
if $num * 8 + 8 > $dataLen |
2066
|
0 |
0 |
if $dat eq "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" |
2074
|
0 |
0 |
if $a[4] eq "S" |
2075
|
0 |
0 |
if $a[6] eq "W" |
2094
|
0 |
0 |
if length $$dataPt < 2 |
2098
|
0 |
0 |
if ($$dataPt =~ /^..\w{3} (\d{4})-(\d{2})-(\d{2}) (\d{2}:\d{2}:\d{2}) ?([-+])(\d{2}):?(\d{2})$/s) { } |
2114
|
0 |
0 |
if length $$dataPt < 2 |
2134
|
0 |
0 |
unless my $ee = $et->{'ee'} |
2135
|
0 |
0 |
unless $ee->{'keys'} |
2143
|
0 |
0 |
if $len < 8 or $pos + $len > length $$dataPt |
2146
|
0 |
0 |
if ($info) { } |
2148
|
0 |
0 |
unless ($tagTbl->{$tag}) |
2149
|
0 |
0 |
unless $tag =~ /^[-\w.]+$/ |
2180
|
0 |
0 |
if ($dirLen > $recLen and not $et->Options("ExtractEmbedded")) |
2188
|
0 |
0 |
if $tc == 4294967295 |
2209
|
0 |
0 |
if ($dirLen > $recLen and not $et->Options("ExtractEmbedded")) |
2219
|
0 |
0 |
if abs $lat > 9000 or abs $lon > 18000 |
2248
|
0 |
0 |
if ($dirLen > $recLen and not $et->Options("ExtractEmbedded")) |
2278
|
0 |
0 |
unless $raf->Read($buff, 8) == 8 |
2280
|
0 |
0 |
if $tag eq "\0\0\0\0" |
2281
|
0 |
0 |
unless ($tag =~ /^[\w ]{4}/ and $len < 33554432) |
2285
|
0 |
0 |
unless $raf->Read($buff, $len) == $len |
2286
|
0 |
0 |
if ($verbose) |
2288
|
0 |
0 |
if $verbose > 2 |
2290
|
0 |
0 |
if $tag =~ /^(gps0|gsen)$/ |
2292
|
0 |
0 |
if ($tag eq 'gps0') { } |
|
0 |
0 |
elsif ($tag eq 'gsen') { } |
2310
|
0 |
0 |
unless substr($buff, $pos, 4) eq "AITG" |
2315
|
0 |
0 |
if abs $lat > 9000 or abs $lon > 18000 |
2317
|
0 |
0 |
if &Get8u(\$buff, $pos + 33) == 2 |
2318
|
0 |
0 |
if &Get8u(\$buff, $pos + 34) == 2 |
2337
|
0 |
0 |
unless substr($buff, $pos, 4) eq "AITS" |
2348
|
0 |
0 |
if $verbose |
2367
|
0 |
0 |
if ($$dataPt =~ /(?:\[(\d+)\])?\$[A-Z]{2}(RMC|GGA),(\d{2}\d{2}\d+(\.\d*)?),/g) |
2372
|
0 |
0 |
if ($fix{'tim'} and !$tim || $fix{'tim'} != $tim) |
2373
|
0 |
0 |
if ($fix{'dat'} and defined $fix{'lat'} and defined $fix{'lon'}) |
2375
|
0 |
0 |
if $fix{'tc'} and $et->{'StartTime'} |
2380
|
0 |
0 |
if defined $fix{'spd'} |
2381
|
0 |
0 |
if defined $fix{'trk'} |
2382
|
0 |
0 |
if defined $fix{'alt'} |
2383
|
0 |
0 |
if defined $fix{'nsats'} |
2384
|
0 |
0 |
if defined $fix{'hdop'} |
2388
|
0 |
0 |
unless $fix{'tim'} = $tim |
2392
|
0 |
0 |
if ($type eq 'RMC' and $$dataPt =~ /\G(\d{2})(\d{2})(\d+(\.\d*)?),A?,(\d*?)(\d{1,2}\.\d+),([NS]),(\d*?)(\d{1,2}\.\d+),([EW]),(\d*\.?\d*),(\d*\.?\d*),(\d{2})(\d{2})(\d+)/g) { } |
|
0 |
0 |
elsif ($type eq 'GGA' and $$dataPt =~ /\G(\d{2})(\d{2})(\d+(\.\d*)?),(\d*?)(\d{1,2}\.\d+),([NS]),(\d*?)(\d{1,2}\.\d+),([EW]),[1-6]?,(\d+)?,(\.\d+|\d+\.?\d*)?,(-?\d+\.?\d*)?,M?/g) { } |
2395
|
0 |
0 |
$15 >= 70 ? : |
2398
|
0 |
0 |
$7 eq 'N' ? : |
2399
|
0 |
0 |
$10 eq 'E' ? : |
2400
|
0 |
0 |
if length $11 |
2401
|
0 |
0 |
if length $12 |
2405
|
0 |
0 |
$7 eq 'N' ? : |
2406
|
0 |
0 |
$10 eq 'E' ? : |
2427
|
0 |
0 |
if &ProcessNMEA($et, $dirInfo, $tagTbl) |
2437
|
0 |
0 |
$7 eq 'S' ? : |
2438
|
0 |
0 |
$9 eq 'W' ? : |
2439
|
0 |
0 |
if length $11 |
2440
|
0 |
0 |
if length $12 |
2441
|
0 |
0 |
if length $13 |
2442
|
0 |
0 |
if length $14 |
2443
|
0 |
0 |
if length $15 |
2470
|
0 |
0 |
if $dirLen < $pos |
2487
|
0 |
0 |
if ($resync and $type != 255) |
2488
|
0 |
0 |
if ++$skipped > 256 |
2491
|
0 |
0 |
unless ($ttLen{$type}) |
2493
|
0 |
0 |
unless $warned |
2498
|
0 |
0 |
if $pos + $ttLen{$type} > $dirLen |
2499
|
0 |
0 |
if ($type == 255) |
2502
|
0 |
0 |
if ($resync) |
2503
|
0 |
0 |
if ($tm < $sampleTime or $tm > $sampleTime + 250) |
2514
|
0 |
0 |
unless ($eeOpt) |
2516
|
0 |
0 |
if $found & 1 << $type |
2519
|
0 |
0 |
if ($type == 0 or $type == 3) { } |
|
0 |
0 |
elsif ($type == 5) { } |
|
0 |
0 |
elsif ($type < 3) { } |
2523
|
0 |
0 |
$type ? : |
2539
|
0 |
0 |
if ($unknown) |
2547
|
0 |
0 |
if ($unknown) |
2549
|
0 |
0 |
$type == 1 ? : |
2557
|
0 |
0 |
unless $eeOpt or ($found & 41) != 41 |
2574
|
0 |
4 |
$dirInfo ? : |
2577
|
4 |
0 |
unless $raf->Seek(-78 - $offset, 2) and $raf->Read($buff, 78) == 78 and substr($buff, -32) eq "8db42d694ccc418790edff439fe026bf" |
2584
|
0 |
0 |
if $trailerLen > $fileEnd |
2585
|
0 |
0 |
if ($dirInfo) |
2588
|
0 |
0 |
if ($dirInfo->{'OutFile'}) |
2589
|
0 |
0 |
if ($et->{'DEL_GROUP'}{'Insta360'}) { } |
|
0 |
0 |
elsif ($trailerLen > $fileEnd or not $raf->Seek($dirInfo->{'DataPos'}, 0) or $raf->Read(${$$dirInfo{'OutFile'};}, $trailerLen) != $trailerLen) { } |
2600
|
0 |
0 |
if $verbose or $et->{'HTML_DUMP'} |
2602
|
0 |
0 |
unless ($et->Options("ExtractEmbedded")) |
2618
|
0 |
0 |
if ($epos -= $len) + $trailerLen < 0 |
2619
|
0 |
0 |
unless $raf->Seek($epos, 2) |
2621
|
0 |
0 |
if ($verbose) |
2625
|
0 |
0 |
if ($insvLimit{$id} and $len > $insvLimit{$id}[1] * $dlen and $et->Warn("Insta360 $insvLimit{$id}[0] data is huge. Processing only the first $insvLimit{$id}[1] records", 2)) |
2630
|
0 |
0 |
unless $raf->Read($buff, $len) == $len |
2631
|
0 |
0 |
if $verbose > 2 |
2632
|
0 |
0 |
if ($dlen) { } |
|
0 |
0 |
elsif ($id == 257) { } |
2633
|
0 |
0 |
if $len % $dlen |
2634
|
0 |
0 |
if ($id == 768) { } |
|
0 |
0 |
elsif ($id == 1024) { } |
|
0 |
0 |
elsif ($id == 1536) { } |
|
0 |
0 |
elsif ($id == 1792) { } |
2657
|
0 |
0 |
unless $a[3] eq "A" |
2658
|
0 |
0 |
unless ($a[5] eq 'N' || $a[5] eq 'S' and $a[7] eq 'E' || $a[7] eq 'W' || $a[7] eq 'O') |
2669
|
0 |
0 |
if $a[5] eq "S" |
2670
|
0 |
0 |
if $a[7] ne "E" |
2677
|
0 |
0 |
if $unknown |
2683
|
0 |
0 |
if $p + 2 > $len |
2685
|
0 |
0 |
if $p + 2 + $n > $len |
2691
|
0 |
0 |
if ($epos -= 6) + $trailerLen < 0 |
2692
|
0 |
0 |
unless $raf->Seek($epos, 2) |
2693
|
0 |
0 |
unless $raf->Read($buff, 6) == 6 |
2718
|
0 |
0 |
if ($tagTbl->{$type}) |
2719
|
0 |
0 |
if ($time != $lastTime) |
2726
|
0 |
0 |
if $type == 5 |
2741
|
0 |
0 |
unless $$dataPt =~ /^FMAS\0\0\0\0.{72}SAMM.{36}A/s and length $$dataPt >= 160 |
2759
|
0 |
0 |
$a[9] eq 'S' ? : |
2760
|
0 |
0 |
$a[8] eq 'W' ? : |
2774
|
0 |
4 |
unless my $raf = $et->{'RAF'} |
2780
|
0 |
4 |
if ($dataPos and not $et->{'DOC_COUNT'}) |
2782
|
0 |
0 |
if ($dataLen) |
2783
|
0 |
0 |
if ($raf->Seek($dataPos, 0)) { } |
2793
|
0 |
0 |
if $pos + $gpsBlockSize > $dataLen |
2794
|
0 |
0 |
unless $raf->Read($buff, $gpsBlockSize) |
2795
|
0 |
0 |
if length $buf2 |
2796
|
0 |
0 |
if length $buff < $gpsBlockSize |
2800
|
0 |
0 |
if (not $buff =~ /\0..\0freeGPS /gs) { } |
|
0 |
0 |
elsif (not $tagTbl) { } |
2805
|
0 |
0 |
if $tagTbl or $pos < 20000000 |
2816
|
0 |
0 |
if (pos $buff > 12) |
2822
|
0 |
0 |
if ($len < 12) { } |
2826
|
0 |
0 |
if ($more > 0) |
2827
|
0 |
0 |
unless $raf->Read($buf2, $more) == $more |
2830
|
0 |
0 |
if ($verbose) |
2840
|
0 |
4 |
if ($tagTbl) |