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