RepoMirrors/xonotic
1
0
Fork 0
mirror of https://gitlab.com/xonotic/xonotic synced 2025-04-01 22:48:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge remote branch 'refs/remotes/origin/mrbougo/rcon2irc_fix'

Browse Source
This commit is contained in:
Rudolf Polzer 2010-09-10 23:23:17 +02:00
commit 898ec1745e
1 changed files with 11 additions and 11 deletions

22
server/rcon2irc/rcon2irc.pl
View File

@ -1321,12 +1321,20 @@ sub cond($)
return irc_joinstage(0);
} ],
# Catch joins of people in a channel the bot is in and catch our own joins of a channel
# Catch joins of people in a channel the bot is in and catch our own joins of a channel,
# detect channel join message and note hostname length to get the maximum allowed line length
[ irc => q{:(([^! ]*)![^ ]*) JOIN (#.+)} => sub {
my ($hostmask, $nick, $chan) = @_;
if ($nick eq $store{irc_nick}) {
$store{irc_maxlen} = 510 - length($hostmask);
$store{irc_joined_channel} = 1;
print "* detected maximum line length for channel messages: $store{irc_maxlen}\n";
}
return 0 unless ($store{irc_quakenet_users});
if ($nick eq $config{irc_nick}) {
if ($nick eq $store{irc_nick}) {
out irc => 0, "PRIVMSG Q :users $chan"; # get auths for all users
} else {
$store{quakenet_hosts}->{$nick} = $hostmask;
@ -1395,14 +1403,6 @@ sub cond($)
return 0;
} ],
# detect channel join message and note hostname length to get the maximum allowed line length
[ irc => q{(:(?i:(??{$store{irc_nick}}))![^ ]* )(?i:JOIN) :(?i:(??{$config{irc_channel}}))} => sub {
$store{irc_maxlen} = 510 - length($1);
$store{irc_joined_channel} = 1;
print "* detected maximum line length for channel messages: $store{irc_maxlen}\n";
return 0;
} ],
# chat: Xonotic server -> IRC channel
[ dp => q{\001(.*?)\^7: (.*)} => sub {
my ($nick, $message) = map { color_dp2irc $_ } @_;
@ -1727,7 +1727,7 @@ schedule sub {
my ($timer) = @_;
# log on to IRC when needed
if(exists $store{dp_hostname} && !exists $store{irc_logged_in})
if(exists $store{dp_hostname} && !exists $store{irc_seen_welcome})
{
$store{irc_nick_requested} = $config{irc_nick};
out irc => 1, "NICK $config{irc_nick}", "USER $config{irc_user} localhost localhost :$store{dp_hostname}";