Lines Matching refs:chan1
38 my ($chat1, $chan1) = @{$link};
39 if ($links{$chat1}{$chan1})
41 my ($chat2, $chan2) = @{$links{$chat1}{$chan1}};
42 print CLIENTERROR "Channel $chat1/$chan1 is already linked to $chat2/$chan2";
160 my $chan1 = $server1->channel_find($channel1) or return undef;
169 chan1 => $chan1,
185 my $chan1 = $server1->channel_find($channel1) or next;
186 next unless $chan1->nick_find($nick1);
194 chan1 => $chan1,
208 $context->{chan1}->nick_find($nick)->{op} :
209 $context->{chan1}->{chanop})
211 special_message_for $context->{chan1}, $nick,
217 special_message_for $context->{chan1}, $nick,
240 special_message_for $context->{chan1}, $nick,
292 message $context->{chan1}, $row;
304 special_message_for $context->{chan1}, $nick,
319 special_message_for $context->{chan1}, $nick,
338 special_message_for $context->{chan1}, $nick,
363 my $nk = $context->{chan1}->nick_find($nick);