gistfile1.pl

  sub plugins {
    my ($self, $network, $chan) = @_;
    return @{$self->{plugins}} unless $network;
    grep {
      my $i = $_->config("ircs");
      !$i || any {
        lc $_->[0] eq lc $network
          && (!$chan || (!$_->[1] || lc $_->[1] eq lc $chan))
      } map {[split "@", $_]} @$i;
    } @{$self->{plugins}};
  }