[ViewVC] Diff of: cvs/deliantra/server/ext/irc.ext

Comparing deliantra/server/ext/irc.ext (file contents):
Revision 1.8 by elmex, Wed Nov 7 13:35:32 2007 UTC vs.
Revision 1.13 by root, Fri Aug 29 23:31:41 2008 UTC

 # requires: commands.ext
 return unless exists $cf::CFG{irc_server};
-my $BOTSERVER = $cf::CFG{irc_server};
+my $BOTSERVER = $cf::CFG{irc_server} || "localhost";
-my $BOTPORT   = $cf::CFG{irc_port};
+my $BOTPORT   = $cf::CFG{irc_port}   || 6667;
-my $BOTNAME   = $cf::CFG{irc_nick};
+my $BOTNAME   = $cf::CFG{irc_nick}   || "server";
-my $BOTCHAN   = $cf::CFG{irc_chan};
+my $BOTCHAN   = $cf::CFG{irc_chan}   || "cf";
 my $CON; # the connection
 sub unload {
    $CON->disconnect if $CON;
          utf8::decode $tmsg;
          if ($tmsg =~ /^\!/) {
             handle_fcmd ($name, $nick, $tmsg);
          } elsif ($tmsg =~ m/\S/) {
-            $_->ns->send_msg ($ext::chat::CHAT_CHANNEL,
+            $_->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;
       },
 #      registered => sub {
 #         1;
          0;
       }
    );
 }
-Event->timer (
+our $RECONNECT = cf::periodic 30, Coro::unblock_sub {
-   reentrant => 0,
+   check_connection;
-   after     => 1,
+};
-   interval  => 30,
-   data      => cf::WF_AUTOCANCEL,
-   cb        => Coro::unblock_sub { check_connection },
-);

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines