sub formListReply {
my($rand, $prefix, @list) = @_;
my $total = scalar @list;
- my $maxshow = &getChanConfDefault('maxListReplyCount', 15);
- my $maxlen = &getChanConfDefault('maxListReplyLength', 400);
+ my $maxshow = &getChanConfDefault('maxListReplyCount', 15, $chan);
+ my $maxlen = &getChanConfDefault('maxListReplyLength', 400, $chan);
my $reply;
# remove irc overhead
sub IsChanConfOrWarn {
my ($param) = @_;
- if (&IsChanConf($param)) {
+ if (&IsChanConf($param) > 0) {
return 1;
} else {
### TODO: specific reason why it failed.