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.
select(undef, undef, undef, 0.2);
# &status("fork starting for '$label', PID == $$.");
- &status("--- fork starting for '$label', PID == $$ ---");
+ &status("--- fork starting for '$label', PID == $$, bot_pid == $bot_pid ---");
&shmWrite($shm,"SET FORKPID $label $$");
sleep 1;
$i += $cmdstats{$type};
- &sqlReplace("stats", {
- nick => $type,
+ &sqlSet("stats", {'nick' => $type}, {
type => "cmdstats",
'time' => time(),
counter => $i,