/join 0 こういうので防止する方向がいいな

IRC plum 
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-

package channel_join_0;

$_ = 'channel_join_0';

sub cs_join {
  local($clientno, $prefix, $cmd, @params) = @_;
  local(@chan, @key, @joinchan, @joinkey, $i);
  if ($params[0]) {
    @chan = split(/\,/, $params[0]);
    @key = split(/\,/, $params[1] || '');
    @joinchan = ();
    @joinkey = ();
    for ($i = 0; $i < @chan; $i++) {
      next if ($chan[$i] eq '0' );
      
      push(@joinchan, $chan[$i]);
      push(@joinkey, $key[$i] || '');
    }
  }
  if (@joinchan) {
    return ($prefix, $cmd, join(',', @joinchan), join(',', @joinkey));
  }
  return ();
}

__END__
--><HTML><HEAD>
<TITLE>channel/join/kick.plm</TITLE></HEAD><BODY>
オンラインドキュメント

<HR><H3>名前</H3>
channel/join/0.plm - /join 0防止

<HR><H3>説明</H3>
<HR><H3>プロパティ</H3>
<HR><H3>設定例</H3>

<PRE>
+ channel/join/0.plm
</PRE>

/join 0 を抑制します

</BODY></HTML>