line |
true |
false |
branch |
78
|
0 |
0 |
if $stype == $$self{'TYPE_SERVER_AUTH_REQUEST'} |
331
|
0 |
0 |
unless defined $sock |
332
|
0 |
0 |
if $params{'Debug'} and $params{'Debug'} == 1 |
341
|
0 |
0 |
if $params{'Debug'} and $params{'Debug'} == 1 |
343
|
0 |
0 |
if $$self{'_freq'} > 30 |
347
|
0 |
0 |
if $$self{'_debug'} |
361
|
0 |
0 |
if $datarcv and $$self{'_debug'} |
373
|
0 |
0 |
if $$self{'_debug'} |
375
|
0 |
0 |
if ($curtime - $$self{'_last_time'} >= $$self{'_ping_period'} - 10) |
388
|
0 |
0 |
if $$self{'_debug'} |
399
|
0 |
0 |
if $$self{'_debug'} |
400
|
0 |
0 |
$msgrcv == 4100 ? : |
406
|
0 |
0 |
if $$self{'_debug'} |
421
|
0 |
0 |
if $$self{'_debug'} |
430
|
0 |
0 |
if ($msgrcv != 4122) |
431
|
0 |
0 |
if $$self{'_debug'} |
435
|
0 |
0 |
if ($datas[0] != 0 and $datas[0] != 5) |
440
|
0 |
0 |
if $datas[0] == 5 |
446
|
0 |
0 |
if $dontremove == 1 |
452
|
0 |
0 |
if ($msgrcv != 4124) |
472
|
0 |
0 |
if $status == 1 |
482
|
0 |
0 |
if $$self{'_debug'} |
497
|
0 |
0 |
if $$self{'_debug'} |
498
|
0 |
0 |
unless defined $$self{'_all_contacts'}{$email} |
504
|
0 |
0 |
if ($msgrcv == 4124) |
506
|
0 |
0 |
if ($datas[0] == 0) |
507
|
0 |
0 |
if $$self{'_debug'} |
522
|
0 |
0 |
if $$self{'_debug'} |
545
|
0 |
0 |
if $email ne '' |
546
|
0 |
0 |
if $sex ne '' and $sex ne '0' |
547
|
0 |
0 |
if $country ne '' |
548
|
0 |
0 |
if $online == 1 |
568
|
0 |
0 |
if $msg == 4113 |
570
|
0 |
0 |
if $data |
573
|
0 |
0 |
if $data |
574
|
0 |
0 |
if $$self{'_debug'} |
599
|
0 |
0 |
if $$self{'_debug'} |
600
|
0 |
0 |
unless $$self{'_sock'} and $$self{'_sock'}->connected |
604
|
0 |
0 |
unless defined $s->exists($$self{'_sock'}) |
608
|
0 |
0 |
if ($s->can_read(int $$self{'_ping_period'} / $$self{'_freq'})) |
612
|
0 |
0 |
if ($seq > 0 and $seq <= $$self{'_last_seq'} and $msg == $$self{'_last_type'}) { } |
617
|
0 |
0 |
if $seq > 0 |
628
|
0 |
0 |
if $$self{'_debug'} |
636
|
0 |
0 |
unless defined $dlen |
638
|
0 |
0 |
if (not defined $msgrcv) { } |
|
0 |
0 |
elsif ($msgrcv == 4125) { } |
|
0 |
0 |
elsif ($msgrcv == 4105) { } |
|
0 |
0 |
elsif ($msgrcv == 4115) { } |
|
0 |
0 |
elsif ($msgrcv == 4147) { } |
|
0 |
0 |
elsif ($msgrcv == 4151) { } |
|
0 |
0 |
elsif ($msgrcv == 4111 or $msgrcv == 4129) { } |
|
0 |
0 |
elsif ($msgrcv == 4122 or $msgrcv == 4124) { } |
|
0 |
0 |
elsif ($msgrcv == 4136) { } |
|
0 |
0 |
elsif ($msgrcv == 4117) { } |
|
0 |
0 |
elsif ($msgrcv == 4160) { } |
645
|
0 |
0 |
if (not $msgline =~ /^(Boundary:|Version:|X-MRIM-Flags:|Subject:|\-\-)/) { } |
|
0 |
0 |
elsif ($msgline =~ /^\-\-[0-9A-Z]+/) { } |
663
|
0 |
0 |
if ($datas[1] == 4 or $datas[1] == 1) { } |
|
0 |
0 |
elsif ($datas[1] == 0 or $datas[1] == 128) { } |
|
0 |
0 |
elsif ($datas[1] == 1024 or $datas[1] == 1028) { } |
|
0 |
0 |
elsif ($datas[1] == 8 or $datas[1] == 12 or $datas[1] == 9) { } |
|
0 |
0 |
elsif ($datas[1] == 64 or $datas[1] == 68 or $datas[1] == 65) { } |
669
|
0 |
0 |
if $$self{'_debug'} |
681
|
0 |
0 |
if $$self{'_debug'} |
694
|
0 |
0 |
if $$self{'_debug'} |
700
|
0 |
0 |
if $$self{'_debug'} |
706
|
0 |
0 |
if $i < 10 |
713
|
0 |
0 |
if $$self{'_debug'} |
714
|
0 |
0 |
if length $name < 1 |
715
|
0 |
0 |
if $flags == 1 or $flags == 1048576 or $flags == 1048577 |
716
|
0 |
0 |
if $status != 0 and $status != 3 and length $email > 1 |
719
|
0 |
0 |
if $clen > $dlen |
730
|
0 |
0 |
if ($msgrcv == 4111) { } |
741
|
0 |
0 |
if $i < 10 |
742
|
0 |
0 |
if ($datas[0] != 0 and $datas[0] != 3) { } |
|
0 |
0 |
elsif ($datas[0] == 0 and grep /$datas[1]/, @ckeys) { } |
755
|
0 |
0 |
if $$self{'_debug'} |
757
|
0 |
0 |
if $datas[0] != 0 |
764
|
0 |
0 |
if $$self{'_debug'} |
776
|
0 |
0 |
if ($label eq 'Username') { } |
|
0 |
0 |
elsif ($label eq 'Domain') { } |
|
0 |
0 |
elsif ($label eq 'Sex') { } |
777
|
0 |
0 |
if $value eq '' |
778
|
0 |
0 |
if $found == 1 |
780
|
0 |
0 |
if $found == 1 |
782
|
0 |
0 |
if ($value eq '1') { } |
|
0 |
0 |
elsif ($value eq '2') { } |
789
|
0 |
0 |
if $found == 1 |
791
|
0 |
0 |
if $found == 1 |
796
|
0 |
0 |
if $found == 1 |
798
|
0 |
0 |
if $$self{'_debug'} |
806
|
0 |
0 |
if $$self{'_debug'} |
808
|
0 |
0 |
if $datas[0] == 0 |
810
|
0 |
0 |
if $$self{'_debug'} |
821
|
0 |
0 |
if ($datatype eq 'u') { } |
|
0 |
0 |
elsif ($datatype eq 's') { } |
822
|
0 |
0 |
if ($data =~ /^(\C{4})(\C*)/) { } |
832
|
0 |
0 |
if ($itemlength) { } |
835
|
0 |
0 |
if ($itemlength < 4096) { } |