| line |
true |
false |
branch |
|
232
|
7 |
0 |
defined $result_messages{$errcode} ? : |
|
236
|
0 |
7 |
if defined $val |
|
238
|
0 |
7 |
if ($debug > 0) |
|
249
|
0 |
0 |
if ($debug > 0) |
|
250
|
0 |
0 |
defined $result_messages{$errcode} ? : |
|
|
0 |
0 |
defined $val ? : |
|
292
|
0 |
0 |
if ($bits =~ /^\s*([0-2]{3})\s*$/o) |
|
294
|
0 |
0 |
if (defined $mice_messagetypes{$bits}) |
|
401
|
0 |
0 |
if ($dval) { } |
|
414
|
0 |
0 |
if (scalar @_ >= 1) { } |
|
494
|
0 |
0 |
if ($direction < 0) |
|
523
|
0 |
0 |
if ($header =~ /^([^:]+):/o) |
|
528
|
0 |
0 |
if ($header =~ /^([A-Z0-9-]+)\>([A-Z0-9-]+)$/o) { } |
|
|
0 |
0 |
elsif ($header =~ /^([A-Z0-9-]+)\>([A-Z0-9-]+),([A-Z0-9,*-]+)$/o) { } |
|
531
|
0 |
0 |
unless (defined $retval) |
|
532
|
0 |
0 |
if ($debug > 0) |
|
538
|
0 |
0 |
unless (defined $retval) |
|
539
|
0 |
0 |
if ($debug > 0) |
|
549
|
0 |
0 |
unless (defined $retval) |
|
550
|
0 |
0 |
if ($debug > 0) |
|
556
|
0 |
0 |
unless (defined $retval) |
|
557
|
0 |
0 |
if ($debug > 0) |
|
567
|
0 |
0 |
if ($debug > 0) |
|
581
|
0 |
0 |
if ($piece =~ /^[A-Z0-9-]+\*$/o) |
|
587
|
0 |
0 |
unless (defined $call) |
|
588
|
0 |
0 |
if ($debug > 0) |
|
594
|
0 |
0 |
if ($call =~ /^WIDE([1-7])-([0-7])$/o) { } |
|
|
0 |
0 |
elsif ($call =~ /^TRACE([1-7])-([0-7])$/o) { } |
|
596
|
0 |
0 |
if ($difference < 0) |
|
598
|
0 |
0 |
if ($debug > 0) |
|
613
|
0 |
0 |
if ($wasdigied == 1) |
|
630
|
0 |
15 |
unless $stamp =~ m[^(\d{2})(\d{2})(\d{2})(z|h|/)$]o |
|
632
|
3 |
12 |
if $$options{'raw_timestamp'} |
|
636
|
3 |
9 |
if ($stamptype eq 'h') { } |
|
|
9 |
0 |
elsif ($stamptype eq 'z' or $stamptype eq '/') { } |
|
643
|
0 |
3 |
if ($hour > 23 or $minute > 59 or $second > 59) |
|
657
|
0 |
3 |
if ($currenttime + 3900 < $tstamp) { } |
|
|
0 |
3 |
elsif ($currenttime - 82500 > $tstamp) { } |
|
676
|
0 |
9 |
if ($day < 1 or $day > 31 or $hour > 23 or $minute > 59) |
|
686
|
8 |
1 |
if ($stamptype eq 'z') { } |
|
698
|
9 |
0 |
if (check_date($cyear, $cmonth, $day)) |
|
699
|
8 |
1 |
if ($stamptype eq 'z') { } |
|
705
|
9 |
0 |
if (check_date($fwdyear, $fwdmonth, $day)) |
|
706
|
8 |
1 |
if ($stamptype eq 'z') { } |
|
712
|
9 |
0 |
if (check_date($backyear, $backmonth, $day)) |
|
713
|
8 |
1 |
if ($stamptype eq 'z') { } |
|
722
|
1 |
8 |
if (defined $fwdtstamp and $fwdtstamp - $currenttime < 43400) { } |
|
|
4 |
4 |
elsif (defined $currtstamp and $currtstamp - $currenttime < 43400) { } |
|
|
4 |
0 |
elsif (defined $backtstamp) { } |
|
754
|
1 |
41 |
$_[0] <= -2 ? : |
|
774
|
2 |
0 |
if ($value =~ /^\s*(\d{1,3})([0-5][0-9])\.(\d+)\s*$/o) { } |
|
785
|
1 |
1 |
if ($sign =~ /^\s*[EW]\s*$/o) { } |
|
|
1 |
0 |
elsif ($sign =~ /^\s*[NS]\s*$/o) { } |
|
787
|
0 |
1 |
if ($value > 179.999999) |
|
792
|
1 |
0 |
if ($sign =~ /^\s*W\s*$/o) |
|
797
|
0 |
1 |
if ($value > 89.999999) |
|
802
|
0 |
1 |
if ($sign =~ /^\s*S\s*$/o) |
|
825
|
0 |
1 |
if ($dstcallsign =~ /^(GPS|SPC)([A-Z0-9]{2,3})/o) { } |
|
829
|
0 |
0 |
if ($sublength == 3) { } |
|
830
|
0 |
0 |
if ($type eq 'C' or $type eq 'E') { } |
|
832
|
0 |
0 |
if ($numberid =~ /^(\d{2})$/o and $numberid > 0 and $numberid < 95) { } |
|
836
|
0 |
0 |
if ($type eq 'C') { } |
|
851
|
0 |
0 |
if ($type eq 'O' || $type eq 'A' || $type eq 'N' || $type eq 'D' || $type eq 'S' || $type eq 'Q' and $overlay =~ /^[A-Z0-9]$/o) { } |
|
857
|
0 |
0 |
if (defined $dstsymbol{$dsttype}) { } |
|
869
|
0 |
0 |
if (defined $dstsymbol{$leftoverstring}) { } |
|
891
|
0 |
1 |
if ($debug > 1) |
|
900
|
1 |
0 |
if ($body =~ /^([\x20-\x7e]+)\*([0-9A-F]{2})$/io) |
|
907
|
0 |
1 |
if ($checksumgiven != $checksumcalculated) |
|
923
|
1 |
0 |
if (not defined $symtable && defined $symcode) { } |
|
937
|
1 |
0 |
if ($nmeafields[0] eq 'GPRMC') { } |
|
|
0 |
0 |
elsif ($nmeafields[0] eq 'GPGGA') { } |
|
|
0 |
0 |
elsif ($nmeafields[0] eq 'GPGLL') { } |
|
939
|
0 |
1 |
if (@nmeafields < 10) |
|
944
|
0 |
1 |
if ($nmeafields[2] ne 'A') |
|
952
|
1 |
0 |
if ($nmeafields[1] =~ /^\s*(\d{2})(\d{2})(\d{2})(|\.\d+)\s*$/o) { } |
|
955
|
0 |
1 |
if ($1 > 23 or $2 > 59 or $3 > 59) |
|
967
|
1 |
0 |
if ($nmeafields[9] =~ /^\s*(\d{2})(\d{2})(\d{2})\s*$/o) { } |
|
972
|
0 |
1 |
if ($3 >= 70) |
|
976
|
0 |
1 |
unless (check_date($year, $2, $1)) |
|
989
|
0 |
1 |
if ($year >= 2038 or $year < 1970) { } |
|
1000
|
1 |
0 |
if ($nmeafields[7] =~ /^\s*(\d+(|\.\d+))\s*$/o) |
|
1004
|
1 |
0 |
if ($nmeafields[8] =~ /^\s*(\d+(|\.\d+))\s*$/o) { } |
|
1009
|
0 |
1 |
if ($course == 0) { } |
|
|
0 |
1 |
elsif ($course > 360) { } |
|
1021
|
0 |
1 |
unless (defined $latitude) |
|
1026
|
0 |
1 |
unless (defined $longitude) |
|
1036
|
0 |
0 |
if (@nmeafields < 11) |
|
1042
|
0 |
0 |
if ($nmeafields[6] =~ /^\s*(\d+)\s*$/o) { } |
|
1043
|
0 |
0 |
if ($1 < 1) |
|
1057
|
0 |
0 |
if ($$rethash{'timestamp'} == 0) |
|
1064
|
0 |
0 |
unless (defined $latitude) |
|
1069
|
0 |
0 |
unless (defined $longitude) |
|
1075
|
0 |
0 |
if ($nmeafields[10] eq 'M' and $nmeafields[9] =~ /^(-?\d+(|\.\d+))$/o) |
|
1086
|
0 |
0 |
if (@nmeafields < 5) |
|
1093
|
0 |
0 |
unless (defined $latitude) |
|
1098
|
0 |
0 |
unless (defined $longitude) |
|
1106
|
0 |
0 |
if (@nmeafields >= 6) |
|
1109
|
0 |
0 |
if ($$rethash{'timestamp'} == 0) |
|
1115
|
0 |
0 |
if (@nmeafields >= 7) |
|
1117
|
0 |
0 |
if ($nmeafields[6] ne 'A') |
|
1147
|
22 |
0 |
if (length $rest >= 7) |
|
1148
|
10 |
12 |
if ($rest =~ m[^([0-9. ]{3})/([0-9. ]{3})]o) { } |
|
|
1 |
11 |
elsif ($rest =~ m[^PHG(\d[\x30-\x7e]\d\d[0-9A-Z])/]o) { } |
|
|
6 |
5 |
elsif ($rest =~ /^PHG(\d[\x30-\x7e]\d\d)/o) { } |
|
|
0 |
5 |
elsif ($rest =~ /^RNG(\d{4})/o) { } |
|
1151
|
10 |
0 |
if ($course =~ /^\d{3}$/o and $course <= 360 and $course >= 1) { } |
|
1161
|
10 |
0 |
if ($speed =~ /^\d{3}$/o) { } |
|
1191
|
10 |
12 |
if ($rest =~ m[^(.*?)/A=(-\d{5}|\d{6})(.*)$]o) |
|
1201
|
6 |
16 |
if ($rest =~ /^(.*)\!([\x21-\x7b][\x20-\x7b]{2})\!(.*?)$/o) |
|
1203
|
6 |
0 |
if ($daofound == 1) |
|
1215
|
21 |
1 |
if (length $rest > 0) |
|
1229
|
0 |
2 |
if (length $packet < 31) |
|
1236
|
1 |
1 |
if ($packet =~ m[^;([\x20-\x7e]{9})(\*|_)(\d{6})(z|h|/)]o) { } |
|
1239
|
1 |
0 |
if ($2 eq '*') { } |
|
1254
|
0 |
1 |
if ($$rethash{'timestamp'} == 0) |
|
1262
|
1 |
0 |
if ($locationchar =~ m[^[/\\A-Za-j]$]o) { } |
|
|
0 |
0 |
elsif ($locationchar =~ /^\d$/io) { } |
|
1275
|
0 |
1 |
if $retval != 1 |
|
1280
|
1 |
0 |
if ($$rethash{'symbolcode'} ne '_') { } |
|
1301
|
1 |
0 |
if ($packet =~ /^(\d{6}z)/o) |
|
1303
|
0 |
1 |
if $$rethash{'timestamp'} == 0 |
|
1329
|
0 |
0 |
if ($cap =~ /^\s*([^=]+?)\s*=\s*(.*?)\s*$/o) { } |
|
|
0 |
0 |
elsif ($cap =~ /^\s*([^=]+?)\s*$/o) { } |
|
1339
|
0 |
0 |
if ($keycount > 0) |
|
1358
|
245 |
0 |
if ($packet =~ /^:([A-Za-z0-9_ -]{9}):([\x20-\x7e\x80-\xfe]+)$/o) |
|
1365
|
6 |
239 |
if ($message =~ /^ack([A-Za-z0-9}]{1,5})\s*$/o) |
|
1372
|
6 |
233 |
if ($message =~ /^rej([A-Za-z0-9}]{1,5})\s*$/o) |
|
1377
|
233 |
0 |
if ($message =~ /^([^{]*)\{([A-Za-z0-9}]{1,5})\s*$/o) { } |
|
1384
|
0 |
233 |
if ($message =~ /^(BITS|PARM|UNIT|EQNS)\./i) |
|
1400
|
6 |
26 |
if ($rest =~ /^(.*)\|([!-{]{2})([!-{]{2})([!-{]{2}|)([!-{]{2}|)([!-{]{2}|)([!-{]{2}|)([!-{]{2}|)\|(.*)$/) |
|
1402
|
5 |
1 |
$4 ne '' ? : |
|
|
5 |
1 |
$5 ne '' ? : |
|
|
4 |
2 |
$6 ne '' ? : |
|
|
4 |
2 |
$7 ne '' ? : |
|
1418
|
4 |
2 |
if ($8 ne '') |
|
1438
|
0 |
0 |
if (length $packet < 18) |
|
1444
|
0 |
0 |
if ($packet =~ /^\)([\x20\x22-\x5e\x60-\x7e]{3,9})(!|_)/o) { } |
|
1447
|
0 |
0 |
if ($2 eq '!') { } |
|
1461
|
0 |
0 |
if ($locationchar =~ m[^[/\\A-Za-j]$]o) { } |
|
|
0 |
0 |
elsif ($locationchar =~ /^\d$/io) { } |
|
1474
|
0 |
0 |
if $retval != 1 |
|
1479
|
0 |
0 |
if ($$rethash{'symbolcode'} ne '_') |
|
1493
|
0 |
24 |
if (length $packet < 19) |
|
1509
|
23 |
1 |
if ($packet =~ /^(\d{2})([0-7 ][0-9 ]\.[0-9 ]{2})([NnSs])(.)(\d{3})([0-7 ][0-9 ]\.[0-9 ]{2})([EeWw])([\x21-\x7b\x7d])/o) { } |
|
1514
|
7 |
16 |
if ($sind eq 'S') |
|
1517
|
12 |
11 |
if ($wind eq 'W') |
|
1529
|
1 |
22 |
unless ($symboltable =~ m[^[/\\A-Z0-9]$]) |
|
1536
|
0 |
22 |
if ($lat_deg > 89 or $lon_deg > 179) |
|
1545
|
22 |
0 |
if ($tmplat =~ /^(\d{0,4})( {0,4})$/io) { } |
|
1554
|
20 |
2 |
if ($$rethash{'posambiguity'} == 0) { } |
|
|
1 |
1 |
elsif ($$rethash{'posambiguity'} == 4) { } |
|
|
0 |
1 |
elsif ($$rethash{'posambiguity'} == 1) { } |
|
|
0 |
1 |
elsif ($$rethash{'posambiguity'} == 2) { } |
|
|
1 |
0 |
elsif ($$rethash{'posambiguity'} == 3) { } |
|
1556
|
0 |
20 |
if ($lon_min =~ / /io) |
|
1570
|
0 |
0 |
if ($lat_min =~ / /io or $lon_min =~ / /io) |
|
1580
|
0 |
0 |
if ($lat_min =~ / /io or $lon_min =~ / /io) |
|
1590
|
0 |
1 |
if ($lat_min =~ / /io or $lon_min =~ / /io) |
|
1602
|
7 |
15 |
if ($issouth == 1) |
|
1605
|
12 |
10 |
if ($iswest == 1) |
|
1632
|
0 |
11 |
if (length $packet < 8 or length $dstcallsign != 6) |
|
1637
|
0 |
11 |
unless ($dstcallsign =~ /^[0-9A-LP-Z]{3}[0-9LP-Z]{3}$/io) |
|
1648
|
2 |
9 |
unless ($packet =~ m[^[\x26-\x7f][\x26-\x61][\x1c-\x7f]{2}[\x1c-\x7d][\x1c-\x7f][\x21-\x7b\x7d][/\\A-Z0-9]]o) |
|
1656
|
1 |
1 |
if ($$options{'accept_broken_mice'} and $packet =~ s[^([\x26-\x7f][\x26-\x61][\x1c-\x7f]{2})\x20([\x21-\x7b\x7d][/\\A-Z0-9])(.*)][$1 $2$3]o) { } |
|
1661
|
0 |
1 |
unless ($symboltable =~ m[^[/\\A-Z0-9]$]) |
|
1667
|
1 |
0 |
if (not $symboltable =~ m[^[/\\A-Z0-9]$]) { } |
|
1683
|
10 |
0 |
if ($tmplat =~ /^(\d+)(_*)$/io) { } |
|
1685
|
0 |
10 |
if ($amount > 4) |
|
1704
|
0 |
10 |
if ($$rethash{'posambiguity'} >= 4) { } |
|
1723
|
4 |
6 |
if ($nschar <= 76) |
|
1745
|
5 |
5 |
if ($longoffsetchar >= 80) |
|
1748
|
0 |
10 |
if ($longitude >= 180 and $longitude <= 189) { } |
|
|
0 |
20 |
elsif ($longitude >= 190 and $longitude <= 199) { } |
|
1756
|
1 |
9 |
if ($longminutes >= 60) |
|
1764
|
0 |
10 |
if ($$rethash{'posambiguity'} == 4) { } |
|
|
0 |
10 |
elsif ($$rethash{'posambiguity'} == 3) { } |
|
|
0 |
10 |
elsif ($$rethash{'posambiguity'} == 2) { } |
|
|
0 |
10 |
elsif ($$rethash{'posambiguity'} == 1) { } |
|
|
10 |
0 |
elsif ($$rethash{'posambiguity'} == 0) { } |
|
1785
|
3 |
7 |
if ($ewchar >= 80) |
|
1794
|
9 |
1 |
unless ($mice_fixed) |
|
1803
|
5 |
4 |
if ($speed >= 800) |
|
1806
|
9 |
0 |
if ($course >= 400) |
|
1812
|
9 |
0 |
if ($course >= 0) |
|
1825
|
10 |
0 |
if (length $packet > 8) |
|
1829
|
1 |
9 |
if ($rest =~ /^'([0-9a-f]{2})([0-9a-f]{2})(.*)$/i) |
|
1836
|
1 |
9 |
if ($rest =~ /^\342\200\230([0-9a-f]{10})(.*)$/i) |
|
1845
|
3 |
7 |
if ($rest =~ /^(.*?)([\x21-\x7b])([\x21-\x7b])([\x21-\x7b])\}(.*)$/o) |
|
1857
|
2 |
8 |
if ($rest =~ /^(.*)\!([\x21-\x7b][\x20-\x7b]{2})\!(.*?)$/o) |
|
1859
|
2 |
0 |
if ($daofound == 1) |
|
1867
|
10 |
0 |
if (length $rest > 0) |
|
1872
|
1 |
9 |
if ($mice_fixed) |
|
1888
|
0 |
5 |
unless ($packet =~ m[^[/\\A-Za-j]{1}[\x21-\x7b]{8}[\x21-\x7b\x7d]{1}[\x20-\x7b]{3}]o) |
|
1932
|
4 |
1 |
if ($c1 != -1) |
|
1933
|
3 |
1 |
if (($comptype & 32) == 32) { } |
|
1946
|
1 |
4 |
if ($c1 == -1 or $s1 == -1) { } |
|
|
0 |
4 |
elsif (($comptype & 24) == 16) { } |
|
|
2 |
2 |
elsif ($c1 >= 0 and $c1 <= 89) { } |
|
|
2 |
0 |
elsif ($c1 == 90) { } |
|
1954
|
1 |
1 |
if ($c1 == 0) { } |
|
1985
|
5 |
3 |
if ($daocandidate =~ /^([A-Z])(\d)(\d)$/o) { } |
|
|
3 |
0 |
elsif ($daocandidate =~ /^([a-z])([\x21-\x7b])([\x21-\x7b])$/o) { } |
|
|
0 |
0 |
elsif ($daocandidate =~ /^([\x21-\x7b]) $/o) { } |
|
2005
|
0 |
0 |
if ($daodatumbyte =~ /^[a-z]$/o) |
|
2016
|
0 |
8 |
if ($$rethash{'latitude'} < 0) { } |
|
2021
|
6 |
2 |
if ($$rethash{'longitude'} < 0) { } |
|
2044
|
301 |
2 |
if ($_[0] =~ /^([A-Z0-9]{1,6})(-\d{1,2}|)$/o) |
|
2045
|
289 |
12 |
if (length $2 == 0) { } |
|
2050
|
11 |
1 |
if ($ssid < 16) |
|
2072
|
0 |
0 |
unless (defined check_ax25_call($sourcecall)) |
|
2079
|
0 |
0 |
if ($info =~ s/\s*(\d{3,4}Z)//) |
|
2082
|
0 |
0 |
unless $info =~ s/^(\d+\.\d+)\s*// |
|
2084
|
0 |
0 |
unless $info =~ s[^([a-zA-Z0-9-/]+)\s*][] |
|
2114
|
4 |
4 |
if ($s =~ s[^_{0,1}([\d \.\-]{3})/([\d \.]{3})g([\d \.]+)t(-{0,1}[\d \.]+)][] or $s =~ s/^_{0,1}c([\d \.\-]{3})s([\d \.]{3})g([\d \.]+)t(-{0,1}[\d \.]+)//) { } |
|
|
0 |
4 |
elsif ($s =~ s[^_{0,1}([\d \.\-]{3})/([\d \.]{3})t(-{0,1}[\d \.]+)][]) { } |
|
|
0 |
4 |
elsif ($s =~ s[^_{0,1}([\d \.\-]{3})/([\d \.]{3})g([\d \.]+)][]) { } |
|
|
1 |
3 |
elsif ($s =~ s/^g(\d+)t(-{0,1}[\d \.]+)//) { } |
|
2132
|
0 |
5 |
if (not defined $temp and $s =~ s/t(-{0,1}\d{1,3})//) |
|
2136
|
5 |
0 |
if $wind_gust =~ /^\d+$/ |
|
2137
|
4 |
1 |
if $wind_dir =~ /^\d+$/ |
|
2138
|
4 |
1 |
if $wind_speed =~ /^\d+$/ |
|
2139
|
5 |
0 |
if $temp =~ /^-{0,1}\d+$/ |
|
2141
|
5 |
0 |
if ($s =~ s/r(\d{1,3})//) |
|
2144
|
5 |
0 |
if ($s =~ s/p(\d{1,3})//) |
|
2147
|
5 |
0 |
if ($s =~ s/P(\d{1,3})//) |
|
2151
|
5 |
0 |
if ($s =~ s/h(\d{1,3})//) |
|
2153
|
1 |
4 |
if $w{'humidity'} eq 0 |
|
2154
|
0 |
5 |
if $w{'humidity'} > 100 or $w{'humidity'} < 1 |
|
2157
|
5 |
0 |
if ($s =~ s/b(\d{4,5})//) |
|
2161
|
1 |
4 |
if ($s =~ s/([lL])(\d{1,3})//) |
|
2163
|
0 |
1 |
if $1 eq 'l' |
|
2166
|
0 |
5 |
if ($s =~ s/v([\-\+]{0,1}\d+)//) |
|
2170
|
1 |
4 |
if ($s =~ s/s(\d{1,3})//) |
|
2175
|
0 |
5 |
if ($s =~ s/#(\d+)//) |
|
2183
|
1 |
4 |
if ($s =~ /^[a-zA-Z0-9\-_]{3,5}$/) { } |
|
2184
|
1 |
0 |
if $s ne '' |
|
2189
|
5 |
0 |
if (defined $w{'temp'} or defined $w{'wind_speed'} and defined $w{'wind_direction'}) |
|
2215
|
0 |
24 |
if ($1 eq '----') { } |
|
2224
|
21 |
3 |
$v < 32768 ? : |
|
2227
|
0 |
2 |
unless @vals |
|
2230
|
2 |
0 |
if defined $t |
|
2232
|
2 |
0 |
if defined $t |
|
2234
|
2 |
0 |
if defined $t |
|
2236
|
2 |
0 |
if defined $t |
|
2238
|
2 |
0 |
if defined $t and $t >= 10 |
|
2243
|
2 |
0 |
if (defined $t) |
|
2245
|
0 |
2 |
if $w{'humidity'} > 100 or $w{'humidity'} < 1 |
|
2250
|
1 |
1 |
if defined $t |
|
2252
|
1 |
1 |
if defined $t |
|
2254
|
0 |
0 |
if (defined $w{'temp'} or defined $w{'wind_speed'} and defined $w{'wind_direction'} or defined $w{'pressure'} or defined $w{'humidity'}) |
|
2281
|
2 |
10 |
if ($1 eq '----') { } |
|
2290
|
10 |
0 |
$v < 32768 ? : |
|
2293
|
0 |
1 |
unless @vals |
|
2296
|
1 |
0 |
if defined $t |
|
2298
|
1 |
0 |
if defined $t |
|
2300
|
1 |
0 |
if defined $t |
|
2302
|
1 |
0 |
if defined $t |
|
2304
|
1 |
0 |
if defined $t and $t >= 10 |
|
2306
|
1 |
0 |
if defined $t |
|
2308
|
0 |
1 |
if (defined $t) |
|
2310
|
0 |
0 |
if $w{'humidity'} > 100 or $w{'humidity'} < 1 |
|
2313
|
0 |
1 |
if (defined $t) |
|
2315
|
0 |
0 |
if $w{'humidity_in'} > 100 or $w{'humidity_in'} < 1 |
|
2320
|
1 |
0 |
if defined $t |
|
2322
|
1 |
0 |
if defined $t |
|
2325
|
0 |
1 |
if defined $w{'temp_in'} and not defined $w{'temp'} |
|
2326
|
0 |
1 |
if defined $w{'humidity_in'} and not defined $w{'humidity'} |
|
2328
|
0 |
0 |
if (defined $w{'temp'} or defined $w{'wind_speed'} and defined $w{'wind_direction'} or defined $w{'pressure'} or defined $w{'humidity'}) |
|
2353
|
1 |
0 |
if ($s =~ s/^(\d+),(-|)(\d{1,6}|\d+\.\d+|\.\d+|),(-|)(\d{1,6}|\d+\.\d+|\.\d+|),(-|)(\d{1,6}|\d+\.\d+|\.\d+|),(-|)(\d{1,6}|\d+\.\d+|\.\d+|),(-|)(\d{1,6}|\d+\.\d+|\.\d+|),([01]{0,8})//) { } |
|
2357
|
0 |
5 |
$vals[$i] eq '' ? : |
|
2358
|
0 |
5 |
if ($vals[$i] >= 999999 or $vals[$i] <= -999999) |
|
2366
|
0 |
1 |
if ((my $l = length $t{'bits'}) < 8) |
|
2426
|
0 |
298 |
$options{'isax25'} ? : |
|
2428
|
0 |
298 |
unless (defined $packet) |
|
2432
|
0 |
298 |
if (length $packet < 1) |
|
2442
|
0 |
298 |
unless (defined $body) |
|
2454
|
297 |
1 |
if ($header =~ /^([A-Z0-9-]{1,9})>(.*)$/io) { } |
|
2456
|
297 |
0 |
if ($isax25 == 0) { } |
|
2460
|
0 |
0 |
unless (defined $srccallsign) |
|
2478
|
0 |
297 |
if ($isax25 == 1) |
|
2479
|
0 |
0 |
if (scalar @pathcomponents > 9) |
|
2485
|
0 |
297 |
if (scalar @pathcomponents < 1) |
|
2495
|
0 |
297 |
unless (defined $dstcallsign) |
|
2503
|
0 |
297 |
if ($isax25 == 1) { } |
|
2505
|
0 |
0 |
if ($digi =~ /^([A-Z0-9-]+)(\*|)$/io) { } |
|
2507
|
0 |
0 |
unless (defined $digitested) |
|
2512
|
0 |
0 |
if ($2 eq '*') |
|
2530
|
1132 |
3 |
if ($digi =~ /^([A-Z0-9a-z-]{1,9})(\*|)$/o) { } |
|
2531
|
34 |
1098 |
$2 eq '*' ? : |
|
2533
|
285 |
847 |
if $1 =~ /^q..$/ |
|
2535
|
1 |
2 |
if ($seen_qconstr and $digi =~ /^([0-9A-F]{32})$/) { } |
|
2559
|
11 |
284 |
if (ord $packettype == 39 or ord $packettype == 96) { } |
|
|
29 |
255 |
elsif ($packettype eq '!' or $packettype eq '=' or $packettype eq '/' or $packettype eq '@') { } |
|
|
1 |
254 |
elsif ($packettype eq '_') { } |
|
|
2 |
252 |
elsif ($packettype eq ';') { } |
|
|
3 |
249 |
elsif ($packettype eq '$') { } |
|
|
0 |
249 |
elsif ($packettype eq ')') { } |
|
|
245 |
4 |
elsif ($packettype eq ':') { } |
|
|
0 |
4 |
elsif ($packettype eq '<') { } |
|
|
1 |
3 |
elsif ($packettype eq '>') { } |
|
|
1 |
2 |
elsif ($body =~ /^T#(.*?),(.*)$/) { } |
|
|
0 |
2 |
elsif ($body =~ /^DX\s+de\s+(.*?)\s*[:>]\s*(.*)$/i) { } |
|
|
0 |
2 |
elsif ($body =~ /^{{/i) { } |
|
2563
|
11 |
0 |
if ($paclen >= 9) |
|
2575
|
20 |
9 |
if ($packettype eq '!' or $packettype eq '/') { } |
|
2581
|
29 |
0 |
if ($paclen >= 14) { } |
|
2583
|
13 |
16 |
if ($packettype eq '/' or $packettype eq '@') |
|
2587
|
0 |
13 |
if ($$rethash{'timestamp'} == 0) |
|
2595
|
23 |
6 |
if ($poschar >= 48 and $poschar <= 57) { } |
|
|
5 |
1 |
elsif ($poschar == 47 or $poschar == 92 or $poschar >= 65 and $poschar <= 90 or $poschar >= 97 and $poschar <= 106) { } |
|
|
1 |
0 |
elsif ($poschar == 33) { } |
|
2597
|
23 |
0 |
if (length $body >= 19) |
|
2603
|
17 |
6 |
if ($retval == 1 and $$rethash{'symbolcode'} ne '_') { } |
|
2614
|
4 |
1 |
if (length $body >= 13) |
|
2620
|
3 |
1 |
if ($retval == 1 and $$rethash{'symbolcode'} ne '_') { } |
|
2642
|
1 |
0 |
if ($body =~ /_(\d{8})c[\- \.\d]{1,3}s[\- \.\d]{1,3}/) { } |
|
2652
|
2 |
0 |
if ($paclen >= 31) |
|
2660
|
1 |
2 |
if (substr($body, 0, 3) eq '$GP') { } |
|
|
2 |
0 |
elsif (substr($body, 0, 5) eq '$ULTW') { } |
|
2672
|
0 |
0 |
if ($paclen >= 18) |
|
2679
|
245 |
0 |
if ($paclen >= 11) |
|
2688
|
0 |
0 |
if ($paclen >= 2) |
|
2696
|
1 |
0 |
if ($paclen >= 1) |
|
2721
|
1 |
1 |
if ($pos >= 0 and $pos <= 39) |
|
2725
|
0 |
1 |
if ($pchar =~ m[^[/\\A-Za-j]$]o) { } |
|
|
1 |
0 |
elsif ($pchar =~ /^\d$/io) { } |
|
2727
|
0 |
0 |
if (length $body >= $pos + 1 + 13) |
|
2731
|
0 |
0 |
if ($retval == 1 and $$rethash{'symbolcode'} ne '_') |
|
2737
|
1 |
0 |
if (length $body >= $pos + 1 + 19) |
|
2741
|
1 |
0 |
if ($retval == 1 and $$rethash{'symbolcode'} ne '_') |
|
2750
|
26 |
4 |
if ($retval == 1) |
|
2763
|
0 |
0 |
if ($_[0] =~ /^([A-Z0-9]+)\s*(|-\d+)$/o) |
|
2764
|
0 |
0 |
if (length $2 > 0) |
|
2766
|
0 |
0 |
if ($2 < -15) |
|
2807
|
0 |
0 |
if (length $kissframe < 16) |
|
2808
|
0 |
0 |
if ($debug > 0) |
|
2815
|
0 |
0 |
if (ord substr($kissframe, 0, 1) != 0) |
|
2816
|
0 |
0 |
if ($debug > 0) |
|
2830
|
0 |
0 |
if ($addresspart == 0) { } |
|
|
0 |
0 |
elsif ($addresspart == 1) { } |
|
|
0 |
0 |
elsif ($addresspart == 2) { } |
|
2838
|
0 |
0 |
if ($charri & 1) |
|
2839
|
0 |
0 |
if ($addresscount < 14 or $addresscount % 7 != 0) |
|
2843
|
0 |
0 |
if ($debug > 0) |
|
2853
|
0 |
0 |
if ($addresscount % 7 == 0) |
|
2856
|
0 |
0 |
if ($ssid != 0) |
|
2862
|
0 |
0 |
unless (defined $chkcall) |
|
2863
|
0 |
0 |
if ($debug > 0) |
|
2868
|
0 |
0 |
if ($addresscount == 7) { } |
|
|
0 |
0 |
elsif ($addresscount == 14) { } |
|
|
0 |
0 |
elsif ($addresscount > 14) { } |
|
2883
|
0 |
0 |
if ($charri & 128) |
|
2888
|
0 |
0 |
if ($debug > 0) |
|
2893
|
0 |
0 |
if ($addresspart == 0) { } |
|
2897
|
0 |
0 |
if ($digipeatercount >= 8) |
|
2898
|
0 |
0 |
if ($debug > 0) |
|
2919
|
0 |
0 |
if ($charri != 3) |
|
2920
|
0 |
0 |
if ($debug > 0) |
|
2933
|
0 |
0 |
if ($charri != 240) |
|
2934
|
0 |
0 |
if ($debug > 0) |
|
2972
|
0 |
0 |
if ($gotframe =~ /^([A-Z0-9,*>-]+):(.+)$/o) { } |
|
2976
|
0 |
0 |
if ($debug > 0) |
|
2988
|
0 |
0 |
if ($header =~ /^([A-Z0-9]{1,6})(-\d+|)>([A-Z0-9]{1,6})(-\d+|)(|,.*)$/o) { } |
|
2995
|
0 |
0 |
if ($debug > 0) |
|
3002
|
0 |
0 |
if (length $sender_ssid > 0) { } |
|
3004
|
0 |
0 |
if ($sender_ssid > 15) |
|
3005
|
0 |
0 |
if ($debug > 0) |
|
3013
|
0 |
0 |
if (length $receiver_ssid > 0) { } |
|
3015
|
0 |
0 |
if ($receiver_ssid > 15) |
|
3016
|
0 |
0 |
if ($debug > 0) |
|
3035
|
0 |
0 |
if (length $digipeaters > 0) { } |
|
3042
|
0 |
0 |
if (length $digipeaters > 0) |
|
3047
|
0 |
0 |
if ($digicount > 8 or $digicount < 1) |
|
3049
|
0 |
0 |
if ($debug > 0) |
|
3056
|
0 |
0 |
if ($digis[$i] =~ /^([A-Z0-9]{1,6})(-\d+|)(\*|)$/o) { } |
|
3060
|
0 |
0 |
if (length $2 > 0) |
|
3062
|
0 |
0 |
if ($ssid > 15) |
|
3063
|
0 |
0 |
if ($debug > 0) |
|
3069
|
0 |
0 |
if ($3 eq '*') |
|
3076
|
0 |
0 |
if ($i + 1 < $digicount) { } |
|
3085
|
0 |
0 |
if ($debug > 0) |
|
3131
|
0 |
0 |
if ($packet =~ /^[^:]+:\}(.*)$/io) { } |
|
3138
|
0 |
0 |
if ($packet =~ /^([A-Z0-9]{1,6})(-[A-Z0-9]{1,2}|)>([A-Z0-9]{1,6})(-\d{1,2}|)(:|,[^:]+:)(.*)$/io) |
|
3142
|
0 |
0 |
if ($2 eq '') { } |
|
3208
|
0 |
0 |
if ($name =~ /^([\x20-\x7e]{1,9})$/o) { } |
|
3216
|
0 |
0 |
if ($alive == 1) { } |
|
|
0 |
0 |
elsif ($alive == 0) { } |
|
3226
|
0 |
0 |
if (not defined $aptime) { } |
|
3234
|
0 |
0 |
if (not defined $posstring) { } |
|
3265
|
0 |
0 |
if ($tstamp == 0) |
|
3270
|
0 |
0 |
unless (defined $day) |
|
3275
|
0 |
0 |
if ($tformat == 0) { } |
|
|
0 |
0 |
elsif ($tformat == 1) { } |
|
3324
|
0 |
0 |
if ($lat < -89.99999 or $lat > 89.99999 or $lon < -179.99999 or $lon > 179.99999) |
|
3334
|
0 |
0 |
if (length $symbols == 0) { } |
|
|
0 |
0 |
elsif ($symbols =~ m[^([/\\A-Z0-9])([\x21-\x7b\x7d])$]o) { } |
|
3345
|
0 |
0 |
if ($usecompression == 1) { } |
|
3364
|
0 |
0 |
if ($speed >= 0 and $course > 0 and $course <= 360) { } |
|
3370
|
0 |
0 |
if ($cval > 89) |
|
3376
|
0 |
0 |
if ($speednum > 89) |
|
3390
|
0 |
0 |
if ($lat < 0) |
|
3397
|
0 |
0 |
if ($posambiguity > 0 or $posambiguity <= 4) |
|
3399
|
0 |
0 |
if ($posambiguity <= 2) { } |
|
|
0 |
0 |
elsif ($posambiguity == 3) { } |
|
|
0 |
0 |
elsif ($posambiguity == 4) { } |
|
3408
|
0 |
0 |
if ($isnorth == 1) { } |
|
3414
|
0 |
0 |
if ($lon < 0) |
|
3421
|
0 |
0 |
if ($posambiguity > 0 or $posambiguity <= 4) |
|
3423
|
0 |
0 |
if ($posambiguity <= 2) { } |
|
|
0 |
0 |
elsif ($posambiguity == 3) { } |
|
|
0 |
0 |
elsif ($posambiguity == 4) { } |
|
3432
|
0 |
0 |
if ($iseast == 1) { } |
|
3439
|
0 |
0 |
if ($speed >= 0 and $course >= 0) |
|
3442
|
0 |
0 |
if ($speed > 999) |
|
3445
|
0 |
0 |
if ($course > 360) |