# Usage: &CmdFactInfo($faqtoid, $query);
sub CmdFactInfo {
my ($faqtoid, $query) = (lc $_[0], $_[1]);
- $faqtoid =~ s/^cmd:/CMD:/;
my @array;
my $string = "";
sub CmdListAuth {
my ($query) = @_;
- my $maxshow = &::getChanConfDefault('maxListReplyCount', 15);
+ my $maxshow = &::getChanConfDefault('maxListReplyCount', 15, $chan);
my @list = &searchTable("factoids","factoid_key", "created_by", "^$query!");
@list=grep(!/\#DEL\#$/,@list) if (scalar(@list) > $maxshow);