line |
true |
false |
branch |
35
|
0 |
181 |
$debug ? : |
42
|
180 |
1 |
$config ? : |
54
|
0 |
524 |
if ($self->_connection_exists($conn_id)) |
69
|
523 |
1 |
unless ($needs_auth) |
86
|
0 |
3 |
if ($self->_connection_exists($conn_id)) |
117
|
0 |
0 |
unless $self->_connection_exists($conn_id) |
120
|
0 |
0 |
if ($conn->{'type'} eq 'u') |
125
|
0 |
0 |
if ($conn->{'pinged'}) |
146
|
0 |
1 |
unless $self->_connection_exists($conn_id) |
157
|
0 |
487 |
unless $self->_connection_exists($conn_id) |
159
|
227 |
260 |
if ($self->_connection_is_peer($conn_id)) { } |
|
217 |
43 |
elsif ($self->_connection_is_client($conn_id)) { } |
188
|
0 |
0 |
unless $self->{'debug'} |
197
|
0 |
0 |
unless $self->{'debug'} |
206
|
9241 |
4161 |
unless $event =~ /^IRCD_cmd_/ |
210
|
0 |
4161 |
unless $self->_connection_exists($conn_id) |
211
|
21 |
4140 |
if $self->_connection_terminated($conn_id) |
214
|
1433 |
2707 |
if (not $self->_connection_registered($conn_id)) { } |
|
1906 |
801 |
elsif ($self->_connection_is_peer($conn_id)) { } |
|
801 |
0 |
elsif ($self->_connection_is_client($conn_id)) { } |
231
|
0 |
245 |
unless $self->_connection_exists($conn_id) |
238
|
528 |
22547 |
unless defined $self->{'state'}{'conns'}{$conn_id} |
245
|
0 |
4675 |
unless defined $self->{'state'}{'conns'}{$conn_id} |
246
|
21 |
4654 |
if defined $self->{'state'}{'conns'}{$conn_id}{'terminated'} |
252
|
0 |
1064 |
unless $self->_connection_exists($conn_id) |
253
|
563 |
501 |
unless $self->{'state'}{'conns'}{$conn_id}{'nick'} |
254
|
246 |
255 |
unless $self->{'state'}{'conns'}{$conn_id}{'user'} |
255
|
10 |
245 |
if $self->{'state'}{'conns'}{$conn_id}{'capneg'} |
259
|
0 |
245 |
unless $auth |
261
|
5 |
240 |
unless ($self->_state_auth_client_conn($conn_id)) |
277
|
1 |
239 |
if ($self->{'auth'}) |
278
|
1 |
0 |
if ($self->{'state'}{'conns'}{$conn_id}{'need_ident'} and not $self->{'state'}{'conns'}{$conn_id}{'auth'}{'ident'}) |
298
|
5 |
234 |
if (my $reason = $self->_state_user_matches_xline($conn_id)) |
315
|
5 |
229 |
if (my $reason = $self->_state_user_matches_kline($conn_id)) |
320
|
2 |
227 |
if (my $reason = $self->_state_user_matches_rkline($conn_id)) |
326
|
0 |
226 |
unless ($self->{'state'}{'conns'}{$conn_id}{'auth'}{'ident'} or $self->{'state'}{'conns'}{$conn_id}{'user'} =~ /$user_re/) |
348
|
0 |
227 |
if ($self->{'config'}{'MAXCLIENTS'} < $clients + 1) |
350
|
0 |
0 |
unless ($crec->{'exceed_limit'}) |
366
|
8 |
219 |
if (my $sslinfo = $self->connection_secured($conn_id)) |
447
|
8 |
219 |
if ($umode) |
473
|
0 |
4281 |
unless $self->_connection_exists($conn_id) |
481
|
0 |
6608 |
unless $self->_connection_exists($conn_id) |
482
|
1538 |
5070 |
unless $self->{'state'}{'conns'}{$conn_id}{'registered'} |
483
|
3090 |
1980 |
if $self->{'state'}{'conns'}{$conn_id}{'type'} eq 'p' |
491
|
0 |
1096 |
unless $self->_connection_exists($conn_id) |
492
|
43 |
1053 |
unless $self->{'state'}{'conns'}{$conn_id}{'registered'} |
493
|
1047 |
6 |
if $self->{'state'}{'conns'}{$conn_id}{'type'} eq 'c' |
506
|
0 |
1433 |
if ($cmd eq 'ERROR') |
508
|
0 |
0 |
if (defined $peer) |
517
|
7 |
1426 |
if ($cmd eq 'QUIT') |
522
|
141 |
1285 |
if ($cmd eq 'CAP') |
528
|
0 |
1285 |
if ($cmd =~ /^(PASS|NICK|SERVER)$/ and not $pcount) |
534
|
264 |
1021 |
if ($cmd eq 'PASS' and $pcount) |
537
|
262 |
2 |
if ($params->[1] and $params->[1] =~ /TS$/) |
543
|
261 |
1 |
if ($params->[2] and $params->[3]) { } |
548
|
1 |
260 |
if (not $sid =~ /$sid_re/ or $ts ne '6') { } |
|
1 |
259 |
elsif ($self->state_sid_exists($sid)) { } |
568
|
2 |
259 |
if ($errstr) |
582
|
259 |
762 |
if ($cmd eq 'CAPAB' and $pcount) |
587
|
0 |
762 |
if ($cmd eq 'SERVER' and $pcount < 2) |
591
|
259 |
503 |
if ($cmd eq 'SERVER') |
597
|
0 |
259 |
if ($conn->{'desc'} and $conn->{'desc'} =~ /^\(H\) /) |
602
|
0 |
259 |
unless ($conn->{'ts_server'}) |
608
|
2 |
257 |
if (not $result or $result <= 0) |
610
|
0 |
2 |
if (not defined $result or $result == 0) { } |
|
1 |
1 |
elsif ($result == -1) { } |
|
1 |
0 |
elsif ($result == -2) { } |
639
|
0 |
257 |
if ($self->state_peer_exists($conn->{'name'})) |
651
|
2 |
255 |
if ($conn->{'zip'} and grep {$_ eq 'ZIP';} @{$$conn{'capab'};}) { } |
666
|
252 |
251 |
if ($cmd eq 'NICK' and $pcount) |
668
|
0 |
252 |
if (length $params->[0] > $nicklen) |
672
|
0 |
252 |
unless (is_valid_nick_name($params->[0])) |
681
|
1 |
251 |
if ($self->state_nick_exists($params->[0])) |
690
|
5 |
246 |
if (my $reason = $self->_state_is_resv($params->[0], $wheel_id)) |
710
|
0 |
251 |
if ($cmd eq 'USER' and $pcount < 4) |
714
|
251 |
0 |
if ($cmd eq 'USER') |
721
|
0 |
0 |
if $self->{'state'}{'conns'}{$wheel_id}{'cntr'} |
726
|
0 |
1433 |
if $invalid |
742
|
1 |
1905 |
if ($cmd eq 'SQUIT' and not $prefix) |
752
|
0 |
1905 |
if ($cmd =~ /\d{3}/ and not $params->[0] =~ /^$sid/) |
759
|
11 |
1894 |
if ($cmd =~ /\d{3}/ and $params->[0] =~ /^$sid/) |
769
|
5 |
1889 |
if ($cmd eq 'QUIT') |
778
|
7 |
1882 |
if ($cmd =~ /^(PRIVMSG|NOTICE)$/) |
783
|
0 |
0 |
ref $_ eq 'ARRAY' ? : |
792
|
6 |
1876 |
if ($cmd =~ /^(VERSION|TIME|LINKS|ADMIN|INFO|MOTD|STATS)$/i) |
794
|
1 |
5 |
if $cmd eq 'LINKS' |
799
|
0 |
34 |
ref $_ eq 'ARRAY' ? : |
803
|
255 |
1621 |
if ($cmd =~ /^(PING|PONG)$/i and $self->can($method)) |
808
|
257 |
1364 |
if ($cmd =~ /^SVINFO$/i and $self->can($method)) |
819
|
4 |
1360 |
if ($cmd =~ /^E?TRACE$/i) |
827
|
0 |
1360 |
if ($cmd eq 'MODE') |
831
|
12 |
1348 |
if ($cmd =~ /^(UN)?([DKX]LINE|RESV)$/i) |
837
|
4 |
1344 |
if ($cmd =~ /^WHO(IS|WAS)$/i) |
843
|
1344 |
0 |
if ($self->can($method)) |
850
|
0 |
1906 |
if $invalid |
869
|
200 |
601 |
if ($cmd eq 'QUIT') |
872
|
7 |
193 |
if ($qmsg and my $msgtime = $self->{'config'}{'anti_spam_exit_message_time'}) |
874
|
7 |
0 |
if time - $self->{'state'}{'conns'}{$wheel_id}{'conn_time'} < $msgtime |
877
|
167 |
33 |
$qmsg ? : |
883
|
0 |
601 |
if ($cmd =~ /^(USERHOST|MODE)$/ and not $pcount) |
887
|
1 |
600 |
if ($cmd =~ /^(USERHOST)$/) |
889
|
1 |
0 |
$pcount <= 5 ? : |
899
|
30 |
570 |
if ($cmd =~ /^(PRIVMSG|NOTICE)$/) |
904
|
7 |
2 |
ref $_ eq 'ARRAY' ? : |
908
|
231 |
339 |
if ($cmd eq 'MODE' and $self->state_nick_exists($params->[0])) |
909
|
0 |
231 |
if (uc_irc($nick) ne uc_irc($params->[0])) |
915
|
1 |
230 |
ref $_ eq 'ARRAY' ? : |
919
|
0 |
339 |
if ($cmd eq 'CAP') |
924
|
6 |
333 |
if ($cmd =~ /^(ADMIN|INFO|VERSION|TIME|MOTD)$/) |
928
|
0 |
30 |
ref $_ eq 'ARRAY' ? : |
932
|
6 |
327 |
if ($cmd =~ /^E?TRACE$/i) |
936
|
1 |
17 |
ref $_ eq 'ARRAY' ? : |
940
|
323 |
4 |
if ($self->can($method)) |
944
|
34 |
308 |
ref $_ eq 'ARRAY' ? : |
948
|
3 |
1 |
if (defined $self->{'config'}{'pseudo'}{$cmd}) |
951
|
1 |
2 |
unless ($params->[0]) |
957
|
1 |
1 |
unless ($targ and $serv) |
962
|
1 |
0 |
if ($pseudo->{'prepend'}) { } |
963
|
0 |
1 |
$pseudo->{'prepend'} =~ / $/ ? : |
972
|
0 |
0 |
ref $_ eq 'ARRAY' ? : |
980
|
4 |
797 |
if $invalid or $pseudo |
994
|
2 |
3 |
unless ($self->state_user_is_operator($nick)) |
997
|
1 |
0 |
if ($lastuse and $pacewait and $lastuse + $pacewait > time) |
1004
|
2 |
2 |
unless ($self->{'_help'}) |
1010
|
1 |
3 |
unless (scalar @lines) |
1038
|
5 |
0 |
if wantarray |
1051
|
0 |
4 |
unless ($count) |
1058
|
4 |
2 |
if ($item =~ /^\+/) |
1060
|
0 |
4 |
if (keys %$watches >= $self->{'config'}{'max_watch'}) |
1064
|
0 |
4 |
unless $item and is_valid_nick_name($item) |
1069
|
0 |
4 |
if (my $tuid = $self->state_user_uid($item)) { } |
1096
|
0 |
2 |
if ($item =~ /^\-/) |
1098
|
0 |
0 |
unless $item |
1102
|
0 |
0 |
if (my $tuid = $self->state_user_uid($item)) { } |
1128
|
0 |
0 |
unless keys %{$$self{'state'}{'watches'}{$item}{'uids'};} |
1131
|
0 |
2 |
if ($item =~ /^C/i) |
1135
|
0 |
0 |
unless keys %{$$self{'state'}{'watches'}{$watched}{'uids'};} |
1140
|
2 |
0 |
if ($item =~ /^S/i) |
1141
|
0 |
2 |
if $list & 1 |
1147
|
0 |
2 |
if (defined $self->{'state'}{'watches'}{uc_irc($nick)}) |
1162
|
0 |
4 |
if (length(join ' ', $buf, $watched) + $len + 1 > 510) |
1174
|
2 |
0 |
if ($buf) |
1191
|
0 |
0 |
if ($item =~ /^L/i) |
1192
|
0 |
0 |
if $list & 2 |
1196
|
0 |
0 |
if (my $tuid = $self->state_user_uid($watched)) { } |
|
0 |
0 |
elsif ($item eq 'L') { } |
1235
|
4 |
0 |
if wantarray |
1249
|
0 |
141 |
unless ($subcmd) |
1254
|
0 |
141 |
unless ($subcmd =~ /^(LS|LIST|REQ|ACK|NAK|CLEAR|END)$/) |
1258
|
0 |
141 |
if ($subcmd eq 'END' and $registered) |
1261
|
43 |
98 |
if ($subcmd eq 'END' and not $registered) |
1263
|
43 |
0 |
if $capneg |
1266
|
98 |
0 |
if not $registered and $subcmd =~ /^(LS|REQ)$/ |
1267
|
32 |
66 |
if ($subcmd eq 'LS') |
1277
|
0 |
66 |
if ($subcmd eq 'LIST') |
1287
|
66 |
0 |
if ($subcmd eq 'REQ') |
1292
|
23 |
50 |
unless ($self->{'state'}{'caps'}{$cap}) |
1301
|
0 |
50 |
if ($neg) { } |
1330
|
0 |
31 |
unless ($count) |
1334
|
0 |
31 |
if ($count < 2 or not $args->[1]) |
1349
|
0 |
31 |
if ($targ_type =~ /(server|host)mask/ and not $self->state_user_is_operator($nick)) |
1355
|
0 |
31 |
if ($targ_type =~ /(server|host)mask/ and not $targs->{$target}[0] =~ /\./) |
1361
|
0 |
31 |
if ($targ_type =~ /(server|host)mask/ and $targs->{$target}[1] =~ /\x2E[^.]*[\x2A\x3F]+[^.]*$/) |
1367
|
0 |
31 |
if ($targ_type eq 'channel_ext' and not $self->state_chan_exists($targs->{$target}[1])) |
1373
|
0 |
31 |
if ($targ_type eq 'channel' and not $self->state_chan_exists($target)) |
1379
|
0 |
31 |
if ($targ_type eq 'nick' and not $self->state_nick_exists($target)) |
1385
|
0 |
31 |
if ($targ_type eq 'nick_ext' and not $self->state_peer_exists($targs->{$target}[1])) |
1392
|
0 |
31 |
if ($targets > $max_targets) |
1398
|
0 |
31 |
if ($targ_type eq 'servermask') |
1404
|
0 |
0 |
if (matches_mask($targs->{$target}[0], $peer)) |
1405
|
0 |
0 |
if ($ucserver eq $peer) { } |
1423
|
0 |
0 |
if ($us) |
1430
|
0 |
0 |
if ($luser->{'route_id'} eq 'spoofed') { } |
1447
|
0 |
0 |
if $spoofed |
1458
|
0 |
31 |
if ($targ_type eq 'hostmask') |
1463
|
0 |
0 |
unless (matches_mask($targs->{$target}[0], $luser->{'auth'}{'hostname'})) |
1468
|
0 |
0 |
if ($luser->{'route_id'} eq 'spoofed') { } |
|
0 |
0 |
elsif ($luser->{'type'} eq 'r') { } |
1497
|
0 |
0 |
if $spoofed |
1507
|
0 |
31 |
if ($targ_type eq 'nick_ext') |
1511
|
0 |
0 |
if ($targs->{$target}[2] and not $self->state_user_is_operator($nick)) |
1517
|
0 |
0 |
if ($targs->{$target}[1] ne $self->server_name) |
1529
|
0 |
0 |
if (uc $targs->{$target}[0] eq 'OPERS') |
1530
|
0 |
0 |
unless ($self->state_user_is_operator($nick)) |
1551
|
0 |
0 |
if (@local == 1) { } |
1553
|
0 |
0 |
if ($ref->[0] eq 'spoofed') { } |
1579
|
17 |
14 |
if ($targ_type eq 'channel') |
1582
|
0 |
31 |
if ($targ_type eq 'channel_ext') |
1586
|
0 |
17 |
if ($channel and $status_msg and not $self->state_user_chan_mode($nick, $channel)) |
1591
|
17 |
14 |
if ($channel) |
1593
|
0 |
17 |
if (not $res) { } |
|
7 |
10 |
elsif (ref $res eq 'ARRAY') { } |
1600
|
1 |
9 |
if ($res != 2 and $self->state_flood_attack_channel($nick, $channel, $type)) |
1604
|
0 |
9 |
$status_msg ? : |
1611
|
0 |
27 |
if $self->_state_user_is_deaf($member) |
1617
|
17 |
1 |
if ($self->_connection_is_client($route_id)) |
1620
|
18 |
0 |
if ($route_id ne 'spoofed') { } |
1624
|
0 |
0 |
$type eq 'PRIVMSG' ? : |
1637
|
14 |
0 |
if ($self->state_nick_exists($target)) |
1641
|
1 |
13 |
if $self->state_flood_attack_client($nick, $target, $type) |
1643
|
0 |
13 |
if (my $away = $self->_state_user_away_msg($target)) |
1654
|
1 |
12 |
if ($targ_umode and $targ_umode =~ /[Gg]/) |
1658
|
1 |
0 |
if ($targ_umode =~ /G/ and not $self->state_users_share_chan($target, $nick) && $targ_rec->{'accepts'}{uc_irc($nick)} or $targ_umode =~ /g/ and not $targ_rec->{'accepts'}{uc_irc($nick)}) |
1674
|
1 |
0 |
if (not $targ_rec->{'last_caller'} or time - $targ_rec->{'last_caller'} >= 60) |
1690
|
0 |
0 |
$local ? : |
|
0 |
0 |
$local ? : |
|
0 |
1 |
if $targ_rec->{'route_id'} ne 'spoofed' |
1714
|
2 |
10 |
if ($route_id eq 'spoofed') { } |
1724
|
5 |
5 |
if ($self->_connection_is_client($route_id)) |
1735
|
31 |
0 |
if wantarray |
1748
|
0 |
0 |
if (not $count && $args->[0] or $args->[0] eq '*') |
1752
|
0 |
0 |
unless ($self->state_nick_exists($accept)) |
1758
|
0 |
0 |
if @list |
1776
|
0 |
0 |
unless $self->state_nick_exists($_) |
1780
|
0 |
0 |
if (my($foo) = $target =~ /^\-(.+)$/) |
1782
|
0 |
0 |
unless ($dfoo) |
1790
|
0 |
0 |
unless (keys %{$self->{'state'}{'accepts'}{uc_irc($foo)};}) |
1796
|
0 |
0 |
unless ($self->state_nick_exists($target)) |
1801
|
0 |
0 |
if ($record->{'accepts'}{uc_irc($target)}) |
1814
|
0 |
0 |
if ($record->{'umode'} and $record->{'umode'} =~ /G/ and $self->_state_users_share_chan($nick, $target)) |
1832
|
0 |
0 |
if @list |
1848
|
0 |
0 |
if wantarray |
1862
|
0 |
226 |
unless $qmsg |
1873
|
223 |
3 |
unless $record->{'killed'} |
1887
|
1 |
225 |
if (defined $self->{'state'}{'watches'}{$nick}) |
1891
|
0 |
1 |
unless defined $self->{'state'}{'uids'}{$wuid} |
1914
|
4 |
0 |
unless keys %{$$self{'state'}{'watches'}{$watched}{'uids'};} |
1922
|
25 |
56 |
unless $user =~ /^$sid/ |
1926
|
39 |
53 |
unless (keys %{$$self{'state'}{'chans'}{$uchan}{'users'};}) |
1932
|
26 |
200 |
if $record->{'umode'} =~ /o/ |
1933
|
221 |
5 |
if $record->{'umode'} =~ /i/ |
1934
|
220 |
6 |
unless $record->{'nick_collision'} |
1948
|
0 |
226 |
if wantarray |
1962
|
1 |
2 |
unless ($count) |
1967
|
1 |
1 |
if ($count >= 2 and not $self->state_peer_exists($args->[1])) |
1971
|
1 |
0 |
if ($count >= 2 and uc $args->[1] ne uc $server) |
1989
|
3 |
0 |
if wantarray |
2002
|
0 |
0 |
unless ($count) |
2006
|
0 |
0 |
if ($count >= 2 and not $self->state_peer_exists($args->[1])) |
2010
|
0 |
0 |
if ($count >= 2 and uc $args->[1] ne uc $server) |
2025
|
0 |
0 |
if wantarray |
2034
|
0 |
0 |
if wantarray |
2043
|
0 |
0 |
if wantarray |
2057
|
0 |
25 |
if $self->state_user_is_operator($nick) |
2058
|
0 |
25 |
if (not $count or $count < 2) |
2065
|
3 |
22 |
if (not $result or $result <= 0) |
2067
|
1 |
2 |
if (not defined $result) { } |
|
0 |
2 |
elsif ($result == -1) { } |
|
1 |
1 |
elsif ($result == -2) { } |
|
1 |
0 |
elsif ($result == -3) { } |
2106
|
0 |
22 |
if (my $whois = $self->{'config'}{'ops'}{$opuser}{'whois'}) |
2172
|
25 |
0 |
if wantarray |
2183
|
0 |
1 |
unless ($self->state_user_is_operator($nick)) |
2190
|
1 |
0 |
if wantarray |
2201
|
0 |
1 |
unless ($self->state_user_is_operator($nick)) |
2208
|
5 |
1 |
if $self->{'state'}{'conns'}{$conn_id}{'type'} ne 'u' |
2237
|
1 |
0 |
if wantarray |
2252
|
0 |
0 |
if ($val and $val >= 0) { } |
2277
|
0 |
0 |
if ($val and $val >= 0) { } |
2302
|
0 |
0 |
if ($val and $val >= 0) { } |
2327
|
1 |
1 |
if ($val and $val >= 0) { } |
2328
|
0 |
1 |
if ($val > 7000) |
2342
|
1 |
0 |
if ($val < 32) |
2380
|
0 |
0 |
if (defined $val and $val >= 0) { } |
2382
|
0 |
0 |
if ($val == 0) { } |
2415
|
0 |
0 |
if ($val and $val >= 0) { } |
2440
|
1 |
1 |
if ($val and $val >= 0) { } |
2465
|
0 |
0 |
if ($val and $val >= 0) { } |
2491
|
0 |
5 |
unless ($self->state_user_is_operator($nick)) |
2495
|
4 |
1 |
if ($count > 0) |
2496
|
4 |
0 |
if (defined $vars{uc $args->[0]}) |
2521
|
2 |
6 |
if (scalar @names == 4) |
2533
|
0 |
1 |
if (@names) |
2544
|
5 |
0 |
if wantarray |
2555
|
0 |
1 |
unless ($self->state_user_is_operator($nick)) |
2566
|
1 |
0 |
if wantarray |
2579
|
0 |
0 |
unless ($self->state_user_is_operator($nick)) |
2583
|
0 |
0 |
unless ($count) |
2592
|
0 |
0 |
if wantarray |
2605
|
0 |
0 |
unless ($self->state_user_is_operator($nick)) |
2609
|
0 |
0 |
unless ($count) |
2638
|
0 |
0 |
if wantarray |
2652
|
0 |
0 |
unless ($self->state_user_is_operator($nick)) |
2656
|
0 |
0 |
unless ($count) |
2680
|
0 |
0 |
if wantarray |
2693
|
0 |
0 |
unless ($self->state_user_is_operator($nick)) |
2697
|
0 |
0 |
unless ($count) |
2701
|
0 |
0 |
if ($count >= 3 and not $self->state_peer_exists($args->[2])) |
2705
|
0 |
0 |
if ($count >= 3 and uc $server ne uc $args->[2]) |
2717
|
0 |
0 |
if (not $self->{'config'}{'peers'}{uc $args->[0]} or $self->{'config'}{'peers'}{uc $args->[0]}{'type'} ne 'r') |
2728
|
0 |
0 |
if (my $peer_name = $self->_state_peer_name($args->[0])) |
2750
|
0 |
0 |
if wantarray |
2763
|
0 |
0 |
unless ($self->state_user_is_operator($nick)) |
2767
|
0 |
0 |
unless ($count) |
2771
|
0 |
0 |
if (not $self->state_peer_exists($args->[0]) or uc $server eq uc $args->[0]) |
2784
|
0 |
0 |
unless (grep {$_ eq $peer;} keys %{$self->{'state'}{'peers'}{uc $server}{'peers'};}) |
2810
|
0 |
0 |
if wantarray |
2823
|
0 |
2 |
unless ($self->state_user_is_operator($nick)) |
2827
|
0 |
2 |
if (not $count or $count < 1) |
2832
|
1 |
1 |
if ($args->[0] =~ /^\d+$/) |
2834
|
0 |
1 |
if $duration > 14400 |
2837
|
0 |
2 |
unless ($mask) |
2842
|
0 |
2 |
unless ($user and $host) |
2849
|
2 |
0 |
unless ($reason) |
2862
|
0 |
2 |
unless $self->_state_add_drkx_line('rkline', $full, time, $server, $duration * 60, $user, $host, $reason) |
2866
|
1 |
1 |
$duration ? : |
2883
|
0 |
2 |
if wantarray |
2896
|
0 |
1 |
unless ($self->state_user_is_operator($nick)) |
2900
|
0 |
1 |
if (not $count or $count < 1) |
2905
|
0 |
1 |
unless ($user and $host) |
2911
|
0 |
1 |
unless ($result) |
2931
|
0 |
1 |
if wantarray |
2945
|
0 |
4 |
unless ($self->state_user_is_operator($nick)) |
2949
|
0 |
4 |
if (not $count or $count < 1) |
2954
|
2 |
2 |
if ($args->[0] =~ /^\d+$/) |
2956
|
0 |
2 |
if $duration > 14400 |
2959
|
0 |
4 |
unless ($mask) |
2964
|
0 |
4 |
if (not $mask =~ /\@/) { } |
2965
|
0 |
0 |
if (my $rogue = $self->_state_user_full($mask)) { } |
2980
|
0 |
4 |
if ($args->[0] and uc $args->[0] eq 'ON' and scalar @$args < 2) |
2986
|
1 |
3 |
if ($args->[0] and uc $args->[0] eq 'ON') { } |
2993
|
4 |
0 |
if (matches_mask($target, $peer)) |
2994
|
1 |
3 |
if ($ucserver eq $peer) { } |
3022
|
4 |
0 |
if ($us) |
3023
|
3 |
1 |
unless $target |
3024
|
3 |
1 |
unless ($reason) |
3028
|
0 |
4 |
unless $self->_state_add_drkx_line('kline', $full, time, $server, $duration * 60, $user, $host, $reason) |
3040
|
2 |
2 |
$duration ? : |
3057
|
0 |
4 |
if wantarray |
3071
|
0 |
2 |
unless ($self->state_user_is_operator($nick)) |
3075
|
0 |
2 |
if (not $count or $count < 1) |
3080
|
0 |
2 |
if (not $args->[0] =~ /\@/) { } |
3081
|
0 |
0 |
if (my $rogue = $self->state_user_full($args->[0])) { } |
3096
|
0 |
1 |
if ($count > 1 and uc $args->[2] eq 'ON' and $count < 3) |
3100
|
0 |
2 |
if ($count > 1 and $args->[2] and uc $args->[2] eq 'ON') { } |
3104
|
0 |
0 |
if (matches_mask($target, $peer)) |
3105
|
0 |
0 |
if ($ucserver eq $peer) { } |
3128
|
0 |
2 |
unless $us |
3134
|
0 |
2 |
unless ($result) |
3152
|
0 |
2 |
if wantarray |
3166
|
0 |
6 |
unless ($self->state_user_is_operator($nick)) |
3170
|
0 |
6 |
if (not $count or $count < 2) |
3175
|
2 |
4 |
if ($args->[0] =~ /^\d+$/) |
3177
|
0 |
2 |
if $duration > 14400 |
3180
|
0 |
6 |
unless ($mask) |
3184
|
0 |
6 |
if ($args->[0] and uc $args->[0] eq 'ON' and scalar @$args < 2) |
3191
|
1 |
5 |
if ($args->[0] and uc $args->[0] eq 'ON') { } |
3197
|
4 |
0 |
if (matches_mask($peermask, $peer)) |
3198
|
1 |
3 |
if ($ucserver eq $peer) { } |
3224
|
0 |
6 |
unless $us |
3226
|
0 |
6 |
if ($self->_state_have_resv($mask)) |
3235
|
5 |
1 |
unless ($reason) |
3241
|
0 |
6 |
unless $self->_state_add_drkx_line('resv', $full, time, $server, $duration * 60, $mask, $reason) |
3251
|
2 |
4 |
$duration ? : |
3266
|
0 |
6 |
if wantarray |
3280
|
0 |
4 |
unless ($self->state_user_is_operator($nick)) |
3284
|
0 |
4 |
unless ($count) |
3289
|
0 |
1 |
if ($args->[0] and uc $args->[0] eq 'ON' and scalar @$args < 2) |
3295
|
1 |
3 |
if ($args->[0] and uc $args->[0] eq 'ON') { } |
3300
|
4 |
0 |
if (matches_mask($peermask, $peer)) |
3301
|
1 |
3 |
if ($ucserver eq $peer) { } |
3326
|
0 |
4 |
unless $us |
3330
|
0 |
4 |
unless ($result) |
3351
|
0 |
4 |
if wantarray |
3365
|
0 |
3 |
unless ($self->state_user_is_operator($nick)) |
3369
|
0 |
3 |
if (not $count or $count < 2) |
3374
|
2 |
1 |
if ($args->[0] =~ /^\d+$/) |
3376
|
0 |
2 |
if $duration > 14400 |
3379
|
0 |
3 |
unless ($mask) |
3383
|
0 |
3 |
if ($args->[0] and uc $args->[0] eq 'ON' and scalar @$args < 2) |
3390
|
1 |
2 |
if ($args->[0] and uc $args->[0] eq 'ON') { } |
3396
|
4 |
0 |
if (matches_mask($peermask, $peer)) |
3397
|
1 |
3 |
if ($ucserver eq $peer) { } |
3423
|
0 |
3 |
unless $us |
3425
|
2 |
1 |
unless ($reason) |
3431
|
0 |
3 |
unless $self->_state_add_drkx_line('xline', $full, time, $server, $duration * 60, $mask, $reason) |
3441
|
2 |
1 |
$duration ? : |
3457
|
0 |
3 |
if wantarray |
3471
|
0 |
2 |
unless ($self->state_user_is_operator($nick)) |
3475
|
0 |
2 |
unless ($count) |
3480
|
0 |
1 |
if ($args->[0] and uc $args->[0] eq 'ON' and scalar @$args < 2) |
3486
|
1 |
1 |
if ($args->[0] and uc $args->[0] eq 'ON') { } |
3491
|
4 |
0 |
if (matches_mask($peermask, $peer)) |
3492
|
1 |
3 |
if ($ucserver eq $peer) { } |
3517
|
0 |
2 |
unless $us |
3521
|
0 |
2 |
unless ($result) |
3542
|
0 |
2 |
if wantarray |
3556
|
0 |
3 |
unless ($self->state_user_is_operator($nick)) |
3560
|
0 |
3 |
if (not $count or $count < 2) |
3565
|
2 |
1 |
if ($args->[0] =~ /^\d+$/) |
3567
|
0 |
2 |
if $duration > 14400 |
3570
|
0 |
3 |
unless ($mask) |
3575
|
0 |
3 |
if (not $mask =~ /[:.]/ and $self->state_nick_exists($mask)) { } |
|
0 |
3 |
elsif (not $mask =~ /[:.]/ || $self->state_nick_exists($mask)) { } |
3577
|
0 |
0 |
unless ($uid =~ /^$sid/) |
3581
|
0 |
0 |
if ($self->{'state'}{'uids'}{$uid}{'umode'} =~ /o/ or $self->{'state'}{'uids'}{$uid}{'route_id'} eq 'spoofed') |
3593
|
3 |
0 |
unless ($netmask) |
3595
|
0 |
3 |
unless ($netmask) |
3600
|
0 |
3 |
if ($args->[0] and uc $args->[0] eq 'ON' and scalar @$args < 2) |
3607
|
1 |
2 |
if ($args->[0] and uc $args->[0] eq 'ON') { } |
3613
|
4 |
0 |
if (matches_mask($peermask, $peer)) |
3614
|
1 |
3 |
if ($ucserver eq $peer) { } |
3640
|
0 |
3 |
unless $us |
3642
|
2 |
1 |
unless ($reason) |
3648
|
0 |
3 |
unless $self->_state_add_drkx_line('dline', $full, time, $server, $duration * 60, $netmask, $reason) |
3662
|
2 |
1 |
$duration ? : |
3678
|
0 |
3 |
if wantarray |
3692
|
0 |
2 |
unless ($self->state_user_is_operator($nick)) |
3696
|
0 |
2 |
unless ($count) |
3701
|
0 |
1 |
if ($args->[0] and uc $args->[0] eq 'ON' and scalar @$args < 2) |
3707
|
1 |
1 |
if ($args->[0] and uc $args->[0] eq 'ON') { } |
3712
|
4 |
0 |
if (matches_mask($peermask, $peer)) |
3713
|
1 |
3 |
if ($ucserver eq $peer) { } |
3738
|
0 |
2 |
unless $us |
3742
|
0 |
2 |
unless ($result) |
3769
|
0 |
2 |
if wantarray |
3777
|
0 |
0 |
$self->{'config'}{'hidden_servers'} ? : |
3783
|
0 |
0 |
unless ($self->state_user_is_operator($nick)) |
3787
|
0 |
0 |
unless ($count) |
3791
|
0 |
0 |
if ($self->state_peer_exists($args->[0])) |
3795
|
0 |
0 |
unless ($self->state_nick_exists($args->[0])) |
3803
|
0 |
0 |
if ($self->_state_is_local_user($target)) { } |
3825
|
0 |
0 |
if ($route_id eq 'spoofed') { } |
3855
|
0 |
0 |
if wantarray |
3872
|
0 |
4 |
if ($count > 1) |
3874
|
0 |
0 |
unless ($targ) |
3885
|
0 |
0 |
unless ($targ =~ /^$sid/) |
3901
|
4 |
0 |
if ($args->[0]) |
3903
|
0 |
4 |
unless ($targ) |
3914
|
2 |
2 |
unless ($targ =~ /^$sid/) |
3917
|
2 |
0 |
if (length $targ == 3) { } |
3949
|
1 |
1 |
$cmd eq 'ETRACE' ? : |
3952
|
4 |
0 |
if wantarray |
3965
|
0 |
3 |
if ($self->state_nick_exists($targ)) |
3968
|
0 |
3 |
if (not $result and $self->state_peer_exists($targ)) |
3971
|
3 |
0 |
if (not $result and $targ =~ /[\x2A\x3F]/) |
3973
|
1 |
8 |
if (matches_mask($targ, $peer, 'ascii')) |
3974
|
0 |
1 |
if $ume eq $peer |
3977
|
0 |
0 |
if $connid and $connid eq $peerrec->{'route_id'} and $peerrec->{'type'} eq 'r' |
3982
|
2 |
1 |
unless ($result) |
3984
|
2 |
8 |
if (matches_mask($targ, $user)) |
3986
|
0 |
2 |
if $rec->{'uid'} =~ /^$sid/ |
3988
|
0 |
0 |
if $connid and $connid eq $rec->{'route_id'} and $self->{'state'}{'sids'}{$rec->{'sid'}}{'type'} eq 'r' |
3995
|
3 |
0 |
if $result |
4011
|
2 |
4 |
unless ($self->state_user_is_operator($nick)) |
4012
|
1 |
1 |
if ($cmd eq 'ETRACE') |
4025
|
0 |
4 |
if ($count > 1) |
4027
|
0 |
0 |
unless ($targ) |
4031
|
0 |
0 |
unless ($targ =~ /^$sid/) |
4048
|
2 |
2 |
if ($args->[0]) |
4050
|
0 |
2 |
unless ($targ) |
4054
|
2 |
0 |
unless ($targ =~ /^$sid/) |
4057
|
0 |
2 |
if (length $targ == 3) { } |
4089
|
1 |
1 |
$cmd eq 'ETRACE' ? : |
4093
|
6 |
0 |
if wantarray |
4120
|
1 |
1 |
if (not $args->[0]) { } |
|
0 |
1 |
elsif (uc $args->[0] eq uc $server) { } |
|
1 |
0 |
elsif ($args->[0] eq $sid) { } |
4130
|
1 |
1 |
if ($name and $name =~ /^[0-9]/) |
4133
|
0 |
2 |
if $name |
4138
|
6 |
6 |
if $conns->{$conn_id}{'type'} ne 'c' |
4139
|
2 |
4 |
if defined $self->{'state'}{'localops'}{$conn_id} |
4144
|
0 |
4 |
if not $doall or $name and $name ne uc_irc($conns->{$conn_id}{'nick'}) |
4162
|
0 |
2 |
if not $doall or $name and $name ne uc_irc($conns->{$conn_id}{'nick'}) |
4188
|
0 |
2 |
if wantarray |
4215
|
1 |
1 |
if (not $args->[0]) { } |
|
0 |
1 |
elsif (uc $args->[0] eq uc $server) { } |
|
1 |
0 |
elsif ($args->[0] eq $sid) { } |
4225
|
1 |
1 |
if ($name and $name =~ /^[0-9]/) |
4228
|
0 |
2 |
if $name |
4233
|
2 |
10 |
if defined $self->{'state'}{'localops'}{$conn_id} |
4238
|
0 |
4 |
if not $doall or $name and $name ne uc_irc($conns->{$conn_id}{'nick'}) |
4257
|
0 |
2 |
if not $doall or $name and $name ne uc_irc($conns->{$conn_id}{'nick'}) |
4277
|
0 |
4 |
if not $doall or $name and $name ne uc_irc($conns->{$conn_id}{'name'}) |
4301
|
0 |
2 |
unless $doall |
4318
|
2 |
0 |
if ($doall) |
4319
|
2 |
0 |
defined $connects{'c'} ? : |
4320
|
2 |
0 |
defined $self->{'state'}{'localops'} ? : |
4321
|
2 |
0 |
defined $connects{'p'} ? : |
4324
|
2 |
0 |
if ($servers) |
4335
|
2 |
0 |
if ($opers) |
4346
|
2 |
0 |
if ($users) |
4368
|
0 |
2 |
if wantarray |
4394
|
0 |
23 |
unless ($new) |
4399
|
0 |
23 |
if length $new > $nicklen |
4400
|
2 |
21 |
if ($nick eq $new) |
4403
|
0 |
21 |
unless (is_valid_nick_name($new)) |
4409
|
1 |
20 |
if (my $reason = $self->_state_is_resv($new, $record->{'route_id'})) |
4431
|
0 |
20 |
if ($self->state_nick_exists($new) and $unick ne $unew) |
4441
|
2 |
2 |
if ($chanrec->{'mode'} =~ /N/) |
4442
|
2 |
0 |
unless ($record->{'chans'} =~ /[oh]/) |
4448
|
0 |
4 |
unless $user =~ /^$sid/ |
4453
|
2 |
18 |
if ($nonickchange) |
4459
|
0 |
18 |
if ($lastattempt and $lastattempt + $self->{'config'}{'max_nick_time'} < time) |
4463
|
1 |
17 |
if ($self->{'config'}{'anti_nick_flood'} and not $record->{'umode'} =~ /o/ and $record->{'_nick_count'} and $record->{'_nick_count'} >= $self->{'config'}{'max_nick_changes'}) |
4472
|
0 |
17 |
if ($unick eq $unew) { } |
4485
|
1 |
16 |
if (defined $self->{'state'}{'watches'}{$unick}) |
4487
|
0 |
1 |
unless defined $self->{'state'}{'uids'}{$wuid} |
4508
|
1 |
16 |
if (defined $self->{'state'}{'watches'}{$unew}) |
4510
|
0 |
1 |
unless defined $self->{'state'}{'uids'}{$wuid} |
4533
|
1 |
16 |
if ($record->{'umode'} =~ /r/) |
4590
|
23 |
0 |
if wantarray |
4603
|
2 |
3 |
unless ($msg) |
4639
|
5 |
0 |
if wantarray |
4652
|
0 |
6 |
if ($target and not $self->state_peer_exists($target)) |
4656
|
0 |
6 |
if ($target and uc $server ne uc $target) |
4668
|
3 |
3 |
if ($cmd =~ /^(ADMIN|INFO|MOTD)$/i) |
4682
|
6 |
0 |
if wantarray |
4696
|
0 |
5 |
if ($cmd ne 'STATS' and not $args->[0] =~ /^$sid/) |
4707
|
0 |
5 |
if ($cmd eq 'STATS' and not $args->[1] =~ /^$sid/) |
4718
|
3 |
2 |
if ($cmd =~ /^(ADMIN|INFO|MOTD)$/i) |
4731
|
5 |
0 |
if wantarray |
4749
|
2061 |
458 |
defined $self->{'config'}{'isupport'}{$_} ? : |
4766
|
1374 |
229 |
defined $self->{'config'}{'isupport'}{$_} ? : |
4774
|
0 |
229 |
if wantarray |
4800
|
0 |
2 |
if wantarray |
4823
|
0 |
2 |
if wantarray |
4860
|
0 |
2 |
if wantarray |
4870
|
0 |
0 |
if wantarray |
4892
|
0 |
3 |
if wantarray |
4903
|
6 |
223 |
$hidden ? : |
4904
|
6 |
223 |
$hidden ? : |
4926
|
229 |
0 |
if wantarray |
4939
|
0 |
2 |
if ($count and $count > 1) |
4941
|
0 |
0 |
unless ($target) |
4947
|
0 |
0 |
if ($targsid ne $sid) |
4967
|
2 |
0 |
if wantarray |
4980
|
0 |
0 |
if (not $count or $count < 2) |
4984
|
0 |
0 |
unless ($target) |
4989
|
0 |
0 |
if ($targsid ne $sid) |
5003
|
0 |
0 |
if wantarray |
5015
|
6 |
223 |
$hidden ? : |
5017
|
6 |
223 |
$hidden ? : |
5018
|
6 |
223 |
$hidden ? : |
5043
|
165 |
64 |
if $self->{'state'}{'stats'}{'ops_online'} |
5045
|
61 |
168 |
if $chans |
5059
|
223 |
6 |
unless $hidden |
5068
|
0 |
229 |
if wantarray |
5081
|
2 |
227 |
if ($motd and ref $motd eq 'ARRAY') { } |
5107
|
0 |
229 |
if wantarray |
5121
|
0 |
22 |
unless ($char) |
5126
|
21 |
1 |
unless ($self->state_user_is_operator($nick)) |
5129
|
1 |
17 |
if ($lastuse and $pacewait and $lastuse + $pacewait > time) |
5135
|
2 |
19 |
if ($char =~ /^[Ll]$/ and not $target) |
5139
|
1 |
18 |
if ($target) |
5141
|
0 |
1 |
unless ($targ) |
5145
|
1 |
0 |
unless ($targ =~ /^$sid/) |
5166
|
22 |
0 |
if wantarray |
5173
|
0 |
4 |
unless defined $bytes |
5174
|
2 |
2 |
if abs $bytes <= 1000 |
5175
|
2 |
0 |
if abs $bytes < 1024000 |
5176
|
0 |
0 |
if abs $bytes < 1048576000 |
5177
|
0 |
0 |
if abs $bytes < 1073741824000 |
5178
|
0 |
0 |
if abs $bytes < 1099511627776000 |
5209
|
17 |
1 |
if ($char =~ /$perms{'admin'}/ and not $is_admin or $char =~ /$perms{'oper'}/ and not $is_oper) |
5221
|
0 |
1 |
if ($char =~ /^[aA]$/) |
5235
|
0 |
1 |
if ($char =~ /^[cC]$/) |
5239
|
0 |
0 |
if $cblk->{'auto'} |
5240
|
0 |
0 |
if $cblk->{'ssl'} |
5241
|
0 |
0 |
unless length $feat |
5258
|
0 |
1 |
if ($char eq 's') |
5276
|
0 |
1 |
if ($char eq 'S') |
5291
|
0 |
1 |
if ($char =~ /^[Dd]$/) |
5294
|
0 |
0 |
if $tdline and not $dline->{'duration'} |
5295
|
0 |
0 |
if not $tdline and $dline->{'duration'} |
5307
|
0 |
1 |
if ($char eq 'e') |
5320
|
0 |
1 |
if ($char =~ /^[Xx]$/) |
5323
|
0 |
0 |
if $txline and not $xline->{'duration'} |
5324
|
0 |
0 |
if not $txline and $xline->{'duration'} |
5336
|
0 |
1 |
if ($char =~ /^[Kk]$/) |
5339
|
0 |
0 |
if $tkline and not $kline->{'duration'} |
5340
|
0 |
0 |
if not $tkline and $kline->{'duration'} |
5353
|
0 |
1 |
if ($char eq 'v') |
5360
|
0 |
0 |
if $peer->{'auto'} |
5361
|
0 |
0 |
if $peer->{'type'} ne 'r' |
5386
|
0 |
1 |
if ($char eq 'P') |
5398
|
0 |
0 |
$is_admin ? : |
|
0 |
0 |
$lrec->{'usessl'} ? : |
5405
|
0 |
1 |
if ($char eq 'u') |
5439
|
0 |
1 |
if ($char =~ /^[mM]$/) |
5454
|
0 |
1 |
if ($char eq 'p') |
5459
|
0 |
0 |
if $record->{'umode'} =~ /H/ and not $is_oper |
5481
|
0 |
1 |
if ($char =~ /^[Oo]$/) |
5485
|
0 |
0 |
if ($orec->{'ipmask'}) |
5486
|
0 |
0 |
if (ref $orec->{'ipmask'} eq 'ARRAY') { } |
5506
|
0 |
1 |
if ($char =~ /^[Qq]$/) |
5509
|
0 |
0 |
if ($mask =~ /^\#/) { } |
5525
|
0 |
0 |
$resv->{'duration'} ? : |
5530
|
0 |
1 |
if ($char =~ /^[Ll]$/) |
5532
|
0 |
0 |
if (uc $targ eq uc $server) { } |
|
0 |
0 |
elsif ($targ eq $sid) { } |
5539
|
0 |
0 |
if (not $doall and $name =~ /^[0-9]/) |
5548
|
0 |
0 |
$doall ? : |
5567
|
0 |
0 |
$char eq 'L' ? : |
|
0 |
0 |
time > $connrec->{'seen'} ? : |
5575
|
0 |
0 |
unless $doall or matches_mask($name, $conns->{$conn_id}{'nick'}) |
5594
|
0 |
0 |
$char eq 'L' ? : |
|
0 |
0 |
time > $connrec->{'seen'} ? : |
5602
|
0 |
0 |
unless $doall or matches_mask($name, $conns->{$conn_id}{'name'}) |
5622
|
0 |
0 |
$char eq 'L' ? : |
|
0 |
0 |
time > $connrec->{'seen'} ? : |
5629
|
1 |
0 |
if ($char eq '?') |
5649
|
0 |
2 |
time > $srec->{'seen'} ? : |
5682
|
1 |
0 |
$uptime == 0 ? : |
5695
|
1 |
0 |
$uptime == 0 ? : |
5710
|
0 |
18 |
if wantarray |
5723
|
0 |
3 |
if $cnt >= 5 |
5726
|
0 |
3 |
unless $uid |
5729
|
1 |
2 |
if ($nick eq $name) |
5733
|
1 |
0 |
if ($urec->{'umode'} =~ /o/ and !($urec->{'umode'} =~ /H/) || $self->state_user_is_operator($nick)) |
5738
|
0 |
3 |
defined $urec->{'away'} ? : |
5743
|
1 |
0 |
$str ? : |
5749
|
1 |
0 |
if wantarray |
5762
|
0 |
0 |
unless ($count) |
5771
|
0 |
0 |
$string =~ /\s+/ ? : |
5778
|
0 |
0 |
if wantarray |
5786
|
1 |
129 |
unless $mask |
5789
|
7 |
122 |
if ($start) { } |
5804
|
6 |
116 |
unless ($chan) |
5818
|
0 |
116 |
unless defined $self->{'state'}{'chans'}{$chan} |
5819
|
30 |
86 |
if ($mask->{'all'}) |
5823
|
0 |
86 |
if ($mask->{'hide'}) |
5825
|
0 |
0 |
if keys %$match |
5828
|
30 |
56 |
if ($mask->{'show'}) |
5830
|
8 |
22 |
if (keys %$match) { } |
5838
|
28 |
36 |
if ($mask->{'users_max'} or $mask->{'users_min'}) |
5840
|
0 |
28 |
if ($mask->{'users_max'}) |
5841
|
0 |
0 |
if ($usercnt > $mask->{'users_max'}) { } |
5848
|
28 |
0 |
if ($mask->{'users_min'}) |
5849
|
6 |
22 |
if ($usercnt < $mask->{'users_min'}) { } |
5857
|
0 |
64 |
if ($mask->{'create_max'} or $mask->{'create_min'}) |
5859
|
0 |
0 |
if ($mask->{'create_max'}) |
5860
|
0 |
0 |
if ($chants > $mask->{'create_max'}) { } |
5867
|
0 |
0 |
if ($mask->{'create_min'}) |
5868
|
0 |
0 |
if ($chants < $mask->{'create_min'}) { } |
5876
|
28 |
36 |
if ($mask->{'topic_max'} or $mask->{'topic_min'} or $mask->{'topic_msk'}) |
5878
|
24 |
4 |
if (not $chantopic) { } |
5882
|
0 |
4 |
if ($mask->{'topic_max'}) |
5883
|
0 |
0 |
if ($mask->{'topic_max'} > $chantopic->[2]) { } |
5890
|
0 |
4 |
if ($mask->{'topic_min'}) |
5891
|
0 |
0 |
if ($mask->{'topic_min'} < $chantopic->[2]) { } |
5898
|
4 |
0 |
if ($mask->{'topic_msk'}) |
5899
|
2 |
2 |
if (matches_mask($mask->{'topic_msk'}, $chantopic->[0], 'ascii')) { } |
5910
|
2 |
44 |
if ($show and $hidden and not defined $client->{'chans'}{$chan}) |
5913
|
44 |
72 |
if ($show) |
5916
|
10 |
34 |
if (defined $chanrec->{'topic'}) |
5950
|
3 |
5 |
if (not $count) { } |
5951
|
1 |
2 |
if ($rec->{'safelist'}) |
5964
|
1 |
4 |
if ($opt =~ /^T/i) |
5965
|
0 |
0 |
unless ($opt =~ /^T:/i or $opt =~ /^T[<>]\d+$/i) |
5970
|
0 |
1 |
if ($act eq '<') { } |
|
0 |
1 |
elsif ($act eq '>') { } |
5981
|
0 |
4 |
if ($opt =~ /^C/i) |
5982
|
0 |
0 |
unless ($opt =~ /^C[<>]\d+$/i) |
5987
|
0 |
0 |
if ($act eq '<') { } |
5995
|
1 |
3 |
if ($opt =~ /^\) |
5996
|
0 |
1 |
unless ($opt =~ /^\<\d+$/) |
6004
|
0 |
3 |
if ($opt =~ /^\>/) |
6005
|
0 |
0 |
unless ($opt =~ /^\>\d+$/) |
6014
|
0 |
2 |
unless ($opt =~ /[\x2A\x3F]/ or $opt =~ /^[#&]/) |
6018
|
0 |
3 |
if ($hide) { } |
6026
|
0 |
7 |
if ($errors) |
6034
|
8 |
0 |
if wantarray |
6049
|
0 |
110 |
unless ($count) |
6054
|
0 |
110 |
if ($count and not $last =~ /^[#&]/ and not $self->state_peer_exists($last)) |
6059
|
0 |
110 |
if ($count and !($last =~ /^[#&]/) & uc $last ne uc $server) |
6070
|
0 |
110 |
if ($count and not $last =~ /^[#&]/ and @$args == 0) |
6074
|
0 |
110 |
if ($count and not $last =~ /^[#&]/ and @$args == 1) |
6077
|
110 |
0 |
if ($count and $last =~ /^[#&]/) |
6079
|
110 |
0 |
if $_ and $self->state_chan_exists($_) |
6084
|
110 |
0 |
if ($chan) { } |
6096
|
14 |
96 |
if $self->{'state'}{'uids'}{$uid}{'caps'}{'multi-prefix'} |
6098
|
6 |
104 |
$self->{'state'}{'uids'}{$uid}{'caps'}{'userhost-in-names'} ? : |
6103
|
0 |
110 |
if $record->{'mode'} =~ /s/ |
6104
|
0 |
110 |
if $record->{'mode'} =~ /p/ |
6109
|
0 |
193 |
if (length(join ' ', $buffer, $name) + $length > 510) |
6118
|
83 |
110 |
if ($buffer) { } |
6138
|
110 |
0 |
if wantarray |
6150
|
0 |
0 |
unless ($first or $second) |
6154
|
5 |
1 |
if (not $second and $first) |
6158
|
6 |
0 |
if ($first and $second) |
6161
|
1 |
5 |
if (uc_irc($first) eq uc_irc($second) and $self->state_nick_exists($second)) |
6167
|
0 |
6 |
unless $second |
6168
|
6 |
0 |
if $second |
6169
|
1 |
5 |
if $second and uc $first ne uc $server |
6170
|
0 |
6 |
if ($target and not $self->state_peer_exists($target)) |
6174
|
1 |
5 |
if ($target) |
6177
|
0 |
6 |
if (not $self->state_nick_exists($query)) { } |
6183
|
1 |
5 |
if ($target) |
6185
|
1 |
0 |
if ($who =~ /^$tsid/) |
6208
|
6 |
0 |
if wantarray |
6222
|
1 |
1 |
unless ($targ =~ /^$sid/) |
6240
|
2 |
0 |
if wantarray |
6271
|
0 |
6 |
if $noshow |
6272
|
0 |
6 |
if ($self->{'state'}{'chans'}{$chan}{'mode'} =~ /[ps]/ and not defined $self->{'state'}{'chans'}{$chan}{'users'}{$uid}) |
6277
|
6 |
0 |
if $record->{'chans'}{$chan} =~ /o/ |
6278
|
0 |
6 |
if $record->{'chans'}{$chan} =~ /h/ |
6279
|
0 |
6 |
if $record->{'chans'}{$chan} =~ /v/ |
6282
|
6 |
0 |
if (@chans) |
6288
|
0 |
6 |
if (length(join ' ', $buffer, $chan) + $length > 510) |
6297
|
0 |
6 |
if ($buffer) { } |
6319
|
2 |
4 |
$hidden ? : |
|
2 |
4 |
$hidden ? : |
6331
|
0 |
6 |
if $record->{'umode'} =~ /r/ |
6342
|
4 |
2 |
if $record->{'account'} ne '*' |
6352
|
0 |
2 |
if $record->{'type'} eq 'c' and $record->{'away'} |
6353
|
6 |
0 |
if (not $record->{'umode'} =~ /H/ or $querier->{'umode'} =~ /o/) |
6355
|
1 |
5 |
if ($record->{'svstags'}{'313'}) { } |
6359
|
0 |
5 |
if $self->_state_sid_serv($record->{'sid'}) |
6360
|
3 |
2 |
if $record->{'umode'} =~ /a/ and not $operstring |
6361
|
0 |
5 |
if $record->{'umode'} =~ /o/ and not $operstring |
6366
|
4 |
2 |
if $operstring |
6369
|
2 |
0 |
if ($record->{'type'} eq 'c' and $uid eq $query || $querier->{'umode'} =~ /o/) |
6381
|
1 |
1 |
if ($record->{'type'} eq 'c' and $self->server_config('whoisactually') || $self->{'state'}{'uids'}{$uid}{'umode'} =~ /o/) |
6396
|
2 |
4 |
if ($record->{'type'} eq 'c') |
6407
|
0 |
0 |
if not $record->{'umode'} =~ /q/ or $querier->{'umode'} =~ /o/ or $uid eq $query |
6415
|
4 |
2 |
if ($record->{'umode'} =~ /y/ and $uid ne $query) |
6431
|
0 |
4 |
$local ? : |
|
0 |
4 |
$local ? : |
6433
|
0 |
6 |
if wantarray |
6447
|
0 |
3 |
unless ($args->[0]) |
6451
|
3 |
0 |
unless ($self->state_user_is_operator($nick)) |
6454
|
0 |
0 |
if ($lastuse and $pacewait and $lastuse + $pacewait > time) |
6461
|
0 |
3 |
if ($args->[2]) |
6463
|
0 |
0 |
unless ($targ) |
6467
|
0 |
0 |
unless ($targ =~ /^$sid/) |
6487
|
3 |
0 |
if wantarray |
6502
|
1 |
1 |
unless ($targ =~ /^$sid/) |
6520
|
2 |
0 |
if wantarray |
6536
|
1 |
0 |
if (not $uid =~ /^$sid/ and !$max || $max < 0 || $max > 20) |
6539
|
1 |
3 |
unless ($self->{'state'}{'whowas'}{uc_irc($query)}) |
6566
|
20 |
6 |
if $is_oper |
6578
|
26 |
0 |
if $was->{'account'} ne '*' |
6587
|
3 |
23 |
$self->{'config'}{'hidden_servers'} && !$is_oper ? : |
6591
|
1 |
25 |
if $max and $cnt >= $max |
6601
|
0 |
4 |
if wantarray |
6614
|
0 |
6 |
unless ($who) |
6618
|
6 |
0 |
if ($self->state_chan_exists($who) and $self->state_is_chan_member($nick, $who)) |
6635
|
0 |
15 |
$memrec->{'away'} ? : |
6636
|
0 |
15 |
if $memrec->{'umode'} =~ /o/ |
6639
|
6 |
9 |
if ($stat) |
6640
|
2 |
4 |
if (not $multiprefix) { } |
6641
|
2 |
0 |
if $stat =~ /o/ |
6642
|
0 |
2 |
if $stat =~ /h/ |
6658
|
0 |
6 |
if ($self->state_nick_exists($who)) |
6670
|
0 |
0 |
$nickrec->{'away'} ? : |
6671
|
0 |
0 |
if $nickrec->{'umode'} =~ /o/ |
6684
|
6 |
0 |
if wantarray |
6700
|
0 |
54 |
unless ($self->state_chan_exists($chan)) |
6708
|
0 |
13 |
unless ($count or $self->state_is_chan_member($nick, $chan)) |
6723
|
13 |
41 |
unless ($count) |
6759
|
0 |
60 |
unless ($mode =~ /[CceIbkMNRSTLOlimnpstohuv]/) |
6760
|
0 |
0 |
unless $unknown |
6770
|
45 |
15 |
if ($mode =~ /^(\+[ohvklbIe]|-[ohvbIe])/) |
6773
|
2 |
58 |
if ($mode =~ /[-+]b/ and not defined $arg) |
6790
|
1 |
57 |
if ($mode =~ /[OL]/ and not $nick_is_oper) |
6791
|
1 |
0 |
unless $notoper |
6795
|
0 |
0 |
unless ($nick_is_op or $nick_is_hop or $mode =~ /[OL]/) |
6796
|
0 |
0 |
unless $notop |
6800
|
0 |
57 |
if ($mode =~ /[-+]I/ and not defined $arg) |
6817
|
0 |
57 |
if ($mode =~ /[-+]e/ and not defined $arg) |
6834
|
0 |
0 |
if (not $nick_is_op and $nick_is_hop and $mode =~ /[op]/) |
6835
|
0 |
0 |
unless $notop |
6839
|
0 |
0 |
if (not $nick_is_op and $nick_is_hop and $record->{'mode'} =~ /p/ and $mode =~ /h/) |
6841
|
0 |
0 |
unless $notop |
6845
|
0 |
57 |
if ($mode =~ /^[-+][ohv]/ || $mode =~ /^\+[lk]/ and not defined $arg) |
6849
|
0 |
57 |
if ($mode =~ /^[-+][ohv]/ and not $self->state_nick_exists($arg)) |
6850
|
0 |
0 |
if ++$mode_count > $maxmodes |
6854
|
0 |
57 |
if ($mode =~ /^[-+][ohv]/ and not $self->state_is_chan_member($arg, $chan)) |
6856
|
0 |
0 |
if ++$mode_count > $maxmodes |
6860
|
42 |
15 |
if (my($flag, $char) = $mode =~ /^([-+])([ohv])/) |
6861
|
0 |
42 |
if ++$mode_count > $maxmodes |
6863
|
30 |
12 |
if ($flag eq '+' and not $record->{'users'}{$self->state_user_uid($arg)} =~ /$char/) |
6877
|
0 |
42 |
if ($flag eq '-' and $record->{'users'}{uc_irc($arg)} =~ /$char/) |
6891
|
0 |
0 |
if ($mode eq '+l' and $arg =~ /^\d+$/ and $arg > 0) |
6892
|
0 |
0 |
if ++$mode_count > $maxmodes |
6895
|
0 |
0 |
unless ($record->{'mode'} =~ /l/) |
6902
|
0 |
15 |
if ($mode eq '-l' and $record->{'mode'} =~ /l/) |
6908
|
0 |
15 |
if ($mode eq '+k' and $arg) |
6909
|
0 |
0 |
if ++$mode_count > $maxmodes |
6912
|
0 |
0 |
unless ($record->{'mode'} =~ /k/) |
6919
|
0 |
15 |
if ($mode eq '-k' and $record->{'mode'} =~ /k/) |
6927
|
0 |
15 |
$record->{'mode'} =~ /L/ ? : |
6928
|
1 |
14 |
if (my($flag) = $mode =~ /([-+])b/) |
6929
|
0 |
1 |
if ++$mode_count > $maxmodes |
6932
|
1 |
0 |
if ($flag eq '+' and not $record->{'bans'}{$umask}) |
6933
|
0 |
1 |
if (keys %{$$record{'bans'};} >= $maxbans) |
6942
|
0 |
0 |
if ($flag eq '-' and $record->{'bans'}{$umask}) |
6950
|
0 |
14 |
if (my($flag) = $mode =~ /([-+])I/) |
6951
|
0 |
0 |
if ++$mode_count > $maxmodes |
6955
|
0 |
0 |
if ($flag eq '+' and not $record->{'invex'}{$umask}) |
6956
|
0 |
0 |
if (keys %{$$record{'invex'};} >= $maxbans) |
6965
|
0 |
0 |
if ($flag eq '-' and $record->{'invex'}{$umask}) |
6973
|
0 |
14 |
if (my($flag) = $mode =~ /([-+])e/) |
6974
|
0 |
0 |
if ++$mode_count > $maxmodes |
6978
|
0 |
0 |
if ($flag eq '+' and not $record->{'excepts'}{$umask}) |
6979
|
0 |
0 |
if (keys %{$$record{'excepts'};} >= $maxbans) |
6988
|
0 |
0 |
if ($flag eq '-' and $record->{'excepts'}{$umask}) |
6997
|
11 |
3 |
if ($flag eq '+' and not $record->{'mode'} =~ /$char/) |
7003
|
3 |
0 |
if ($flag eq '-' and $record->{'mode'} =~ /$char/) |
7010
|
32 |
9 |
if ($reply) |
7013
|
30 |
1 |
defined $subs{$_} ? : |
7033
|
2 |
30 |
$mode_u_set ? : |
7039
|
2 |
30 |
if ($mode_u_set) |
7044
|
1 |
1 |
if $bmode =~ /^(\+[ohvklbIe]|-[ohvbIe])/ |
7046
|
1 |
1 |
if $bmode =~ /^[+-][beI]$/ |
7048
|
0 |
1 |
if $arg |
7050
|
1 |
1 |
if ($breply) |
7071
|
54 |
0 |
if wantarray |
7089
|
0 |
117 |
unless ($count) |
7095
|
0 |
117 |
if $args->[1] |
7101
|
0 |
117 |
if ($channel eq '0' and my(@chans) = $self->state_user_chans($nick)) |
7106
|
0 |
0 |
ref $_ eq 'ARRAY' ? : |
7110
|
0 |
117 |
if (not is_valid_chan_name($channel) or length $channel > $channel_length) |
7120
|
0 |
117 |
if ($self->state_user_chans($nick) >= $self->server_config('MAXCHANNELS') and not $nick_is_oper) |
7131
|
1 |
116 |
if (my $reason = $self->_state_is_resv($channel, $route_id)) |
7132
|
1 |
0 |
unless ($nick_is_oper) |
7152
|
56 |
60 |
unless ($self->state_chan_exists($channel)) |
7170
|
56 |
0 |
unless $channel =~ /^&/ |
7197
|
0 |
112 |
ref $_ eq 'ARRAY' ? : |
7201
|
0 |
60 |
if ($self->state_is_chan_member($nick, $channel)) |
7206
|
0 |
2 |
if ($nick_is_oper and $self->{'config'}{'OPHACKS'}) |
7210
|
0 |
60 |
if ($chanrec->{'mode'} =~ /O/ and not $nick_is_oper) |
7216
|
1 |
59 |
if ($chanrec->{'mode'} =~ /S/ and not $umode =~ /S/) |
7221
|
2 |
57 |
if ($chanrec->{'mode'} =~ /R/ and not $umode =~ /r/) |
7226
|
0 |
57 |
if (not $bypass and $chanrec->{'mode'} =~ /l/ and keys %{$$chanrec{'users'};} >= $chanrec->{'climit'}) |
7232
|
0 |
57 |
if $chanrec->{'mode'} =~ /k/ |
7234
|
0 |
0 |
if (not $bypass and $chanrec->{'mode'} =~ /k/ and !$chankey || $chankey ne $chanrec->{'ckey'}) |
7240
|
3 |
54 |
if (not $bypass and $chanrec->{'mode'} =~ /i/ and not $self->_state_user_invited($nick, $channel)) |
7246
|
0 |
54 |
if (not $bypass and $self->_state_user_banned($nick, $channel)) |
7251
|
52 |
2 |
unless $nick_is_oper |
7252
|
52 |
2 |
unless $nick_is_oper |
7264
|
54 |
0 |
unless $channel =~ /^&/ |
7291
|
0 |
108 |
ref $_ eq 'ARRAY' ? : |
7295
|
0 |
54 |
ref $_ eq 'ARRAY' ? : |
7297
|
1 |
53 |
if ($self->{'state'}{'uids'}{$uid}{'away'}) |
7303
|
116 |
1 |
if wantarray |
7317
|
0 |
8 |
unless ($chan) |
7321
|
0 |
8 |
unless ($self->state_chan_exists($chan)) |
7325
|
0 |
8 |
unless ($self->state_is_chan_member($nick, $chan)) |
7337
|
0 |
8 |
if ($pmsg and my $msgtime = $self->{'config'}{'anti_spam_exit_message_time'}) |
7338
|
0 |
0 |
if time - $urec->{'conn_time'} < $msgtime |
7341
|
0 |
8 |
if ($pmsg and not $self->state_can_send_to_channel($nick, $chan, $pmsg, 'PART')) |
7345
|
6 |
2 |
if $pmsg |
7347
|
7 |
1 |
unless $urec->{'umode'} =~ /o/ |
7369
|
5 |
3 |
unless (keys %{$$self{'state'}{'chans'}{$chan}{'users'};}) |
7374
|
8 |
0 |
if wantarray |
7387
|
0 |
7 |
if (not $count or $count < 2) |
7393
|
0 |
7 |
unless ($self->state_chan_exists($chan)) |
7398
|
0 |
6 |
unless ($self->state_is_chan_op($nick, $chan) or $self->state_is_chan_hop($nick, $chan)) |
7402
|
0 |
7 |
unless ($self->state_nick_exists($who)) |
7407
|
3 |
4 |
unless ($self->state_is_chan_member($who, $chan)) |
7411
|
3 |
0 |
if ($self->state_is_chan_hop($nick, $chan) and not $self->state_is_chan_op($nick, $chan) and $self->state_is_chan_op($who, $chan)) |
7441
|
0 |
1 |
unless (keys %{$$self{'state'}{'chans'}{$chan}{'users'};}) |
7446
|
7 |
0 |
if wantarray |
7459
|
0 |
3 |
if (not $count or $count < 2) |
7465
|
0 |
3 |
unless ($self->state_chan_exists($chan)) |
7470
|
0 |
2 |
unless ($self->state_is_chan_op($nick, $chan) or $self->state_is_chan_hop($nick, $chan)) |
7474
|
0 |
3 |
unless ($self->state_nick_exists($who)) |
7479
|
1 |
2 |
unless ($self->state_is_chan_member($who, $chan)) |
7483
|
1 |
0 |
if ($self->state_is_chan_hop($nick, $chan) and not $self->state_is_chan_op($nick, $chan) and $self->state_is_chan_op($who, $chan)) |
7492
|
1 |
0 |
if $args->[2] |
7513
|
0 |
1 |
unless (keys %{$$self{'state'}{'chans'}{$chan}{'users'};}) |
7518
|
3 |
0 |
if wantarray |
7532
|
0 |
0 |
if (not $count or $count < 2) |
7537
|
0 |
0 |
unless ($self->state_nick_exists($who)) |
7542
|
0 |
0 |
unless ($self->state_chan_exists($chan)) |
7547
|
0 |
0 |
unless ($self->state_is_chan_member($nick, $chan)) |
7551
|
0 |
0 |
if ($self->state_is_chan_member($who, $chan)) |
7555
|
0 |
0 |
if ($self->state_chan_mode_set($chan, 'i') and not $self->state_is_chan_op($nick, $chan) && $self->state_is_chan_hop($nick, $chan)) |
7565
|
0 |
0 |
if ($self->state_chan_mode_set($chan, 'i')) |
7567
|
0 |
0 |
if ($self->_state_is_local_uid($wuid)) |
7583
|
0 |
0 |
if ($route_id eq 'spoofed') { } |
|
0 |
0 |
elsif ($local) { } |
7610
|
0 |
0 |
if ($invite_only) |
7628
|
0 |
0 |
if (defined $away) |
7637
|
0 |
0 |
if wantarray |
7650
|
2 |
229 |
if (not $count) { } |
7667
|
229 |
0 |
unless $record->{'umode'} =~ /o/ |
7669
|
1 |
228 |
if $cnt |
7678
|
0 |
228 |
if $mode eq '+o' |
7680
|
228 |
0 |
if ($action eq '+' and not $record->{'umode'} =~ /$char/) |
7682
|
227 |
1 |
if ($char eq 'i') |
7686
|
0 |
228 |
if ($char eq 'w') |
7689
|
0 |
228 |
if ($char eq 'l') |
7693
|
0 |
228 |
if ($action eq '-' and $record->{'umode'} =~ /$char/) |
7695
|
0 |
0 |
if $char eq 'i' |
7697
|
0 |
0 |
if ($char eq 'o') |
7703
|
0 |
0 |
if ($char eq 'w') |
7706
|
0 |
0 |
if ($char eq 'l') |
7714
|
228 |
1 |
if ($set) |
7720
|
1 |
227 |
unless $peer_ignore |
7729
|
1 |
227 |
unless $peer_ignore |
7738
|
231 |
0 |
if wantarray |
7751
|
0 |
60 |
unless ($count) |
7755
|
0 |
60 |
unless ($self->state_chan_exists($args->[0])) |
7759
|
0 |
60 |
if ($self->state_chan_mode_set($args->[0], 's') and not $self->state_is_chan_member($nick, $args->[0])) |
7765
|
0 |
60 |
if ($count == 1 and my $topic = $self->state_chan_topic($args->[0])) |
7779
|
57 |
3 |
if ($count == 1) |
7787
|
0 |
3 |
unless ($self->state_is_chan_member($nick, $args->[0])) |
7791
|
0 |
3 |
if ($self->state_chan_mode_set($args->[0], 't') and not $self->state_is_chan_op($nick, $args->[0])) |
7798
|
0 |
3 |
if (length $args->[0] > $topic_length) |
7801
|
1 |
2 |
if ($args->[1] eq '') { } |
7830
|
60 |
0 |
if wantarray |
7842
|
2 |
0 |
unless ($self->state_user_is_operator($nick)) |
7845
|
0 |
0 |
if ($lastuse and $pacewait and $lastuse + $pacewait > time) |
7872
|
2 |
0 |
if wantarray |
7887
|
1 |
6 |
if ($count > 1 and not $self->state_peer_exists($args->[0])) |
7893
|
1 |
3 |
if ($lastuse and $pacewait and $lastuse + $pacewait > time) |
7898
|
1 |
4 |
if ($count > 1) |
7901
|
1 |
4 |
if ($target and uc $server ne uc $target) |
7929
|
7 |
0 |
if wantarray |
7945
|
4 |
1 |
if matches_mask($mask, $server) |
7961
|
0 |
5 |
if wantarray |
7975
|
0 |
7 |
unless ($count) |
7980
|
0 |
7 |
unless ($self->state_chan_exists($channel)) |
7984
|
0 |
7 |
if ($self->state_is_chan_member($nick, $channel)) |
7989
|
1 |
0 |
unless ($chanrec->{'mode'} =~ /i/ or $chanrec->{'ckey'} or $chanrec->{'mode'} =~ /l/ and keys %{$$chanrec{'users'};} >= $chanrec->{'climit'}) |
7994
|
0 |
6 |
if ($chanrec->{'mode'} =~ /p/ or $self->_state_user_banned($nick, $channel)) |
8002
|
3 |
3 |
unless ($rec->{'last_knock'}) |
8005
|
0 |
6 |
if ($rec->{'last_knock'} and $rec->{'last_knock'} + $self->{'config'}{'knock_client_time'} < time) |
8008
|
1 |
5 |
if ($rec->{'knock_count'} and $rec->{'knock_count'} > $self->{'config'}{'knock_client_count'}) |
8012
|
1 |
4 |
if ($chanrec->{'last_knock'} and $chanrec->{'last_knock'} + $self->{'config'}{'knock_delay_channel'} > time) |
8049
|
7 |
0 |
if wantarray |
8061
|
0 |
0 |
unless ($prefix =~ /$uid_re/) |
8064
|
0 |
0 |
unless ($args->[0]) |
8068
|
0 |
0 |
unless $uid |
8081
|
0 |
0 |
if wantarray |
8095
|
0 |
1 |
unless ($count) |
8099
|
0 |
1 |
unless ($self->state_chan_exists($channel)) |
8124
|
1 |
1 |
if $_ ne $peer_id |
8129
|
0 |
1 |
if wantarray |
8140
|
0 |
228 |
unless $self->state_sid_exists($args->[0]) |
8143
|
0 |
228 |
if ($peer_id ne $self->_state_sid_route($args->[0])) |
8153
|
228 |
0 |
if ($peer_id eq $self->_state_sid_route($args->[0])) |
8167
|
227 |
1 |
if ($sid eq $self->{'state'}{'sids'}{$qsid}{'psid'}) { } |
8195
|
124626 |
5 |
unless $user =~ /^$sid/ |
8198
|
57 |
1931 |
unless (keys %{$$self{'state'}{'chans'}{$uchan}{'users'};}) |
8212
|
0 |
518 |
if (defined $self->{'state'}{'watches'}{$nick}) |
8216
|
0 |
0 |
unless defined $self->{'state'}{'uids'}{$wuid} |
8235
|
215 |
303 |
if ($record->{'umode'} =~ /o/) |
8238
|
518 |
0 |
if ($record->{'umode'} =~ /i/) |
8257
|
0 |
228 |
if wantarray |
8272
|
0 |
2 |
if (not $count or $count < 3) |
8276
|
0 |
2 |
unless $reason |
8282
|
8 |
0 |
if (matches_mask($peermask, $sids->{$psid}{'name'})) |
8283
|
2 |
6 |
if ($sid eq $psid) { } |
8307
|
0 |
2 |
unless $us |
8309
|
0 |
2 |
unless ($reason) |
8313
|
0 |
2 |
if ($self->_state_have_resv($mask)) |
8324
|
0 |
2 |
unless $self->_state_add_drkx_line('resv', $full, time, $server, $duration, $mask, $reason) |
8336
|
2 |
0 |
$duration ? : |
8350
|
2 |
0 |
if wantarray |
8366
|
0 |
1 |
if (not $count or $count < 2) |
8375
|
4 |
0 |
if (matches_mask($peermask, $sids->{$psid}{'name'})) |
8376
|
1 |
3 |
if ($sid eq $psid) { } |
8399
|
0 |
1 |
unless $us |
8405
|
0 |
1 |
unless ($result) |
8426
|
1 |
0 |
if wantarray |
8441
|
0 |
2 |
if (not $count or $count < 3) |
8445
|
0 |
2 |
unless $reason |
8451
|
8 |
0 |
if (matches_mask($peermask, $sids->{$psid}{'name'})) |
8452
|
2 |
6 |
if ($sid eq $psid) { } |
8476
|
0 |
2 |
unless $us |
8478
|
0 |
2 |
unless ($reason) |
8484
|
0 |
2 |
unless $self->_state_add_drkx_line('xline', $full, time, $server, $duration, $mask, $reason) |
8496
|
2 |
0 |
$duration ? : |
8512
|
2 |
0 |
if wantarray |
8528
|
0 |
1 |
if (not $count or $count < 2) |
8537
|
4 |
0 |
if (matches_mask($peermask, $sids->{$psid}{'name'})) |
8538
|
1 |
3 |
if ($sid eq $psid) { } |
8561
|
0 |
1 |
unless $us |
8567
|
0 |
1 |
unless ($result) |
8588
|
1 |
0 |
if wantarray |
8603
|
0 |
2 |
if (not $count or $count < 3) |
8607
|
0 |
2 |
unless $reason |
8613
|
8 |
0 |
if (matches_mask($peermask, $sids->{$psid}{'name'})) |
8614
|
2 |
6 |
if ($sid eq $psid) { } |
8638
|
0 |
2 |
unless $us |
8642
|
0 |
2 |
unless $netmask |
8648
|
0 |
2 |
unless $self->_state_add_drkx_line('dline', $full, time, $server, $duration, $netmask, $reason) |
8662
|
2 |
0 |
$duration ? : |
8678
|
2 |
0 |
if wantarray |
8694
|
0 |
1 |
if (not $count or $count < 2) |
8703
|
4 |
0 |
if (matches_mask($peermask, $sids->{$psid}{'name'})) |
8704
|
1 |
3 |
if ($sid eq $psid) { } |
8727
|
0 |
1 |
unless $us |
8733
|
0 |
1 |
unless ($result) |
8756
|
1 |
0 |
if wantarray |
8770
|
0 |
2 |
unless ($count) |
8779
|
8 |
0 |
if (matches_mask($target, $peer)) |
8780
|
2 |
6 |
if ($ucserver eq $peer) { } |
8799
|
0 |
2 |
unless $us |
8810
|
0 |
2 |
if wantarray |
8824
|
0 |
2 |
if (not $count or $count < 5) |
8834
|
8 |
0 |
if (matches_mask($target, $peer)) |
8835
|
2 |
6 |
if ($ucserver eq $peer) { } |
8854
|
0 |
2 |
unless $us |
8856
|
0 |
2 |
unless $self->_state_add_drkx_line('kline', $full, time, @$args) |
8863
|
2 |
0 |
$minutes ? : |
8880
|
2 |
0 |
if wantarray |
8895
|
0 |
1 |
if (not $count or $count < 3) |
8905
|
4 |
0 |
if (matches_mask($target, $peer)) |
8906
|
1 |
3 |
if ($ucserver eq $peer) { } |
8925
|
0 |
1 |
unless $us |
8933
|
0 |
1 |
unless ($result) |
8949
|
1 |
0 |
if wantarray |
8972
|
0 |
0 |
unless $full |
8985
|
0 |
0 |
if wantarray |
9009
|
0 |
0 |
unless $full |
9020
|
0 |
0 |
if wantarray |
9029
|
256 |
129 |
if ($self->{'state'}{'conns'}{$peer_id}{'sid'} eq $peer) |
9041
|
0 |
385 |
if wantarray |
9055
|
0 |
6 |
if ($self->state_sid_exists($args->[0])) |
9058
|
6 |
0 |
unless ($self->state_uid_exists($args->[0])) |
9064
|
0 |
0 |
if ($self->_state_is_local_uid($target)) { } |
9089
|
0 |
0 |
if ($route_id eq 'spoofed') { } |
9121
|
0 |
6 |
if wantarray |
9132
|
1 |
256 |
unless ($args->[0] eq '6' and $args->[1] eq '6') |
9137
|
0 |
256 |
if wantarray |
9152
|
0 |
252 |
unless ($count) |
9155
|
2 |
250 |
if ($count >= 2 and $sid ne $args->[1]) |
9156
|
2 |
0 |
if ($self->state_sid_exists($args->[1])) |
9167
|
0 |
0 |
if ($self->state_uid_exists($args->[1])) |
9169
|
0 |
0 |
if ($args->[1] =~ /^$sid/) { } |
9202
|
0 |
252 |
if wantarray |
9217
|
0 |
3 |
unless ($count) |
9220
|
3 |
0 |
if ($count >= 2 and uc $sid ne $args->[1]) |
9221
|
0 |
3 |
if ($self->state_sid_exists($args->[1])) |
9232
|
3 |
0 |
if ($self->state_uid_exists($args->[1])) |
9234
|
1 |
2 |
if ($args->[1] =~ /^$sid/) { } |
9260
|
0 |
3 |
if wantarray |
9279
|
0 |
131 |
if (not $count or $count < 2) |
9282
|
0 |
131 |
unless ($args->[0] =~ /$host_re/) |
9292
|
0 |
131 |
unless ($args->[2] =~ /$sid_re/) |
9302
|
1 |
130 |
if ($self->state_sid_exists($args->[2])) |
9313
|
1 |
129 |
if ($self->state_peer_exists($args->[0])) |
9336
|
1 |
128 |
if ($record->{'desc'} and $record->{'desc'} =~ /^\(H\) /) |
9343
|
43 |
86 |
if $self->{'state'}{'services'}{$uname} |
9358
|
1 |
128 |
$record->{'hidden'} ? : |
9384
|
0 |
131 |
if wantarray |
9397
|
3 |
3 |
unless $record |
9409
|
4 |
0 |
unless not $conn_id |
9411
|
2 |
1 |
unless $record->{'killed'} |
9435
|
1 |
2 |
if (defined $self->{'state'}{'watches'}{$nick}) |
9439
|
0 |
1 |
unless defined $self->{'state'}{'uids'}{$wuid} |
9463
|
0 |
0 |
unless $user =~ /^$sid/ |
9466
|
0 |
0 |
unless (keys %{$$self{'state'}{'chans'}{$uchan}{'users'};}) |
9472
|
0 |
3 |
if $record->{'umode'} =~ /o/ |
9473
|
3 |
0 |
if $record->{'umode'} =~ /i/ |
9486
|
0 |
3 |
if wantarray |
9504
|
0 |
554 |
if (not $count or $count < 9) |
9511
|
12 |
542 |
if ($self->state_nick_exists($args->[0])) |
9517
|
6 |
6 |
if ($args->[2] < $exist->{'ts'}) |
9519
|
5 |
1 |
if ($incoming ne $userhost) { } |
9539
|
1 |
10 |
if ($args->[2] == $exist->{'ts'}) |
9554
|
5 |
5 |
if ($args->[2] > $exist->{'ts'}) |
9556
|
1 |
4 |
if ($incoming eq $userhost) { } |
9606
|
3 |
545 |
if ($rhost) { } |
9617
|
239 |
309 |
if $record->{'umode'} =~ /o/ |
9618
|
548 |
0 |
if $record->{'umode'} =~ /i/ |
9623
|
1 |
547 |
if (defined $self->{'state'}{'watches'}{$unick}) |
9625
|
0 |
1 |
unless defined $self->{'state'}{'uids'}{$wuid} |
9669
|
0 |
554 |
if wantarray |
9685
|
0 |
2 |
if (not $count or $count < 2) |
9688
|
0 |
2 |
unless ($self->state_uid_exists($prefix)) |
9692
|
0 |
2 |
if ($self->state_nick_exists($args->[0]) and $prefix ne $self->state_user_uid($args->[0])) |
9698
|
0 |
0 |
if ($newts < $exist->{'ts'}) |
9700
|
0 |
0 |
if ($incoming ne $userhost) { } |
9720
|
0 |
0 |
if ($args->[2] == $exist->{'ts'}) |
9735
|
0 |
0 |
if ($newts > $exist->{'ts'}) |
9737
|
0 |
0 |
if ($incoming eq $userhost) { } |
9767
|
0 |
2 |
if ($unick eq $unew) { } |
9777
|
1 |
1 |
if (defined $self->{'state'}{'watches'}{$unick}) |
9779
|
0 |
1 |
unless defined $self->{'state'}{'uids'}{$wuid} |
9800
|
1 |
1 |
if (defined $self->{'state'}{'watches'}{$unew}) |
9802
|
0 |
1 |
unless defined $self->{'state'}{'uids'}{$wuid} |
9828
|
0 |
2 |
if ($record->{'umode'} =~ /r/) |
9846
|
0 |
0 |
unless $user =~ /^$mysid/ |
9880
|
0 |
2 |
if wantarray |
9894
|
0 |
1 |
unless ($chan) |
9897
|
0 |
1 |
unless ($self->state_chan_exists($chan)) |
9900
|
0 |
1 |
unless ($self->state_uid_chan_member($uid, $chan)) |
9921
|
0 |
1 |
unless (keys %{$$self{'state'}{'chans'}{$uchan}{'users'};}) |
9926
|
0 |
1 |
if wantarray |
9939
|
0 |
1 |
if (not $count or $count < 2) |
9944
|
0 |
1 |
unless ($self->state_chan_exists($chan)) |
9947
|
0 |
1 |
unless ($self->state_uid_exists($wuid)) |
9950
|
0 |
1 |
unless ($self->state_uid_chan_member($wuid, $chan)) |
9973
|
0 |
1 |
unless (keys %{$$self{'state'}{'chans'}{$uchan}{'users'};}) |
9978
|
0 |
1 |
if wantarray |
10009
|
0 |
125 |
if ($cmd eq 'SJOIN' and !$count || $count < 4) |
10012
|
0 |
1 |
if ($cmd eq 'JOIN' and !$count || $count < 3) |
10018
|
1 |
125 |
if ($cmd eq 'JOIN') { } |
10024
|
50 |
76 |
unless ($self->state_chan_exists($chan)) |
10032
|
1 |
107 |
if $mode =~ /[lk]/ |
10033
|
1 |
107 |
if $mode eq 'l' |
10034
|
0 |
108 |
if $mode eq 'k' |
10040
|
21 |
712 |
if $uid =~ s/\@//g |
10041
|
0 |
733 |
if $uid =~ s/\%//g |
10042
|
0 |
733 |
if $uid =~ s/\+//g |
10051
|
21 |
712 |
if $umode |
10097
|
4 |
72 |
if ($ts < $chanrec->{'ts'}) { } |
|
67 |
5 |
elsif ($ts == $chanrec->{'ts'}) { } |
10104
|
4 |
3 |
if $self->_state_is_local_uid($user) |
10106
|
3 |
4 |
unless $chanrec->{'users'}{$user} |
10115
|
4 |
0 |
if (keys %$common and @deop) |
10130
|
0 |
4 |
if (length(join ' ', $mode_line, $buffer[1], $arg) + $length > 510) |
10148
|
0 |
4 |
if ($buffer[1]) { } |
10170
|
4 |
0 |
if ($cmd eq 'SJOIN') |
10174
|
3 |
9 |
unless $chanrec->{$type} |
10188
|
0 |
4 |
if (@local_users and @types) |
10196
|
0 |
0 |
if (length(join ' ', $mode_line, $buffer[1], $arg) + $length > 510) |
10214
|
0 |
0 |
if ($buffer[1]) { } |
10237
|
1 |
3 |
if ($chanrec->{'topic'}) |
10266
|
0 |
0 |
unless $self->state_uid_exists($invite) |
10267
|
0 |
0 |
unless $self->_state_is_local_uid($invite) |
10278
|
0 |
8 |
if $mode =~ /[lk]/ |
10279
|
0 |
8 |
if ($mode eq 'l' and !($chanrec->{'mode'} =~ /l/) || $arg ne $chanrec->{'climit'}) { } |
|
0 |
8 |
elsif ($mode eq 'k' and !($chanrec->{'mode'} =~ /k/) || $arg ne $chanrec->{'ckey'}) { } |
|
0 |
8 |
elsif (not $chanrec->{'mode'} =~ /$mode/) { } |
10283
|
0 |
0 |
unless ($chanrec->{'mode'} =~ /$mode/) |
10294
|
0 |
0 |
unless ($chanrec->{'mode'} =~ /$mode/) |
10309
|
0 |
4 |
if $origmode |
10310
|
0 |
4 |
if $origmode |
10311
|
0 |
4 |
if ($origmode and $origmode =~ /k/) |
10315
|
0 |
4 |
if ($origmode and $origmode =~ /l/) |
10325
|
0 |
4 |
if $reply |
10347
|
1 |
138 |
if $mode =~ /[lk]/ |
10348
|
0 |
139 |
if ($mode eq 'l' and !($chanrec->{'mode'} =~ /l/) || $arg > $chanrec->{'climit'}) { } |
|
0 |
139 |
elsif ($mode eq 'k' and !($chanrec->{'mode'} =~ /k/) || ($arg cmp $chanrec->{'ckey'}) > 0) { } |
|
0 |
139 |
elsif (not $chanrec->{'mode'} =~ /$mode/) { } |
10352
|
0 |
0 |
unless ($chanrec->{'mode'} =~ /$mode/) |
10363
|
0 |
0 |
unless ($chanrec->{'mode'} =~ /$mode/) |
10383
|
0 |
67 |
if $reply |
10416
|
17 |
1256 |
if $uid =~ s/\@//g |
10417
|
0 |
1273 |
if $uid =~ s/\%//g |
10418
|
0 |
1273 |
if $uid =~ s/\+//g |
10419
|
16 |
1257 |
unless defined $self->{'state'}{'uids'}{$uid} |
10424
|
20 |
1237 |
if (@local_nextjoin) |
10432
|
0 |
1257 |
if (@local_extjoin) |
10449
|
17 |
1240 |
if ($umode) |
10453
|
2 |
1255 |
if ($self->{'state'}{'uids'}{$uid}{'away'}) |
10457
|
17 |
59 |
if ($modes) |
10470
|
0 |
17 |
if (length(join ' ', @buffer, $arg) + $length > 510) |
10487
|
0 |
17 |
if ($buffer[1]) { } |
10508
|
2 |
74 |
if (@aways) |
10514
|
0 |
126 |
if wantarray |
10531
|
0 |
0 |
unless ($self->state_chan_exists($chan)) |
10535
|
0 |
0 |
if ($ts > $record->{'ts'}) |
10541
|
0 |
0 |
if $self->state_uid_exists($uid) |
10549
|
0 |
0 |
if $mode =~ /^(\+[ohvklbIe]|-[ohvbIe])/ |
10551
|
0 |
0 |
if (my($flag, $char) = $mode =~ /^(\+|-)([ohv])/) |
10552
|
0 |
0 |
if ($flag eq '+' and not $record->{'users'}{uc_irc($arg)} =~ /$char/) |
10563
|
0 |
0 |
if ($flag eq '-' and $record->{'users'}{uc_irc($arg)} =~ /$char/) |
10575
|
0 |
0 |
if ($mode eq '+l' and $arg =~ /^\d+$/ and $arg > 0) |
10577
|
0 |
0 |
unless $record->{'mode'} =~ /l/ |
10583
|
0 |
0 |
if ($mode eq '-l' and $record->{'mode'} =~ /l/) |
10589
|
0 |
0 |
if ($mode eq '+k' and $arg) |
10591
|
0 |
0 |
unless $record->{'mode'} =~ /k/ |
10597
|
0 |
0 |
if ($mode eq '-k' and $record->{'mode'} =~ /k/) |
10604
|
0 |
0 |
if (my($flag) = $mode =~ /(\+|-)b/) |
10607
|
0 |
0 |
if ($flag eq '+' and not $record->{'bans'}{$umask}) |
10613
|
0 |
0 |
if ($flag eq '-' and $record->{'bans'}{$umask}) |
10621
|
0 |
0 |
if (my($flag) = $mode =~ /(\+|-)I/) |
10624
|
0 |
0 |
if ($flag eq '+' and not $record->{'invex'}{$umask}) |
10630
|
0 |
0 |
if ($flag eq '-' and $record->{'invex'}{$umask}) |
10638
|
0 |
0 |
if (my($flag) = $mode =~ /(\+|-)e/) |
10641
|
0 |
0 |
if ($flag eq '+' and not $record->{'excepts'}{$umask}) |
10647
|
0 |
0 |
if ($flag eq '-' and $record->{'excepts'}{$umask}) |
10656
|
0 |
0 |
if ($flag eq '+' and not $record->{'mode'} =~ /$char/) |
10662
|
0 |
0 |
if ($flag eq '-' and $record->{'mode'} =~ /$char/) |
10670
|
0 |
0 |
if ($reply) |
10686
|
0 |
0 |
defined $subs{$_} ? : |
10705
|
0 |
0 |
$mode_u_set ? : |
10712
|
0 |
0 |
if ($mode_u_set) |
10717
|
0 |
0 |
if $bmode =~ /^(\+[ohvklbIe]|-[ohvbIe])/ |
10719
|
0 |
0 |
if $bmode =~ /^[+-][beI]$/ |
10723
|
0 |
0 |
if ($breply) |
10744
|
0 |
0 |
if wantarray |
10759
|
0 |
72 |
if (not $count or $count < 4) |
10763
|
0 |
72 |
unless ($self->state_chan_exists($chan)) |
10768
|
6 |
66 |
if ($ts > $chanrec->{'ts'}) |
10784
|
0 |
72 |
unless not $mode_u_set |
10791
|
327 |
309 |
if $$chanrec{$map{$trype}}{$umask} |
10798
|
33 |
33 |
unless (@local_users and @marsk_list) |
10810
|
16 |
293 |
if (length(join ' ', $mode_line, $buffer[1], $arg) + $length > 510) |
10828
|
260 |
33 |
if ($buffer[1]) { } |
10849
|
0 |
72 |
if wantarray |
10864
|
0 |
10 |
unless ($self->state_chan_exists($args->[1])) |
10871
|
0 |
10 |
if ($chants < $chanrec->{'ts'}) { } |
|
10 |
0 |
elsif ($chants == $chanrec->{'ts'}) { } |
10875
|
6 |
4 |
if (not $chanrec->{'topic'}) { } |
|
0 |
4 |
elsif ($topicts > $chanrec->{'topic'}[2]) { } |
10882
|
4 |
6 |
unless ($accept) |
10896
|
0 |
6 |
unless ($differing) |
10911
|
0 |
10 |
if wantarray |
10927
|
0 |
0 |
if ($action eq '+' and not $record->{'umode'} =~ /$char/) |
10929
|
0 |
0 |
if $char eq 'i' |
10930
|
0 |
0 |
if ($char eq 'o') |
10934
|
0 |
0 |
if ($action eq '-' and $record->{'umode'} =~ /$char/) |
10936
|
0 |
0 |
if $char eq 'i' |
10937
|
0 |
0 |
if ($char eq 'o') |
10956
|
0 |
0 |
if wantarray |
10971
|
0 |
7 |
unless ($count) |
10975
|
0 |
7 |
if ($count < 2 or not $args->[1]) |
10986
|
0 |
7 |
if ($targ_type =~ /(server|host)mask/ and not $self->state_user_is_operator($nick)) |
10991
|
0 |
7 |
if ($targ_type =~ /(server|host)mask/ and not $targs->{$target}[0] =~ /\./) |
10996
|
0 |
7 |
if ($targ_type =~ /(server|host)mask/ and $targs->{$target}[0] =~ /\x2E[^.]*[\x2A\x3F]+[^.]*$/) |
11001
|
0 |
7 |
if ($targ_type eq 'channel_ext' and not $self->state_chan_exists($targs->{$target}[1])) |
11006
|
0 |
7 |
if ($targ_type eq 'channel' and not $self->state_chan_exists($target)) |
11011
|
0 |
7 |
if ($targ_type eq 'nick' and not $self->state_nick_exists($target)) |
11016
|
0 |
7 |
if ($targ_type eq 'uid' and not $self->state_uid_exists($target)) |
11021
|
4 |
3 |
if ($targ_type eq 'uid') |
11024
|
0 |
7 |
if ($targ_type eq 'nick_ext' and not $self->state_peer_exists($targs->{$target}[1])) |
11030
|
0 |
7 |
if ($targets > $max_targets) |
11035
|
1 |
6 |
if ($targ_type eq 'servermask') |
11040
|
1 |
3 |
if (matches_mask($targs->{$target}[0], $peer)) |
11041
|
1 |
0 |
if ($ucserver eq $peer) { } |
11058
|
1 |
0 |
if ($us) |
11063
|
0 |
3 |
if ($luser->{'route_id'} eq 'spoofed') { } |
11078
|
0 |
1 |
if $spoofed |
11088
|
1 |
5 |
if ($targ_type eq 'hostmask') |
11094
|
3 |
3 |
unless matches_mask($targs->{$target}[0], $luser->{'auth'}{'hostname'}) |
11095
|
0 |
3 |
if ($luser->{'route_id'} eq 'spoofed') { } |
|
0 |
3 |
elsif ($luser->{'type'} eq 'r') { } |
11122
|
0 |
1 |
if $spoofed |
11130
|
0 |
5 |
if ($targ_type eq 'nick_ext') |
11133
|
0 |
0 |
if ($targs->{$target}[2] and not $self->state_user_is_operator($nick)) |
11138
|
0 |
0 |
if ($targs->{$target}[1] ne $self->server_name) |
11149
|
0 |
0 |
if (uc $targs->{$target}[0] eq 'OPERS') |
11150
|
0 |
0 |
unless ($self->state_user_is_operator($nick)) |
11170
|
0 |
0 |
if (@local == 1) { } |
11172
|
0 |
0 |
if ($ref->[0] eq 'spoofed') { } |
11198
|
1 |
4 |
if ($targ_type eq 'channel') |
11201
|
0 |
5 |
if ($targ_type eq 'channel_ext') |
11205
|
0 |
1 |
if ($channel and $status_msg and not $self->state_user_chan_mode($nick, $channel)) |
11210
|
0 |
1 |
if ($channel and $self->state_chan_mode_set($channel, 'n') and not $self->state_is_chan_member($nick, $channel)) |
11215
|
0 |
1 |
if ($channel and $self->state_chan_mode_set($channel, 'm') and not $self->state_user_chan_mode($nick, $channel)) |
11220
|
0 |
0 |
if ($channel and $self->state_chan_mode_set($channel, 'T') and $type eq 'NOTICE' and not $self->state_user_chan_mode($nick, $channel)) |
11225
|
0 |
1 |
if ($channel and $self->state_chan_mode_set($channel, 'M') and not $self->state_user_umode($nick) =~ /r/) |
11230
|
0 |
1 |
if ($channel and $self->_state_user_banned($nick, $channel) and not $self->state_user_chan_mode($nick, $channel)) |
11235
|
0 |
0 |
if ($channel and $self->state_chan_mode_set($channel, 'c') and has_color($args->[1]) || has_formatting($args->[1])) |
11240
|
0 |
0 |
if ($channel and $self->state_chan_mode_set($channel, 'C') and $args->[1] =~ /^\001/ and not $args->[1] =~ /^\001ACTION/) |
11245
|
1 |
4 |
if ($channel) |
11247
|
0 |
1 |
$status_msg ? : |
11255
|
0 |
4 |
if $self->_state_user_is_deaf($member) |
11261
|
3 |
0 |
if ($self->_connection_is_client($route_id)) |
11264
|
3 |
0 |
if ($route_id ne 'spoofed') { } |
11268
|
0 |
0 |
$type eq 'PRIVMSG' ? : |
11282
|
4 |
0 |
if ($self->state_nick_exists($target)) |
11284
|
0 |
4 |
if (my $away = $self->_state_user_away_msg($target)) |
11293
|
0 |
4 |
if ($targ_umode and $targ_umode =~ /[Gg]/) |
11295
|
0 |
0 |
if ($targ_umode =~ /G/ and not $self->state_users_share_chan($target, $nick) && $targ_rec->{'accepts'}{uc_irc($nick)} or $targ_umode =~ /g/ and not $targ_rec->{'accepts'}{uc_irc($nick)}) |
11309
|
0 |
0 |
if (not $targ_rec->{'last_caller'} or time - $targ_rec->{'last_caller'} >= 60) |
11324
|
0 |
0 |
if $targ_rec->{'route_id'} ne 'spoofed' |
11345
|
0 |
4 |
if ($route_id eq 'spoofed') { } |
11355
|
4 |
0 |
if ($self->_connection_is_client($route_id)) |
11365
|
7 |
0 |
if wantarray |
11379
|
0 |
0 |
unless ($count) |
11382
|
0 |
0 |
unless ($self->state_chan_exists($args->[0])) |
11387
|
0 |
0 |
if ($args->[1]) { } |
11412
|
0 |
0 |
if wantarray |
11427
|
0 |
1 |
if (not $count or $count < 3) |
11434
|
1 |
0 |
if ($self->_state_is_local_uid($who)) |
11444
|
0 |
1 |
if ($route_id eq 'spoofed') { } |
11455
|
1 |
0 |
if ($chanrec->{'mode'} and $chanrec->{'mode'} =~ /i/) |
11493
|
0 |
1 |
if wantarray |
11507
|
0 |
10 |
unless ($msg) |
11532
|
0 |
10 |
if wantarray |
11547
|
0 |
1 |
if (not $count or $count < 2) |
11551
|
0 |
1 |
if ($sid ne $target) |
11573
|
1 |
0 |
if wantarray |
11587
|
0 |
6 |
if (not $self->_state_sid_serv($prefix) and $prefix ne $sid) |
11590
|
0 |
6 |
if (not $count or $count < 2) |
11595
|
0 |
6 |
unless $uid |
11596
|
6 |
0 |
if ($uid =~ /^$sid/) |
11601
|
0 |
0 |
ref $_ eq 'ARRAY' ? : |
11605
|
0 |
0 |
if ($route_id eq $peer_id) |
11622
|
0 |
6 |
if wantarray |
11636
|
0 |
1 |
if (not $self->_state_sid_serv($prefix) and $prefix ne $sid) |
11639
|
0 |
1 |
if (not $count or $count < 2) |
11644
|
0 |
1 |
unless $uid |
11645
|
1 |
0 |
if ($uid =~ /^$sid/) |
11650
|
0 |
0 |
ref $_ eq 'ARRAY' ? : |
11654
|
0 |
0 |
if ($route_id eq $peer_id) |
11671
|
0 |
1 |
if wantarray |
11686
|
0 |
2 |
if (not $self->_state_sid_serv($prefix) and $prefix ne $sid) |
11689
|
0 |
2 |
if (not $count or $count < 3) |
11694
|
0 |
2 |
unless $uid |
11695
|
0 |
2 |
unless $args->[0] =~ /^\d+$/ |
11696
|
0 |
2 |
if $args->[0] != $self->{'state'}{'uids'}{$uid}{'ts'} |
11697
|
2 |
0 |
if ($args->[1] =~ /$host_re/) |
11712
|
0 |
2 |
if wantarray |
11727
|
0 |
31 |
if (not $self->_state_sid_serv($prefix) and $prefix ne $sid) |
11730
|
0 |
31 |
if (not $count or $count < 3) |
11735
|
0 |
31 |
unless $uid |
11736
|
0 |
31 |
unless $args->[0] =~ /^\d+$/ |
11737
|
0 |
31 |
if $args->[0] != $self->{'state'}{'uids'}{$uid}{'ts'} |
11740
|
31 |
0 |
if $local |
11741
|
31 |
0 |
$count >= 4 ? : |
11746
|
0 |
59 |
if $mode eq '+o' |
11748
|
0 |
59 |
if $char =~ /[SW]/ |
11749
|
3 |
56 |
if ($action eq '+' and $char eq 'x') |
11750
|
3 |
0 |
if ($extra_arg and $extra_arg =~ /$host_re/) |
11755
|
28 |
28 |
if ($action eq '+' and $char eq 'd') |
11756
|
28 |
0 |
if ($extra_arg) |
11775
|
28 |
0 |
if ($action eq '+' and not $rec->{'umode'} =~ /$char/) |
11777
|
0 |
28 |
if ($char eq 'i') |
11780
|
0 |
28 |
if ($char eq 'w' and $local) |
11783
|
0 |
28 |
if ($char eq 'l' and $local) |
11787
|
0 |
28 |
if ($action eq '-' and $rec->{'umode'} =~ /$char/) |
11789
|
0 |
0 |
if $char eq 'i' |
11791
|
0 |
0 |
if ($char eq 'o') |
11794
|
0 |
0 |
if ($local) |
11799
|
0 |
0 |
if ($char eq 'w' and $local) |
11802
|
0 |
0 |
if ($char eq 'l' and $local) |
11818
|
0 |
31 |
unless $local |
11820
|
28 |
3 |
if ($set) |
11838
|
0 |
31 |
if wantarray |
11852
|
0 |
3 |
if (not $self->_state_sid_serv($prefix) and $prefix ne $sid) |
11855
|
0 |
3 |
unless ($count) |
11858
|
0 |
3 |
$count == 4 ? : |
11859
|
0 |
3 |
unless is_valid_nick_name($newnick) |
11861
|
0 |
3 |
unless $uid |
11864
|
0 |
3 |
if ($count == 4) { } |
11866
|
0 |
0 |
if $ts and $ts != $rec->{'ts'} |
11871
|
3 |
0 |
if ($count == 3) { } |
11877
|
0 |
3 |
unless ($uid =~ /^$sid/) |
11878
|
0 |
0 |
if ($rec->{'route_id'} eq $peer_id) |
11903
|
2 |
1 |
if ($self->state_nick_exists($newnick)) |
11904
|
1 |
1 |
if (defined $self->{'state'}{'users'}{$unew}) |
11906
|
0 |
1 |
if ($rec eq $exist) |
11918
|
1 |
0 |
if (defined $self->{'state'}{'pending'}{$unew}) |
11929
|
0 |
3 |
unless $user =~ /^$sid/ |
11934
|
0 |
2 |
if ($unick eq $unew) { } |
11942
|
0 |
2 |
if (defined $self->{'state'}{'watches'}{$unick}) |
11944
|
0 |
0 |
unless defined $self->{'state'}{'uids'}{$wuid} |
11965
|
0 |
2 |
if (defined $self->{'state'}{'watches'}{$unew}) |
11967
|
0 |
0 |
unless defined $self->{'state'}{'uids'}{$wuid} |
11995
|
1 |
1 |
if ($rec->{'umode'} =~ /r/) |
12052
|
0 |
3 |
if wantarray |
12066
|
0 |
1 |
if (not $self->_state_sid_serv($prefix) and $prefix ne $sid) |
12069
|
0 |
1 |
if (not $count or $count < 2) |
12074
|
0 |
1 |
unless $uid |
12075
|
0 |
1 |
unless $args->[0] =~ /^\d+$/ |
12076
|
0 |
1 |
if $args->[0] != $self->{'state'}{'uids'}{$uid}{'ts'} |
12077
|
1 |
0 |
if ($uid =~ /^$sid/) |
12080
|
1 |
0 |
if ($count == 3) { } |
12093
|
0 |
0 |
if ($route_id eq $peer_id) |
12110
|
0 |
1 |
if wantarray |
12130
|
0 |
3 |
if (not $self->_state_sid_serv($prefix) and $prefix ne $sid) |
12133
|
0 |
3 |
if (not $count or $count < 2) |
12138
|
0 |
3 |
unless $uid |
12139
|
0 |
3 |
unless $args->[0] =~ /^\d+$/ |
12140
|
0 |
3 |
if $args->[0] != $self->{'state'}{'uids'}{$uid}{'ts'} |
12142
|
0 |
3 |
if ($args->[1] eq '-') |
12158
|
0 |
3 |
if $count < 5 or not $args->[3] |
12180
|
0 |
3 |
if wantarray |
12205
|
184 |
0 |
if (my $sid = $self->{'config'}{'SID'}) |
12261
|
10862 |
0 |
if ($idx != 3) { } |
12262
|
293 |
10569 |
if ($cols[$idx] eq 'Z') { } |
|
292 |
10277 |
elsif ($cols[$idx] eq '9') { } |
12274
|
0 |
0 |
if ($cols[$idx] eq 'Z') { } |
12299
|
810 |
6 |
if $global > $self->{'state'}{'stats'}{'maxglobal'} |
12301
|
268 |
548 |
if $local > $self->{'state'}{'stats'}{'maxlocal'} |
12311
|
497 |
30 |
if $conns > $self->{'state'}{'stats'}{'maxconns'} |
12326
|
2003 |
1906 |
unless $remote |
12327
|
1906 |
2003 |
if $remote |
12340
|
0 |
0 |
if (matches_mask($host, $user->{'auth'}{'hostname'}) and matches_mask($luser, $user->{'auth'}{'ident'})) |
12353
|
0 |
26 |
unless @args |
12354
|
0 |
26 |
unless $type =~ /^((RK|[DKX])LINE|RESV)$/i |
12359
|
0 |
104 |
unless defined $ref->{$field} |
12362
|
18 |
8 |
if ($type =~ /^([xd]lines|resvs)$/) { } |
12364
|
0 |
18 |
unless $ref->{'mask'} |
12369
|
0 |
8 |
unless $ref->{'user'} and $ref->{'host'} |
12371
|
17 |
9 |
if ($ref->{'duration'}) |
12380
|
8 |
18 |
if ($type eq 'resvs') { } |
12393
|
0 |
15 |
unless @args |
12394
|
0 |
15 |
unless $type =~ /^((RK|[DKX])LINE|RESV)$/i |
12397
|
11 |
4 |
if ($type =~ /^([xd]lines|resvs)$/) { } |
12399
|
0 |
11 |
unless $mask |
12404
|
0 |
4 |
unless $user and $host |
12407
|
5 |
10 |
if ($type eq 'resvs') { } |
12412
|
6 |
4 |
if ($mask and $_->{'mask'} eq $mask) |
12416
|
4 |
0 |
if ($user and ($_->{'user'} eq $user and $_->{'host'} eq $host)) |
12423
|
0 |
15 |
unless $result |
12424
|
8 |
7 |
if (my $alarm = delete $result->{'alarm'}) |
12445
|
2 |
7 |
if ($type eq 'resvs') { } |
12450
|
7 |
0 |
if ($drkxline eq $ref) |
12457
|
0 |
9 |
unless $res |
12460
|
2 |
7 |
if $type eq 'dlines' |
12472
|
1 |
388 |
if ($conn_id and not $self->_connection_exists($conn_id)) |
12475
|
1 |
387 |
if ($conn_id and $self->{'state'}{'conns'}{$conn_id}{'resv_exempt'}) |
12479
|
7 |
3 |
if (matches_mask($mask, $thing)) |
12489
|
0 |
8 |
if $self->{'state'}{'resvs'}{uc_irc($mask)} |
12498
|
0 |
18 |
unless $self->state_uid_exists($uid) |
12503
|
15 |
3 |
if ($chan eq '*') { } |
12511
|
2 |
6 |
unless $user =~ /^$sid/ |
12512
|
5 |
1 |
unless $self->{'state'}{'uids'}{$user}{'caps'}{'away-notify'} |
12520
|
16 |
2 |
if $msg |
12534
|
5 |
0 |
if $urec->{'route_id'} eq 'spoofed' |
12535
|
0 |
0 |
if $urec->{'umode'} =~ /o/ |
12536
|
0 |
0 |
if ($urec->{'ircname'} and matches_mask($mask, $urec->{'ircname'})) |
12563
|
5 |
0 |
if $urec->{'route_id'} eq 'spoofed' |
12564
|
0 |
0 |
if $urec->{'umode'} =~ /o/ |
12565
|
0 |
0 |
if (Net::CIDR::cidrlookup($urec->{'socket'}[0], $netmask)) |
12593
|
2 |
0 |
if $urec->{'route_id'} eq 'spoofed' |
12594
|
0 |
0 |
if $urec->{'umode'} and $urec->{'umode'} =~ /o/ |
12595
|
0 |
0 |
if ($urec->{'socket'}[0] =~ /$host/ || $urec->{'auth'}{'hostname'} =~ /$host/ and $urec->{'auth'}{'ident'} =~ /$luser/) |
12623
|
6 |
0 |
if (my $netmask = Net::CIDR::cidrvalidate($host)) { } |
12625
|
6 |
0 |
if $user->{'route_id'} eq 'spoofed' |
12626
|
0 |
0 |
if $user->{'umode'} and $user->{'umode'} =~ /o/ |
12627
|
0 |
0 |
if (Net::CIDR::cidrlookup($user->{'socket'}[0], $netmask) and matches_mask($luser, $user->{'auth'}{'ident'})) |
12646
|
0 |
0 |
if $user->{'route_id'} eq 'spoofed' |
12647
|
0 |
0 |
if $user->{'umode'} and $user->{'umode'} =~ /o/ |
12649
|
0 |
0 |
if (matches_mask($host, $user->{'socket'}[0]) || matches_mask($host, $user->{'auth'}{'hostname'}) and matches_mask($luser, $user->{'auth'}{'ident'})) |
12679
|
1 |
228 |
if $record->{'kline_exempt'} |
12682
|
2 |
0 |
if ($host =~ /$kline->{'host'}/ || $ip =~ /$kline->{'host'}/ and $user =~ /$kline->{'user'}/) |
12698
|
1 |
233 |
if $record->{'kline_exempt'} |
12701
|
5 |
0 |
if (my $netmask = Net::CIDR::cidrvalidate($kline->{'host'})) { } |
|
0 |
0 |
elsif (matches_mask($kline->{'host'}, $host) || matches_mask($kline->{'host'}, $ip) and matches_mask($kline->{'user'}, $user)) { } |
12702
|
5 |
0 |
if (Net::CIDR::cidrlookup($ip, $netmask) and matches_mask($kline->{'user'}, $user)) |
12724
|
5 |
0 |
if (matches_mask($xline->{'mask'}, $ircname)) |
12736
|
235 |
10 |
unless ($self->{'config'}{'auth'} and @{$self->{'config'}{'auth'};}) |
12746
|
9 |
1 |
if (matches_mask($auth->{'mask'}, $uh) or matches_mask($auth->{'mask'}, $ui)) |
12748
|
4 |
5 |
if ($auth->{'password'} and not $record->{'pass'} && chkpasswd($record->{'pass'}, $auth->{'password'})) |
12752
|
1 |
4 |
if ($auth->{'spoof'}) |
12765
|
5 |
20 |
if $auth->{$feat} |
12767
|
1 |
4 |
if (not $record->{'auth'}{'ident'} and $auth->{'no_tilde'}) |
12781
|
0 |
259 |
unless ($conn_id and $self->_connection_exists($conn_id)) |
12785
|
0 |
259 |
unless $name and $pass |
12787
|
0 |
259 |
unless $$peers{uc $name} |
12789
|
1 |
258 |
unless chkpasswd($pass, $peer->{'pass'}) |
12793
|
4 |
0 |
if ($peer->{'certfp'} and $conn->{'secured'}) |
12795
|
1 |
3 |
if not $certfp or $certfp ne $peer->{'certfp'} |
12798
|
254 |
3 |
if (not $peer->{'ipmask'} and $conn->{'socket'}[0] =~ /^(127\.|::1)/) |
12801
|
0 |
3 |
unless $peer->{'ipmask'} |
12804
|
0 |
3 |
if (ref $peer->{'ipmask'} eq 'ARRAY') |
12806
|
0 |
0 |
if (eval {
do {
$block->isa('Net::Netmask')
}
}) |
12807
|
0 |
0 |
if $block->match($client_ip) |
12810
|
0 |
0 |
if Net::CIDR::cidrlookup($client_ip, $block) |
12816
|
3 |
0 |
if matches_mask('*!*@' . $peer->{'ipmask'}, "*!*\@$client_ip") |
12834
|
0 |
227 |
unless $self->_connection_exists($conn_id) |
12840
|
904 |
4 |
unless $crec->{$feat} |
12841
|
1 |
3 |
if $feat eq 'can_flood' |
12860
|
0 |
257 |
unless $self->_connection_exists($conn_id) |
12861
|
0 |
257 |
unless $self->{'config'}{'peers'}{uc $name} |
12862
|
0 |
257 |
if $self->_connection_terminated($conn_id) |
12871
|
257 |
0 |
$sid ? : |
12881
|
253 |
4 |
$peer->{'zip'} ? : |
12889
|
2 |
255 |
if $self->{'config'}{'hidden'} |
12919
|
0 |
257 |
unless $self->_connection_exists($conn_id) |
12920
|
0 |
257 |
if $self->_connection_terminated($conn_id) |
12932
|
251 |
6 |
if $excepts |
12933
|
251 |
6 |
if $invex |
12945
|
0 |
330 |
if $record->{'route_id'} eq $conn_id |
12958
|
6 |
324 |
if $rhost |
12968
|
10 |
320 |
if ($record->{'away'}) |
12993
|
0 |
56 |
if $chan =~ /^\&/ |
13011
|
11 |
1007 |
if (length(join ' ', $buf, '1', $uid) + $length + 1 > 510) |
13026
|
56 |
0 |
if ($buf) |
13043
|
12 |
156 |
if (length(join ' ', '1', $buffer[1], $thing) + $length + 1 > 510) |
13061
|
147 |
9 |
if ($buffer[1]) { } |
13078
|
9 |
159 |
if $buffer[1] |
13085
|
8 |
48 |
if ($tburst and $chanrec->{'topic'}) |
13104
|
257 |
0 |
if ($burst) |
13129
|
451 |
0 |
unless ($self->state_peer_exists($peer) and $self->state_peer_exists($targ)) |
13136
|
257 |
194 |
if $server eq $targ |
13139
|
1 |
193 |
if $rec->{'hidden'} |
13149
|
451 |
0 |
if wantarray |
13162
|
0 |
6 |
unless ($nhost =~ /$host_re/) |
13166
|
0 |
6 |
if ($nhost eq $rec->{'auth'}{'hostname'}) |
13170
|
6 |
0 |
$local ? : |
13196
|
6 |
0 |
if ($local) |
13216
|
0 |
3 |
unless $modes |
13247
|
3 |
0 |
if ($modeline) |
13259
|
0 |
3 |
if ($rec->{'away'}) |
13273
|
0 |
6 |
if wantarray |
13284
|
0 |
14 |
unless $self->state_sid_exists($psid) |
13293
|
12 |
2 |
if $plen |
13294
|
10 |
4 |
if not $ctn and $plen |
13299
|
0 |
14 |
if ($plen and $plen > 60) |
13326
|
14 |
0 |
if wantarray |
13336
|
0 |
20 |
unless $self->state_sid_exists($psid) |
13356
|
13 |
2 |
if matches_mask($mask, $rec->{'name'}) |
13359
|
20 |
0 |
if wantarray |
13366
|
0 |
0 |
unless $self->state_peer_exists($peer) |
13374
|
1 |
344 |
unless $self->state_sid_exists($sid) |
13393
|
117 |
227 |
if $mysid ne $rec->{'psid'} |
13398
|
344 |
0 |
if wantarray |
13405
|
0 |
257 |
unless $self->_connection_exists($conn_id) |
13410
|
0 |
257 |
unless $psid |
13412
|
254 |
3 |
unless ($record->{'cntr'}) |
13426
|
3 |
254 |
if $self->{'state'}{'services'}{$ucname} |
13433
|
6 |
251 |
if (my $sslinfo = $self->connection_secured($conn_id)) { } |
13466
|
0 |
257 |
$record->{'hidden'} ? : |
13491
|
0 |
227 |
unless $self->_connection_exists($conn_id) |
13505
|
226 |
1 |
unless ($record->{'auth'}{'ident'}) |
13509
|
226 |
1 |
if ($record->{'auth'}{'hostname'} eq 'localhost' or not $record->{'auth'}{'hostname'} and $record->{'socket'}[0] =~ /^(127\.|::1)/) |
13514
|
0 |
227 |
unless ($record->{'auth'}{'hostname'}) |
13523
|
0 |
227 |
if $record->{'ipaddress'} =~ /^:/ |
13528
|
227 |
0 |
if $record->{'uid'} |
13530
|
227 |
0 |
if $record->{'uid'} |
13540
|
8 |
219 |
if ($record->{'secured'}) |
13543
|
5 |
3 |
if (my $certfp = $self->connection_certfp($conn_id)) |
13576
|
0 |
332 |
if ($self->_state_peer_capab($peer_id, 'RHOST')) { } |
13596
|
8 |
324 |
if ($record->{'certfp'}) |
13623
|
1 |
226 |
if (defined $self->{'state'}{'watches'}{$unick}) |
13625
|
0 |
1 |
unless defined $self->{'state'}{'uids'}{$wuid} |
13658
|
925 |
1 |
unless (defined $self->{'state'}{'users'}{$nick} or defined $self->{'state'}{'pending'}{$nick}) |
13668
|
6627 |
12 |
if defined $self->{'state'}{'uids'}{$uid} |
13681
|
106 |
1770 |
unless defined $self->{'state'}{'chans'}{uc_irc($chan)} |
13694
|
843 |
49 |
unless defined $self->{'state'}{'peers'}{uc $peer} |
13701
|
399 |
2074 |
unless defined $self->{'state'}{'sids'}{$sid} |
13711
|
0 |
52 |
unless $joincount and $jointime |
13712
|
0 |
52 |
unless $self->state_nick_exists($nick) |
13713
|
0 |
52 |
unless $self->state_chan_exists($chan) |
13718
|
0 |
52 |
if ($crec->{'_num_joined'} <= 0) { } |
|
0 |
52 |
elsif ($crec->{'_num_joined'} >= $joincount) { } |
13723
|
0 |
0 |
unless ($crec->{'_jfnotice'}) |
13744
|
0 |
52 |
unless $self->state_nick_exists($nick) |
13747
|
0 |
52 |
if ($spamnum and $urec->{'_jl_cnt'} and $urec->{'_jl_cnt'} >= $spamnum) { } |
13748
|
0 |
0 |
if ($urec->{'_owcd'} and $urec->{'_owcd'} > 0) { } |
13754
|
0 |
0 |
if ($urec->{'_owcd'} == 0) |
13762
|
0 |
0 |
$chan ? : |
13772
|
52 |
0 |
if ($delta > $self->{'config'}{'JOIN_LEAVE_COUNT_EXPIRE'}) { } |
13774
|
52 |
0 |
if ($dec_cnt > ($urec->{'_jl_cnt'} || 0)) { } |
13783
|
0 |
0 |
if time - $urec->{'_last_join'} < $self->{'config'}{'MIN_JOIN_LEAVE_TIME'} |
13785
|
52 |
0 |
if ($chan) { } |
13799
|
0 |
8 |
unless $self->{'config'}{'floodcount'} and $self->{'config'}{'floodtime'} |
13800
|
0 |
8 |
unless $self->state_nick_exists($nick) |
13801
|
0 |
8 |
unless $self->state_chan_exists($chan) |
13803
|
0 |
8 |
if $urec->{'route_id'} eq 'spoofed' |
13804
|
0 |
8 |
if $urec->{'can_flood'} or $urec->{'umode'} =~ /o/ |
13807
|
0 |
8 |
if ($first and $first + $self->{'config'}{'floodtime'} < time) |
13808
|
0 |
0 |
if ($crec->{'_recv_msgs'}) { } |
13817
|
1 |
7 |
if ($recv and $recv >= $self->{'config'}{'floodcount'}) |
13818
|
1 |
0 |
unless ($crec->{'_flood_notice'}) |
13828
|
1 |
0 |
if ($type ne 'NOTICE') |
13843
|
3 |
4 |
unless $first |
13853
|
0 |
14 |
unless $self->{'config'}{'floodcount'} and $self->{'config'}{'floodtime'} |
13854
|
0 |
14 |
unless $self->state_nick_exists($nick) |
13855
|
0 |
14 |
unless $self->state_nick_exists($targ) |
13857
|
0 |
14 |
if $urec->{'route_id'} eq 'spoofed' |
13858
|
2 |
12 |
if $urec->{'can_flood'} or $urec->{'umode'} =~ /o/ |
13861
|
0 |
12 |
if ($first and $first + $self->{'config'}{'floodtime'} < time) |
13862
|
0 |
0 |
if ($trec->{'_recv_msgs'}) { } |
13871
|
1 |
11 |
if ($recv and $recv >= $self->{'config'}{'floodcount'}) |
13872
|
1 |
0 |
unless ($trec->{'_flood_notice'}) |
13882
|
1 |
0 |
if ($type ne 'NOTICE') |
13897
|
5 |
6 |
unless $first |
13908
|
0 |
23 |
unless $self->state_nick_exists($nick) |
13909
|
0 |
23 |
unless $self->state_chan_exists($chan) |
13915
|
2 |
1 |
if ($crec->{'mode'} =~ /c/ and has_color($msg) || has_formatting($msg)) |
13918
|
1 |
7 |
if ($crec->{'mode'} =~ /C/ and $msg =~ /^\001/ and not $msg =~ /^\001ACTION/) |
13921
|
0 |
20 |
if ($crec->{'mode'} =~ /n/ and not $member) |
13924
|
2 |
18 |
if ($crec->{'mode'} =~ /M/ and not $urec->{'umode'} =~ /r/) |
13927
|
8 |
10 |
if ($member and $crec->{'users'}{$uid}) |
13930
|
0 |
10 |
if ($crec->{'mode'} =~ /m/) |
13933
|
2 |
8 |
if ($crec->{'mode'} =~ /T/ and $type eq 'NOTICE') |
13936
|
0 |
8 |
if ($self->_state_user_banned($nick, $chan)) |
13945
|
1 |
1 |
unless $self->state_peer_exists($peer) |
13952
|
4 |
3 |
if ($peer =~ /^\d/) { } |
13953
|
0 |
4 |
unless $self->state_sid_exists($peer) |
13957
|
0 |
3 |
unless $self->state_peer_exists($peer) |
13965
|
0 |
945 |
unless $self->state_sid_exists($sid) |
13972
|
0 |
52 |
unless $self->state_sid_exists($sid) |
13973
|
9 |
43 |
unless $self->{'state'}{'sids'}{$sid}{'serv'} |
13980
|
0 |
4 |
unless $self->state_peer_exists($peer) |
13989
|
0 |
923 |
unless $self->_connection_is_peer($conn_id) |
14008
|
2544 |
598 |
if ($nick =~ /^\d/) { } |
14009
|
0 |
2544 |
unless $self->state_uid_exists($nick) |
14013
|
0 |
598 |
unless $self->state_nick_exists($nick) |
14016
|
1 |
3141 |
if ($oper and defined $record->{'opuser'}) |
14025
|
111 |
72 |
if ($nick =~ /^\d/) { } |
14026
|
2 |
109 |
unless $self->state_uid_exists($nick) |
14030
|
1 |
71 |
unless $self->state_nick_exists($nick) |
14038
|
46 |
541 |
if ($nick =~ /^\d/) { } |
14039
|
4 |
42 |
unless $self->state_uid_exists($nick) |
14043
|
4 |
537 |
unless $self->state_nick_exists($nick) |
14051
|
0 |
22 |
unless $self->state_nick_exists($nick) and $self->_state_is_local_user($nick) |
14060
|
0 |
0 |
unless $self->state_nick_exists($nick) |
14061
|
0 |
0 |
if defined $self->{'state'}{'users'}{uc_irc($nick)}{'away'} |
14068
|
0 |
17 |
unless $self->state_nick_exists($nick) |
14075
|
0 |
77 |
unless $self->state_nick_exists($nick) |
14082
|
0 |
267 |
unless $self->state_nick_exists($nick) |
14083
|
207 |
60 |
unless $self->{'state'}{'users'}{uc_irc($nick)}{'umode'} =~ /o/ |
14090
|
0 |
31 |
unless $self->state_nick_exists($nick) |
14091
|
31 |
0 |
unless $self->{'state'}{'users'}{uc_irc($nick)}{'umode'} =~ /D/ |
14098
|
0 |
117 |
unless $self->state_nick_exists($nick) |
14107
|
0 |
448 |
unless $self->state_nick_exists($nick) |
14115
|
0 |
621 |
unless $self->state_uid_exists($uid) |
14123
|
0 |
1 |
unless $self->state_nick_exists($nick) |
14131
|
0 |
0 |
unless $self->state_uid_exists($uid) |
14138
|
0 |
37 |
unless $self->state_peer_exists($peer) |
14146
|
0 |
463 |
unless $self->state_sid_exists($sid) |
14154
|
0 |
2131 |
if !keys(%{$$self{'state'}{'peers'};}) > 1 |
14164
|
0 |
10 |
unless $self->state_chan_exists($chan) |
14169
|
10 |
0 |
unless $status_msg |
14178
|
0 |
0 |
if $record->{'users'}{$_} |
14186
|
0 |
96 |
unless $self->state_chan_exists($chan) |
14191
|
6 |
165 |
$flag && $flag eq 'FULL' ? : |
14194
|
96 |
75 |
if $m =~ /o/ |
14195
|
11 |
160 |
if $m =~ /h/ and not $p |
14196
|
0 |
171 |
if $m =~ /v/ and not $p |
14205
|
0 |
70 |
unless $self->state_chan_exists($chan) |
14210
|
1018 |
22 |
$flag && $flag eq 'UIDS' ? : |
14211
|
6 |
1034 |
$flag && $flag eq 'FULL' ? : |
14214
|
47 |
993 |
if $m =~ /o/ |
14215
|
4 |
1036 |
if $m =~ /h/ |
14216
|
4 |
1036 |
if $m =~ /v/ |
14224
|
0 |
1 |
unless $self->state_chan_exists($chan) |
14231
|
0 |
57 |
unless $self->state_chan_exists($chan) |
14233
|
57 |
0 |
unless $record->{'topic'} |
14241
|
0 |
29 |
if ($nick =~ /^\d/) { } |
14242
|
0 |
0 |
unless $self->state_uid_exists($nick) |
14243
|
0 |
0 |
if defined $record->{'uids'}{$nick} |
14246
|
0 |
29 |
unless $self->state_nick_exists($nick) |
14247
|
28 |
1 |
if defined $record->{'users'}{uc_irc($nick)} |
14255
|
0 |
3274 |
unless $self->state_uid_exists($uid) |
14256
|
29 |
3245 |
if $self->server_sid eq substr($uid, 0, 3) |
14263
|
0 |
211 |
unless $self->state_chan_exists($chan) |
14271
|
0 |
69 |
unless $self->state_chan_exists($chan) |
14274
|
0 |
69 |
if length $mode > 1 |
14276
|
4 |
65 |
if $record->{'mode'} =~ /$mode/ |
14284
|
0 |
4 |
unless $self->state_nick_exists($nick) |
14285
|
0 |
4 |
unless $self->state_chan_exists($chan) |
14287
|
1 |
3 |
if $nickrec->{'invites'}{uc_irc($chan)} |
14289
|
0 |
3 |
if $self->_state_user_matches_list($nick, $chan, 'invex') |
14297
|
69 |
0 |
unless $self->_state_user_matches_list($nick, $chan, 'bans') |
14298
|
0 |
0 |
unless $self->_state_user_matches_list($nick, $chan, 'excepts') |
14307
|
0 |
72 |
unless $self->state_nick_exists($nick) |
14308
|
0 |
72 |
unless $self->state_chan_exists($chan) |
14313
|
0 |
3 |
if matches_mask($mask, $full) |
14322
|
0 |
383 |
unless $self->state_nick_exists($nick) |
14323
|
0 |
383 |
unless $self->state_chan_exists($chan) |
14325
|
311 |
72 |
if defined $record->{'chans'}{uc_irc($chan)} |
14333
|
0 |
2 |
unless $self->state_uid_exists($uid) |
14334
|
0 |
2 |
unless $self->state_chan_exists($chan) |
14336
|
2 |
0 |
if defined $record->{'chans'}{uc_irc($chan)} |
14343
|
0 |
0 |
unless $self->state_is_chan_member($nick, $chan) |
14351
|
0 |
64 |
unless $self->state_is_chan_member($nick, $chan) |
14353
|
50 |
14 |
if $record->{'chans'}{uc_irc($chan)} =~ /o/ |
14354
|
0 |
14 |
if $self->{'config'}{'OPHACKS'} and $record->{'umode'} =~ /o/ |
14362
|
0 |
55 |
unless $self->state_is_chan_member($nick, $chan) |
14364
|
21 |
34 |
if $record->{'chans'}{uc_irc($chan)} =~ /h/ |
14372
|
0 |
0 |
unless $self->state_is_chan_member($nick, $chan) |
14374
|
0 |
0 |
if $record->{'chans'}{uc_irc($chan)} =~ /v/ |
14382
|
0 |
25 |
unless $self->state_nick_exists($nick) |
14383
|
0 |
25 |
unless $user and $pass |
14386
|
1 |
24 |
unless $ops->{$user} |
14387
|
0 |
24 |
unless chkpasswd($pass, $ops->{$user}{'password'}) |
14389
|
6 |
18 |
if ($ops->{$user}{'ssl_required'}) |
14390
|
1 |
5 |
unless $self->{'state'}{'users'}{uc_irc($nick)}{'umode'} =~ /S/ |
14393
|
4 |
19 |
if ($ops->{$user}{'certfp'}) |
14395
|
1 |
3 |
if (not $certfp or uc $certfp ne uc $ops->{$user}{'certfp'}) |
14401
|
0 |
22 |
unless $client_ip |
14402
|
22 |
0 |
if (not $ops->{$user}{'ipmask'} and ($client_ip and $client_ip =~ /^(127\.|::1)/)) |
14405
|
0 |
0 |
unless $ops->{$user}{'ipmask'} |
14407
|
0 |
0 |
if (ref $ops->{$user}{'ipmask'} eq 'ARRAY') |
14409
|
0 |
0 |
if (eval {
do {
$block->isa('Net::Netmask')
}
}) |
14410
|
0 |
0 |
if $block->match($client_ip) |
14413
|
0 |
0 |
if Net::CIDR::cidrlookup($client_ip, $block) |
14416
|
0 |
0 |
if matches_mask($ops->{$user}{'ipmask'}, $client_ip) |
14424
|
0 |
0 |
unless $self->state_nick_exists($nick1) and $self->state_nick_exists($nick2) |
14429
|
0 |
0 |
if $rec2->{'chans'}{$chan} |
14440
|
18 |
20 |
if ($target =~ /^[#&]/) |
14444
|
0 |
20 |
if ($target =~ /^([\@%+]+)([#&].+)$/) |
14448
|
1 |
19 |
if ($target =~ /^\$([^#].+)$/) |
14452
|
1 |
18 |
if ($target =~ /^\$#(.+)$/) |
14456
|
0 |
18 |
if ($target =~ /@/) |
14459
|
0 |
0 |
if $nick =~ /%/ |
14463
|
4 |
14 |
if ($target =~ /$uid_re/) |
14493
|
218 |
3616 |
unless $self->{'state'}{'conns'}{$wheel_id}{'nick'} |
14500
|
0 |
801 |
unless $self->{'state'}{'conns'}{$wheel_id}{'uid'} |
14518
|
182 |
2 |
ref $_[0] eq 'HASH' ? : |
14528
|
184 |
0 |
defined $VERSION ? : |
14579
|
0 |
2392 |
if (defined $new and $new > $self->{'config'}{$opt}) |
14586
|
0 |
368 |
if (defined $new and $new < $self->{'config'}{$opt}) |
14592
|
344 |
127 |
unless $opt =~ /^(knock_|pace_|max_watch|max_bans_|oper_umode|max_nick|anti_|flood|hidden)/i |
14594
|
127 |
0 |
if defined $opts->{$opt} |
14601
|
344 |
0 |
if defined $opts->{$opt} |
14606
|
2 |
182 |
if (not $sid && $sid =~ /$sid_re/) { } |
14621
|
0 |
184 |
unless ($self->{'config'}{'SERVERNAME'} =~ /\./) |
14625
|
0 |
0 |
if (not defined $self->{'config'}{'ADMIN'} or ref $self->{'config'}{'ADMIN'} ne 'ARRAY' or @{$self->{'config'}{'ADMIN'};} != 3) |
14634
|
0 |
0 |
if (not defined $self->{'config'}{'INFO'} or ref $self->{'config'}{'INFO'} ne 'ARRAY' or !@{$self->{'config'}{'INFO'};} == 1) |
14759
|
2101 |
56 |
if $flags |
14772
|
2101 |
56 |
if ($flags) { } |
14801
|
34 |
2457 |
if ($self->_connection_is_peer($wheel_id)) |
14806
|
0 |
2491 |
unless $self->_connection_exists($wheel_id) |
14809
|
2428 |
63 |
if (ref $err eq 'HASH') |
14813
|
63 |
0 |
if (defined $self->{'Error_Codes'}{$err}) |
14819
|
41 |
22 |
if ($self->{'Error_Codes'}{$err}[0] > 0) |
14824
|
6 |
57 |
if ($self->{'Error_Codes'}{$err}[1] =~ /%/) { } |
14841
|
0 |
202 |
unless $self->state_chan_exists($channel) |
14843
|
0 |
202 |
unless $output |
14846
|
6 |
196 |
$output->{'command'} =~ /^(PRIVMSG|NOTICE)$/ ? : |
14849
|
13 |
189 |
$status ? : |
14851
|
339 |
437 |
unless $uid =~ /^$sid/ |
14853
|
127 |
310 |
if ($conn_id and $conn_id eq $route_id) |
14856
|
21 |
289 |
if ($status) |
14859
|
15 |
27 |
if $chanrec->{'users'}{$uid} =~ /$stat/ |
14861
|
9 |
12 |
if $negative and $matched or not $negative || $matched |
14863
|
89 |
212 |
if ($poscap) |
14864
|
0 |
89 |
ref $poscap eq 'ARRAY' ? : |
14865
|
76 |
13 |
unless $self->{'state'}{'uids'}{$uid}{'caps'}{$cap} |
14868
|
91 |
134 |
if ($negcap) |
14869
|
6 |
85 |
ref $negcap eq 'ARRAY' ? : |
14870
|
15 |
79 |
if $self->{'state'}{'uids'}{$uid}{'caps'}{$cap} |
14873
|
0 |
210 |
if ($is_msg and $self->{'state'}{'uids'}{$uid}{'umode'} =~ /D/) |
14887
|
196 |
6 |
if not $is_msg or $spoofs |
14895
|
0 |
227 |
unless defined $duration and $duration =~ /^\d+$/ |
14911
|
0 |
227 |
$days == 1 ? : |
14920
|
30 |
0 |
if (ref $_[0] eq 'HASH') { } |
14928
|
0 |
30 |
unless (defined $ref->{'username'} and defined $ref->{'password'}) |
14933
|
0 |
30 |
if ($ref->{'ssl_required'} || $ref->{'certfp'} and not $self->{'got_ssl'}) |
14939
|
0 |
30 |
if ($ref->{'ipmask'} and $ref->{'ipmask'} eq 'ARRAY') |
14942
|
0 |
0 |
if (eval {
do {
$mask->isa('Net::Netmask')
}
}) |
14947
|
0 |
0 |
if $valid |
14952
|
28 |
2 |
if ($ref->{'umode'}) |
14966
|
0 |
0 |
unless defined $self->{'config'}{'ops'}{$user} |
14988
|
0 |
6 |
if (ref $_[0] eq 'HASH') { } |
14996
|
0 |
6 |
unless ($parms->{'mask'}) |
15010
|
0 |
0 |
if ($_->{'mask'} eq $mask) |
15022
|
0 |
290 |
if (ref $_[0] eq 'HASH') { } |
15030
|
0 |
290 |
unless (defined $parms->{'name'} and defined $parms->{'pass'} and defined $parms->{'rpass'}) |
15036
|
287 |
3 |
if not $parms->{'type'} or lc $parms->{'type'} ne 'r' |
15038
|
0 |
290 |
if $parms->{'type'} eq 'r' and not $parms->{'rport'} |
15041
|
580 |
0 |
unless $parms->{$_} |
15044
|
3 |
287 |
if $parms->{'raddress'} |
15045
|
4 |
286 |
unless $parms->{'zip'} |
15046
|
289 |
1 |
unless $parms->{'ssl'} |
15048
|
0 |
290 |
if ($parms->{'ipmask'} and $parms->{'ipmask'} eq 'ARRAY') |
15051
|
0 |
0 |
if (eval {
do {
$mask->isa('Net::Netmask')
}
}) |
15056
|
0 |
0 |
if $valid |
15063
|
0 |
290 |
if $parms->{'service'} |
15069
|
3 |
0 |
if $parms->{'type'} eq 'r' and $parms->{'auto'} |
15077
|
0 |
0 |
unless defined $self->{'config'}{'peers'}{uc $name} |
15079
|
0 |
0 |
if $rec->{'service'} |
15086
|
2 |
0 |
if (ref $_[0] eq 'HASH') { } |
15094
|
0 |
2 |
unless (defined $parms->{'cmd'} and defined $parms->{'name'} and defined $parms->{'target'}) |
15102
|
0 |
2 |
unless ($nick and $user and $host) |
15114
|
0 |
2 |
if (defined $self->{'config'}{'cmds'}{$cmd} or defined $self->{'config'}{'pseudo'}{$cmd}) |
15134
|
0 |
240 |
unless $self->_connection_exists($conn_id) |
15138
|
205 |
35 |
if ($self->{'state'}{'conns'}{$conn_id}{'type'} eq 'c') |
15166
|
19 |
0 |
if ($id == $conn_id) |
15184
|
0 |
4 |
if (not $count or $count < 2) |
15187
|
0 |
4 |
if ($args->[0] =~ /^\d/ and not $self->state_uid_exists($args->[0])) { } |
|
0 |
4 |
elsif (not $args->[0] =~ /^\d/ || $self->state_nick_exists($args->[0])) { } |
15193
|
0 |
4 |
unless ($args->[1] =~ /^[#&]/) |
15199
|
0 |
4 |
if wantarray |
15212
|
0 |
7 |
unless ($count) |
15215
|
0 |
7 |
if ($args->[0] =~ /^\d/ and not $self->state_uid_exists($args->[0])) { } |
|
0 |
7 |
elsif (not $args->[0] =~ /^\d/ || $self->state_nick_exists($args->[0])) { } |
15225
|
1 |
6 |
$args->[2] && $self->_connection_exists($args->[2]) ? : |
15229
|
6 |
1 |
if ($self->_state_is_local_user($target)) { } |
15248
|
2 |
7 |
unless not $conn_id |
15251
|
3 |
3 |
if ($route_id eq 'spoofed') { } |
15275
|
0 |
2 |
unless not $conn_id |
15286
|
0 |
7 |
if wantarray |
15300
|
0 |
10 |
unless ($self->state_chan_exists($chan)) |
15311
|
0 |
13 |
unless $mode =~ /^[+-][CceIbkMNRSTLOlimnpstohuv]$/ |
15313
|
3 |
10 |
if ($mode =~ /^(\+[ohvklbIe]|-[ohvbIe])/) |
15316
|
2 |
11 |
if (my($flag, $char) = $mode =~ /^([-+])([ohv])/) |
15318
|
2 |
0 |
if ($flag eq '+' and not $record->{'users'}{$self->state_user_uid($arg)} =~ /$char/) |
15332
|
0 |
2 |
if ($flag eq '-' and $record->{'users'}{uc_irc($arg)} =~ /$char/) |
15346
|
0 |
0 |
if ($mode eq '+l' and $arg =~ /^\d+$/ and $arg > 0) |
15349
|
0 |
0 |
unless ($record->{'mode'} =~ /l/) |
15356
|
0 |
11 |
if ($mode eq '-l' and $record->{'mode'} =~ /l/) |
15362
|
0 |
11 |
if ($mode eq '+k' and $arg) |
15365
|
0 |
0 |
unless ($record->{'mode'} =~ /k/) |
15372
|
0 |
11 |
if ($mode eq '-k' and $record->{'mode'} =~ /k/) |
15380
|
1 |
10 |
if (my($flag) = $mode =~ /(\+|-)b/) |
15383
|
1 |
0 |
if ($flag eq '+' and not $record->{'bans'}{$umask}) |
15389
|
0 |
0 |
if ($flag eq '-' and $record->{'bans'}{$umask}) |
15397
|
0 |
10 |
if (my($flag) = $mode =~ /(\+|-)I/) |
15400
|
0 |
0 |
if ($flag eq '+' and not $record->{'invex'}{$umask}) |
15406
|
0 |
0 |
if ($flag eq '-' and $record->{'invex'}{$umask}) |
15414
|
0 |
10 |
if (my($flag) = $mode =~ /(\+|-)e/) |
15417
|
0 |
0 |
if ($flag eq '+' and not $record->{'excepts'}{$umask}) |
15423
|
0 |
0 |
if ($flag eq '-' and $record->{'excepts'}{$umask}) |
15432
|
7 |
3 |
if ($flag eq '+' and not $record->{'mode'} =~ /$char/) |
15438
|
3 |
0 |
if ($flag eq '-' and $record->{'mode'} =~ /$char/) |
15445
|
10 |
0 |
if ($reply) |
15448
|
2 |
1 |
defined $subs{$_} ? : |
15467
|
2 |
8 |
$mode_u_set ? : |
15473
|
2 |
8 |
if ($mode_u_set) |
15478
|
1 |
1 |
if $bmode =~ /^(\+[ohvklbIe]|-[ohvbIe])/ |
15480
|
1 |
1 |
if $bmode =~ /^[+-][beI]$/ |
15482
|
0 |
1 |
if $arg |
15484
|
1 |
1 |
if ($breply) |
15505
|
0 |
10 |
if wantarray |
15518
|
0 |
2 |
if (not $count or $count < 2) |
15523
|
0 |
2 |
unless ($self->state_chan_exists($chan)) |
15527
|
0 |
2 |
unless ($self->state_nick_exists($who)) |
15531
|
0 |
2 |
unless ($self->state_is_chan_member($who, $chan)) |
15555
|
0 |
2 |
unless (keys %{$$self{'state'}{'chans'}{$chan}{'users'};}) |
15560
|
0 |
2 |
if wantarray |
15572
|
0 |
1 |
if (not $count or $count < 2) |
15577
|
0 |
1 |
unless ($self->state_chan_exists($chan)) |
15581
|
0 |
1 |
unless ($self->state_nick_exists($who)) |
15586
|
0 |
1 |
unless ($self->state_is_chan_member($who, $chan)) |
15591
|
1 |
0 |
if $args->[2] |
15611
|
1 |
0 |
unless (keys %{$$self{'state'}{'chans'}{$chan}{'users'};}) |
15616
|
0 |
1 |
if wantarray |
15628
|
0 |
0 |
if ($count) |
15648
|
0 |
0 |
if wantarray |
15658
|
0 |
0 |
if ($count) |
15662
|
0 |
0 |
if wantarray |
15669
|
41 |
0 |
if (ref $_[10] eq 'HASH') { } |
15677
|
0 |
41 |
unless $ref->{'nick'} |
15678
|
0 |
41 |
if $self->state_nick_exists($ref->{'nick'}) |
15682
|
35 |
6 |
unless $record->{'ts'} |
15687
|
0 |
41 |
unless $record->{'umode'} |
15688
|
31 |
10 |
unless (defined $record->{'ircname'}) |
15691
|
8 |
33 |
if $record->{'umode'} =~ /i/ |
15692
|
34 |
7 |
if $record->{'umode'} =~ /o/ |
15698
|
41 |
0 |
unless $record->{'account'} |
15701
|
41 |
0 |
if $record->{'uid'} |
15703
|
41 |
0 |
if $record->{'uid'} |
15739
|
0 |
41 |
if (my $whois = $record->{'whois'}) |
15748
|
0 |
0 |
if ($self->_state_peer_capab($peer_id, 'RHOST')) { } |
15779
|
0 |
0 |
if $record->{'whois'} |
15785
|
34 |
7 |
if ($record->{'umode'} =~ /o/) |
15795
|
0 |
9 |
if ($nick =~ /^\d/) { } |
15796
|
0 |
0 |
unless $self->state_uid_exists($nick) |
15797
|
0 |
0 |
if $self->_state_uid_route($nick) ne 'spoofed' |
15800
|
0 |
9 |
unless $self->state_nick_exists($nick) |
15801
|
0 |
9 |
if $self->_state_user_route($nick) ne 'spoofed' |
15815
|
0 |
31 |
unless $self->state_nick_exists($nick) |
15816
|
0 |
31 |
if $self->_state_user_route($nick) ne 'spoofed' |
15823
|
0 |
31 |
if ($state =~ /^(privmsg|notice)$/) { } |
|
1 |
30 |
elsif ($state eq 'sjoin') { } |
15830
|
0 |
1 |
unless $chan and $self->state_chan_exists($chan) |
15831
|
0 |
1 |
if $self->state_is_chan_member($nick, $chan) |
15845
|
30 |
0 |
if $self->can($command) |