ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/irc.ext
(Generate patch)

Comparing deliantra/server/ext/irc.ext (file contents):
Revision 1.7 by elmex, Fri Oct 5 08:14:23 2007 UTC vs.
Revision 1.11 by root, Fri May 2 16:09:36 2008 UTC

… …
36sub handle_fcmd { 36sub handle_fcmd {
37 my ($name, $me, $msg) = @_; 37 my ($name, $me, $msg) = @_;
38 38
39 if ($msg eq "!who") { 39 if ($msg eq "!who") {
40 # clobbers irc, http is available 40 # clobbers irc, http is available
41 do_notice "see http://cf.schmorp.de/userlist.crossfire.schmorp.de.html"; 41 do_notice "see http://www.deliantra.net/userlist.crossfire.schmorp.de.html";
42# do_notice $_ 42# do_notice $_
43# for ext::commands::who_listing (0, "."); 43# for ext::commands::who_listing (0, ".");
44 44
45 } elsif ($msg =~ /^\!tell/) { 45 } elsif ($msg =~ /^\!tell/) {
46 my (undef, $target, $tmsg) = split / /, $msg, 3; 46 my (undef, $target, $tmsg) = split / /, $msg, 3;
… …
87 utf8::decode $tmsg; 87 utf8::decode $tmsg;
88 88
89 if ($tmsg =~ /^\!/) { 89 if ($tmsg =~ /^\!/) {
90 handle_fcmd ($name, $nick, $tmsg); 90 handle_fcmd ($name, $nick, $tmsg);
91 } elsif ($tmsg =~ m/\S/) { 91 } elsif ($tmsg =~ m/\S/) {
92 $_->ns->send_msg ($ext::chat::CHAT_CHANNEL, 92 $_->ns->send_msg ($cf::CHAT_CHANNEL,
93 "$name/".$nick." chats: $tmsg", cf::NDI_BLUE | cf::NDI_DEF 93 "$name/".$nick." chats: $tmsg", cf::NDI_BLUE | cf::NDI_DEF
94 ) for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW && $_->listening >= 10 } cf::player::list; 94 ) for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW && $_->listening >= 10 } cf::player::list;
95 cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n", "$name/$nick", $tmsg;
95 } 96 }
96 1; 97 1;
97 }, 98 },
98# registered => sub { 99# registered => sub {
99# 1; 100# 1;
… …
105 0; 106 0;
106 } 107 }
107 ); 108 );
108} 109}
109 110
110Event->timer ( 111our $RECONNECT = cf::periodic 30, Coro::unblock_sub {
111 reentrant => 0, 112 check_connection;
112 after => 1, 113};
113 interval => 30,
114 data => cf::WF_AUTOCANCEL,
115 cb => Coro::unblock_sub { check_connection },
116);
117 114

Diff Legend

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