| line |
true |
false |
branch |
|
234
|
8 |
0 |
defined $result_messages{$errcode} ? : |
|
236
|
0 |
8 |
if defined $val |
|
238
|
0 |
8 |
if ($debug > 0) |
|
249
|
0 |
0 |
if ($debug > 0) |
|
252
|
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}) |
|
402
|
0 |
0 |
if ($dval) { } |
|
415
|
0 |
0 |
if (scalar @_ >= 1) { } |
|
495
|
0 |
0 |
if ($direction < 0) |
|
524
|
0 |
0 |
if ($header =~ /^([^:]+):/o) |
|
529
|
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) { } |
|
532
|
0 |
0 |
unless (defined $retval) |
|
533
|
0 |
0 |
if ($debug > 0) |
|
539
|
0 |
0 |
unless (defined $retval) |
|
540
|
0 |
0 |
if ($debug > 0) |
|
550
|
0 |
0 |
unless (defined $retval) |
|
551
|
0 |
0 |
if ($debug > 0) |
|
557
|
0 |
0 |
unless (defined $retval) |
|
558
|
0 |
0 |
if ($debug > 0) |
|
568
|
0 |
0 |
if ($debug > 0) |
|
582
|
0 |
0 |
if ($piece =~ /^[A-Z0-9-]+\*$/o) |
|
588
|
0 |
0 |
unless (defined $call) |
|
589
|
0 |
0 |
if ($debug > 0) |
|
595
|
0 |
0 |
if ($call =~ /^WIDE([1-7])-([0-7])$/o) { } |
|
|
0 |
0 |
elsif ($call =~ /^TRACE([1-7])-([0-7])$/o) { } |
|
597
|
0 |
0 |
if ($difference < 0) |
|
599
|
0 |
0 |
if ($debug > 0) |
|
614
|
0 |
0 |
if ($wasdigied == 1) |
|
631
|
0 |
15 |
unless $stamp =~ m[^(\d{2})(\d{2})(\d{2})(z|h|/)$]o |
|
633
|
3 |
12 |
if $options->{'raw_timestamp'} |
|
637
|
3 |
9 |
if ($stamptype eq 'h') { } |
|
|
9 |
0 |
elsif ($stamptype eq 'z' or $stamptype eq '/') { } |
|
644
|
0 |
3 |
if ($hour > 23 or $minute > 59 or $second > 59) |
|
658
|
1 |
2 |
if ($currenttime + 3900 < $tstamp) { } |
|
|
0 |
2 |
elsif ($currenttime - 82500 > $tstamp) { } |
|
677
|
0 |
9 |
if ($day < 1 or $day > 31 or $hour > 23 or $minute > 59) |
|
687
|
8 |
1 |
if ($stamptype eq 'z') { } |
|
699
|
9 |
0 |
if (check_date($cyear, $cmonth, $day)) |
|
700
|
8 |
1 |
if ($stamptype eq 'z') { } |
|
706
|
9 |
0 |
if (check_date($fwdyear, $fwdmonth, $day)) |
|
707
|
8 |
1 |
if ($stamptype eq 'z') { } |
|
713
|
9 |
0 |
if (check_date($backyear, $backmonth, $day)) |
|
714
|
8 |
1 |
if ($stamptype eq 'z') { } |
|
723
|
1 |
8 |
if (defined $fwdtstamp and $fwdtstamp - $currenttime < 43400) { } |
|
|
8 |
0 |
elsif (defined $currtstamp and $currtstamp - $currenttime < 43400) { } |
|
|
0 |
0 |
elsif (defined $backtstamp) { } |
|
755
|
1 |
41 |
$_[0] <= -2 ? : |
|
775
|
2 |
0 |
if ($value =~ /^\s*(\d{1,3})([0-5][0-9])\.(\d+)\s*$/o) { } |
|
786
|
1 |
1 |
if ($sign =~ /^\s*[EW]\s*$/o) { } |
|
|
1 |
0 |
elsif ($sign =~ /^\s*[NS]\s*$/o) { } |
|
788
|
0 |
1 |
if ($value > 179.999999) |
|
793
|
1 |
0 |
if ($sign =~ /^\s*W\s*$/o) |
|
798
|
0 |
1 |
if ($value > 89.999999) |
|
803
|
0 |
1 |
if ($sign =~ /^\s*S\s*$/o) |
|
826
|
0 |
1 |
if ($dstcallsign =~ /^(GPS|SPC)([A-Z0-9]{2,3})/o) { } |
|
830
|
0 |
0 |
if ($sublength == 3) { } |
|
831
|
0 |
0 |
if ($type eq 'C' or $type eq 'E') { } |
|
833
|
0 |
0 |
if ($numberid =~ /^(\d{2})$/o and $numberid > 0 and $numberid < 95) { } |
|
837
|
0 |
0 |
if ($type eq 'C') { } |
|
852
|
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) { } |
|
858
|
0 |
0 |
if (defined $dstsymbol{$dsttype}) { } |
|
870
|
0 |
0 |
if (defined $dstsymbol{$leftoverstring}) { } |
|
892
|
0 |
1 |
if ($debug > 1) |
|
901
|
1 |
0 |
if ($body =~ /^([\x20-\x7e]+)\*([0-9A-F]{2})$/io) |
|
908
|
0 |
1 |
if ($checksumgiven != $checksumcalculated) |
|
924
|
1 |
0 |
if (not defined $symtable && defined $symcode) { } |
|
938
|
1 |
0 |
if ($nmeafields[0] eq 'GPRMC') { } |
|
|
0 |
0 |
elsif ($nmeafields[0] eq 'GPGGA') { } |
|
|
0 |
0 |
elsif ($nmeafields[0] eq 'GPGLL') { } |
|
940
|
0 |
1 |
if (@nmeafields < 10) |
|
945
|
0 |
1 |
if ($nmeafields[2] ne 'A') |
|
953
|
1 |
0 |
if ($nmeafields[1] =~ /^\s*(\d{2})(\d{2})(\d{2})(|\.\d+)\s*$/o) { } |
|
956
|
0 |
1 |
if ($1 > 23 or $2 > 59 or $3 > 59) |
|
968
|
1 |
0 |
if ($nmeafields[9] =~ /^\s*(\d{2})(\d{2})(\d{2})\s*$/o) { } |
|
973
|
0 |
1 |
if ($3 >= 70) |
|
977
|
0 |
1 |
unless (check_date($year, $2, $1)) |
|
990
|
0 |
1 |
if ($year >= 2038 or $year < 1970) { } |
|
1001
|
1 |
0 |
if ($nmeafields[7] =~ /^\s*(\d+(|\.\d+))\s*$/o) |
|
1005
|
1 |
0 |
if ($nmeafields[8] =~ /^\s*(\d+(|\.\d+))\s*$/o) { } |
|
1010
|
0 |
1 |
if ($course == 0) { } |
|
|
0 |
1 |
elsif ($course > 360) { } |
|
1022
|
0 |
1 |
unless (defined $latitude) |
|
1027
|
0 |
1 |
unless (defined $longitude) |
|
1037
|
0 |
0 |
if (@nmeafields < 11) |
|
1043
|
0 |
0 |
if ($nmeafields[6] =~ /^\s*(\d+)\s*$/o) { } |
|
1044
|
0 |
0 |
if ($1 < 1) |
|
1058
|
0 |
0 |
if ($rethash->{'timestamp'} == 0) |
|
1065
|
0 |
0 |
unless (defined $latitude) |
|
1070
|
0 |
0 |
unless (defined $longitude) |
|
1076
|
0 |
0 |
if ($nmeafields[10] eq 'M' and $nmeafields[9] =~ /^(-?\d+(|\.\d+))$/o) |
|
1087
|
0 |
0 |
if (@nmeafields < 5) |
|
1094
|
0 |
0 |
unless (defined $latitude) |
|
1099
|
0 |
0 |
unless (defined $longitude) |
|
1107
|
0 |
0 |
if (@nmeafields >= 6) |
|
1110
|
0 |
0 |
if ($rethash->{'timestamp'} == 0) |
|
1116
|
0 |
0 |
if (@nmeafields >= 7) |
|
1118
|
0 |
0 |
if ($nmeafields[6] ne 'A') |
|
1148
|
22 |
0 |
if (length $rest >= 7) |
|
1149
|
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) { } |
|
1152
|
10 |
0 |
if ($course =~ /^\d{3}$/o and $course <= 360 and $course >= 1) { } |
|
1162
|
10 |
0 |
if ($speed =~ /^\d{3}$/o) { } |
|
1192
|
10 |
12 |
if ($rest =~ m[^(.*?)/A=(-\d{5}|\d{6})(.*)$]o) |
|
1202
|
6 |
16 |
if ($rest =~ /^(.*)\!([\x21-\x7b][\x20-\x7b]{2})\!(.*?)$/o) |
|
1204
|
6 |
0 |
if ($daofound == 1) |
|
1216
|
21 |
1 |
if (length $rest > 0) |
|
1230
|
0 |
2 |
if (length $packet < 31) |
|
1237
|
1 |
1 |
if ($packet =~ m[^;([\x20-\x7e]{9})(\*|_)(\d{6})(z|h|/)]o) { } |
|
1240
|
1 |
0 |
if ($2 eq '*') { } |
|
1255
|
0 |
1 |
if ($rethash->{'timestamp'} == 0) |
|
1263
|
1 |
0 |
if ($locationchar =~ m[^[/\\A-Za-j]$]o) { } |
|
|
0 |
0 |
elsif ($locationchar =~ /^\d$/io) { } |
|
1276
|
0 |
1 |
if $retval != 1 |
|
1281
|
1 |
0 |
if ($rethash->{'symbolcode'} ne '_') { } |
|
1302
|
1 |
0 |
if ($packet =~ /^(\d{6}z)/o) |
|
1304
|
0 |
1 |
if $rethash->{'timestamp'} == 0 |
|
1330
|
0 |
0 |
if ($cap =~ /^\s*([^=]+?)\s*=\s*(.*?)\s*$/o) { } |
|
|
0 |
0 |
elsif ($cap =~ /^\s*([^=]+?)\s*$/o) { } |
|
1340
|
0 |
0 |
if ($keycount > 0) |
|
1359
|
245 |
0 |
if ($packet =~ /^:([A-Za-z0-9_ -]{9}):([\x20-\x7e\x80-\xfe]+)$/o) |
|
1366
|
6 |
239 |
if ($message =~ /^ack([A-Za-z0-9}]{1,5})\s*$/o) |
|
1373
|
6 |
233 |
if ($message =~ /^rej([A-Za-z0-9}]{1,5})\s*$/o) |
|
1378
|
233 |
0 |
if ($message =~ /^([^{]*)\{([A-Za-z0-9}]{1,5})\s*$/o) { } |
|
1385
|
0 |
233 |
if ($message =~ /^(BITS|PARM|UNIT|EQNS)\./i) |
|
1401
|
6 |
26 |
if ($rest =~ /^(.*)\|([!-{]{2})([!-{]{2})([!-{]{2}|)([!-{]{2}|)([!-{]{2}|)([!-{]{2}|)([!-{]{2}|)\|(.*)$/) |
|
1403
|
5 |
1 |
$4 ne '' ? : |
|
|
5 |
1 |
$5 ne '' ? : |
|
|
4 |
2 |
$6 ne '' ? : |
|
|
4 |
2 |
$7 ne '' ? : |
|
1419
|
4 |
2 |
if ($8 ne '') |
|
1439
|
0 |
0 |
if (length $packet < 18) |
|
1445
|
0 |
0 |
if ($packet =~ /^\)([\x20\x22-\x5e\x60-\x7e]{3,9})(!|_)/o) { } |
|
1448
|
0 |
0 |
if ($2 eq '!') { } |
|
1462
|
0 |
0 |
if ($locationchar =~ m[^[/\\A-Za-j]$]o) { } |
|
|
0 |
0 |
elsif ($locationchar =~ /^\d$/io) { } |
|
1475
|
0 |
0 |
if $retval != 1 |
|
1480
|
0 |
0 |
if ($rethash->{'symbolcode'} ne '_') |
|
1494
|
0 |
24 |
if (length $packet < 19) |
|
1510
|
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) { } |
|
1515
|
7 |
16 |
if ($sind eq 'S') |
|
1518
|
12 |
11 |
if ($wind eq 'W') |
|
1530
|
1 |
22 |
unless ($symboltable =~ m[^[/\\A-Z0-9]$]) |
|
1537
|
0 |
22 |
if ($lat_deg > 89 or $lon_deg > 179) |
|
1546
|
22 |
0 |
if ($tmplat =~ /^(\d{0,4})( {0,4})$/io) { } |
|
1555
|
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) { } |
|
1557
|
0 |
20 |
if ($lon_min =~ / /io) |
|
1571
|
0 |
0 |
if ($lat_min =~ / /io or $lon_min =~ / /io) |
|
1581
|
0 |
0 |
if ($lat_min =~ / /io or $lon_min =~ / /io) |
|
1591
|
0 |
1 |
if ($lat_min =~ / /io or $lon_min =~ / /io) |
|
1603
|
7 |
15 |
if ($issouth == 1) |
|
1606
|
12 |
10 |
if ($iswest == 1) |
|
1633
|
0 |
11 |
if (length $packet < 8 or length $dstcallsign != 6) |
|
1638
|
0 |
11 |
unless ($dstcallsign =~ /^[0-9A-LP-Z]{3}[0-9LP-Z]{3}$/io) |
|
1649
|
2 |
9 |
unless ($packet =~ m[^[\x26-\x7f][\x26-\x61][\x1c-\x7f]{2}[\x1c-\x7d][\x1c-\x7f][\x21-\x7b\x7d][/\\A-Z0-9]]o) |
|
1657
|
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) { } |
|
1662
|
0 |
1 |
unless ($symboltable =~ m[^[/\\A-Z0-9]$]) |
|
1668
|
1 |
0 |
if (not $symboltable =~ m[^[/\\A-Z0-9]$]) { } |
|
1684
|
10 |
0 |
if ($tmplat =~ /^(\d+)(_*)$/io) { } |
|
1686
|
0 |
10 |
if ($amount > 4) |
|
1705
|
0 |
10 |
if ($rethash->{'posambiguity'} >= 4) { } |
|
1724
|
4 |
6 |
if ($nschar <= 76) |
|
1746
|
5 |
5 |
if ($longoffsetchar >= 80) |
|
1749
|
0 |
10 |
if ($longitude >= 180 and $longitude <= 189) { } |
|
|
0 |
20 |
elsif ($longitude >= 190 and $longitude <= 199) { } |
|
1757
|
1 |
9 |
if ($longminutes >= 60) |
|
1765
|
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) { } |
|
1786
|
3 |
7 |
if ($ewchar >= 80) |
|
1795
|
9 |
1 |
unless ($mice_fixed) |
|
1804
|
5 |
4 |
if ($speed >= 800) |
|
1807
|
9 |
0 |
if ($course >= 400) |
|
1813
|
9 |
0 |
if ($course >= 0) |
|
1826
|
10 |
0 |
if (length $packet > 8) |
|
1830
|
1 |
9 |
if ($rest =~ /^'([0-9a-f]{2})([0-9a-f]{2})(.*)$/i) |
|
1837
|
1 |
9 |
if ($rest =~ /^\342\200\230([0-9a-f]{10})(.*)$/i) |
|
1846
|
3 |
7 |
if ($rest =~ /^(.*?)([\x21-\x7b])([\x21-\x7b])([\x21-\x7b])\}(.*)$/o) |
|
1858
|
2 |
8 |
if ($rest =~ /^(.*)\!([\x21-\x7b][\x20-\x7b]{2})\!(.*?)$/o) |
|
1860
|
2 |
0 |
if ($daofound == 1) |
|
1868
|
10 |
0 |
if (length $rest > 0) |
|
1873
|
1 |
9 |
if ($mice_fixed) |
|
1889
|
0 |
5 |
unless ($packet =~ m[^[/\\A-Za-j]{1}[\x21-\x7b]{8}[\x21-\x7b\x7d]{1}[\x20-\x7b]{3}]o) |
|
1933
|
4 |
1 |
if ($c1 != -1) |
|
1934
|
3 |
1 |
if (($comptype & 32) == 32) { } |
|
1947
|
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) { } |
|
1955
|
1 |
1 |
if ($c1 == 0) { } |
|
1986
|
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) { } |
|
2006
|
0 |
0 |
if ($daodatumbyte =~ /^[a-z]$/o) |
|
2017
|
0 |
8 |
if ($rethash->{'latitude'} < 0) { } |
|
2022
|
6 |
2 |
if ($rethash->{'longitude'} < 0) { } |
|
2045
|
302 |
2 |
if ($_[0] =~ /^([A-Z0-9]{1,6})(-\d{1,2}|)$/o) |
|
2046
|
290 |
12 |
if (length $2 == 0) { } |
|
2051
|
11 |
1 |
if ($ssid < 16) |
|
2073
|
0 |
0 |
unless (defined &check_ax25_call($sourcecall)) |
|
2080
|
0 |
0 |
if ($info =~ s/\s*(\d{3,4}Z)//) |
|
2083
|
0 |
0 |
unless $info =~ s/^(\d+\.\d+)\s*// |
|
2085
|
0 |
0 |
unless $info =~ s[^([a-zA-Z0-9-/]+)\s*][] |
|
2115
|
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 \.]+)//) { } |
|
2133
|
0 |
5 |
if (not defined $temp and $s =~ s/t(-{0,1}\d{1,3})//) |
|
2137
|
5 |
0 |
if $wind_gust =~ /^\d+$/ |
|
2138
|
4 |
1 |
if $wind_dir =~ /^\d+$/ |
|
2139
|
4 |
1 |
if $wind_speed =~ /^\d+$/ |
|
2140
|
5 |
0 |
if $temp =~ /^-{0,1}\d+$/ |
|
2142
|
5 |
0 |
if ($s =~ s/r(\d{1,3})//) |
|
2145
|
5 |
0 |
if ($s =~ s/p(\d{1,3})//) |
|
2148
|
5 |
0 |
if ($s =~ s/P(\d{1,3})//) |
|
2152
|
5 |
0 |
if ($s =~ s/h(\d{1,3})//) |
|
2154
|
1 |
4 |
if $w{'humidity'} eq 0 |
|
2155
|
0 |
5 |
if $w{'humidity'} > 100 or $w{'humidity'} < 1 |
|
2158
|
5 |
0 |
if ($s =~ s/b(\d{4,5})//) |
|
2162
|
1 |
4 |
if ($s =~ s/([lL])(\d{1,3})//) |
|
2164
|
0 |
1 |
if $1 eq 'l' |
|
2167
|
0 |
5 |
if ($s =~ s/v([\-\+]{0,1}\d+)//) |
|
2171
|
1 |
4 |
if ($s =~ s/s(\d{1,3})//) |
|
2176
|
0 |
5 |
if ($s =~ s/#(\d+)//) |
|
2184
|
1 |
4 |
if ($s =~ /^[a-zA-Z0-9\-_]{3,5}$/) { } |
|
2185
|
1 |
0 |
if $s ne '' |
|
2190
|
5 |
0 |
if (defined $w{'temp'} or defined $w{'wind_speed'} and defined $w{'wind_direction'}) |
|
2216
|
0 |
24 |
if ($1 eq '----') { } |
|
2225
|
21 |
3 |
$v < 32768 ? : |
|
2228
|
0 |
2 |
unless @vals |
|
2231
|
2 |
0 |
if defined $t |
|
2233
|
2 |
0 |
if defined $t |
|
2235
|
2 |
0 |
if defined $t |
|
2237
|
2 |
0 |
if defined $t |
|
2239
|
2 |
0 |
if defined $t and $t >= 10 |
|
2244
|
2 |
0 |
if (defined $t) |
|
2246
|
0 |
2 |
if $w{'humidity'} > 100 or $w{'humidity'} < 1 |
|
2251
|
1 |
1 |
if defined $t |
|
2253
|
1 |
1 |
if defined $t |
|
2255
|
0 |
0 |
if (defined $w{'temp'} or defined $w{'wind_speed'} and defined $w{'wind_direction'} or defined $w{'pressure'} or defined $w{'humidity'}) |
|
2282
|
2 |
10 |
if ($1 eq '----') { } |
|
2291
|
10 |
0 |
$v < 32768 ? : |
|
2294
|
0 |
1 |
unless @vals |
|
2297
|
1 |
0 |
if defined $t |
|
2299
|
1 |
0 |
if defined $t |
|
2301
|
1 |
0 |
if defined $t |
|
2303
|
1 |
0 |
if defined $t |
|
2305
|
1 |
0 |
if defined $t and $t >= 10 |
|
2307
|
1 |
0 |
if defined $t |
|
2309
|
0 |
1 |
if (defined $t) |
|
2311
|
0 |
0 |
if $w{'humidity'} > 100 or $w{'humidity'} < 1 |
|
2314
|
0 |
1 |
if (defined $t) |
|
2316
|
0 |
0 |
if $w{'humidity_in'} > 100 or $w{'humidity_in'} < 1 |
|
2321
|
1 |
0 |
if defined $t |
|
2323
|
1 |
0 |
if defined $t |
|
2326
|
0 |
1 |
if defined $w{'temp_in'} and not defined $w{'temp'} |
|
2327
|
0 |
1 |
if defined $w{'humidity_in'} and not defined $w{'humidity'} |
|
2329
|
0 |
0 |
if (defined $w{'temp'} or defined $w{'wind_speed'} and defined $w{'wind_direction'} or defined $w{'pressure'} or defined $w{'humidity'}) |
|
2354
|
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})//) { } |
|
2358
|
0 |
5 |
$vals[$i] eq '' ? : |
|
2359
|
0 |
5 |
if ($vals[$i] >= 999999 or $vals[$i] <= -999999) |
|
2367
|
0 |
1 |
if ((my $l = length $t{'bits'}) < 8) |
|
2427
|
0 |
299 |
$options{'isax25'} ? : |
|
2429
|
0 |
299 |
unless (defined $packet) |
|
2433
|
0 |
299 |
if (length $packet < 1) |
|
2443
|
0 |
299 |
unless (defined $body) |
|
2455
|
298 |
1 |
if ($header =~ /^([A-Z0-9-]{1,9})>(.*)$/io) { } |
|
2457
|
298 |
0 |
if ($isax25 == 0) { } |
|
2461
|
0 |
0 |
unless (defined $srccallsign) |
|
2479
|
0 |
298 |
if ($isax25 == 1) |
|
2480
|
0 |
0 |
if (scalar @pathcomponents > 9) |
|
2486
|
0 |
298 |
if (scalar @pathcomponents < 1) |
|
2496
|
0 |
298 |
unless (defined $dstcallsign) |
|
2504
|
0 |
298 |
if ($isax25 == 1) { } |
|
2506
|
0 |
0 |
if ($digi =~ /^([A-Z0-9-]+)(\*|)$/io) { } |
|
2508
|
0 |
0 |
unless (defined $digitested) |
|
2513
|
0 |
0 |
if ($2 eq '*') |
|
2531
|
1134 |
3 |
if ($digi =~ /^([A-Z0-9a-z-]{1,9})(\*|)$/o) { } |
|
2532
|
35 |
1099 |
$2 eq '*' ? : |
|
2534
|
285 |
849 |
if $1 =~ /^q..$/ |
|
2536
|
1 |
2 |
if ($seen_qconstr and $digi =~ /^([0-9A-F]{32})$/) { } |
|
2560
|
11 |
285 |
if (ord $packettype == 39 or ord $packettype == 96) { } |
|
|
29 |
256 |
elsif ($packettype eq '!' or $packettype eq '=' or $packettype eq '/' or $packettype eq '@') { } |
|
|
1 |
255 |
elsif ($packettype eq '_') { } |
|
|
2 |
253 |
elsif ($packettype eq ';') { } |
|
|
3 |
250 |
elsif ($packettype eq '$') { } |
|
|
0 |
250 |
elsif ($packettype eq ')') { } |
|
|
245 |
5 |
elsif ($packettype eq ':') { } |
|
|
0 |
5 |
elsif ($packettype eq '<') { } |
|
|
1 |
4 |
elsif ($packettype eq '>') { } |
|
|
1 |
3 |
elsif ($body =~ /^T#(.*?),(.*)$/) { } |
|
|
0 |
3 |
elsif ($body =~ /^DX\s+de\s+(.*?)\s*[:>]\s*(.*)$/i) { } |
|
|
1 |
2 |
elsif ($body =~ /^\{\{/i) { } |
|
2564
|
11 |
0 |
if ($paclen >= 9) |
|
2576
|
20 |
9 |
if ($packettype eq '!' or $packettype eq '/') { } |
|
2582
|
29 |
0 |
if ($paclen >= 14) { } |
|
2584
|
13 |
16 |
if ($packettype eq '/' or $packettype eq '@') |
|
2588
|
0 |
13 |
if ($rethash->{'timestamp'} == 0) |
|
2596
|
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) { } |
|
2598
|
23 |
0 |
if (length $body >= 19) |
|
2604
|
17 |
6 |
if ($retval == 1 and $rethash->{'symbolcode'} ne '_') { } |
|
2615
|
4 |
1 |
if (length $body >= 13) |
|
2621
|
3 |
1 |
if ($retval == 1 and $rethash->{'symbolcode'} ne '_') { } |
|
2643
|
1 |
0 |
if ($body =~ /_(\d{8})c[\- \.\d]{1,3}s[\- \.\d]{1,3}/) { } |
|
2653
|
2 |
0 |
if ($paclen >= 31) |
|
2661
|
1 |
2 |
if (substr($body, 0, 3) eq '$GP') { } |
|
|
2 |
0 |
elsif (substr($body, 0, 5) eq '$ULTW') { } |
|
2673
|
0 |
0 |
if ($paclen >= 18) |
|
2680
|
245 |
0 |
if ($paclen >= 11) |
|
2689
|
0 |
0 |
if ($paclen >= 2) |
|
2697
|
1 |
0 |
if ($paclen >= 1) |
|
2722
|
1 |
1 |
if ($pos >= 0 and $pos <= 39) |
|
2726
|
0 |
1 |
if ($pchar =~ m[^[/\\A-Za-j]$]o) { } |
|
|
1 |
0 |
elsif ($pchar =~ /^\d$/io) { } |
|
2728
|
0 |
0 |
if (length $body >= $pos + 1 + 13) |
|
2732
|
0 |
0 |
if ($retval == 1 and $rethash->{'symbolcode'} ne '_') |
|
2738
|
1 |
0 |
if (length $body >= $pos + 1 + 19) |
|
2742
|
1 |
0 |
if ($retval == 1 and $rethash->{'symbolcode'} ne '_') |
|
2751
|
26 |
4 |
if ($retval == 1) |
|
2764
|
0 |
0 |
if ($_[0] =~ /^([A-Z0-9]+)\s*(|-\d+)$/o) |
|
2765
|
0 |
0 |
if (length $2 > 0) |
|
2767
|
0 |
0 |
if ($2 < -15) |
|
2808
|
0 |
0 |
if (length $kissframe < 16) |
|
2809
|
0 |
0 |
if ($debug > 0) |
|
2816
|
0 |
0 |
if (ord substr($kissframe, 0, 1) != 0) |
|
2817
|
0 |
0 |
if ($debug > 0) |
|
2831
|
0 |
0 |
if ($addresspart == 0) { } |
|
|
0 |
0 |
elsif ($addresspart == 1) { } |
|
|
0 |
0 |
elsif ($addresspart == 2) { } |
|
2839
|
0 |
0 |
if ($charri & 1) |
|
2840
|
0 |
0 |
if ($addresscount < 14 or $addresscount % 7 != 0) |
|
2844
|
0 |
0 |
if ($debug > 0) |
|
2854
|
0 |
0 |
if ($addresscount % 7 == 0) |
|
2857
|
0 |
0 |
if ($ssid != 0) |
|
2863
|
0 |
0 |
unless (defined $chkcall) |
|
2864
|
0 |
0 |
if ($debug > 0) |
|
2869
|
0 |
0 |
if ($addresscount == 7) { } |
|
|
0 |
0 |
elsif ($addresscount == 14) { } |
|
|
0 |
0 |
elsif ($addresscount > 14) { } |
|
2884
|
0 |
0 |
if ($charri & 128) |
|
2889
|
0 |
0 |
if ($debug > 0) |
|
2894
|
0 |
0 |
if ($addresspart == 0) { } |
|
2898
|
0 |
0 |
if ($digipeatercount >= 8) |
|
2899
|
0 |
0 |
if ($debug > 0) |
|
2920
|
0 |
0 |
if ($charri != 3) |
|
2921
|
0 |
0 |
if ($debug > 0) |
|
2934
|
0 |
0 |
if ($charri != 240) |
|
2935
|
0 |
0 |
if ($debug > 0) |
|
2973
|
0 |
0 |
if ($gotframe =~ /^([A-Z0-9,*>-]+):(.+)$/o) { } |
|
2977
|
0 |
0 |
if ($debug > 0) |
|
2989
|
0 |
0 |
if ($header =~ /^([A-Z0-9]{1,6})(-\d+|)>([A-Z0-9]{1,6})(-\d+|)(|,.*)$/o) { } |
|
2996
|
0 |
0 |
if ($debug > 0) |
|
3003
|
0 |
0 |
if (length $sender_ssid > 0) { } |
|
3005
|
0 |
0 |
if ($sender_ssid > 15) |
|
3006
|
0 |
0 |
if ($debug > 0) |
|
3014
|
0 |
0 |
if (length $receiver_ssid > 0) { } |
|
3016
|
0 |
0 |
if ($receiver_ssid > 15) |
|
3017
|
0 |
0 |
if ($debug > 0) |
|
3036
|
0 |
0 |
if (length $digipeaters > 0) { } |
|
3043
|
0 |
0 |
if (length $digipeaters > 0) |
|
3048
|
0 |
0 |
if ($digicount > 8 or $digicount < 1) |
|
3050
|
0 |
0 |
if ($debug > 0) |
|
3057
|
0 |
0 |
if ($digis[$i] =~ /^([A-Z0-9]{1,6})(-\d+|)(\*|)$/o) { } |
|
3061
|
0 |
0 |
if (length $2 > 0) |
|
3063
|
0 |
0 |
if ($ssid > 15) |
|
3064
|
0 |
0 |
if ($debug > 0) |
|
3070
|
0 |
0 |
if ($3 eq '*') |
|
3077
|
0 |
0 |
if ($i + 1 < $digicount) { } |
|
3086
|
0 |
0 |
if ($debug > 0) |
|
3132
|
0 |
0 |
if ($packet =~ /^[^:]+:\}(.*)$/io) { } |
|
3139
|
0 |
0 |
if ($packet =~ /^([A-Z0-9]{1,6})(-[A-Z0-9]{1,2}|)>([A-Z0-9]{1,6})(-\d{1,2}|)(:|,[^:]+:)(.*)$/io) |
|
3143
|
0 |
0 |
if ($2 eq '') { } |
|
3209
|
0 |
0 |
if ($name =~ /^([\x20-\x7e]{1,9})$/o) { } |
|
3217
|
0 |
0 |
if ($alive == 1) { } |
|
|
0 |
0 |
elsif ($alive == 0) { } |
|
3227
|
0 |
0 |
if (not defined $aptime) { } |
|
3235
|
0 |
0 |
if (not defined $posstring) { } |
|
3266
|
0 |
0 |
if ($tstamp == 0) |
|
3271
|
0 |
0 |
unless (defined $day) |
|
3276
|
0 |
0 |
if ($tformat == 0) { } |
|
|
0 |
0 |
elsif ($tformat == 1) { } |
|
3322
|
0 |
0 |
unless ($options) |
|
3326
|
0 |
0 |
if ($options->{'ambiguity'}) |
|
3331
|
0 |
0 |
if ($lat < -89.99999 or $lat > 89.99999 or $lon < -179.99999 or $lon > 179.99999) |
|
3341
|
0 |
0 |
if (length $symbol == 0) { } |
|
|
0 |
0 |
elsif ($symbol =~ m[^([/\\A-Z0-9])([\x21-\x7b\x7d])$]o) { } |
|
3351
|
0 |
0 |
if ($options->{'compression'}) { } |
|
3370
|
0 |
0 |
if ($speed >= 0 and $course > 0 and $course <= 360) { } |
|
3376
|
0 |
0 |
if ($cval > 89) |
|
3382
|
0 |
0 |
if ($speednum > 89) |
|
3396
|
0 |
0 |
if ($lat < 0) |
|
3405
|
0 |
0 |
if ($options->{'dao'}) { } |
|
3413
|
0 |
0 |
if (defined $posambiguity and $posambiguity > 0 and $posambiguity <= 4) |
|
3415
|
0 |
0 |
if ($posambiguity <= 2) { } |
|
|
0 |
0 |
elsif ($posambiguity == 3) { } |
|
|
0 |
0 |
elsif ($posambiguity == 4) { } |
|
3424
|
0 |
0 |
if ($isnorth == 1) { } |
|
3430
|
0 |
0 |
if ($lon < 0) |
|
3439
|
0 |
0 |
if ($options->{'dao'}) { } |
|
3446
|
0 |
0 |
if (defined $posambiguity and $posambiguity > 0 and $posambiguity <= 4) |
|
3448
|
0 |
0 |
if ($posambiguity <= 2) { } |
|
|
0 |
0 |
elsif ($posambiguity == 3) { } |
|
|
0 |
0 |
elsif ($posambiguity == 4) { } |
|
3457
|
0 |
0 |
if ($iseast == 1) { } |
|
3465
|
0 |
0 |
if ($options->{'timestamp'}) { } |
|
3474
|
0 |
0 |
if (defined $speed and defined $course and $speed >= 0 and $course >= 0) |
|
3477
|
0 |
0 |
if ($speed > 999) |
|
3480
|
0 |
0 |
if ($course > 360) |
|
3486
|
0 |
0 |
if (defined $altitude) |
|
3489
|
0 |
0 |
if ($altitude >= 0) { } |
|
3496
|
0 |
0 |
if ($options->{'comment'}) |
|
3500
|
0 |
0 |
if ($options->{'dao'}) |