| line |
true |
false |
branch |
|
169
|
0 |
0 |
exists $ENV{'HOMEPATH'} ? : |
|
|
0 |
0 |
exists $ENV{'HOME'} ? : |
|
172
|
0 |
0 |
if (-e $dir) { } |
|
173
|
0 |
0 |
unless -d $dir |
|
175
|
0 |
0 |
unless mkdir $dir |
|
187
|
0 |
0 |
unless defined $log |
|
213
|
0 |
0 |
unless -e $userdir |
|
214
|
0 |
0 |
if (-d $userdir) { } |
|
218
|
0 |
0 |
if (defined $log) { } |
|
219
|
0 |
0 |
if $$self{'Debug'} |
|
237
|
0 |
0 |
if $$self{'UDP'} |
|
248
|
0 |
0 |
unless $packet |
|
250
|
0 |
0 |
if $$self{'UDP'} |
|
252
|
0 |
0 |
if ($len < 10) |
|
253
|
0 |
0 |
if $$self{'Debug'} > 8 |
|
257
|
0 |
0 |
if $len1 == 0 |
|
258
|
0 |
0 |
if ($len1 <= $len) |
|
259
|
0 |
0 |
if (substr($packet, 2, 1) eq "\cB" and substr($packet, $len1 - 1, 1) eq "\cC") |
|
262
|
0 |
0 |
if $$self{'Debug'} > 8 |
|
263
|
0 |
0 |
if $len > $len1 |
|
266
|
0 |
0 |
if $$self{'Debug'} > 8 |
|
279
|
0 |
0 |
unless $CmdCode{"login_request_$step"} |
|
283
|
0 |
0 |
$step == 1 ? : |
|
353
|
0 |
0 |
unless defined $str |
|
370
|
0 |
0 |
if (defined $len) { } |
|
372
|
0 |
0 |
$begin + $len < length $data ? : |
|
378
|
0 |
0 |
if ($tmpl =~ /\w/) { } |
|
379
|
0 |
0 |
if ($tmpl eq 'H*') { } |
|
391
|
0 |
0 |
unless $$self{'Debug'} > 1 |
|
402
|
0 |
0 |
unless length $data >= 6 |
|
410
|
0 |
0 |
if (-e $file) { } |
|
412
|
0 |
0 |
if -e $file |
|
423
|
0 |
0 |
if (opendir DIR, $dir) |
|
425
|
0 |
0 |
unless $f =~ /^(\d+)\.dat$/ |
|
435
|
0 |
0 |
unless $num =~ /^\d+$/ |
|
441
|
0 |
0 |
if ($$self{'Away'}) { } |
|
454
|
0 |
0 |
if (defined $$self{'Info'}{$id}) { } |
|
455
|
0 |
0 |
if (defined $$self{'Info'}{$id}{'Nickname'}) |
|
463
|
0 |
0 |
if (open INFO, $infofile) |
|
465
|
0 |
0 |
if ($line =~ /^Nickname +=> *'(.*)'/) |
|
478
|
0 |
0 |
if (exists $ENV{'OICQ_SVR'} and $ENV{'OICQ_SVR'} =~ /\w+/) |
|
483
|
0 |
0 |
if @servers |
|
487
|
0 |
0 |
if ($type =~ /udp/i) { } |
|
497
|
0 |
0 |
if ($server =~ /^(\S+):(\d+)$/) { } |
|
504
|
0 |
0 |
unless defined $proxy |
|
505
|
0 |
0 |
if ($proxy) { } |
|
507
|
0 |
0 |
if ($proxy =~ /:/) { } |
|
516
|
0 |
0 |
unless (defined $socket) |
|
523
|
0 |
0 |
if (defined $resp and $resp =~ m[HTTP/.+ 200 Connection established]) |
|
532
|
0 |
0 |
unless defined $resp |
|
539
|
0 |
0 |
unless (defined $socket) |
|
559
|
0 |
0 |
if ($@ eq $timeout_msg) |
|
567
|
0 |
0 |
unless defined $server |
|
573
|
0 |
0 |
unless (defined $socket) |
|
587
|
0 |
0 |
$proto eq 'udp' ? : |
|
596
|
0 |
0 |
if (defined $mode and exists $ConnectMode{$mode}) { } |
|
604
|
0 |
0 |
unless defined $proto and $proto eq 'udp' |
|
610
|
0 |
0 |
unless defined $socket |
|
611
|
0 |
0 |
if $$self{'Debug'} |
|
613
|
0 |
0 |
unless ($login_packet) |
|
615
|
0 |
0 |
unless $token |
|
619
|
0 |
0 |
unless (defined $plain) |
|
623
|
0 |
0 |
if $$self{'Debug'} |
|
625
|
0 |
0 |
if ($login == 0) { } |
|
|
0 |
0 |
elsif ($login == 1) { } |
|
|
0 |
0 |
elsif ($login == 9 or $login == 5) { } |
|
|
0 |
0 |
elsif ($login == 10) { } |
|
657
|
0 |
0 |
unless $$self{'Key'} |
|
671
|
0 |
0 |
unless defined $socket |
|
672
|
0 |
0 |
if $$self{'Debug'} |
|
677
|
0 |
0 |
if $$self{'Debug'} |
|
679
|
0 |
0 |
if (defined $resp) { } |
|
680
|
0 |
0 |
if $$self{'Debug'} |
|
691
|
0 |
0 |
unless substr($r, 3, 2) eq $CmdCode{'login_request_2'} |
|
693
|
0 |
0 |
if $$self{'Debug'} |
|
694
|
0 |
0 |
if $token |
|
709
|
0 |
0 |
unless ($resp) |
|
714
|
0 |
0 |
if $$self{'Debug'} |
|
715
|
0 |
0 |
if (substr($d, 3, 2) eq qq[\000"]) |
|
726
|
0 |
0 |
if $$self{'Debug'} |
|
727
|
0 |
0 |
length $crypt == 32 ? : |
|
730
|
0 |
0 |
if (defined $plain) |
|
731
|
0 |
0 |
if $$self{'Debug'} |
|
734
|
0 |
0 |
if $@ and $$self{'Debug'} |
|
742
|
0 |
0 |
if (exists $ENV{'LANG'} and $ENV{'LANG'} =~ /UTF-8/) |
|
753
|
0 |
0 |
unless exists $CmdCode{$cmd} |
|
754
|
0 |
0 |
unless (defined $seq) |
|
760
|
0 |
0 |
if ($$self{'Socket'}->send($packet)) |
|
770
|
0 |
0 |
unless defined $flag |
|
792
|
0 |
0 |
unless defined $hashref and defined $info |
|
801
|
0 |
0 |
defined $new_info{$attr} ? : |
|
808
|
0 |
0 |
unless defined $$self{'MyInfo'} |
|
850
|
0 |
0 |
if ($font_size =~ /^\d+$/) { } |
|
855
|
0 |
0 |
if ($font_color =~ /^[\da-f]{6}$/) { } |
|
871
|
0 |
0 |
if ($dstid =~ /^20/ and $nickname eq "\310\272") |
|
875
|
0 |
0 |
if $$self{'LogChat'} |
|
901
|
0 |
0 |
if $len <= $max_len |
|
907
|
0 |
0 |
if ($non_gb_count % 2) { } |
|
921
|
0 |
0 |
if ($$self{'UDP'}) |
|
947
|
0 |
0 |
unless defined $num |
|
964
|
0 |
0 |
if $group_cmd eq 'search' |
|
974
|
0 |
0 |
if $$self{'LogChat'} |
|
1006
|
0 |
0 |
if $group_id < 202000000 |
|
1012
|
0 |
0 |
unless defined $$self{'LogoutPacket'} and $$self{'LogoutPacket'} |