--- deliantra/server/ext/irc.ext 2008/05/02 16:09:36 1.11 +++ deliantra/server/ext/irc.ext 2008/08/29 23:31:41 1.13 @@ -7,10 +7,10 @@ return unless exists $cf::CFG{irc_server}; -my $BOTSERVER = $cf::CFG{irc_server}; -my $BOTPORT = $cf::CFG{irc_port}; -my $BOTNAME = $cf::CFG{irc_nick}; -my $BOTCHAN = $cf::CFG{irc_chan}; +my $BOTSERVER = $cf::CFG{irc_server} || "localhost"; +my $BOTPORT = $cf::CFG{irc_port} || 6667; +my $BOTNAME = $cf::CFG{irc_nick} || "server"; +my $BOTCHAN = $cf::CFG{irc_chan} || "cf"; my $CON; # the connection @@ -91,7 +91,7 @@ } elsif ($tmsg =~ m/\S/) { $_->ns->send_msg ($cf::CHAT_CHANNEL, "$name/".$nick." chats: $tmsg", cf::NDI_BLUE | cf::NDI_DEF - ) for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW && $_->listening >= 10 } cf::player::list; + ) for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW } cf::player::list; cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n", "$name/$nick", $tmsg; } 1;